Reify cloud drawing, move gust data

src/Dodge/Render/ShapePicture.hs

@@ -1,6 +1,7 @@
 module Dodge.Render.ShapePicture
     ( worldSPic
     ) where
+import Dodge.Cloud.Draw
 import Dodge.Zoning
 import Dodge.Button.Draw
 import Dodge.LightSource.Draw
@@ -297,7 +298,7 @@ drawBoundingBox w = setLayer DebugLayer $ color green $ line $ (x:xs) ++ [x]
     (x:xs) = _boundBox w
 
 clDraw :: Cloud -> Picture
-clDraw c = translate3 (_clPos c) (_clPict c c)
+clDraw c = translate3 (_clPos c) (drawCloud (_clPict c) c)
 ppDraw :: PressPlate -> Picture
 ppDraw c = uncurryV translate (_ppPos c) $ rotate (_ppRot c) (_ppPict c)
 floorItemSPic :: FloorItem -> SPic