Restore gib colours

2022-07-03 16:59:52 +01:00
parent ffdfaa41c0
commit 02fcb5f072
4 changed files with 13 additions and 6 deletions
@@ -1,5 +1,6 @@
 module Dodge.Prop.Moving 
    ( drawMovingShape
+    , drawMovingShapeCol
    , fallSmallBounceDamage
    , fallSmallBounce
    ) where
@@ -67,4 +68,10 @@ drawMovingShape pr = noPic
    . translateSHz (_pjPosZ pr)
    . uncurryV translateSHf (_prPos pr) 
    . overPosSH (Q.rotate (_pjQuat pr))
+
+drawMovingShapeCol :: Prop -> Shape -> SPic
+drawMovingShapeCol pr = noPic
+    . translateSHz (_pjPosZ pr)
+    . uncurryV translateSHf (_prPos pr) 
+    . overPosSH (Q.rotate (_pjQuat pr))
    . colorSH (_pjColor pr)