program testbed
  use genplotting
  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_end(0)
  call genp_do_render("foo.scratch", "foo.tga", 512, 512)

end program