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
@@ -302,7 +302,7 @@ miniGunXPict i spin _ =
    )
  where
    aBarrel = translateSH (V3 15 2 2) baseCaneShape
-    barrels = concatMap (\an -> aBarrel & rotateSHx (2*pi * fromIntegral an / fromIntegral i)) [1..i]
+    barrels = foldMap (\an -> aBarrel & rotateSHx (2*pi * fromIntegral an / fromIntegral i)) [1..i]
    a = fromIntegral spin / 100
    --x = fromIntegral am / 10
 --    clip y z = translateSH (V3 0 (-1) z) (rotateSHx (negate $ pi/4)