EZRotate Eulers - GameCreators Forum

Author

Message

luskos

19

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 4th Feb 2014 08:47 Edited at: 4th Feb 2014 08:47

Link

Hi guys, i have this wierd bug with the mentioned plugin.

I've got group of objects(4 in each group) and i'm checking if the user pick one from the group.If he does, i check for condition, get all of the objects in the group and make a rotation, there are 6 groups every object participate in 3 groups, every rotation have 18 frames and rotation step is 5 degrees.18*5 = 90!This is how i do this and i'm open for suggestions, including optimization if someone knows better way to do it:

+ Code Snippet

if rotation = 1
	for i = 0 to 3
		if group_object = orange_group(i)
       		if msx => 0 and frame < 18 and msxdif > msydif
       			last_rotation$ = "Right Orange" : inc frame
       			for n = 0 to 3    
					global_rotate_y(orange_group(n),-5) `CCW
         		next n
         	endif
         			
         	if msx <= 0 and frame >-18 and msxdif > msydif
         		last_rotation$ = "Left Orange" : dec frame
       			 for n = 0 to 3    
         			global_rotate_y(orange_group(n),5) `CW
         		next n
         	endif
         endif        
	next i
endif

Here is my EZRotate function for rotation, there are fractions added or subtracted where necessary else it's even worse.Sometimes i get +/-5 degrees sometimes +/-9 deviation in angle values shown, although the objects in the groups are perfectly aligned as if there is no such thing.

The function:

+ Code Snippet

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() < 0
    	eulerx = EZro_GetEulerX() -0.5
    endif
    if EZro_GetEulerX() > 0
    	eulerx = EZro_GetEulerX() +0.5
    endif
    
    if EZro_GetEulerY() < 0
    	eulery = EZro_GetEulerY() -0.5
    endif
    if EZro_GetEulerY() > 0
    	eulery = EZro_GetEulerY() +0.5
    endif 
    
    if EZro_GetEulerZ() < 0
    	eulerz = EZro_GetEulerZ() -0.5
    endif
    if EZro_GetEulerZ() > 0
    	eulerz = EZro_GetEulerZ() +0.5
    endif 
    rotate object obj,eulerx,eulery,eulerz
    position object obj,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
endfunction

The code above shows, rotation on Y axis, there are 2 other,exactly the same for X, and Z.

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

basjak

16

Years of Service

User Offline

Joined: 16th Apr 2010

Location: feel like signing up for mars

Posted: 8th Feb 2014 01:55

Link

I didn't notice anything strange, is it because eulerx ,eulery ,eulerz should be float values: eulerx# ,eulery# ,eulerz#

I made this code for fun only:

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8

for o = 1 to 8
    make object cube _objects(o).objectnumber ,1.0
    color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
    position object _objects(o).objectnumber, positionx,0,0
    inc positionx,2
    if positionx = 0 then positionx = positionx+2
NEXT

do
    text 0,0, "Enter Group number from 1 to 6"
    for o = 1 to 8
        center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    NEXT
    
    if inkey$() <> ""
        groupnumber = val(inkey$())
        repeat until inkey$() = ""
        if groupnumber >= 1 and groupnumber <= 8
            for frame = 1 to 18
                for obj = 1 to 8
                    if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
                        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,5.0
                        EZro_FindEuler

if EZro_GetEulerX() < 0
    						eulerx# = EZro_GetEulerX() -0.5
    			    	else : if EZro_GetEulerX() > 0
    						eulerx# = EZro_GetEulerX() +0.5
    					endif : ENDIF
    					
    					if EZro_GetEulerY() < 0
    						eulery# = EZro_GetEulerY() -0.5
                        else : if EZro_GetEulery() > 0
     						eulery# = EZro_GetEulerY() +0.5
    					endif : ENDIF
    					
    					if EZro_GetEulerZ() < 0
    						eulerz# = EZro_GetEulerZ() -0.5
    					else :  if EZro_GetEulerz() > 0
    						eulerz# = EZro_GetEulerZ() +0.5
    					endif : ENDIF

position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                        rotate object obj,eulerx#,eulery#,eulerz#
                    
    					for o = 1 to 8
        					center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        					center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        					center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        					center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    					NEXT                    
                    
                        sync
                    ENDIF 
                NEXT  	
            NEXT          
        ENDIF	
   ENDIF
    sync
loop
 
end
 
function _putObjectsInGroups()
   for e = 1 to 8
 	    _objects(e).objectnumber = e
 	    for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
 	    for i = 1 to 3
            _MoveToanotherGroup = 0            
            REPEAT
 	    		GroupNumber = rnd(5)+1
 	    		Participate = rnd(3)+1
  	    	    if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
 	    	        _group(GroupNumber,Participate) = e
 	    	        _ParticipateFlag(GroupNumber) = 1
 	    	        _MoveToanotherGroup = 1
 	    	        SELECT i
 	    	            case 1 : _objects(e).group1 = GroupNumber : ENDCASE
 	    	            case 2 : _objects(e).group2 = GroupNumber : ENDCASE
 	    	            case 3 : _objects(e).group3 = GroupNumber : ENDCASE
 	    	        ENDSELECT
 	    	    ENDIF
 	    	UNTIL _MoveToanotherGroup = 1  
 	    NEXT
    NEXT
