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

fix a off-by-one

Browse Source
This commit is contained in:
Tonton Th
2026-04-24 23:22:54 +02:00
parent 996cf35f35
commit c1694dbaf2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
starfield.f90
View File

@@ -29,7 +29,7 @@ subroutine do_starfield (nbstar)
integer, intent(in) :: nbstar integer, intent(in) :: nbstar
integer idx, color integer idx, color
real px, py, sz real px, py, sz
do idx=0, nbstar do idx=1, nbstar
px = (rand(0) * 10.00) - 5.00 px = (rand(0) * 10.00) - 5.00
py = (rand(0) * 10.00) - 5.00 py = (rand(0) * 10.00) - 5.00
sz = (rand(0) * 0.16) + 0.16 sz = (rand(0) * 0.16) + 0.16