Draw a clock: Difference between revisions

m (→‎{{header|Phix}}: added syntax colouring, made p2js compatible)
Line 1,764:
[https://easylang.online/apps/clock.html Run it]
 
<lang>func# draw hour min sec . .Clock
#
func draw hour min sec . .
# dial
set_colorcolor 333
move_penmove 50 50
draw_circlecircle 45
set_colorcolor 797
draw_circlecircle 44
set_colorcolor 333
for i range 60
a = i * 6
move_penmove 50 + sin a * 40 50 - cos a * 40
draw_circlecircle 0.25
.
for i range 12
a = i * 30
move_penmove 50 + sin a * 40 50 - cos a * 40
draw_circlecircle 1
.
# hour
set_linewidthlinewidth 2
set_colorcolor 000
a = (hour * 60 + min) / 2
move_penmove 50 50
draw_lineline 50 + sin a * 32 50 - cos a * 32
# min
set_linewidthlinewidth 1.5
a = (sec + min * 60) / 10
move_penmove 50 50
draw_lineline 50 + sin a * 40 50 - cos a * 40
# sec
set_linewidthlinewidth 1
set_colorcolor 700
a = sec * 6
move_penmove 50 50
draw_lineline 50 + sin a * 40 50 - cos a * 40
.
on timer
if t <> time_secsfloor systime
t = time_secsfloor systime
h$ = time_strtimestr t
sec = number substr h$ 17 2
min = number substr h$ 14 2
Line 1,811 ⟶ 1,813:
.
call draw hour min sec
set_timer 0.98
else
set_timer 0.01
.
timer 0.1
.
set_timertimer 0</lang>
 
=={{header|F_Sharp|F#}}==
2,060

edits