Move streaming data into its own file

2022-06-29 08:05:20 +01:00
parent b1a7e1bf35
commit 5501d6f9b5
12 changed files with 25 additions and 38 deletions
@@ -13,6 +13,7 @@ import Geometry.Data
 import Picture
 import LensHelp

+--import qualified Streaming.Prelude as S
 --import Control.Lens
 import System.Random

@@ -25,6 +26,7 @@ makeCloudAt
    -> World 
    -> World
 makeCloudAt drawFunc rad t alt p = clouds .:~ Cloud 
+--makeCloudAt drawFunc rad t alt p = clouds %~ S.cons Cloud 
    { _clPos = p
    , _clVel = V3 0 0 0
    , _clPict = drawFunc