justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2026-03-24 09:38:32 +00:00
parent 832bebb597
commit be2f7160ba
13 changed files with 43 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Picture/Base.hs
+2 -2
View File
@@ -115,7 +115,7 @@ translate3 = fmap . overPos . (+.+.+)
tranRot :: V2 Float -> Float -> Picture -> Picture
{-# INLINE tranRot #-}
tranRot (V2 x y) r = fmap $ overPos (translateH x y . rotate3 r)
tranRot (V2 x y) r = fmap $ overPos (translateH x y . rotate3z r)
setDepth :: Float -> Picture -> Picture
{-# INLINE setDepth #-}
@@ -144,7 +144,7 @@ scale x = fmap . overPos . scale3 x
rotate :: Float -> Picture -> Picture
{-# INLINE rotate #-}
rotate = fmap . overPos . rotate3
rotate = fmap . overPos . rotate3z
makeArc :: Float -> Point2 -> [Point2]
{-# INLINE makeArc #-}