Draw a clock: Difference between revisions

(→‎{{header|BASIC}}: add AmigaBASIC version)
Line 1,688:
<lang>func draw hour min sec . .
# dial
colorset_color 333
movemove_pen 50 50
circledraw_circle 45
colorset_color 797
circledraw_circle 44
colorset_color 333
for i range 60
a = i * 6
movemove_pen 50 + sin a * 40 50 - cos a * 40
circledraw_circle 0.25
.
for i range 12
a = i * 30
movemove_pen 50 + sin a * 40 50 - cos a * 40
circledraw_circle 1
.
# hour
linewidthset_linewidth 2
colorset_color 000
a = (hour * 60 + min) / 2
movemove_pen 50 50
linedraw_line 50 + sin a * 32 50 - cos a * 32
# min
linewidthset_linewidth 1.5
a = (sec + min * 60) / 10
movemove_pen 50 50
linedraw_line 50 + sin a * 40 50 - cos a * 40
# sec
linewidthset_linewidth 1
colorset_color 700
a = sec * 6
movemove_pen 50 50
linedraw_line 50 + sin a * 40 50 - cos a * 40
.
on timer
Line 1,733:
.
call draw hour min sec
timerset_timer 0.98
else
timerset_timer 0.01
.
.
timerset_timer 0</lang>
 
=={{header|F_Sharp|F#}}==
2,060

edits