Sorry your browser is not supported!

void CObject::Update()
{
       D3DXVECTOR3 RefPosition;
       D3DXVECTOR3 RefAxis;

       m_RotVec.x = dbObjectAngleX( m_Obj );
       m_RotVec.y = dbObjectAngleY( m_Obj );
       m_RotVec.z = dbObjectAngleZ( m_Obj );

       m_RotMat = EZro_Euler2Matrix( m_RotVec );
       m_RotMat._41 = m_Position.x;
       m_RotMat._42 = m_Position.y;
       m_RotMat._43 = m_Position.z;

       m_RotSpeed = 0.5;

       if ( m_Parent != NULL )
       {
               RefPosition = m_Parent->GetPosition();
               RefAxis = m_Parent->GetPosition();
               RefAxis.y += 1.0f;

               m_RotMat = EZro_Orbit ( RefPosition, RefAxis, m_RotMat, m_RotSpeed, true );
               m_RotVec = EZro_Matrix2Euler( m_RotMat );
       }

       dbRotateObject( m_Obj, m_RotVec.x, m_RotVec.y, m_RotVec.z );
       dbPositionObject( m_Obj, m_RotMat._41, m_RotMat._42, m_RotMat._43 );

       m_Position.x = dbObjectPositionX( m_Obj );
       m_Position.y = dbObjectPositionY( m_Obj );
       m_Position.z = dbObjectPositionZ( m_Obj );

       for(int i = 0; i < m_Children.size(); ++i)
       {
               if( m_Children[i] != NULL )
               {
                       m_Children[i]->Update();
               }
       }
}

sync on
sync rate 60

`Sun
make object sphere 1,5

`Planet
make object sphere 2,1
position object 2,10,0,0

`moon
make object sphere 3,0.25
position object 3,12,0,0

position camera 0,50,-25
point camera 0,0,0

do
   UpdateSun()
   UpdatePlanet()
   UpdateMoon()
sync
loop


function UpdateSun()
   `Handle Sun
   `NOTHING TO REALLY DO HERE!
endfunction

function UpdatePlanet()

   `Setup Reference Axis
   RefPositionX# = Object Position X(1)
   RefPositionY# = Object Position Y(1)
   RefPositionZ# = Object Position Z(1)

   RefAxisX# = Object Position X(1)
   RefAxisY# = Object Position Y(1)+1.0
   RefAxisZ# = Object Position Z(1)

   `Update Planet to orbit around sun
   EZro_SetEuler Object Angle X(2),Object Angle Y(2),Object Angle Z(2)
   EZro_SetPos Object Position X(2),Object Position Y(2),Object Position Z(2)
   RotSpeed as float = 0.5
   EZro_Orbit 1, RefPositionX#,RefPositionY#,RefPositionZ#, RefAxisX#,RefAxisY#,RefAxisZ#, RotSpeed

   EZro_FindEuler
   Position Object 2,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
   Rotate Object 2, EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()

   `Update Moon to also orbit around sun since it is a child of the planet
   EZro_SetEuler Object Angle X(3),Object Angle Y(3),Object Angle Z(3)
   EZro_SetPos Object Position X(3),Object Position Y(3),Object Position Z(3)
   RotSpeed as float = 0.5
   EZro_Orbit 1, RefPositionX#,RefPositionY#,RefPositionZ#, RefAxisX#,RefAxisY#,RefAxisZ#, RotSpeed

   EZro_FindEuler
   Position Object 3,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
   Rotate Object 3, EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()

endfunction

function UpdateMoon()

   `Setup Reference Axis
   RefPositionX# = Object Position X(2)
   RefPositionY# = Object Position Y(2)
   RefPositionZ# = Object Position Z(2)

   RefAxisX# = Object Position X(2)
   RefAxisY# = Object Position Y(2)+1.0
   RefAxisZ# = Object Position Z(2)

   `Update Moon to orbit around the planet
   EZro_SetEuler Object Angle X(3),Object Angle Y(3),Object Angle Z(3)
   EZro_SetPos Object Position X(3),Object Position Y(3),Object Position Z(3)
   RotSpeed as float = 2.0

   EZro_Orbit 1, RefPositionX#,RefPositionY#,RefPositionZ#, RefAxisX#,RefAxisY#,RefAxisZ#, RotSpeed

   EZro_FindEuler
   Position Object 3,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
   Rotate Object 3, EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()

endfunction