24 lines
530 B
Fortran
24 lines
530 B
Fortran
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
|