this crap need more work

exemples.md

@@ -14,8 +14,11 @@ a powerfull spiral generator. *Stay tuned, film at 11*.
 
 ## Dessins numériques
 
-Et donc, j'utilise toute cette futilo-technologie pour essayer de
-faire des
-[dessins numériques](http://maison.tth.netlib.re/dessins/numerique.html) 
-en expliquant ma démarche de création et d'autres vagues pensées qui
-me passent par la tête. 
+By the way, I'm using all that *futilo-technology* for trying to
+make some
+[numeric pictures](http://maison.tth.netlib.re/dessins/numerique.html)
+(aka #UselessGraphic). I try to use various mathematic fundations, and
+I hack and divert and modify and ignore all that for just make
+[UselessGraphic](https://mastodon.tetaneutral.net/tags/uselessgraphic).
+*Feel free to share and enjoy*.
+

lissajous.f90

@@ -6,10 +6,10 @@ program sinwaves
   real     phase
   call genp_init (0, 'WS/lissajous.scratch')
 
-  do foo=1, 22
+  do foo=1, 20
     phase = real(foo) * 0.314159
     c = 3 + mod(foo, 2)
-    call do_lissajous (2000, phase, c)
+    call do_lissajous (400, phase, c)
   enddo
 
   call genp_end (0)
@@ -25,7 +25,7 @@ subroutine do_lissajous (nbpass, phy, col)
 
   do idx=0, nbpass
     ridx = 6.28318 * (real(idx) / real(nbpass))
-    x = sin(ridx*7 + phy)
+    x = sin(ridx + phy)
     y = cos(ridx*3)
 
     if (idx .eq. 0) then

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

squarmania.f90

@@ -12,7 +12,7 @@ program squarmania
   write (0, '(A)') "----[ genplotting squarmania ]----"
 
   call genp_init (0, 'WS/squarmania.scratch')
-  call do_squarmania (35, 0.93)
+  call do_squarmania (40, 0.934)
   call genp_end (0)
 
 contains
@@ -31,8 +31,8 @@ subroutine do_squarmania (nbr, k0)
 
   do idx=1, nbr
     call genp_move(xa, ya)
-    call genp_draw(xb, yb, 1)  ; call genp_draw(xc, yc, 2)
-    call genp_draw(xd, yd, 3)  ; call genp_draw(xa, ya, 4)
+    call genp_draw(xb, yb, 1)  ; call genp_draw(xc, yc, 1)
+    call genp_draw(xd, yd, 2)  ; call genp_draw(xa, ya, 2)
 
     va = k0*xa + k2*xb         ;  wa = k0*ya + k2*yb
     vb = k0*xb + k2*xc         ;  wb = k0*yb + k2*yc