Revert "Turn Shape into a stream"

This reverts commit c7e720248d.
2022-06-27 18:41:43 +01:00
parent c7e720248d
commit 03b37c4e7b
11 changed files with 32 additions and 42 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