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

Restore gib colours

Browse Source
This commit is contained in:
justin
2022-07-03 16:59:52 +01:00
parent ffdfaa41c0
commit 02fcb5f072
4 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Block/Debris.hs
+4 -4
View File
@@ -77,14 +77,14 @@ baseDebris mt = case mt of
Metal -> do
sh <- jaggedShape
return $ metalDebris
& prDraw .~ (`drawMovingShape` sh)
& prDraw .~ (`drawMovingShapeCol` sh)
stoneDebris :: Prop
stoneDebris = PropZ
{_prPos = 0
,_pjStartPos = 0
,_pjVel = 0
,_prDraw = \pr -> drawMovingShape pr (cubeShape 4)
,_prDraw = \pr -> drawMovingShapeCol pr (cubeShape 4)
,_pjID = 0
,_pjUpdate = fallSmallBounceDamage
,_pjPosZ = 10
@@ -103,12 +103,12 @@ dirtColor = V4 (150/256) ( 75/256) 0 ( 250/256)
metalDebris :: Prop
metalDebris = stoneDebris
& prDraw .~ (\pr -> drawMovingShape pr (shardShape 4))
& prDraw .~ (\pr -> drawMovingShapeCol pr (shardShape 4))
& pjUpdate .~ fallSmallBounce
glassDebris :: Prop
glassDebris = stoneDebris
& prDraw .~ (\pr -> drawMovingShape pr (shardShape 4))
& prDraw .~ (\pr -> drawMovingShapeCol pr (shardShape 4))
& pjUpdate .~ fallSmallBounce
& pjColor .~ withAlpha 0.5 cyan
crystalDebris :: Prop