1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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)
|
