From 0501f5f9b417433dc5e605cbb0ede11c9246773c Mon Sep 17 00:00:00 2001 From: tTh Date: Mon, 12 Dec 2022 00:58:58 +0100 Subject: [PATCH] try, try, and try, and try again... --- GravityField/animation.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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