more spirals is better

spirale.f90

@@ -1,7 +1,10 @@
+!
 !                    SPIRALING...
 ! new Thu Apr 23 04:27:03 PM UTC 2026
 !
-
+! this crapware is released under the
+!             DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+!
 program spirale
   use genplotting
   implicit none
@@ -9,15 +12,16 @@ program spirale
   write (0, '(A)') "----[ genplotting spirale ]----"
 
   call genp_init (0, 'WS/spirale.scratch')
-  call do_spirale (1337, 0.51, 0.0666, 0.7)
+  call do_spirale (1337, 0.51, 0.0666, 0.7, 3)
+  call do_spirale (1337, 0.42, 0.0333, 0.7, 6)
   call genp_end (0)
 
 contains
 ! ---------------------------------------------------------
-subroutine do_spirale (nbpass, kdist, krad, phy)
-  integer, intent(in)     :: nbpass
+subroutine do_spirale (nbpass, kdist, krad, phy, col)
+  integer, intent(in)     :: nbpass, col
   real,    intent(in)     :: kdist, krad, phy
-  integer         idx, col
+  integer         idx
   real            rad, px, py, dist
 
   px = 0.0 ; py = 0.0
@@ -27,7 +31,6 @@ subroutine do_spirale (nbpass, kdist, krad, phy)
     rad  = (real(idx) * krad) + phy
     px = dist * sin(rad)
     py = dist * cos(rad)
-    col = 3
     call genp_draw (px, py, col)
   enddo
 end subroutine