Sorry your browser is not supported!

CreateObjectPlane(1, 100, 100)
CreateMemblockFromObjectMesh( 1, 1, 1 ) 
SetMeshMemblockVertexPosition( 1, 0, GetMeshMemblockVertexX(1, 0), GetMeshMemblockVertexY(1, 0) + 100, GetMeshMemblockVertexZ(1, 0) ) 
SetObjectMeshFromMemblock(1, 1, 1)

CreateObjectPlane(1, 10, 10)
CreateMemblockFromObjectMesh( 1, 1, 1 ) 
SetMeshMemblockVertexPosition( 1, 0, GetMeshMemblockVertexX(1, 0), GetMeshMemblockVertexY(1, 0) + 10, GetMeshMemblockVertexZ(1, 0) ) 
SetObjectMeshFromMemblock(1, 1, 1)
do
	sync()
loop	

// Project: AGKEditor 
// Created: 2019-06-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AGKEditor" )
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

CreateObjectPlane(1, 100, 100)
CreateMemblockFromObjectMesh( 1, 1, 1 ) 
SetMeshMemblockVertexPosition( 1, 0, GetMeshMemblockVertexX(1, 0), GetMeshMemblockVertexY(1, 0) + 10, GetMeshMemblockVertexZ(1, 0) ) 
SetObjectMeshFromMemblock(1, 1, 1)

SetCameraPosition(1, 0, -150, 50)
SetCameraLookAt(1, GetObjecTX(1), GetObjectY(1), GetObjectZ(1), 0)

do
    Print( ScreenFPS() )
    Print(GetVerticesProcessed())
    
    Sync()
loop

// 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