44 lines
891 B
Plaintext
44 lines
891 B
Plaintext
proc draw hour min sec .
|
|
# dial
|
|
gcolor 333
|
|
gcircle 50 50 45
|
|
gcolor 797
|
|
gcircle 50 50 44
|
|
gcolor 333
|
|
for i range0 60
|
|
a = i * 6
|
|
if i mod 5 = 0
|
|
gcircle 50 + sin a * 40 50 + cos a * 40 1
|
|
else
|
|
gcircle 50 + sin a * 40 50 + cos a * 40 0.25
|
|
.
|
|
.
|
|
# hour
|
|
glinewidth 2
|
|
gcolor 000
|
|
a = (hour * 60 + min) / 2
|
|
gline 50 50 50 + sin a * 32 50 + cos a * 32
|
|
# min
|
|
glinewidth 1.5
|
|
a = (sec + min * 60) / 10
|
|
gline 50 50 50 + sin a * 40 50 + cos a * 40
|
|
# sec
|
|
glinewidth 1
|
|
gcolor 700
|
|
a = sec * 6
|
|
gline 50 50 50 + sin a * 40 50 + cos a * 40
|
|
.
|
|
on timer
|
|
if t <> floor systime
|
|
t = floor systime
|
|
h$ = timestr t
|
|
sec = number substr h$ 18 2
|
|
min = number substr h$ 15 2
|
|
hour = number substr h$ 12 2
|
|
if hour > 12 : hour -= 12
|
|
draw hour min sec
|
|
.
|
|
timer 0.05
|
|
.
|
|
timer 0
|