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

Fix glass debris bug

Browse Source
This commit is contained in:
justin
2022-06-19 16:42:41 +01:00
parent 4924aa0a57
commit 9e311cccf4
4 changed files with 76 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Block/Debris.hs
+10 -2
View File
@@ -79,7 +79,7 @@ glassDebris = PropZ
{_prPos = 0
,_pjStartPos = 0
,_pjVel = 0
,_prDraw = \pr -> drawMovingShape pr (debrisShape 2 pr)
,_prDraw = \pr -> drawMovingShape pr (shardShape 4 pr)
,_pjID = 0
,_pjUpdate = fallSmallBounce
,_pjPosZ = 10
@@ -92,8 +92,16 @@ glassDebris = PropZ
crystalDebris :: Prop
crystalDebris = glassDebris
& pjColor .~ withAlpha 0.5 aquamarine
shardShape :: Float -> Prop -> Shape
shardShape size pr = colorSH (_pjColor pr) . translateSHz (-size) $ upperPrismPoly size $
[V2 size 0
,V2 (-size) 1
,V2 (-size) (-1)
]
debrisShape :: Float -> Prop -> Shape
debrisShape size pr = colorSH (_pjColor pr) . translateSHz (-size) $ upperPrismPoly 8 $ square size
debrisShape size pr = colorSH (_pjColor pr) . translateSHz (-size) $ upperPrismPoly (2*size) $ square size
matDesSound :: Material -> Point2 -> World -> World
matDesSound mat = case mat of