29 lines
739 B
Fortran
29 lines
739 B
Fortran
!
|
|
! 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
|