var	oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface");

oCube.Kinematics.Global.Parameters("posy").value = 4.0;

oCube.Kinematics.Global.Parameters("posx").value = 2.0;

var	oGrid = ActiveSceneRoot.AddGeometry("Grid", "MeshSurface");

oGrid.Kinematics.Global.Parameters("posy").value = -2.0;

if( Above(oCube, oGrid) )

	 Application.LogMessage ( "The Cube is above the Grid" );

else

	 Application.LogMessage ( "The Cube is not above the Grid" );

//Function that returns true if in_obj1 is above in_obj2.

//Which means that all " y" values of in_obj1 vertices relative to in_obj2 are bigger

//than in_obj2 "y" values

function  Above(in_obj1, in_obj2)

{

	 var l_trans1, l_trans2, l_pos, l_biggesty;

	 l_biggesty = 0;

	 var oGeometry2 = in_obj2.activeprimitive.geometry;

	 var l_nbPoints = oGeometry2.Points.Count;

	 //Determine the upper position on in_obj2

	 for(var i = 0; i < l_nbPoints; i++) 

	 { 

		if (oGeometry2.Points(i).position.y > l_biggesty)

			l_biggesty = oGeometry2.Points(i).position.y;

	 }

	 l_trans1 = in_obj1.Kinematics.Global.Transform;

	 l_trans2 = in_obj2.Kinematics.Global.Transform;

	 var oGeometry1 = in_obj1.activeprimitive.geometry;

	 l_nbPoints = oGeometry1.Points.Count;

	 //Determine if all vertices of in_obj1 are above in_obj2

	 for(var i = 0; i < l_nbPoints; i++) 

	 { 

		l_pos = oGeometry1.Points(i).position;

		l_pos = XSIMath.MapObjectPositionToObjectSpace(l_trans1, l_trans2, l_pos);;

		if( l_pos.y < l_biggesty )

			return false;

	 }

	return true;

}

//OUTPUT

//INFO : The Cube is above the Grid

set oRoot = Application.ActiveProject.ActiveScene.Root

	set oCube = oRoot.AddGeometry("Cube","MeshSurface")

	oCube.Kinematics.Global.Parameters("posy").value = 4.0

	oCube.Kinematics.Global.Parameters("posx").value = 2.0

	set oGrid = oRoot.AddGeometry("Grid", "MeshSurface")

	oGrid.Kinematics.Global.Parameters("posy").value = -2.0

	if Above(oCube, oGrid) then

			Application.LogMessage "The Cube is above the Grid"

	else

			Application.LogMessage "The Cube is not above the Grid"

	end if

	'Function that returns true if in_obj1 is above in_obj2.

	'Which means that all " y" values of in_obj1 vertices relative to in_obj2 are bigger

	'than in_obj2 "y" values

	Function Above(in_obj1, in_obj2)

		Dim l_trans1, l_trans2, l_pos, l_biggesty

		l_biggesty = 0

		'Determine the upper position on in_obj2

		for each p in in_obj2.activeprimitive.geometry.points

			if p.position.y > l_biggesty then

				l_biggesty = p.position.y

			end if

		next

		set l_trans1 = in_obj1.Kinematics.Global.Transform

		set l_trans2 = in_obj2.Kinematics.Global.Transform

		'Determine if all vertices of in_obj1 are above in_obj2

		for each p in in_obj1.activeprimitive.geometry.points

			set l_pos = p.position

			set l_pos = xsimath.MapObjectPositionToObjectSpace(l_trans1, l_trans2, l_pos)

			if l_pos.y < l_biggesty then

				Above = False

				Exit Function

			end if

		next

		Above = True

	End Function