ENDFUNCTION

+ Code Snippet

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8


for o = 1 to 8
    make object cube _objects(o).objectnumber ,1.0
    color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
    position object _objects(o).objectnumber, positionx,0,0
    inc positionx,2
    if positionx = 0 then positionx = positionx+2
NEXT

do
    text 0,0, "Enter Group number from 1 to 6"
    for o = 1 to 8
        center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    NEXT
    
    if inkey$() <> ""
        groupnumber = val(inkey$())
        repeat until inkey$() = ""
        if groupnumber >= 1 and groupnumber <= 8
            for frame = 1 to 18
                for obj = 1 to 8
                    if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
                        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,5.0
                        EZro_FindEuler

   						if EZro_GetEulerX() < 0
    						eulerx# = EZro_GetEulerX() -0.5
    			    	else : if EZro_GetEulerX() > 0
    						eulerx# = EZro_GetEulerX() +0.5
    					endif : ENDIF
    					
    					if EZro_GetEulerY() < 0
    						eulery# = EZro_GetEulerY() -0.5
                        else : if EZro_GetEulery() > 0
     						eulery# = EZro_GetEulerY() +0.5
    					endif : ENDIF
    					
    					if EZro_GetEulerZ() < 0
    						eulerz# = EZro_GetEulerZ() -0.5
    					else :  if EZro_GetEulerz() > 0
    						eulerz# = EZro_GetEulerZ() +0.5
    					endif : ENDIF

                        position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                        rotate object obj,eulerx#,eulery#,eulerz#
                    
    					for o = 1 to 8
        					center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        					center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        					center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        					center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    					NEXT                    
                    
                        sync
                    ENDIF 
                NEXT  	
            NEXT          
        ENDIF	
   ENDIF
    sync
loop
 
end
 
function _putObjectsInGroups()
   for e = 1 to 8
 	    _objects(e).objectnumber = e
 	    for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
 	    for i = 1 to 3
            _MoveToanotherGroup = 0            
            REPEAT
 	    		GroupNumber = rnd(5)+1
 	    		Participate = rnd(3)+1
  	    	    if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
 	    	        _group(GroupNumber,Participate) = e
 	    	        _ParticipateFlag(GroupNumber) = 1
 	    	        _MoveToanotherGroup = 1
 	    	        SELECT i
 	    	            case 1 : _objects(e).group1 = GroupNumber : ENDCASE
 	    	            case 2 : _objects(e).group2 = GroupNumber : ENDCASE
 	    	            case 3 : _objects(e).group3 = GroupNumber : ENDCASE
 	    	        ENDSELECT
 	    	    ENDIF
 	    	UNTIL _MoveToanotherGroup = 1  
 	    NEXT
    NEXT
ENDFUNCTION

Back to top

Profile PM Email Website

luskos

19

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 9th Feb 2014 13:58 Edited at: 9th Feb 2014 16:23

Link

Didn't even notice that i use integers there, stupid me.Now i have a workaround of the problem with the angles, but i will try to see if making those variables floats does any good.I came up with some ugly function that sort objects in groups using their position and checks if the objects in the group are the right ones, if all six groups of objects are in place a condition is met, this is yet another solution of the problem.I'll definitely check your code later.

EDIT:You can see what i mean in your own example.I added few text lines to show you what i mean.Just hover the mouse over an object and rotate it 360, it should be at starting position now but the angles are different.Why is that?

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8

for o = 1 to 8
    make object cube _objects(o).objectnumber ,1.0
    color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
    position object _objects(o).objectnumber, positionx,0,0
    inc positionx,2
    if positionx = 0 then positionx = positionx+2
NEXT

