16 lines
300 B
Haskell
16 lines
300 B
Haskell
module Dodge.Default.Prop where
|
|
|
|
import Dodge.Data.Prop
|
|
import Geometry
|
|
|
|
defaultProp :: Prop
|
|
defaultProp =
|
|
ShapeProp
|
|
{ _prPos = V2 0 0
|
|
, _prDraw = PropDrawSPic mempty
|
|
, _prID = 0
|
|
, _prUpdate = PropUpdateId
|
|
, _prToggle = True
|
|
, _prRot = 0
|
|
}
|