Cleanup matrices

2021-06-24 18:49:10 +02:00
parent d4795749e3
commit bae8a4ed94
7 changed files with 35 additions and 141 deletions
@@ -89,7 +89,7 @@ girderV col w x y = setDepth (-0.1) $ color col $ pictures $
    bs' = catMaybes $ zipWith (fmap . (,)) as $ f (3*pi/4) as
 girder :: Color -> Float -> Point2 -> Point2 -> Picture
 girder col w x y = pictures $
-    (setDepth (-0.1) $ color col $ pictures $
+    setDepth (-0.1) (color col $ pictures $
        [ thickLine [xt,yt] 3 
        , thickLine [xb,yb] 3
        ]