From ea373fa19874a5625237ff9d2a982c79cc35d665 Mon Sep 17 00:00:00 2001 From: Tonton Th Date: Sun, 17 May 2026 07:25:02 +0200 Subject: [PATCH] fine tuning --- morecircles.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/morecircles.f90 b/morecircles.f90 index 4217c17..b985a66 100644 --- 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", &