the start of a new adventure

spirale.f90

@@ -0,0 +1,34 @@
+!                    SPIRALING...
+! new Thu Apr 23 04:27:03 PM UTC 2026
+!
+
+program spirale
+  use genplotting
+  implicit none
+
+  write (0, '(A)') "----[ genplotting spirale ]----"
+
+  call genp_init (0, 's.scratch')
+  call do_spirale (1337)
+  call genp_end (0)
+
+contains
+! ---------------------------------------------------------
+subroutine do_spirale (nbpass)
+  integer, intent(in)     :: nbpass
+  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
+    px = dist * sin(rad)
+    py = dist * cos(rad)
+    col = 3
+    call genp_draw (px, py, col)
+  enddo
+end subroutine
+! ---------------------------------------------------------
+end program