edge-0.8: Star.hs

module Star where

import Data.WrapAround
import Animation
import Graphics.Gloss.Data.Picture
import Graphics.Gloss.Data.Color
import GHC.Float
import Moving

data Star = Star { location :: WrapPoint
                 , color :: Color
                 }

instance Animation Star where
  image star _ = Color (Star.color star) (rectangleSolid 1.0 1.0)

instance Locatable Star where
  center = location