Data update

Task/Draw-a-clock/EasyLang/draw-a-clock.easy

@@ -1,34 +1,32 @@
-proc draw hour min sec . .
-   color 333
-   move 50 50
-   circle 45
-   color 797
-   circle 44
-   color 333
+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
-      move 50 + sin a * 40 50 + cos a * 40
-      circle 0.25
+      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
+      .
    .
-   for i range0 12
-      a = i * 30
-      move 50 + sin a * 40 50 + cos a * 40
-      circle 1
-   .
-   linewidth 2
-   color 000
+   # hour
+   glinewidth 2
+   gcolor 000
    a = (hour * 60 + min) / 2
-   move 50 50
-   line 50 + sin a * 32 50 + cos a * 32
-   linewidth 1.5
+   gline 50 50 50 + sin a * 32 50 + cos a * 32
+   # min
+   glinewidth 1.5
    a = (sec + min * 60) / 10
-   move 50 50
-   line 50 + sin a * 40 50 + cos a * 40
-   linewidth 1
-   color 700
+   gline 50 50 50 + sin a * 40 50 + cos a * 40
+   # sec
+   glinewidth 1
+   gcolor 700
    a = sec * 6
-   move 50 50
-   line 50 + sin a * 40 50 + cos a * 40
+   gline 50 50 50 + sin a * 40 50 + cos a * 40
 .
 on timer
    if t <> floor systime

Task/Draw-a-clock/OPL/draw-a-clock.opl

@@ -0,0 +1,4 @@
+PROC main:
+  gCLOCK ON,$29
+  GET
+ENDP