Title "Kids clock"
'DataCreate "hrsml.txt", "h00h.gif"
LoadSubImages
Screen NewImage
(1024, 768, 32) CX
= 500: CY
= 350: A
= -_Pi / 2 + _Pi(2) / 12 PutImage (Xv, Yv), nrs(t)
k& = KeyDown(27)
Mode = 1
Select Case Mode
' mode: 0 for standard STEPs mode, 1 for smooth steps. If Hrs
> 12 Then Hrs
= Hrs
- 12 Secs
= Int(Timer - (Hrs
* 3600 + Min
* 60))
Asecs
= _Pi(2) / 12 * Hrs
- _Pi / 2 iW = 45: iH = 144: Handle = 13: L1 = 170
Asecs
= _Pi(2) / 60 * Min
- _Pi / 2 iW = 54: iH = 145: Handle = 14: L1 = 222
Asecs
= _Pi(2) / 60 * Secs
- _Pi / 2 iW = 61: iH = 143: Handle = 12: L1 = 200
X1
= 535 + Cos(Asecs
- .09) * L1
X2
= 535 + Cos(Asecs
+ .09) * L1
Y1
= 419 + Sin(Asecs
- .09) * L1
Y2
= 419 + Sin(Asecs
+ .09) * L1
X3
= 535 + Cos(Asecs
- .6) * -20 X4
= 535 + Cos(Asecs
+ .6) * -20 Y3
= 419 + Sin(Asecs
- .6) * -20 Y4
= 419 + Sin(Asecs
+ .6) * -20
MapTriangle
(0, 0)-(iW
, iH
)-(0, iH
), nrs
(Handle
) To(X1
, Y1
)-(X3
, Y3
)-(X4
, Y4
) MapTriangle
(iW
, 0)-(0, 0)-(iW
, iH
), nrs
(Handle
) To(X2
, Y2
)-(X1
, Y1
)-(X3
, Y3
) Display
Limit 20
Sub DataCreate
(OutputFile
As String, InputFile
As String) 'this sub is not need for run, but is used between developing this program. This sub create DATA values for us. img = LoadImage(InputFile$, 32)
img2 = CopyImage(img, 32)
k& = KeyDown(27)
MX = MouseX: MY = MouseY
MB1 = MouseButton(1)
MB2 = MouseButton(2)
PutImage , img2
Line (MX
, MY
)-(MouseX
, MouseY
), &HFF000000, B
MB1 = MouseButton(1)
Limit 15
wMx2 = 0
img = LoadImage("H00H.gif", 32)
wdth = x2 - x1: hght = y2 - y1
PutImage , img, nrs(i), (x1, y1)-(x2, y2)
FreeImage img