Reify cloud drawing, move gust data

2022-07-23 19:09:54 +01:00
parent f4808676e2
commit 9d92cbfb9e
8 changed files with 56 additions and 25 deletions
@@ -91,8 +91,7 @@ makeGasCloud pos vel w = w
    theCloud = Cloud 
        {  _clPos = addZ 20 pos
        , _clVel = addZ 0 vel
-        , _clPict = \_ -> setLayer MidLayer . setDepth 30 $ color (withAlpha 0.05 col) 
-                                          $ circleSolid 20
+        , _clPict = DrawGasCloud col
        , _clRad = 10
        , _clAlt = 25
        , _clTimer = 400