Refactor item drawing

2021-10-01 23:01:36 +01:00
parent 5f17841811
commit 8c1496e140
28 changed files with 248 additions and 185 deletions
@@ -38,8 +38,31 @@ data Placement = Placement
    { _placementSpot :: PlacementSpot
    , _idPlacement :: Int -> Maybe Placement 
    }
+
 sPS :: Point2 -> Float -> PSType -> Placement
 sPS p a pt = Placement (PS p a pt) (const Nothing)
+
+jsps :: Point2 -> Float -> PSType -> Maybe Placement
+jsps p a pst = Just $ Placement (PS p a pst) $ const Nothing
+
+jsps0 :: PSType -> Maybe Placement
+jsps0 pst = Just $ sPS (V2 0 0) 0 pst
+
+sps0 :: PSType -> Placement
+sps0 pst = sPS (V2 0 0) 0 pst
+
+jspsJ :: Point2 -> Float -> PSType -> Placement -> Maybe Placement
+jspsJ p a pst plm = Just $ Placement (PS p a pst) $ \_ -> Just plm
+
+jsps0J :: PSType -> Placement -> Maybe Placement
+jsps0J pst plm = Just $ Placement (PS (V2 0 0) 0 pst) $ \_ -> Just plm
+
+ps0 :: PSType -> (Int -> Maybe Placement) -> Placement
+ps0 pst = Placement (PS (V2 0 0) 0 pst)
+
+ps0j :: PSType -> Placement -> Placement
+ps0j pst plmnt = Placement (PS (V2 0 0) 0 pst) (const $ Just plmnt)
+
 makeLenses ''PSType
 makeLenses ''PlacementSpot
 makeLenses ''Placement