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

testing recent changes

Browse Source
This commit is contained in:
Tonton Th
2026-05-13 10:02:22 +02:00
parent be961b46fc
commit e060fad764
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
testbed.f90
View File

@@ -2,8 +2,21 @@ program testbed
use genplotting use genplotting
implicit none implicit none
integer idx
real fdx, xp, yp, scx, scy
call genp_init(0, "foo.scratch") call genp_init(0, "foo.scratch")
call genp_plot_axes(13.37) 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_end(0)
call genp_do_render("foo.scratch", "foo.tga", 512, 512) call genp_do_render("foo.scratch", "foo.tga", 512, 512)