Simplify Foreground

2025-10-25 13:12:00 +01:00
parent 5fce0772f8
commit ff03efc41f
8 changed files with 6 additions and 21 deletions
@@ -10,10 +10,8 @@ import Geometry
 import ShapePicture

 data ForegroundShape = ForegroundShape
-    { _fsID :: Int
-    , _fsPos :: Point2
+    { _fsPos :: Point2
    , _fsDir :: Float
-    , _fsRad :: Float -- This should probably be a bounding box
    , _fsSPic :: SPic
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)