1 files changed, 34 insertions, 0 deletions
diff --git a/test/System/Utility/H9Clock/Test/Util.hs b/test/System/Utility/H9Clock/Test/Util.hs
new file mode 100644
index 0000000..96780f0
--- /dev/null
+++ b/test/System/Utility/H9Clock/Test/Util.hs
@@ -0,0 +1,34 @@
+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)
+