Fix direction stuttering bug

2021-09-22 19:42:39 +01:00
parent 0295b3dd70
commit 7b6904b51f
10 changed files with 59 additions and 93 deletions
@@ -23,6 +23,7 @@ listPairAt xoff yoff w yint (s,col)
    $ text s
 {- | Colour picture and add black drop shadow. -}
 dShadCol :: Color -> Picture -> Picture
+{-# INLINE dShadCol #-}
 dShadCol c p = pictures
    [ color black $ translate 1.2 (-1.2) p
    , color c p