Simplify clouds

2025-06-24 09:42:51 +01:00
parent 366b998989
commit b1041d1eb0
12 changed files with 110 additions and 96 deletions
@@ -12,14 +12,14 @@ import Data.Aeson.TH
 import Geometry

 data CloudDraw
-    = CloudColor Float Float Color -- radius-multiply fade-time color
+    = CloudColor Float-- Color -- radius-multiply fade-time color
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Cloud = Cloud
    { _clPos :: Point3
    , _clVel :: Point3
-    , _clPict :: CloudDraw
-    , _clRad :: Float
+--    , _clPict :: CloudDraw
+--    , _clRad :: Float
    , _clAlt :: Float
    , _clTimer :: Int
    , _clType :: CloudType