PT Forum

luskos Joined: 28th Jun 2007
Location:

Posted: 1st Dec 2013 16:45

For a long time i used this piece of code for rotation:

function global_rotate_x(obj,ang)
    EZro_SetEuler OBJECT ANGLE X(obj),OBJECT ANGLE Y(obj),OBJECT ANGLE Z(obj)
    EZro_SetPos OBJECT POSITION X(obj),OBJECT POSITION Y(obj),OBJECT POSITION Z(obj)
    EZro_Orbit 1,-90,0,0,90,0,0,ang
    EZro_FindEuler 
    rotate object obj,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
    position object obj,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
endfunction

function global_rotate_y(obj,ang)
    EZro_SetEuler OBJECT ANGLE X(obj),OBJECT ANGLE Y(obj),OBJECT ANGLE Z(obj)
    EZro_SetPos OBJECT POSITION X(obj),OBJECT POSITION Y(obj),OBJECT POSITION Z(obj)
    EZro_Orbit 1,0,-90,0,0,90,0,ang
    EZro_FindEuler 
    rotate object obj,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
    position object obj,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
endfunction

function global_rotate_z(obj,ang)
    EZro_SetEuler OBJECT ANGLE X(obj),OBJECT ANGLE Y(obj),OBJECT ANGLE Z(obj)
    EZro_SetPos OBJECT POSITION X(obj),OBJECT POSITION Y(obj),OBJECT POSITION Z(obj)
    EZro_Orbit 1,0,0,-90,0,0,90,ang
    EZro_FindEuler 
    rotate object obj,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
    position object obj,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
endfunction

Which does the job almost perfectly.Sometimes it does add up fractions of an angle and mess up everything.

For real precission i found out that i need to add or substract from EZro_GetEulerX(),EZro_GetEulerY() and EZro_GetEulerZ(), because when it reach certain point it shift with 1 degree.

Correct code:

+ Code Snippet

function global_rotate_x(obj,ang)
    EZro_SetEuler OBJECT ANGLE X(obj),OBJECT ANGLE Y(obj),OBJECT ANGLE Z(obj)
    EZro_SetPos OBJECT POSITION X(obj),OBJECT POSITION Y(obj),OBJECT POSITION Z(obj)
    EZro_Orbit 1,-90,0,0,90,0,0,ang
    EZro_FindEuler
    eulerx = EZro_GetEulerX()
    eulery = EZro_GetEulerY()
    eulerz = EZro_GetEulerZ()

    if EZro_GetEulerX() &lt; 0
    	eulerx = EZro_GetEulerX() -0.5
    endif
    if EZro_GetEulerX() &gt; 0
    	eulerx = EZro_GetEulerX() +0.5
    endif
    
    if EZro_GetEulerY() &lt; 0
    	eulery = EZro_GetEulerY() -0.5
    endif
    if EZro_GetEulerY() &gt; 0
    	eulery = EZro_GetEulerY() +0.5
    endif 
        
    if EZro_GetEulerZ() &lt; 0
    	eulerz = EZro_GetEulerZ() -0.5
    endif
    if EZro_GetEulerZ() &gt; 0
    	eulerz = EZro_GetEulerZ() +0.5
    endif 
    
    rotate object obj,eulerx,eulery,eulerz
    position object obj,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
endfunction

function global_rotate_y(obj,ang)
    EZro_SetEuler OBJECT ANGLE X(obj),OBJECT ANGLE Y(obj),OBJECT ANGLE Z(obj)
    EZro_SetPos OBJECT POSITION X(obj),OBJECT POSITION Y(obj),OBJECT POSITION Z(obj)
    EZro_Orbit 1,0,-90,0,0,90,0,ang
    EZro_FindEuler
    eulerx = EZro_GetEulerX()
    eulery = EZro_GetEulerY()
    eulerz = EZro_GetEulerZ()

    if EZro_GetEulerX() &lt; 0
    	eulerx = EZro_GetEulerX() -0.5
    endif
    if EZro_GetEulerX() &gt; 0
    	eulerx = EZro_GetEulerX() +0.5
    endif
    
    if EZro_GetEulerY() &lt; 0
    	eulery = EZro_GetEulerY() -0.5
    endif
    if EZro_GetEulerY() &gt; 0
    	eulery = EZro_GetEulerY() +0.5
    endif 
    
    if EZro_GetEulerZ() &lt; 0
    	eulerz = EZro_GetEulerZ() -0.5
    endif
    if EZro_GetEulerZ() &gt; 0
    	eulerz = EZro_GetEulerZ() +0.5
    endif 
    rotate object obj,eulerx,eulery,eulerz
    position object obj,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
endfunction

function global_rotate_z( obj,ang)
    EZro_SetEuler OBJECT ANGLE X(obj),OBJECT ANGLE Y(obj),OBJECT ANGLE Z(obj)
    EZro_SetPos OBJECT POSITION X(obj),OBJECT POSITION Y(obj),OBJECT POSITION Z(obj)
    EZro_Orbit 1,0,0,-90,0,0,90,ang
    EZro_FindEuler
    eulerx = EZro_GetEulerX()
    eulery = EZro_GetEulerY()
    eulerz = EZro_GetEulerZ()

    if EZro_GetEulerX() &lt; 0
    	eulerx = EZro_GetEulerX() -0.5
    endif
    if EZro_GetEulerX() &gt; 0
    	eulerx = EZro_GetEulerX() +0.5
    endif
    
    if EZro_GetEulerY() &lt; 0
    	eulery = EZro_GetEulerY() -0.5
    endif
    if EZro_GetEulerY() &gt; 0
    	eulery = EZro_GetEulerY() +0.5
    endif 
        
    if EZro_GetEulerZ() &lt; 0
    	eulerz = EZro_GetEulerZ() -0.5
    endif
    if EZro_GetEulerZ() &gt; 0
    	eulerz = EZro_GetEulerZ() +0.5
    endif 
    rotate object obj,eulerx,eulery,eulerz
    position object obj,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
endfunction

<1 >

Sign In