!
!           YOU LIKE CIRCLES ? TAKE IT SISTA !
!
! this crapware is released by tTh under the
!             DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
!

program morecircles
  use genplotting
  implicit none
  integer     idx
  real        fdx, xp, yp, scx, scy
  call genp_init(0, "WS/morecircles.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("WS/morecircles.scratch", "morecircles.tga", &
                   512, 512)
end program