Make Shapes use Streaming rather than Vector streaming

2022-07-03 23:04:58 +01:00
parent 02fcb5f072
commit f9a904d52b
11 changed files with 54 additions and 47 deletions
@@ -41,7 +41,7 @@ shatterGun = defaultWeapon
 shatterGunSPic :: Item -> SPic
 shatterGunSPic _ = noPic $ colorSH blue $
       upperPrismPoly 5 (rectNESW xb    8 xa    0)
-    ++ upperPrismPoly 5 (rectNESW (-xa) 8 (-xb) 0)
+    <> upperPrismPoly 5 (rectNESW (-xa) 8 (-xb) 0)
  where
    xa = 1
    xb = 9