diff options
Diffstat (limited to 'Demos/Pong/Pong.hs')
| -rw-r--r-- | Demos/Pong/Pong.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Demos/Pong/Pong.hs b/Demos/Pong/Pong.hs index b048bbc..fd7fbeb 100644 --- a/Demos/Pong/Pong.hs +++ b/Demos/Pong/Pong.hs | |||
| @@ -7,12 +7,12 @@ module Pong | |||
| 7 | ) | 7 | ) |
| 8 | where | 8 | where |
| 9 | 9 | ||
| 10 | import Data.Monoid (mconcat) | 10 | import Data.Monoid (mconcat) |
| 11 | import GHC.Float (double2Float) | 11 | import GHC.Float (double2Float) |
| 12 | import Spear.Math.AABB | 12 | import Spear.Math.AABB |
| 13 | import Spear.Math.Spatial2 | 13 | import Spear.Math.Spatial2 |
| 14 | import Spear.Math.Vector | 14 | import Spear.Math.Vector |
| 15 | import Spear.Step | 15 | import Spear.Step |
| 16 | 16 | ||
| 17 | -- Configuration | 17 | -- Configuration |
| 18 | 18 | ||
| @@ -42,8 +42,8 @@ data GameEvent | |||
| 42 | -- Game objects | 42 | -- Game objects |
| 43 | 43 | ||
| 44 | data GameObject = GameObject | 44 | data GameObject = GameObject |
| 45 | { aabb :: AABB2, | 45 | { aabb :: AABB2, |
| 46 | obj :: Obj2, | 46 | obj :: Obj2, |
| 47 | gostep :: Step [GameObject] [GameEvent] GameObject GameObject | 47 | gostep :: Step [GameObject] [GameEvent] GameObject GameObject |
| 48 | } | 48 | } |
| 49 | 49 | ||