module System.Utility.H9Clock.Test.Util
  (
    handPts
  , getRGB
  , dPts
  )
where

import           Graphics.HGL

handPts :: ([Point], [Point])
handPts = (hourHandPts, minHandPts)

minHandPts = [(125,125),(128,128),(128,215),(125,212)]
hourHandPts = [(125,125),(128,128),(167,171),(164,168)]

dPts :: [(Point, Point)]
dPts = [
        ((238,129),(246,121))
       ,((222,71),(230,63))
       ,((180,28),(188,20))
       ,((121,12),(129,4))
       ,((63,28),(71,20))
       ,((20,71),(28,63))
       ,((4,129),(12,121))
       ,((20,188),(28,180))
       ,((62,230),(70,222))
       ,((121,246),(129,238))
       ,((180,230),(188,222))
       ,((222,188),(230,180))
       ]

getRGB (RGB r g b)  = (r, g, b)