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

Simplify button drawing

Browse Source
This commit is contained in:
justin
2025-06-25 15:40:12 +01:00
parent bf0bc22720
commit 6e9d4918a1
9 changed files with 40 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/ShapePicture.hs
+1 -1
View File
@@ -106,7 +106,7 @@ floorItemSPic flit =
btSPic :: Button -> SPic
btSPic bt =
uncurryV translateSPxy (_btPos bt) $
rotateSP (_btRot bt) (drawButton (_btPict bt) bt)
rotateSP (_btRot bt) (drawButton bt)
mcSPic :: LWorld -> Machine -> SPic
mcSPic lw mc =