Sorry your browser is not supported!

	newobj = CloneObject(mggobjectid)
	meshes = GetObjectNumMeshes( newobj )

	hx# = -9999
	lx# = 9999
	hy# = -9999
	ly# = 9999
	hz# = -9999
	lz# = 9999

	// find object size  x,y,z
	for a = 1 to meshes
		newmem = CreateMemblockFromObjectMesh(newobj,a)
		numvert = GetMemblockInt(newmem,0)
		numindices = GetMemblockInt(newmem,4) // 0 = 3 vert-polygon , > 0 shared vert.
		numattributes = GetMemblockInt(newmem,8) // attributes per vertex,
		numsinglevertsize = GetMemblockInt(newmem,12) // size of a single vertex 	
		offsetvert = GetMemblockInt(newmem,16) // start off vertex data
		offsetindex = GetMemblockInt(newmem,20) // start off  indices data

		for b = 1 to  numvert
			vx# = GetMeshMemblockVertexX( newmem, b )
			vy# = GetMeshMemblockVertexY( newmem, b )
			vz# = GetMeshMemblockVertexZ( newmem, b )
			if vx# > hx# then hx# = vx#
			if vx# < lx# then lx# = vx#
			if vy# > hy# then hy# = vy#
			if vy# < ly# then ly# = vy#
			if vz# > hz# then hz# = vz#
			if vz# < lz# then lz# = vz#
			//disdebug( "vert " + str(b) + ": " + str(vx#) +","+ str(vy#) +","+ str(vz#) +"," )
		next b

		DeleteMemblock(newmem)

	next a

	DeleteObject(newobj)

	objsizex# = hx# - lx#
	objsizey# = hy# - ly#
	objsizez# = hz# - lz#

//This command will return a value that does not exceed the range of 0 to 360. 
function WrapAngle( angle as float) 
	local iChunkOut as integer
	local breakout as integer
	iChunkOut = angle
	iChunkOut = iChunkOut - mod( iChunkOut, 360 )
	angle = angle - iChunkOut
	breakout = 10000
	while angle < 0.0 or angle >= 360.0 
		if angle < 0.0 then angle = angle + 360.0
		if angle >= 360.0 then angle = angle - 360.0
		dec breakout  
		if  breakout = 0  then exit
	endwhile
	if  breakout = 0  then angle = 0.0
endfunction angle

//This command will return an auto-interpolated angle based on a given speed. 
function CurveAngle( destination as float, current as float,  speed as float)
	local diff as float
	if speed < 1.0 then speed = 1.0
	destination = WrapAngle( destination )
	current = WrapAngle( current )
	diff = destination - current
	if diff <- 180.0 then diff = ( destination + 360.0 ) - current
	if diff > 180.0 then diff = destination - ( current + 360.0 )
	current = current + ( diff / speed )
	current = WrapAngle( current )
endfunction current

//This command will return an auto-interpolated value based on a given speed. 
function CurveValue( destination as float, current as float,  speed as float)
	local diff as float
	if  speed < 1.0  then speed = 1.0
	diff = destination - current
	current = current + ( diff / speed )
endfunction current

//This command will return a value that represents the new X position of a point in 3D space
// currentXValue -- current value to calculate the new value from.
// angleValue -- angle value in degrees 0 to 360
// stepValue -- specifies how far in the specified direction you would like to calculate
function CalculateNewXValue( currentXValue as float, angleValue as float, stepValue as float ) 
	result# = currentXValue + ( sin( angleValue ) * stepValue )
endfunction result#

//This command will return a value that represents the new Y position of a point in 3D space
// currentXValue -- current value to calculate the new value from.
// angleValue -- angle value in degrees 0 to 360
// stepValue -- specifies how far in the specified direction you would like to calculate
function CalculateNewYValue( currentYValue as float, angleValue as float, stepValue as float ) 
	result# = currentYValue - ( sin( angleValue ) * stepValue )
endfunction result#

//This command will return a value that represents the new Z position of a point in 3D space
// currentXValue -- current value to calculate the new value from.
// angleValue -- angle value in degrees 0 to 360
// stepValue -- specifies how far in the specified direction you would like to calculate
function CalculateNewZValue( currentZValue as float, angleValue as float, stepValue as float ) 
	result# = currentZValue + ( cos( angleValue ) * stepValue )
endfunction result#

float GetObjectSizeMinX( objID )
float GetObjectSizeMaxX( objID )
float GetObjectSizeMinY( objID )
float GetObjectSizeMaxY( objID )
float GetObjectSizeMinZ( objID )
float GetObjectSizeMaxZ( objID )

function WrapAngle2( angle as float) 
	angle = fmod(angle,360.0)
endfunction angle

// Project: wrapangletest 
// Created: 2016-04-07

// set window properties
SetWindowTitle( "wrapangletest" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )



do
	t1 = GetMilliseconds()
	for t = 1 to 100000
		angle1# = WrapAngle(random(1,9999))
	next t
	res1 = GetMilliseconds() - t1
	
	t2 = GetMilliseconds()
	for t = 1 to 100000
		angle2# = WrapAngle2(random(1,9999))
	next t
	res2 = GetMilliseconds() - t2
	
    Print("First method took: "+str(res1)+" milliseconds")
    Print("2nd method took: "+str(res2)+" milliseconds")
    Print( ScreenFPS() )
    Sync()
loop




function WrapAngle( angle as float) 
    local iChunkOut as integer
    local breakout as integer
    iChunkOut = angle
    iChunkOut = iChunkOut - mod( iChunkOut, 360 )
    angle = angle - iChunkOut
    breakout = 10000
    while angle < 0.0 or angle >= 360.0 
        if angle < 0.0 then angle = angle + 360.0
        if angle >= 360.0 then angle = angle - 360.0
        dec breakout  
        if  breakout = 0  then exit
    endwhile
    if  breakout = 0  then angle = 0.0
endfunction angle

function WrapAngle2( angle as float) 
	angle = fmod(angle,360.0)
endfunction angle

function WrapAngle2( angle as float) 
    angle = fmod(angle,360.0)
    if angle<0 then	angle = WrapAngle2(angle+360)
endfunction angle

function WrapAngle2( angle as float) 
	angle = fmod(angle,360.0)
	if angle <0 then angle=angle+360
endfunction angle

function WrapAngle2( angle as float) 
    angle = fmod(angle,360.0)
    while angle <0
       angle=angle+360
   endwhile
endfunction angle

function WrapAngle2( angle as float) 
    angle = fmod(angle,360.0)
    if angle <0 then angle=angle+360
endfunction angle