Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -25,7 +25,7 @@ makeCloudAt
    -> Point3   -- start position
    -> World 
    -> World
-makeCloudAt drawFunc rad t alt p = clouds .:~ Cloud 
+makeCloudAt drawFunc rad t alt p = cWorld . clouds .:~ Cloud 
 --makeCloudAt drawFunc rad t alt p = clouds %~ S.cons Cloud 
    { _clPos = p
    , _clVel = V3 0 0 0