The following snippet should help as understanding how the vertexs are positioned on a sphere will pay an important part
Find the vertex data of an object by chafari
// Project: contarvertices
// Created: 2018-12-04
// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "contarvertices" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
CreateObjectbox(1,15,15,15)
`creating a memblock
mesh = CreateMemblockFromObjectMesh(1,1)
`getting object vertex quantity
verts= GetMemblockInt( mesh, 0 )
for i= 0 to verts-1
x#=GetMeshMemblockVertexX(mesh,i)
y#=GetMeshMemblockVertexy(mesh,i)
z#=GetMeshMemblockVertexz(mesh,i)
al#=GetMeshMemblockVertexy(mesh,i)/32
next
SetObjectMeshFromMemblock(1,1,mesh)
CreateObjectSphere(2,1,20,20)
SetObjectColor(2,255,0,0,0)
SetCameraPosition(1,30,30,-30)
SetCameraLookAt(1,0,0,0,0)
v=0
do
if ( GetRawKeyState( 32) )
v=v+1
sleep (300)
endif
x#=GetMeshMemblockVertexX(mesh,v)
y#=GetMeshMemblockVertexy(mesh,v)
z#=GetMeshMemblockVertexz(mesh,v)
setobjectposition(2,x#,y#,z#)
Print("Press Spacebar to get new vertex position" )
print("vertex "+str(v))
Sync()
loop
