fine tuning

2026-05-17 07:25:02 +02:00
parent 52e5e99b07
commit ea373fa198
1 changed files with 3 additions and 3 deletions
--- a/morecircles.f90
+++ b/morecircles.f90
@@ -11,7 +11,7 @@ program morecircles
  integer     idx
  real        fdx, xp, yp, scx, scy
  call genp_init(0, "WS/morecircles.scratch")
-  scx = 0.8   ;   scy = 1.5
+  scx = 0.6   ;   scy = 2.3
  do idx=5, 60
    fdx = real(idx)
    xp = 3.5 * cos((fdx/14.0)-0.7)
@@ -19,8 +19,8 @@ program morecircles
    call genp_set_offset(xp, yp)
    call genp_set_scale(scx, scy)
    call genp_circle(fdx, 60, 1+mod(idx, 3))
-    scx = scx + 0.0075
-    scy = scy - 0.0075
+    scx = scx + 0.0185
+    scy = scy - 0.0129
  enddo
  call genp_end(0)
  call genp_do_render("WS/morecircles.scratch", "morecircles.tga", &