more doc

randomwalk.f90

@@ -24,7 +24,6 @@ subroutine do_randomwalk(nbre, col)
   real                        :: px, py, px2, py2
 
   px = 0.0        ;       py = 0.0
-  call genp_move(px, py)
   do idx=1, nbre
     px2 = px + rand(0) - 0.50
     py2 = py + rand(0) - 0.50

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

usage.md

@@ -16,8 +16,11 @@ if this filename is an empty string, *stdout* will be used.
 
 ## Use it
 
-- call genp_move(x, y)
-- call genp_draw(x, y, c)
+- real xa, ya, xb, yb
+- integer color
+- call genp_move(xa, ya)
+- call genp_draw(xa, ya, color)
+- call genp_line(xa, ya, xb, yb, color)
 
 ## Terminator