aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Draw-a-clock/EasyLang/draw-a-clock.easy
View file

@ -1,5 +1,4 @@
proc draw hour min sec . .
# dial
color 333
move 50 50
circle 45
@ -16,18 +15,15 @@ proc draw hour min sec . .
move 50 + sin a * 40 50 + cos a * 40
circle 1
.
# hour
linewidth 2
color 000
a = (hour * 60 + min) / 2
move 50 50
line 50 + sin a * 32 50 + cos a * 32
# min
linewidth 1.5
a = (sec + min * 60) / 10
move 50 50
line 50 + sin a * 40 50 + cos a * 40
# sec
linewidth 1
color 700
a = sec * 6
@ -41,11 +37,9 @@ on timer
sec = number substr h$ 18 2
min = number substr h$ 15 2
hour = number substr h$ 12 2
if hour > 12
hour -= 12
.
if hour > 12 : hour -= 12
draw hour min sec
.
timer 0.1
timer 0.05
.
timer 0