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

this is a nice patch, bro

Browse Source
This commit is contained in:
Tonton Th
2026-05-23 00:43:33 +02:00
parent fa334cd7de
commit 1fc04c90ec
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
starfield.f90
View File

@@ -8,13 +8,14 @@ program starfield
use genplotting use genplotting
implicit none implicit none
character(*), parameter :: scratch = "WS/starfield.scratch" character(*), parameter :: projname = "starfield"
character(*), parameter :: scratch = "WS/"//projname//".scratch"
write (0, '(A)') "----[ genplotting starfield ]----" write (0, '(A)') "----[ genplotting starfield ]----"
call genp_init (0, scratch) call genp_init (0, scratch)
call do_starfield (300) call do_starfield (300)
call genp_end (0) call genp_end (0)
call genp_do_render(scratch, "WS/a.tga", 512, 512) call genp_do_render(scratch, "WS/"//projname//".tga", 512, 512)
contains contains
! --------------------------------------------------------- ! ---------------------------------------------------------