22 lines
450 B
Haskell
22 lines
450 B
Haskell
module Dodge.Default.Prop where
|
|
import Dodge.Data
|
|
import Geometry
|
|
defaultProp :: Prop
|
|
defaultProp = Projectile
|
|
{ _prPos = V2 0 0
|
|
, _pjStartPos = V2 0 0
|
|
, _pjVel = V2 0 0
|
|
, _prDraw = const mempty
|
|
, _pjID = 0
|
|
, _pjUpdate = const id
|
|
}
|
|
defaultShapeProp :: Prop
|
|
defaultShapeProp = ShapeProp
|
|
{ _prPos = 0
|
|
, _pjID = 0
|
|
, _pjRot = 0
|
|
, _pjUpdate = const id
|
|
, _prDraw = const mempty
|
|
, _prToggle = True
|
|
}
|