set oRoot = application.activeproject.activescene.root
set oObj = oRoot.addgeometry( "Cube", "MeshSurface" )
FreezeObj oObj
set oGeometry = oObj.activeprimitive.geometry
dGlobalPosY = oObj.Kinematics.global.parameters("posy").value
' get the geometry points in an array of x,y,z values
aPositions = oGeometry.Points.PositionArray
' squish all the points that are below the Y=0 axis
dSquishFactor = 3
for i = LBound(aPositions, 2) to UBound(aPositions, 2)
	' Compute the point's global Y position.
	dGlobalYPnt = aPositions(1, i) + dGlobalPosY 
	' If the point is below the Y=0 plane...
	If dGlobalYPnt < 0 Then
		' Compute the squish factor for the point.
		dSquishPnt = 1.0 - dGlobalYPnt * dSquishFactor
		' Squish the point.
		aPositions(0, i) = aPositions(0, i) * dSquishFactor
		aPositions(1, i) = - dGlobalPosY
		aPositions(2, i) = aPositions(2, i) * dSquishFactor
	End If	
next
' set the geometry points using the modified position array
oGeometry.Points.PositionArray = aPositions

TestPointsPositionArray();
function TestPointsPositionArray()
{
LogMessage( "----- Test PointCollection.PositionArray -----" );
var oCube = CreatePrim("Cube", "MeshSurface");
FreezeObj( oCube.name );
LogMessage( "--- current position array ---" );
var aPos = new VBArray(oCube.ActivePrimitive.Geometry.Points.PositionArray);
for (i = 0; i <= aPos.ubound(2); i++) {
LogMessage(i + " " + aPos.getItem(0, i) + " " + aPos.getItem(1, i) + " " + aPos.getItem(2, i));
}
LogMessage( "--- current position array (1 dim) ---" );
var aPos2 = aPos.toArray();
LogMessage(typeof(aPos2));
LogMessage(aPos2.length);
for (i = 0; i < aPos2.length; i += 3) {
LogMessage(i + " " + aPos2[i] + " " + aPos2[i+1] + " " + aPos2[i+2]);
}
aPos2[0] = -4;
aPos2[1] = -4;
aPos2[2] = -4;
aPos2[3] = 4;
aPos2[4] = -4;
aPos2[5] = -4;
aPos2[6] = -1;
aPos2[7] = 4;
aPos2[8] = -1;
aPos2[9] = 1;
aPos2[10] = 4;
aPos2[11] = -1;
aPos2[12] = -4;
aPos2[13] = -4;
aPos2[14] = 4;
aPos2[15] = 4;
aPos2[16] = -4;
aPos2[17] = 4;
aPos2[18] = -1;
aPos2[19] = 4;
aPos2[20] = 1;
aPos2[21] = 1;
aPos2[22] = 4;
aPos2[23] = 1;
oCube.ActivePrimitive.Geometry.Points.PositionArray = aPos2;
LogMessage( "--- new position array ---" );
var aPos = new VBArray(oCube.ActivePrimitive.Geometry.Points.PositionArray);
for (i = 0; i <= aPos.ubound(2); i++) {
LogMessage(i + " " + aPos.getItem(0, i) + " " + aPos.getItem(1, i) + " " + aPos.getItem(2, i));
}
return 0;
}