module Dodge.Default.Shell
    where
import Dodge.Data
import Picture
import Geometry.Data

defaultShell :: Prop
defaultShell = Shell
    { _prPos = 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
    }