From 66ecce1c062cfaf3d5a0d0bc7903254a6e4d8d58 Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Sat, 25 Apr 2026 10:31:09 +0200
Subject: [PATCH] better calling

---
 spirale.f90 | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/spirale.f90 b/spirale.f90
index 3c11f76..a4ff4c3 100644
--- a/spirale.f90
+++ b/spirale.f90
@@ -9,21 +9,22 @@ program spirale
   write (0, '(A)') "----[ genplotting spirale ]----"
 
   call genp_init (0, 's.scratch')
-  call do_spirale (1337)
+  call do_spirale (1337, 0.51, 0.0666, 0.7)
   call genp_end (0)
 
 contains
 ! ---------------------------------------------------------
-subroutine do_spirale (nbpass)
+subroutine do_spirale (nbpass, kdist, krad, phy)
   integer, intent(in)     :: nbpass
+  real,    intent(in)     :: kdist, krad, phy
   integer         idx, col
   real            rad, px, py, dist
 
   px = 0.0 ; py = 0.0
   call genp_move (px, py)
   do idx=1, nbpass
-    dist = real(idx) * 0.51
-    rad = real(idx) * 0.0666
+    dist = real(idx) * kdist
+    rad  = (real(idx) * krad) + phy
     px = dist * sin(rad)
     py = dist * cos(rad)
     col = 3