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

11
starfield.f90
View File

@@ -7,10 +7,15 @@
program starfield
use genplotting
implicit none
character(*), parameter :: scratch = "WS/starfield.scratch"
write (0, '(A)') "----[ genplotting starfield ]----"
call genp_init (0, 'WS/starfield.scratch')
call do_starfield (200)
call genp_init (0, scratch)
call do_starfield (300)
call genp_end (0)
call genp_do_render(scratch, "WS/a.tga", 512, 512)
contains
! ---------------------------------------------------------
subroutine plot_a_star(at_x, at_y, sz, color)
@@ -20,7 +25,7 @@ subroutine plot_a_star(at_x, at_y, sz, color)
integer :: idx
real :: rad, xv, yv
write(0, '("plot a star ", 2F8.3)') at_x, at_y
write(0, '("plot a star at ", 2F8.3)') at_x, at_y
call genp_set_offset(at_x, at_y)
do idx=0, 360, 36
! convert index to radians