Cleanup, add spark to bullet turret hit

2022-02-13 17:51:15 +00:00
parent 40f1d987cb
commit 4f0f8cb4c2
7 changed files with 25 additions and 29 deletions
@@ -11,8 +11,9 @@ import Dodge.Data
 import Dodge.Base
 import Geometry.Data
 import Picture
+import LensHelp

-import Control.Lens
+--import Control.Lens
 import System.Random

 makeCloudAt 
@@ -23,18 +24,16 @@ makeCloudAt
    -> Point3   -- start position
    -> World 
    -> World
-makeCloudAt drawFunc rad t alt p = clouds %~ (theCloud :)
-  where 
-    theCloud = Cloud 
-        { _clPos = p
-        , _clVel = V3 0 0 0
-        , _clPict = drawFunc
-        , _clRad = rad
-        , _clAlt = alt
-        , _clTimer = t
-        , _clType = SmokeCloud
-        , _clEffect = const id
-        }
+makeCloudAt drawFunc rad t alt p = clouds .:~ Cloud 
+    { _clPos = p
+    , _clVel = V3 0 0 0
+    , _clPict = drawFunc
+    , _clRad = rad
+    , _clAlt = alt
+    , _clTimer = t
+    , _clType = SmokeCloud
+    , _clEffect = const id
+    }

 smokeCloudAt 
    :: Color