.

shell/data.limg

@@ -161,7 +161,7 @@
     (circle . [def (circle scr cx cy r clr)
   with (x (0 - r)
         y 0
-        err (2 - (* 2 r))
+        err (2 - r*2)
         continue 1)
     while continue
       (pixel scr cx-x cy+y clr)
@@ -171,10 +171,10 @@
       (set r err)
       when (r <= y)
         ++y
-        err += (1 + (2 * y))
+        err += (y*2 + 1)
       when (or (r > x) (err > y))
         ++x
-        err += (+ 1 (* 2 x))
+        err += (x*2 + 1)
       set continue (x < 0)])
     (ring . [def (ring screen cx cy r0 w clr)
   for r r0 (r < (r0 + w)) ++r