tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fine tuning

Browse Source
This commit is contained in:
Tonton Th
2026-05-17 07:25:02 +02:00
parent 52e5e99b07
commit ea373fa198
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
morecircles.f90
View File

@@ -11,7 +11,7 @@ program morecircles
integer idx integer idx
real fdx, xp, yp, scx, scy real fdx, xp, yp, scx, scy
call genp_init(0, "WS/morecircles.scratch") call genp_init(0, "WS/morecircles.scratch")
scx = 0.8 ; scy = 1.5 scx = 0.6 ; scy = 2.3
do idx=5, 60 do idx=5, 60
fdx = real(idx) fdx = real(idx)
xp = 3.5 * cos((fdx/14.0)-0.7) xp = 3.5 * cos((fdx/14.0)-0.7)
@@ -19,8 +19,8 @@ program morecircles
call genp_set_offset(xp, yp) call genp_set_offset(xp, yp)
call genp_set_scale(scx, scy) call genp_set_scale(scx, scy)
call genp_circle(fdx, 60, 1+mod(idx, 3)) call genp_circle(fdx, 60, 1+mod(idx, 3))
scx = scx + 0.0075 scx = scx + 0.0185
scy = scy - 0.0075 scy = scy - 0.0129
enddo enddo
call genp_end(0) call genp_end(0)
call genp_do_render("WS/morecircles.scratch", "morecircles.tga", & call genp_do_render("WS/morecircles.scratch", "morecircles.tga", &