do
`Find which object is hovered by mouse
	hovered_object = pick object (mousex(),mousey(),1,70)
	
    text 0,0, "Enter Group number from 1 to 6"
    text 0,20, "hovered_object: "+str$(hovered_object)
    if hovered_object <> 0
    	if object exist(hovered_object) = 1
    		text 0,40,"Object Angle X: "+str$(Object angle x(hovered_object))
			text 0,60,"Object Angle Y: "+str$(Object angle y(hovered_object))
			text 0,80,"Object Angle Z: "+str$(Object angle z(hovered_object))
		endif
	endif
    for o = 1 to 8
        center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    NEXT
    
    if inkey$() <> ""
        groupnumber = val(inkey$())
        repeat until inkey$() = ""
        if groupnumber >= 1 and groupnumber <= 8
            for frame = 1 to 18
                for obj = 1 to 8
                    if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
                        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,5.0
                        EZro_FindEuler

if EZro_GetEulerX() < 0
    						eulerx# = EZro_GetEulerX() -0.5
    			    	else : if EZro_GetEulerX() > 0
    						eulerx# = EZro_GetEulerX() +0.5
    					endif : ENDIF
    					
    					if EZro_GetEulerY() < 0
    						eulery# = EZro_GetEulerY() -0.5
                        else : if EZro_GetEulery() > 0
     						eulery# = EZro_GetEulerY() +0.5
    					endif : ENDIF
    					
    					if EZro_GetEulerZ() < 0
    						eulerz# = EZro_GetEulerZ() -0.5
    					else :  if EZro_GetEulerz() > 0
    						eulerz# = EZro_GetEulerZ() +0.5
    					endif : ENDIF

position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                        rotate object obj,eulerx#,eulery#,eulerz#
                    
    					for o = 1 to 8
        					center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        					center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        					center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        					center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    					NEXT                    
                    
                        sync
                    ENDIF 
                NEXT  	
            NEXT          
        ENDIF	
   ENDIF
    sync
loop
 
end
 
function _putObjectsInGroups()
   for e = 1 to 8
 	    _objects(e).objectnumber = e
 	    for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
 	    for i = 1 to 3
            _MoveToanotherGroup = 0            
            REPEAT
 	    		GroupNumber = rnd(5)+1
 	    		Participate = rnd(3)+1
  	    	    if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
 	    	        _group(GroupNumber,Participate) = e
 	    	        _ParticipateFlag(GroupNumber) = 1
 	    	        _MoveToanotherGroup = 1
 	    	        SELECT i
 	    	            case 1 : _objects(e).group1 = GroupNumber : ENDCASE
 	    	            case 2 : _objects(e).group2 = GroupNumber : ENDCASE
 	    	            case 3 : _objects(e).group3 = GroupNumber : ENDCASE
 	    	        ENDSELECT
 	    	    ENDIF
 	    	UNTIL _MoveToanotherGroup = 1  
 	    NEXT
    NEXT
ENDFUNCTION

+ Code Snippet

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8


for o = 1 to 8
    make object cube _objects(o).objectnumber ,1.0
    color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
    position object _objects(o).objectnumber, positionx,0,0
    inc positionx,2
    if positionx = 0 then positionx = positionx+2
NEXT

do
`Find which object is hovered by mouse
	hovered_object = pick object (mousex(),mousey(),1,70)
	
    text 0,0, "Enter Group number from 1 to 6"
    text 0,20, "hovered_object: "+str$(hovered_object)
    if hovered_object <> 0
    	if object exist(hovered_object) = 1
    		text 0,40,"Object Angle X: "+str$(Object angle x(hovered_object))
			text 0,60,"Object Angle Y: "+str$(Object angle y(hovered_object))
			text 0,80,"Object Angle Z: "+str$(Object angle z(hovered_object))
		endif
	endif
    for o = 1 to 8
        center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    NEXT
    
    if inkey$() <> ""
        groupnumber = val(inkey$())
        repeat until inkey$() = ""
        if groupnumber >= 1 and groupnumber <= 8
            for frame = 1 to 18
                for obj = 1 to 8
                    if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
                        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,5.0
                        EZro_FindEuler

   						if EZro_GetEulerX() < 0
    						eulerx# = EZro_GetEulerX() -0.5
    			    	else : if EZro_GetEulerX() > 0
    						eulerx# = EZro_GetEulerX() +0.5
    					endif : ENDIF
    					
    					if EZro_GetEulerY() < 0
    						eulery# = EZro_GetEulerY() -0.5
                        else : if EZro_GetEulery() > 0
     						eulery# = EZro_GetEulerY() +0.5
    					endif : ENDIF
    					
    					if EZro_GetEulerZ() < 0
    						eulerz# = EZro_GetEulerZ() -0.5
    					else :  if EZro_GetEulerz() > 0
    						eulerz# = EZro_GetEulerZ() +0.5
    					endif : ENDIF

                        position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                        rotate object obj,eulerx#,eulery#,eulerz#
                    
    					for o = 1 to 8
        					center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        					center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        					center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        					center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    					NEXT                    
                    
                        sync
                    ENDIF 
                NEXT  	
            NEXT          
        ENDIF	
   ENDIF
    sync
loop
 
end
 
function _putObjectsInGroups()
   for e = 1 to 8
 	    _objects(e).objectnumber = e
 	    for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
 	    for i = 1 to 3
            _MoveToanotherGroup = 0            
            REPEAT
 	    		GroupNumber = rnd(5)+1
 	    		Participate = rnd(3)+1
  	    	    if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
 	    	        _group(GroupNumber,Participate) = e
 	    	        _ParticipateFlag(GroupNumber) = 1
 	    	        _MoveToanotherGroup = 1
 	    	        SELECT i
 	    	            case 1 : _objects(e).group1 = GroupNumber : ENDCASE
 	    	            case 2 : _objects(e).group2 = GroupNumber : ENDCASE
 	    	            case 3 : _objects(e).group3 = GroupNumber : ENDCASE
 	    	        ENDSELECT
 	    	    ENDIF
 	    	UNTIL _MoveToanotherGroup = 1  
 	    NEXT
    NEXT
ENDFUNCTION

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

revenant chaos

DBPro Master

19

Years of Service

User Offline

Joined: 21st Mar 2007

Location: Robbinsdale, MN

Posted: 10th Feb 2014 10:55 Edited at: 10th Feb 2014 11:00

Link

