{-# LANGUAGE MultiParamTypeClasses #-}

module Hero (

Hero (..)

) where

import Object (Object (..))

import Interaction (Interaction (..), Reaction (..))

import Geometry (Point, Velocity, (|*), (|/))

import Number (Number)

data Hero

= Hero {

hLocation :: Point,

hVelocity :: Velocity,

hMass :: Number

}

deriving (Eq, Show, Read)

instance Object Hero where

position = hLocation

mass = hMass

velocity = hVelocity

tick time (Hero l v m) = Hero (l + v |* (realToFrac time)) v m

impel p (Hero l v m) = Hero l (v + p |/ m) m

instance Interaction Hero Hero () where

interaction _ _ = Nothing