Reify cloud drawing, move gust data

src/Dodge/Data.hs

@@ -73,7 +73,9 @@ module Dodge.Data
     , module Dodge.Data.Room
     , module Dodge.Data.RadarBlip
     , module Dodge.Data.PathGraph
+    , module Dodge.Data.Gust
     ) where
+import Dodge.Data.Gust
 import Dodge.Data.CrGroupParams
 import Dodge.Data.Corpse
 import Dodge.Data.ActionPlan
@@ -332,12 +334,6 @@ data MenuOption
         { _moKey    :: Scancode
         , _moEff    :: Universe -> IO (Maybe Universe)
         }
-data Gust = Gust
-    { _guID  :: Int
-    , _guPos :: Point2
-    , _guVel :: Point2
-    , _guTime :: Int
-    }
 data TerminalLine
     = TerminalLineDisplay
         {_tlPause :: Int
@@ -736,7 +732,6 @@ makeLenses ''Terminal
 makeLenses ''Machine
 makeLenses ''MachineType
 makeLenses ''Universe
-makeLenses ''Gust
 makeLenses ''GunBarrels
 makeLenses ''Nozzle
 makeLenses ''TerminalLine