Data update

Task/Biorhythms/EasyLang/biorhythms.easy

@@ -8,35 +8,29 @@ func day d$ .
    d = number substr d$ 9 2
    return 367 * y - 7 * (y + (m + 9) div 12) div 4 + 275 * m div 9 + d - 730530
 .
-textsize 4
+gtextsize 4
 func init b$ d$ .
-   linewidth 0.2
-   move 50 0
-   line 50 100
-   move 0 50
-   line 100 50
+   glinewidth 0.2
+   gline 50 0 50 100
+   gline 0 50 100 50
    for d = -20 to 20
-      move x 50
-      circle 0.5
+      gcircle x 50 0.5
       x += 2.5
    .
-   move 4 94
-   text b$
-   move 4 88
-   text d$
+   gtext 4 94 b$
+   gtext 4 88 d$
    days = day date$ - day birth$
-   move 4 80
-   text days & " days"
+   gtext 4 80 days & " days"
    return days
 .
-proc cycle now cyc t$ col . .
-   color col
-   move 4 cyc * 1.2 - 20
-   text t$
-   linewidth 0.5
+proc cycle now cyc t$ col .
+   gcolor col
+   gtext 4 cyc * 1.2 - 20 t$
+   glinewidth 0.5
    for d = now - 20 to now + 20
-      p = 20 * sin (360 * d / cyc)
-      line x 50 + p
+      yp = y
+      y = 50 + 20 * sin (360 * d / cyc)
+      if x > 0 : gline (x - 2.5) yp x y
       x += 2.5
    .
 .