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

use the render procedure

Browse Source
This commit is contained in:
Tonton Th
2026-05-15 11:30:09 +02:00
parent 086c2af118
commit 52e5e99b07
3 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
spirale.f90
View File

@@ -9,12 +9,15 @@ program spirale
use genplotting
implicit none
character(*), parameter :: scratch = "WS/spirale.scratch"
write (0, '(A)') "----[ genplotting spirale ]----"
call genp_init (0, 'WS/spirale.scratch')
call do_spirale (1337, 0.51, 0.0666, 0.7, 3)
call genp_init (0, scratch)
call do_spirale (1337, 0.51, 0.0666, 0.7, 5)
call do_spirale (1337, 0.42, 0.0333, 0.7, 6)
call genp_end (0)
call genp_do_render(scratch, "WS/a.tga", 512, 512)
contains
! ---------------------------------------------------------