Quote: "Sometimes i get +/-5 degrees sometimes +/-9 deviation in angle values shown, although the objects in the groups are perfectly aligned as if there is no such thing."

That is due to floating-point inaccuracy. Are you sure its off by as much as +/-9? The deviations i see are in the neighborhood of "-9.22081089811e-005". Note the "e-005" at the end, that indicates that the decimal point should be moved to the left 5 places making the actual value "-0.0000922081089811". That value outside the range of floating point decimals so DB kicks in and gives us that nice notation instead.

It is your code to fix these deviations that breaks the example. If you replace

+ Code Snippet

if EZro_GetEulerX() < 0
	eulerx# = EZro_GetEulerX()
else : if EZro_GetEulerX() > 0
	eulerx# = EZro_GetEulerX() +0.5
endif : ENDIF
    					
if EZro_GetEulerY() < 0
	eulery# = EZro_GetEulerY()
else : if EZro_GetEulery() > 0
	eulery# = EZro_GetEulerY() +0.5
endif : ENDIF
    					
if EZro_GetEulerZ() < 0
	eulerz# = EZro_GetEulerZ()
else :  if EZro_GetEulerz() > 0
	eulerz# = EZro_GetEulerZ() +0.5
endif : ENDIF

with

+ Code Snippet

	eulerx# = EZro_GetEulerX()
	eulery# = EZro_GetEulerY()
	eulerz# = EZro_GetEulerZ()

the rotation problems go away.

Back to top

Profile PM Email Website

luskos

19

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 11th Feb 2014 00:04

Link

If we rotate in one plane no problem.If we rotate in more than one see what happens:

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8

for o = 1 to 8
    make object cube _objects(o).objectnumber ,1.0
    color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
    position object _objects(o).objectnumber, positionx,0,0
    inc positionx,2
    if positionx = 0 then positionx = positionx+2
NEXT

do
`Find which object is hovered by mouse
	hovered_object = pick object (mousex(),mousey(),1,70)
	
    text 0,0, "Enter Group number from 1 to 6"
    text 0,20, "hovered_object: "+str$(hovered_object)
    if hovered_object <> 0
    	if object exist(hovered_object) = 1
    		text 0,40,"Object Angle X: "+str$(Object angle x(hovered_object))
			text 0,60,"Object Angle Y: "+str$(Object angle y(hovered_object))
			text 0,80,"Object Angle Z: "+str$(Object angle z(hovered_object))
		endif
	endif
    for o = 1 to 8
        center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    NEXT
    
    if inkey$() <> ""
        groupnumber = val(inkey$())
        repeat until inkey$() = ""
        if groupnumber >= 1 and groupnumber <= 8
        	i = rnd(2)
            for frame = 1 to 18
                for obj = 1 to 8
                    if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
                        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)
                        
                        if i = 0
                        	EZro_Orbit 1,-90,0,0,90,0,0,5.0
                        endif
                        if i = 1
                        	EZro_Orbit 1,0,-90,0,0,90,0,5.0
                        endif
                        if i = 2
                        	EZro_Orbit 1,0,0,-90,0,0,90,5.0
                        endif
                        EZro_FindEuler

if EZro_GetEulerX() < 0
    						eulerx# = EZro_GetEulerX()
    			    	else : if EZro_GetEulerX() > 0
    						eulerx# = EZro_GetEulerX()
    					endif : ENDIF
    					
    					if EZro_GetEulerY() < 0
    						eulery# = EZro_GetEulerY()
                        else : if EZro_GetEulery() > 0
     						eulery# = EZro_GetEulerY()
    					endif : ENDIF
    					
    					if EZro_GetEulerZ() < 0
    						eulerz# = EZro_GetEulerZ()
    					else :  if EZro_GetEulerz() > 0
    						eulerz# = EZro_GetEulerZ()
    					endif : ENDIF
						rotate object obj,eulerx#,eulery#,eulerz#
                        position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                        
                    
    					for o = 1 to 8
        					center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        					center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        					center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        					center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    					NEXT                    
                    
                        sync
                    ENDIF 
                NEXT  	
            NEXT          
        ENDIF	
   ENDIF
    sync
loop
 
end
 
function _putObjectsInGroups()
   for e = 1 to 8
 	    _objects(e).objectnumber = e
 	    for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
 	    for i = 1 to 3
            _MoveToanotherGroup = 0            
            REPEAT
 	    		GroupNumber = rnd(5)+1
 	    		Participate = rnd(3)+1
  	    	    if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
 	    	        _group(GroupNumber,Participate) = e
 	    	        _ParticipateFlag(GroupNumber) = 1
 	    	        _MoveToanotherGroup = 1
 	    	        SELECT i
 	    	            case 1 : _objects(e).group1 = GroupNumber : ENDCASE
 	    	            case 2 : _objects(e).group2 = GroupNumber : ENDCASE
 	    	            case 3 : _objects(e).group3 = GroupNumber : ENDCASE
 	    	        ENDSELECT
 	    	    ENDIF
 	    	UNTIL _MoveToanotherGroup = 1  
 	    NEXT
    NEXT
ENDFUNCTION

+ Code Snippet

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8


for o = 1 to 8
    make object cube _objects(o).objectnumber ,1.0
    color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
    position object _objects(o).objectnumber, positionx,0,0
    inc positionx,2
    if positionx = 0 then positionx = positionx+2
NEXT

do
`Find which object is hovered by mouse
	hovered_object = pick object (mousex(),mousey(),1,70)
	
    text 0,0, "Enter Group number from 1 to 6"
    text 0,20, "hovered_object: "+str$(hovered_object)
    if hovered_object <> 0
    	if object exist(hovered_object) = 1
    		text 0,40,"Object Angle X: "+str$(Object angle x(hovered_object))
			text 0,60,"Object Angle Y: "+str$(Object angle y(hovered_object))
			text 0,80,"Object Angle Z: "+str$(Object angle z(hovered_object))
		endif
	endif
    for o = 1 to 8
        center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    NEXT
    
    if inkey$() <> ""
        groupnumber = val(inkey$())
        repeat until inkey$() = ""
        if groupnumber >= 1 and groupnumber <= 8
        	i = rnd(2)
            for frame = 1 to 18
                for obj = 1 to 8
                    if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
                        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)
                        
                        if i = 0
                        	EZro_Orbit 1,-90,0,0,90,0,0,5.0
                        endif
                        if i = 1
                        	EZro_Orbit 1,0,-90,0,0,90,0,5.0
                        endif
                        if i = 2
                        	EZro_Orbit 1,0,0,-90,0,0,90,5.0
                        endif
                        EZro_FindEuler

   						if EZro_GetEulerX() < 0
    						eulerx# = EZro_GetEulerX()
    			    	else : if EZro_GetEulerX() > 0
    						eulerx# = EZro_GetEulerX()
    					endif : ENDIF
    					
    					if EZro_GetEulerY() < 0
    						eulery# = EZro_GetEulerY()
                        else : if EZro_GetEulery() > 0
     						eulery# = EZro_GetEulerY()
    					endif : ENDIF
    					
    					if EZro_GetEulerZ() < 0
    						eulerz# = EZro_GetEulerZ()
    					else :  if EZro_GetEulerz() > 0
    						eulerz# = EZro_GetEulerZ()
    					endif : ENDIF
						rotate object obj,eulerx#,eulery#,eulerz#
                        position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                        
                    
    					for o = 1 to 8
        					center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        					center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        					center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        					center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    					NEXT                    
                    
                        sync
                    ENDIF 
                NEXT  	
            NEXT          
        ENDIF	
   ENDIF
    sync
