!-----------------------------------------------------------------------
!-
!       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