better calling

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