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
2022-02-13 17:29:32 +00:00
parent eba1713895
commit 40f1d987cb
21 changed files with 109 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item.hs
+4 -5
View File
@@ -2,7 +2,6 @@ module Dodge.Item
where
import Dodge.Data
import Dodge.Default
import Dodge.Picture
import Picture
import Geometry.Data
--import ShapePicture
@@ -22,8 +21,8 @@ keyToken n = defaultEquipment
keyPic :: Picture
keyPic = color green $
pictures [translate (-4) 0 $ thickCircle 4 2
,lineOfThickness 2 $ map toV2 [(0,0),(8,0),(8,-4)]
,lineOfThickness 2 $ map toV2 [(4,0),(4,-4)]
,thickLine 2 $ map toV2 [(0,0),(8,0),(8,-4)]
,thickLine 2 $ map toV2 [(4,0),(4,-4)]
]
latchkey :: Int -> Item
@@ -39,6 +38,6 @@ latchkey n = defaultEquipment
latchkeyPic :: Picture
latchkeyPic = color yellow $
pictures [translate (-4) 0 $ thickCircle 4 2
,lineOfThickness 2 $ map toV2 [(0,0),(8,0),(8,-4)]
,lineOfThickness 2 $ map toV2 [(4,0),(4,-4)]
,thickLine 2 $ map toV2 [(0,0),(8,0),(8,-4)]
,thickLine 2 $ map toV2 [(4,0),(4,-4)]
]