Broken binding of central picture in one pass

2021-07-26 00:53:35 +02:00
parent 4f44b748bf
commit 5dfebd221d
9 changed files with 165 additions and 17 deletions
@@ -176,11 +176,11 @@ scale3 a b (x,y,z) = (x*a,y*b,z)

 scale :: Float -> Float -> Picture -> Picture
 {-# INLINE scale #-}
-scale x y = map $ second $ overPos $ (scale3 x y)
+scale x y = map . second . overPos $ scale3 x y

 rotate :: Float -> Picture -> Picture
 {-# INLINE rotate #-}
-rotate a = map $ second $ overPos $ (rotate3 a)
+rotate a = map . second . overPos $ rotate3 a

 pictures :: [Picture] -> Picture
 {-# INLINE pictures #-}