From 252ea6d764ae3af62d29b12037349c4fab102079 Mon Sep 17 00:00:00 2001
From: tTh <tth@konrad.lan>
Date: Sat, 17 Dec 2022 12:08:44 +0100
Subject: [PATCH] cosmetic tuning

---
 Fraktalism/essai.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Fraktalism/essai.f90 b/Fraktalism/essai.f90
index 8d51201..238baa6 100644
--- a/Fraktalism/essai.f90
+++ b/Fraktalism/essai.f90
@@ -25,8 +25,8 @@ program essai
   do foo=1, 360
     write (filename, "(a, i5.5, a)") "frames/popcorn/", foo-1, ".pnm"
     write(0, *) "-------->", trim(filename), "<"
-    kx   = 50.0 * sin(real(foo)*25.133)
-    ky   = 50.0 * cos(real(foo)*25.133)
+    kx   = 50.0 * sin(real(foo)*21.133)
+    ky   = 50.0 * cos(real(foo)*26.133)
     write(0, *) foo, kx, ky
     call parasites_0(picz, kx, ky, 233)
     call spit_as_pgm_8(picz, trim(filename))