22 lines
414 B
Haskell
22 lines
414 B
Haskell
module Dodge.Default.Shell
|
|
where
|
|
import Dodge.Data
|
|
import Picture
|
|
import Geometry.Data
|
|
|
|
defaultShell :: Prop
|
|
defaultShell = Shell
|
|
{ _pjPos = V2 0 0
|
|
, _pjZ = 20
|
|
, _pjStartPos = V2 0 0
|
|
, _pjVel = V2 0 0
|
|
, _pjAcc = V2 0 0
|
|
, _pjDir = 0
|
|
, _pjSpin = 0
|
|
, _prDraw = const (mempty, blank)
|
|
, _pjID = 0
|
|
, _pjTimer = 0
|
|
, _pjUpdate = const id
|
|
, _pjPayload = const id
|
|
}
|