add a random start location

randomwalk.f90

@@ -7,15 +7,19 @@ program randomwalk
   use genplotting
   implicit none
   integer    foo, col
-
+  real       px, py
   write (0, '(A)') "----[ genplotting randomwalk ]----"
   call srand(time())
   call genp_init (0, 'WS/randomwalk.scratch')
-  do foo=1, 51
-    col = 2 + mod(foo, 4)
-    call do_randomwalk(42, col)
+  do foo=1, 20
+    px = 100 * (rand(0) - 0.50)
+    py = 100 * (rand(0) - 0.50)
+    call genp_set_offset(px, py)
+    col = 1 + mod(foo, 6)
+    call do_randomwalk(500, col)
   enddo
   call genp_end (0)
+  stop
 contains
 ! ---------------------------------------------------------
 subroutine do_randomwalk(nbre, col)
@@ -23,13 +27,14 @@ subroutine do_randomwalk(nbre, col)
   integer                     :: idx
   real                        :: px, py, px2, py2
 
-  px = 0.0        ;       py = 0.0
+  px = 0.0    ;    py = 0.0
   do idx=1, nbre
     px2 = px + rand(0) - 0.50
     py2 = py + rand(0) - 0.50
     call genp_line(px, py, px2, py2, col)
     px = px2  ;  py = py2
   enddo
+
 end subroutine
 ! ---------------------------------------------------------
 end program