Sorry your browser is not supported!

Rem Project: Dark Basic Pro Project
Rem Created: Friday, January 28, 2011

Rem ***** Main Source File *****

rem // init 
sync rate 60
autocam off
position camera 0,0,0,-30
rotate camera 0,0,270,0

rem // make sun
make object sphere 1,10
position object 1,0,0,0
rem // make planet
make object sphere 2,2
position object 2,20,0,0
rem // make moon
make object sphere 3,1
position object 3,22,0,0

rem //set speed of orbit
speed = 1

rem // main loop
do
control camera using arrowkeys 0,1,1

rem // setup rotate for objects

EZro_ObjOrbit 2,1, object position x(1), object position y(1) , object position z(1), object position x(1), object position y(1) +100, object position z(1), speed
EZro_ObjOrbit 3,1, object position x(2), object position y(2) , object position z(2), object position x(2), object position y(2) +100, object position z(2), speed

rem // move object 1
if shiftkey() = 1  
            move object 1,1
            rem//I can get object 2 to follow object 1 and maintain its orbit with the following removed code, however this will not work with a spherical orbit
            
            rem position object 1,object position x(1), object position y(1) , object position z(1) + 1
            rem position object 2,object position x(2), object position y(2) , object position z(2) + 1
endif

rem //printing object 2 co-ordinates for observation
print "x: ",object position x (2)
print "y: ",object position y (2)
print "z: ",object position z (2)

rem //alter angle parameter of the EZ rotate function
if controlkey()=1 then speed = 100
if spacekey()=1 then speed = 1
loop

angle# = angle# + 0.1
if angle# > 359.9 then angle# = 0.0
x# = (sin(angle#) * dist#) + XOrigin#
y# = 0.0
z# = (cos(angle#) * dist#) + ZOrigin#

sync on
sync rate 80

`Orbit data
orbitSizeX# = 50.0 : `0.5 Width of the ellipse (in XZ plain)
orbitSizeZ# = 40.0 : `0.5 Height of the ellipse, should be smaller than the width (in XZ plain)
orbitAngleX# = 45.0 : `Inlination angle (degrees)
orbitAngleY# = 35.0 : `Rotation around Y-axis (degrees)

`Create sun
make object sphere 1, 20

`Create planet
make object sphere 2, 3

`Create matrix that will convert a 3D vector on a circle in the XY plain to an elliptical orbit
r = make matrix4(1)
r = make matrix4(2)
scale matrix4 1, orbitSizeX#, 1.0, orbitSizeZ# : `Convert circle to ellipse
translate matrix4 2, -sqrt(orbitSizeX#*orbitSizeX# - orbitSizeZ#*orbitSizeZ#), 0.0, 0.0 : `Offset to one of the focal points
multiply matrix4 1, 1, 2
rotate x matrix4 2, orbitAngleX# * 3.141592654 / 180.0 : `Inclination angle
multiply matrix4 1, 1, 2
rotate y matrix4 2, orbitAngleY# * 3.141592654 / 180.0 : `Y angle
multiply matrix4 1, 1, 2

`Build the vector3 to be used for transformation
r = make vector3(2)

do

    `Get position
    angle# = wrapvalue(angle# + 0.5)
    set vector3 2, cos(angle#), 0.0, sin(angle#)
    transform coords vector3 2, 2, 1
    
    `Position planet
    position object 2, x vector3(2), y vector3(2), z vector3(2)
    
    `Camera
    position camera 0, 150, -150
    point camera 0, 0, 0

    sync
loop