diff --git a/GravityField/animation.f90 b/GravityField/animation.f90 index 7da3152..671c2f7 100644 --- a/GravityField/animation.f90 +++ b/GravityField/animation.f90 @@ -10,9 +10,9 @@ program animation implicit none ! some configuration constants - integer, parameter :: S_WIDTH = 1024 - integer, parameter :: S_HEIGHT = 1024 - integer, parameter :: NB_BODY = 70 + integer, parameter :: S_WIDTH = 1600 + integer, parameter :: S_HEIGHT = 1600 + integer, parameter :: NB_BODY = 60 !!! WARNING : global variable !!! type(massbody) :: planets(NB_BODY) @@ -71,7 +71,7 @@ subroutine deplace_les_planetes(moons, clipit) integer :: foo real :: depx, depy - integer, parameter :: EE = 45 + integer, parameter :: EE = 51 integer :: SW = S_WIDTH - 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 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 .LT. 0.0000001) moons(foo)%heading = 0.0