17 lines
428 B
Haskell
17 lines
428 B
Haskell
module Dodge.Placement
|
|
where
|
|
import Geometry
|
|
import Dodge.LevelGen.Data
|
|
|
|
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 :: PSType -> Placement -> Maybe Placement
|
|
jspsJ pst plm = Just $ Placement (PS (V2 0 0) 0 pst) $ \_ -> Just plm
|
|
|
|
place0 :: PSType -> (Int -> Maybe Placement) -> Placement
|
|
place0 pst = Placement (PS (V2 0 0) 0 pst)
|