28 lines
677 B
Fortran
28 lines
677 B
Fortran
|
!-----------------------------------------------------------------------
|
||
|
|
!-
|
||
|
|
! 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
|