tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

try, try, and try, and try again...

Browse Source
This commit is contained in:
tTh 2022-12-12 00:58:58 +01:00
parent c08ff78ce9
commit 0501f5f9b4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
GravityField/animation.f90
View File

@ -10,9 +10,9 @@ program animation
implicit none implicit none
! some configuration constants ! some configuration constants
integer, parameter :: S_WIDTH = 1024 integer, parameter :: S_WIDTH = 1600
integer, parameter :: S_HEIGHT = 1024 integer, parameter :: S_HEIGHT = 1600
integer, parameter :: NB_BODY = 70 integer, parameter :: NB_BODY = 60
!!! WARNING : global variable !!! !!! WARNING : global variable !!!
type(massbody) :: planets(NB_BODY) type(massbody) :: planets(NB_BODY)
@ -71,7 +71,7 @@ subroutine deplace_les_planetes(moons, clipit)
integer :: foo integer :: foo
real :: depx, depy real :: depx, depy
integer, parameter :: EE = 45 integer, parameter :: EE = 51
integer :: SW = S_WIDTH - EE integer :: SW = S_WIDTH - EE
integer :: SH = S_HEIGHT - EE integer :: SH = S_HEIGHT - EE
@ -100,7 +100,7 @@ subroutine deplace_les_planetes(moons, clipit)
if (moons(foo)%posy .LT. EE) moons(foo)%posy = SH if (moons(foo)%posy .LT. EE) moons(foo)%posy = SH
endif endif
moons(foo)%heading = moons(foo)%heading + (0.71*(rand()-0.50)) moons(foo)%heading = moons(foo)%heading + (0.73*(rand()-0.50))
if (moons(foo)%heading .GT. 6.2831853) moons(foo)%heading = 0.0 if (moons(foo)%heading .GT. 6.2831853) moons(foo)%heading = 0.0
if (moons(foo)%heading .LT. 0.0000001) moons(foo)%heading = 0.0 if (moons(foo)%heading .LT. 0.0000001) moons(foo)%heading = 0.0