Move line width to first argument

2022-02-10 11:31:55 +00:00
parent 700ab8d930
commit ede5a4e5d0
5 changed files with 12 additions and 12 deletions
@@ -15,9 +15,9 @@ highDiagonalMesh
    -> Float    -- ^ vertical distance between lines
    -> Picture
 highDiagonalMesh pa pb w d = setDepth (-0.2) $ pictures $
-    map (flip thickLine 3 . tflat2) (diagonalLinesRect pb pa w d (3*pi/4))
+    map (thickLine 3 . tflat2) (diagonalLinesRect pb pa w d (3*pi/4))
    ++ 
-    map (flip thickLine 3 . tflat2) (diagonalLinesRect pb pc (negate h) d (pi/4))
+    map (thickLine 3 . tflat2) (diagonalLinesRect pb pc (negate h) d (pi/4))
  where
    pc = pb +.+ w *.* normalizeV (vNormal (pb -.- pa))
    h = dist pa pb