testing recent changes

testbed.f90

@@ -2,8 +2,21 @@ program testbed
   use genplotting
   implicit none
 
+  integer     idx
+  real        fdx, xp, yp, scx, scy
+
   call genp_init(0, "foo.scratch")
-  call genp_plot_axes(13.37)
+  scx = 0.8   ;   scy = 1.5
+  do idx=5, 60
+    fdx = real(idx)
+    xp = 3.5 * cos((fdx/14.0)-0.7)
+    yp = 3.5 * sin((fdx/10.0)+0.3)
+    call genp_set_offset(xp, yp)
+    call genp_set_scale(scx, scy)
+    call genp_circle(fdx, 60, 1+mod(idx, 3))
+    scx = scx + 0.0075
+    scy = scy - 0.0075
+  enddo
   call genp_end(0)
   call genp_do_render("foo.scratch", "foo.tga", 512, 512)