first video -> big commit :)

2022-12-03 02:25:37 +01:00
parent 8607ff35b7
commit 3c3d1c8906
9 changed files with 315 additions and 99 deletions
--- a/GravityField/animation.f90
+++ b/GravityField/animation.f90
@@ -0,0 +1,27 @@
+!-----------------------------------------------------------------------
+!-
+!       Project "gravity field" - Firts renderer
+!-
+!-----------------------------------------------------------------------
+program animation
+
+  use realfield
+  use spitpgm               
+  implicit none
+
+  ! some configuration constants
+  integer, parameter      :: S_WIDTH  = 800
+  integer, parameter      :: S_HEIGHT = 600
+  integer, parameter      :: NB_BODY  = 20
+
+  type(massbody)          :: planets(NB_BODY)
+  integer                 :: foo
+  character(len=100)      :: filename
+
+  call init_random()
+  call create_some_planets(planets, 13.37, 2048, 2048)
+
+
+  STOP ': YOLO TIME'
+
+end program