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