Draw a clock: Difference between revisions

Content added Content deleted
Line 1,658: Line 1,658:
circle 44
circle 44
color 333
color 333
for i% range 60
for i range 60
a = i% * 6
a = i * 6
move 50 + sin a * 40 50 - cos a * 40
move 50 + sin a * 40 50 - cos a * 40
circle 0.25
circle 0.25
.
.
for i% range 12
for i range 12
a = i% * 30
a = i * 30
move 50 + sin a * 40 50 - cos a * 40
move 50 + sin a * 40 50 - cos a * 40
circle 1
circle 1
Line 1,687: Line 1,687:
.
.
on timer
on timer
if t% <> time_secs
if t <> time_secs
t% = time_secs
t = time_secs
h$ = time_str t%
h$ = time_str t
sec = number substr h$ 17 2
sec = number substr h$ 17 2
min = number substr h$ 14 2
min = number substr h$ 14 2