loop
 
end
 
function _putObjectsInGroups()
   for e = 1 to 8
 	    _objects(e).objectnumber = e
 	    for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
 	    for i = 1 to 3
            _MoveToanotherGroup = 0            
            REPEAT
 	    		GroupNumber = rnd(5)+1
 	    		Participate = rnd(3)+1
  	    	    if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
 	    	        _group(GroupNumber,Participate) = e
 	    	        _ParticipateFlag(GroupNumber) = 1
 	    	        _MoveToanotherGroup = 1
 	    	        SELECT i
 	    	            case 1 : _objects(e).group1 = GroupNumber : ENDCASE
 	    	            case 2 : _objects(e).group2 = GroupNumber : ENDCASE
 	    	            case 3 : _objects(e).group3 = GroupNumber : ENDCASE
 	    	        ENDSELECT
 	    	    ENDIF
 	    	UNTIL _MoveToanotherGroup = 1  
 	    NEXT
    NEXT
ENDFUNCTION

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

revenant chaos

DBPro Master

19

Years of Service

User Offline

Joined: 21st Mar 2007

Location: Robbinsdale, MN

Posted: 11th Feb 2014 01:29 Edited at: 11th Feb 2014 11:08

Link

Again its this ->

+ Code Snippet

if EZro_GetEulerX() < 0
	eulerx# = EZro_GetEulerX()
else : if EZro_GetEulerX() > 0
	eulerx# = EZro_GetEulerX()
endif : ENDIF
    					
if EZro_GetEulerY() < 0
	eulery# = EZro_GetEulerY()
else : if EZro_GetEulery() > 0
	eulery# = EZro_GetEulerY()
endif : ENDIF
    					
if EZro_GetEulerZ() < 0
	eulerz# = EZro_GetEulerZ()
else :  if EZro_GetEulerz() > 0
	eulerz# = EZro_GetEulerZ()
endif : ENDIF

section of code that is messing with the rotations. I see you've removed the +0.5(s), but it is only updating your values if the new angle isn't equal to zero.
I didn't realize that when dbpro uses the "e-???" notation, that those values would be considered as being equal to zero but it seems to be the case. Completely replace those conditional statements with

+ Code Snippet

	eulerx# = EZro_GetEulerX()
	eulery# = EZro_GetEulerY()
	eulerz# = EZro_GetEulerZ()

and the problems go away.

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8

for o = 1 to 8
    make object cube _objects(o).objectnumber ,1.0
    color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
    position object _objects(o).objectnumber, positionx,0,0
    inc positionx,2
    if positionx = 0 then positionx = positionx+2
NEXT

