20 lines
367 B
Haskell
20 lines
367 B
Haskell
module Dodge.Default.Shell
|
|
where
|
|
import Dodge.Data
|
|
import Picture
|
|
|
|
defaultShell :: Projectile
|
|
defaultShell = Shell
|
|
{ _pjPos = (0,0)
|
|
, _pjStartPos = (0,0)
|
|
, _pjVel = (0,0)
|
|
, _pjAcc = (0,0)
|
|
, _pjDir = 0
|
|
, _pjSpin = 0
|
|
, _pjDraw = const blank
|
|
, _pjID = 0
|
|
, _pjTimer = 0
|
|
, _pjUpdate = const id
|
|
, _pjPayload = const id
|
|
}
|