set oRoot = Application.ActiveProject.ActiveScene.Root

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

set oGeometry = oCube.ActivePrimitive.Geometry

aNormals = oGeometry.Facets.NormalArray

for i = LBound(aNormals, 2) to UBound(aNormals, 2)

	Application.LogMessage "normal[" & i & "] =" & aNormals(0,i) & "," & aNormals(1,i) & "," & aNormals(2,i)

next

' Expected result:

'INFO : normal[0] =0,0,-1

'INFO : normal[1] =0,-1,0

'INFO : normal[2] =-1,0,0

'INFO : normal[3] =1,0,0

'INFO : normal[4] =0,1,0

'INFO : normal[5] =0,0,1

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

var oGeometry = oCube.ActivePrimitive.Geometry ;

aNormals = new VBArray( oGeometry.Facets.NormalArray ) ;

for ( i = aNormals.lbound(2) ; i <= aNormals.ubound(2) ; i++ )

{

	Application.LogMessage( "normal[" + i + "] =" + aNormals.getItem(0,i) + "," +

				aNormals.getItem(1,i) + "," + aNormals.getItem(2,i) ) ;

}

// Expected result:

//INFO : normal[0] =0,0,-1

//INFO : normal[1] =0,-1,0

//INFO : normal[2] =-1,0,0

//INFO : normal[3] =1,0,0

//INFO : normal[4] =0,1,0

//INFO : normal[5] =0,0,1