do
`Find which object is hovered by mouse
	hovered_object = pick object (mousex(),mousey(),1,70)
	
    text 0,0, "Enter Group number from 1 to 6"
    text 0,20, "hovered_object: "+str$(hovered_object)
    if hovered_object <> 0
    	if object exist(hovered_object) = 1
    		text 0,40,"Object Angle X: "+str$(Object angle x(hovered_object))
			text 0,60,"Object Angle Y: "+str$(Object angle y(hovered_object))
			text 0,80,"Object Angle Z: "+str$(Object angle z(hovered_object))
		endif
	endif
    for o = 1 to 8
        center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    NEXT
    
    if inkey$() <> ""
        groupnumber = val(inkey$())
        repeat until inkey$() = ""
        if groupnumber >= 1 and groupnumber <= 8
        	i = rnd(2)
            for frame = 1 to 18
                for obj = 1 to 8
                    if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
                        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)
                        
                        if i = 0
                        	EZro_Orbit 1,-90,0,0,90,0,0,5.0
                        endif
                        if i = 1
                        	EZro_Orbit 1,0,-90,0,0,90,0,5.0
                        endif
                        if i = 2
                        	EZro_Orbit 1,0,0,-90,0,0,90,5.0
                        endif
                        EZro_FindEuler

eulerx# = EZro_GetEulerX()
		        eulery# = EZro_GetEulerY()
			eulerz# = EZro_GetEulerZ()
	
						rotate object obj,eulerx#,eulery#,eulerz#
                        position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                        
                    
    					for o = 1 to 8
        					center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        					center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        					center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        					center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    					NEXT                    
                    
                        sync
                    ENDIF 
                NEXT  	
            NEXT          
        ENDIF	
   ENDIF
    sync
loop
 
end
 
function _putObjectsInGroups()
   for e = 1 to 8
 	    _objects(e).objectnumber = e
 	    for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
 	    for i = 1 to 3
            _MoveToanotherGroup = 0            
            REPEAT
 	    		GroupNumber = rnd(5)+1
 	    		Participate = rnd(3)+1
  	    	    if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
 	    	        _group(GroupNumber,Participate) = e
 	    	        _ParticipateFlag(GroupNumber) = 1
 	    	        _MoveToanotherGroup = 1
 	    	        SELECT i
 	    	            case 1 : _objects(e).group1 = GroupNumber : ENDCASE
 	    	            case 2 : _objects(e).group2 = GroupNumber : ENDCASE
 	    	            case 3 : _objects(e).group3 = GroupNumber : ENDCASE
 	    	        ENDSELECT
 	    	    ENDIF
 	    	UNTIL _MoveToanotherGroup = 1  
 	    NEXT
    NEXT
ENDFUNCTION

+ Code Snippet

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8


for o = 1 to 8
    make object cube _objects(o).objectnumber ,1.0
    color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
    position object _objects(o).objectnumber, positionx,0,0
    inc positionx,2
    if positionx = 0 then positionx = positionx+2
NEXT

do
`Find which object is hovered by mouse
	hovered_object = pick object (mousex(),mousey(),1,70)
	
    text 0,0, "Enter Group number from 1 to 6"
    text 0,20, "hovered_object: "+str$(hovered_object)
    if hovered_object <> 0
    	if object exist(hovered_object) = 1
    		text 0,40,"Object Angle X: "+str$(Object angle x(hovered_object))
			text 0,60,"Object Angle Y: "+str$(Object angle y(hovered_object))
			text 0,80,"Object Angle Z: "+str$(Object angle z(hovered_object))
		endif
	endif
    for o = 1 to 8
        center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    NEXT
    
    if inkey$() <> ""
        groupnumber = val(inkey$())
        repeat until inkey$() = ""
        if groupnumber >= 1 and groupnumber <= 8
        	i = rnd(2)
            for frame = 1 to 18
                for obj = 1 to 8
                    if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
                        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)
                        
                        if i = 0
                        	EZro_Orbit 1,-90,0,0,90,0,0,5.0
                        endif
                        if i = 1
                        	EZro_Orbit 1,0,-90,0,0,90,0,5.0
                        endif
                        if i = 2
                        	EZro_Orbit 1,0,0,-90,0,0,90,5.0
                        endif
                        EZro_FindEuler

			eulerx# = EZro_GetEulerX()
		        eulery# = EZro_GetEulerY()
			eulerz# = EZro_GetEulerZ()
	
						rotate object obj,eulerx#,eulery#,eulerz#
                        position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                        
                    
    					for o = 1 to 8
        					center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
        					center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
        					center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
        					center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
    					NEXT                    
                    
                        sync
                    ENDIF 
                NEXT  	
            NEXT          
        ENDIF	
   ENDIF
    sync
loop
 
end
 
