Correct text scaling

2021-03-07 23:34:37 +01:00
parent 80a38eca58
commit f92075263f
7 changed files with 36 additions and 63 deletions
@@ -112,7 +112,7 @@ scale3 a b (x,y,z) = (x*a,y*b,z)

 scale :: Float -> Float -> Picture -> Picture
 {-# INLINE scale #-}
-scale x y pic = OverPic (scale3 x y) ((*) x) 0 id pic
+scale x y pic = OverPic (scale3 x y) (\(a,b) ->(a*x,b*y)) 0 id pic

 rotate3 :: Float -> Point3 -> Point3
 {-# INLINE rotate3 #-}