justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove some Streaming

Browse Source
This commit is contained in:
justin
2022-08-21 21:53:40 +01:00
parent f1ef75f511
commit cccab45650
8 changed files with 92 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Foreground.hs
+4 -4
View File
@@ -21,8 +21,6 @@ import Picture
import Quaternion
import Shape
import ShapePicture
import Streaming
import qualified Streaming.Prelude as S
highMesh ::
Point2 ->
@@ -143,8 +141,10 @@ putShape sh =
bnds = shapeBounds sh
m = midBounds bnds
shapePoints :: Shape -> Stream (Of Point2) Identity ()
shapePoints = S.each . concatMap (map (stripZ . _svPos) . _shVs)
--shapePoints :: Shape -> Stream (Of Point2) Identity ()
--shapePoints = S.each . concatMap (map (stripZ . _svPos) . _shVs)
shapePoints :: Shape -> [Point2]
shapePoints = concatMap (map (stripZ . _svPos) . _shVs)
shapeBounds :: Shape -> (Float, Float, Float, Float)
shapeBounds = fromMaybe (0, 0, 0, 0) . boundPoints . shapePoints