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

More strictifiiiying

Browse Source
This commit is contained in:
justin
2021-07-30 01:25:11 +02:00
parent 2d8b27746c
commit 7b7fd302d8
37 changed files with 459 additions and 448 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item.hs
+5 -4
View File
@@ -6,6 +6,7 @@ import Dodge.Item.Data
import Dodge.Default
import Dodge.Picture
import Picture
import Geometry.Data
keyToken :: Int -> Item
keyToken n = defaultEquipment
@@ -27,8 +28,8 @@ keyToken n = defaultEquipment
keyPic :: Picture
keyPic = color green $
pictures [translate (-4) 0 $ thickCircle 4 2
,lineOfThickness 2 [(0,0),(8,0),(8,-4)]
,lineOfThickness 2 [(4,0),(4,-4)]
,lineOfThickness 2 $ map toV2 [(0,0),(8,0),(8,-4)]
,lineOfThickness 2 $ map toV2 [(4,0),(4,-4)]
]
latchkey :: Int -> Item
@@ -51,6 +52,6 @@ latchkey n = defaultEquipment
latchkeyPic :: Picture
latchkeyPic = color yellow $
pictures [translate (-4) 0 $ thickCircle 4 2
,lineOfThickness 2 [(0,0),(8,0),(8,-4)]
,lineOfThickness 2 [(4,0),(4,-4)]
,lineOfThickness 2 $ map toV2 [(0,0),(8,0),(8,-4)]
,lineOfThickness 2 $ map toV2 [(4,0),(4,-4)]
]