function _putObjectsInGroups()
   for e = 1 to 8
 	    _objects(e).objectnumber = e
 	    for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
 	    for i = 1 to 3
            _MoveToanotherGroup = 0            
            REPEAT
 	    		GroupNumber = rnd(5)+1
 	    		Participate = rnd(3)+1
  	    	    if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
 	    	        _group(GroupNumber,Participate) = e
 	    	        _ParticipateFlag(GroupNumber) = 1
 	    	        _MoveToanotherGroup = 1
 	    	        SELECT i
 	    	            case 1 : _objects(e).group1 = GroupNumber : ENDCASE
 	    	            case 2 : _objects(e).group2 = GroupNumber : ENDCASE
 	    	            case 3 : _objects(e).group3 = GroupNumber : ENDCASE
 	    	        ENDSELECT
 	    	    ENDIF
 	    	UNTIL _MoveToanotherGroup = 1  
 	    NEXT
    NEXT
ENDFUNCTION

Back to top

Profile PM Email Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 11th Feb 2014 10:51

Link

I think luskos found the same issue I thought of when reading the first post... you are not accounting for the current position and compensating...

Well thought it was worth mentioning for future readers...

Back to top

Profile PM

luskos

19

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 11th Feb 2014 21:42 Edited at: 11th Feb 2014 21:43

Link

Again with revenant's code :

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

revenant chaos

DBPro Master

19

Years of Service

User Offline

Joined: 21st Mar 2007

Location: Robbinsdale, MN

Posted: 12th Feb 2014 07:26 Edited at: 12th Feb 2014 07:40

Link

Those inaccuracies are building up and causing your values to become a more and more wonky with each rotation. My first thought is to manually correct those values after each full 90degree rotation has completed.

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8

for o = 1 to 8
	make object cube _objects(o).objectnumber ,1.0
	color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
	position object _objects(o).objectnumber, positionx,0,0
	inc positionx,2
	if positionx = 0 then positionx = positionx+2
NEXT

do
`Find which object is hovered by mouse
	hovered_object = pick object (mousex(),mousey(),1,70)
	
	text 0,0, "Enter Group number from 1 to 6"
	text 0,20, "hovered_object: "+str$(hovered_object)
	if hovered_object <> 0
		if object exist(hovered_object) = 1
			text 0,40,"Object Angle X: "+str$(Object angle x(hovered_object))
			text 0,60,"Object Angle Y: "+str$(Object angle y(hovered_object))
			text 0,80,"Object Angle Z: "+str$(Object angle z(hovered_object))
		endif
	endif
	for o = 1 to 8
		center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
		center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
		center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
		center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
	NEXT
    
	if inkey$() <> ""
		groupnumber = val(inkey$())
		repeat until inkey$() = ""
		if groupnumber >= 1 and groupnumber <= 8
			i = rnd(2)
			for frame = 1 to 18
				for obj = 1 to 8
					if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
						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)
                       
						if i = 0
							EZro_Orbit 1,-90,0,0,90,0,0,5.0
						endif
						if i = 1
							EZro_Orbit 1,0,-90,0,0,90,0,5.0
						endif
						if i = 2
							EZro_Orbit 1,0,0,-90,0,0,90,5.0
						endif
						EZro_FindEuler

eulerx# = EZro_GetEulerX()
						eulery# = EZro_GetEulerY()
						eulerz# = EZro_GetEulerZ()
	
						rotate object obj,eulerx#,eulery#,eulerz#
						position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                    
						for o = 1 to 8
							center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
							center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
							center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
							center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
						NEXT                    
                   
						sync
					ENDIF 
				NEXT  	
			NEXT
            
			//Once the rotation steps have completed, account for floating point inaccuracy 
			//for each object within the current group
			for obj = 1 to 8
				if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
					fixObjAngles(obj)
				endif
			next obj
           
		ENDIF	
	ENDIF
	sync
loop
 
end
 
function _putObjectsInGroups()
	for e = 1 to 8
		_objects(e).objectnumber = e
		for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
		for i = 1 to 3
			_MoveToanotherGroup = 0            
			REPEAT
				GroupNumber = rnd(5)+1
				Participate = rnd(3)+1
				if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
					_group(GroupNumber,Participate) = e
					_ParticipateFlag(GroupNumber) = 1
					_MoveToanotherGroup = 1
					SELECT i
						case 1 : _objects(e).group1 = GroupNumber : ENDCASE
						case 2 : _objects(e).group2 = GroupNumber : ENDCASE
						case 3 : _objects(e).group3 = GroupNumber : ENDCASE
					ENDSELECT
				ENDIF
			UNTIL _MoveToanotherGroup = 1  
		NEXT
	NEXT
ENDFUNCTION

function fixObjAngles(ObjID)
	angX= int( object angle X(ObjID) )
	angY= int( object angle Y(ObjID) )
	angZ= int( object angle Z(ObjID) )
	
	x = angX / 90
	xR = angX mod 90
	newX = x * 90
	if xR > 45 then inc newX,90
	
	y = angY / 90
	yR = angY mod 90
	newY = y * 90
	if yR > 45 then inc newY,90

z = angZ / 90
	zR = angZ mod 90
	newZ = z * 90
	if zR > 45 then inc newZ,90
	
	rotate object ObjID,wrapvalue(newX),wrapvalue(newY),wrapvalue(newZ)
endfunction

+ Code Snippet

randomize timer()

sync on : sync rate 60

autoCAM OFF
position camera 0,5,-14.0
point camera 0,0,0

dim _ParticipateFlag(6)
dim _group(6,4)

type _objgroup
    objectnumber
    group1
    group2
    group3
ENDTYPE

dim _objects(8) as _objgroup

_putObjectsInGroups()

positionx = -8


for o = 1 to 8
	make object cube _objects(o).objectnumber ,1.0
	color object _objects(o).objectnumber, rgb(rnd(255),rnd(255),rnd(255))
	position object _objects(o).objectnumber, positionx,0,0
	inc positionx,2
	if positionx = 0 then positionx = positionx+2
NEXT

do
`Find which object is hovered by mouse
	hovered_object = pick object (mousex(),mousey(),1,70)
	
	text 0,0, "Enter Group number from 1 to 6"
	text 0,20, "hovered_object: "+str$(hovered_object)
	if hovered_object <> 0
		if object exist(hovered_object) = 1
			text 0,40,"Object Angle X: "+str$(Object angle x(hovered_object))
			text 0,60,"Object Angle Y: "+str$(Object angle y(hovered_object))
			text 0,80,"Object Angle Z: "+str$(Object angle z(hovered_object))
		endif
	endif
	for o = 1 to 8
		center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
		center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
		center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
		center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
	NEXT
    
	if inkey$() <> ""
		groupnumber = val(inkey$())
		repeat until inkey$() = ""
		if groupnumber >= 1 and groupnumber <= 8
			i = rnd(2)
			for frame = 1 to 18
				for obj = 1 to 8
					if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
						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)
                       
						if i = 0
							EZro_Orbit 1,-90,0,0,90,0,0,5.0
						endif
						if i = 1
							EZro_Orbit 1,0,-90,0,0,90,0,5.0
						endif
						if i = 2
							EZro_Orbit 1,0,0,-90,0,0,90,5.0
						endif
						EZro_FindEuler

						eulerx# = EZro_GetEulerX()
						eulery# = EZro_GetEulerY()
						eulerz# = EZro_GetEulerZ()
	
						rotate object obj,eulerx#,eulery#,eulerz#
						position object obj,EZro_Getposx(),EZro_Getposy(),EZro_Getposz()
                    
						for o = 1 to 8
							center text object screen x(o),object screen y(o)-60,"obj " + str$(_objects(o).objectnumber)
							center text object screen x(o)-20,object screen y(o)-40,str$(_objects(o).group1)	
							center text object screen x(o),object screen y(o)-40,str$(_objects(o).group2)
							center text object screen x(o)+20,object screen y(o)-40,str$(_objects(o).group3)
						NEXT                    
                   
						sync
					ENDIF 
				NEXT  	
			NEXT
            
			//Once the rotation steps have completed, account for floating point inaccuracy 
			//for each object within the current group
			for obj = 1 to 8
				if _objects(obj).group1 = groupnumber or _objects(obj).group2 = groupnumber or _objects(obj).group3 = groupnumber 
					fixObjAngles(obj)
				endif
			next obj
           
		ENDIF	
	ENDIF
	sync
