Allow for no-ammo muzzles

2025-08-10 08:09:03 +01:00
parent 9d973b2570
commit aa412f1911
9 changed files with 283 additions and 283 deletions
@@ -47,6 +47,7 @@ drawChasm = foldMap (Prelude.uncurry drawCliff) . loopPairs
 drawCliff :: Point2 -> Point2 -> SPic
 drawCliff x y = noPic 
    . translateSHz (-500.01)
+    . colorSH (dark orange)
    $ upperPrismPoly Large Important 500 [x,0.5 *(x+y) + normalizeV (vNormal (y - x)),y]

 drawPulseBall :: PulseBall -> SPic