Fix direction stuttering bug

src/Picture.hs

@@ -180,7 +180,6 @@ scale3 a b (V3 x y z) = V3 (x*a) (y*b) z
 
 scale :: Float -> Float -> Picture -> Picture
 {-# INLINE scale #-}
---scale x y = map . second . overPos $ scale3 x y
 scale x = map . overPos . scale3 x
 
 rotate :: Float -> Picture -> Picture
@@ -330,7 +329,6 @@ overCol f vx = vx {_vxCol = f (_vxCol vx)}
 -- no premature optimisation, consider changing to use texture arrays
 stringToList :: String -> [(Point3,Point4,Point2)]
 {-# INLINE stringToList #-}
---stringToList s = concat $ zipWith charToTuple [0,0.9*dimText ..] s
 stringToList s = concatMap (uncurry charToTuple) $ zip [0,0.9*dimText ..] s
   where
     dimText = 100