loop
 
end
 
function _putObjectsInGroups()
	for e = 1 to 8
		_objects(e).objectnumber = e
		for p = 1 to 6 : _ParticipateFlag(p) = 0 : NEXT
		for i = 1 to 3
			_MoveToanotherGroup = 0            
			REPEAT
				GroupNumber = rnd(5)+1
				Participate = rnd(3)+1
				if _group(GroupNumber,Participate) = 0 and _ParticipateFlag(GroupNumber) = 0
					_group(GroupNumber,Participate) = e
					_ParticipateFlag(GroupNumber) = 1
					_MoveToanotherGroup = 1
					SELECT i
						case 1 : _objects(e).group1 = GroupNumber : ENDCASE
						case 2 : _objects(e).group2 = GroupNumber : ENDCASE
						case 3 : _objects(e).group3 = GroupNumber : ENDCASE
					ENDSELECT
				ENDIF
			UNTIL _MoveToanotherGroup = 1  
		NEXT
	NEXT
ENDFUNCTION

function fixObjAngles(ObjID)
	angX= int( object angle X(ObjID) )
	angY= int( object angle Y(ObjID) )
	angZ= int( object angle Z(ObjID) )
	
	x = angX / 90
	xR = angX mod 90
	newX = x * 90
	if xR > 45 then inc newX,90
	
	y = angY / 90
	yR = angY mod 90
	newY = y * 90
	if yR > 45 then inc newY,90

	z = angZ / 90
	zR = angZ mod 90
	newZ = z * 90
	if zR > 45 then inc newZ,90
	
	rotate object ObjID,wrapvalue(newX),wrapvalue(newY),wrapvalue(newZ)
endfunction

[edit] Re-indented the code using only tabs in hopes of improving its appearance within the codebox

Back to top

Profile PM Email Website

luskos

19

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 12th Feb 2014 10:42

Link

I think that last code snipped nailed it.Very elegant solution thank you!

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

revenant chaos

DBPro Master

19

Years of Service

User Offline

Joined: 21st Mar 2007

Location: Robbinsdale, MN

Posted: 12th Feb 2014 10:52

Link

You are very welcome, glad I could share some of my Kung Fu

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / EZRotate Eulers