Cleanup

2023-03-16 21:56:34 +00:00
parent bbbddb844d
commit 9e89dcebe7
7 changed files with 351 additions and 300 deletions
@@ -136,7 +136,7 @@ putShape sh =
        defaultForeground
            & fsPos .~ m
            & fsRad .~ radBounds bnds
-            & fsSPic .~ noPic (uncurryV translateSHf (- m) sh)
+            & fsSPic .~ noPic (uncurryV translateSHxy (- m) sh)
  where
    bnds = shapeBounds sh
    m = midBounds bnds