add rotation, need more tests

testbed.f90

@@ -1,23 +1,18 @@
+!
+!           TESTBED FOR GENPLOTTING90
+!
+! this crapware is released by tTh under the
+!             DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+!
+
 program testbed
   use genplotting
+  use genp_tests
   implicit none
 
-  integer     idx
-  real        fdx, xp, yp, scx, scy
-
   call genp_init(0, "foo.scratch")
-  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_test_rotation()
+  ! call genp_plot_axes(5.1)
   call genp_end(0)
-  call genp_do_render("foo.scratch", "foo.tga", 512, 512)
 
 end program