Sorry your browser is not supported!

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

box as integer[99]
camX as float
camY as float
camZ as float
pointX as float
pointY as float
pointZ as float
dist as integer

box[1] = CreateObjectBox(10,10,10)
MoveObjectLocalZ(box[1],18)
MoveObjectLocalX(box[1],100)
MoveCameraLocalX(1,100)
SetCameraLookAt(1,getobjectx(box[1]),getobjecty(box[1]),getobjectz(box[1]),0)
boxes = 1
do
   if GetRawKeyReleased(27) then end 
   if GetPointerReleased()
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(GetPointerX(), GetPointerY())
		pointY = Get3DVectorYFromScreen(GetPointerX(), GetPointerY())
		pointZ = Get3DVectorZFromScreen(GetPointerX(), GetPointerY())
		dist = 1024
		hitobj = ObjectRayCast(0, camX, camY, camZ, camX+(pointX*dist), camY+(pointY*dist), camZ+(pointZ*dist))
		if hitobj > 0
			hx = GetObjectRayCastNormalX(0)
			hy = GetObjectRayCastNormalY(0)
			hz = GetObjectRayCastNormalZ(0)
			inc boxes, 1
			box[boxes] = CreateObjectBox(GetObjectSizeMinX(hitobj)+hx,GetObjectSizeMaxY(hitobj)-GetObjectSizeMinY(hitobj),GetObjectSizeMaxZ(hitobj)-GetObjectSizeMinZ(hitobj))
			box[boxes+1] = CreateObjectBox((GetObjectSizeMaxX(hitobj)-GetObjectSizeMinX(hitobj))-GetObjectSizeMaxX(box[boxes]),GetObjectSizeMaxY(hitobj)-GetObjectSizeMinY(hitobj),GetObjectSizeMaxZ(hitobj)-GetObjectSizeMinZ(hitobj))
			for a = boxes to boxes+1
				SetObjectPosition(box[a],getobjectx(hitobj),getobjecty(hitobj),getobjectz(hitobj))
			next a 
			SetObjectColor(box[boxes],random2(0,255),random2(0,255),random2(0,255),255)
			MoveObjectLocalX(box[boxes],(GetObjectSizeMaxX(box[boxes])-GetObjectSizeMinX(box[boxes]))*-0.5)
			MoveObjectLocalX(box[boxes+1],(GetObjectSizeMaxX(box[boxes+1])-GetObjectSizeMinX(box[boxes+1]))*0.5)
			DeleteObject(hitobj)
			inc boxes, 1
		endif
	endif

   Print( ScreenFPS() )
   Print(str(boxes)+" boxes")
   Sync()
loop

// Project: bodychop 
// Created: 2018-08-11

// show all errors
SetErrorMode(2)

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

box as integer[99]
global camX as float
global camY as float
global camZ as float
global pointX as float
global pointY as float
global pointZ as float
global dist as integer
global omx as integer
global omy as integer


//create 2 objects to test cutting on
box[1] = CreateObjectSphere(10,10,10)
SetObjectColor(box[1],255,0,0,255)
MoveObjectLocalZ(box[1],18)
MoveObjectLocalX(box[1],10)
box[2] = CreateObjectCapsule(10,20,10)
SetObjectColor(box[2],0,255,0,255)
MoveObjectLocalX(box[2],-10)
MoveObjectLocalZ(box[2],18)

//SaveMemblockToFile(box[1])
//SaveMemblockToFile(box[2])

SetCameraLookAt(1,0,getobjecty(box[1]),0,0)
boxes = 1

nearest = -1
do
	Print("indexes = "+str(indexes))
   if GetRawKeyReleased(27) then end 
   //use the right mouse to rotate the objects
   if GetRawMouseRightPressed()
		robj = GetObjectToRotate()
	endif
	RotateAnObject(robj)


	//use the left mouse to click a point to cut away
   if GetPointerReleased()
		//determine where was clicked on the object
		px = GetPointerX()
		py = GetPointerY()
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		camax# = GetCameraAngleX(1)
		camay# = GetCameraAngleY(1)
		camaz# = GetCameraAngleZ(1)
		pointX = Get3DVectorXFromScreen(px, py)
		pointY = Get3DVectorYFromScreen(px, py)
		pointZ = Get3DVectorZFromScreen(px, py)
		//move the camera backwards a bit to ensure front most vertex is selected rather than rear
		SetCameraLookAt(1,pointX,pointY,pointZ,0)
		SetCameraPosition(1,pointX,pointY,pointZ)
		MoveCameraLocalZ(1,-0.09)
		pointX = GetCameraX(1)
		pointY = GetCameraY(1)
		pointZ = GetCameraZ(1)
		//reposition the camera in it's original position
		SetCameraPosition(1,camX,camY,camZ)
		SetCameraRotation(1,camax#,camay#,camaz#)
		dist = 1024
		hitobj = ObjectRayCast(0, camX, camY, camZ, camX+(pointX*dist), camY+(pointY*dist), camZ+(pointZ*dist))
		if hitobj > 0
			//create our memblock from the object
			boxmem = CreateMemblockFromObjectMesh(hitobj,1)
			indexes = 0
			for a = 0 to 3
				inc indexes, GetMemblockByte(boxmem,a)
			next a 
			indexes = indexes-1
			nearest = -1
			tdist# = 10
			//get the point of impact
			hx# = GetObjectRayCastNormalX(0)
			hy# = GetObjectRayCastNormalY(0)
			hz# = GetObjectRayCastNormalZ(0)
			//loop through the memblock and find the closest vertex to the point clicked
			for a = 0 to indexes
				mx# = GetMeshMemblockVertexX(boxmem,a)
				my# = GetMeshMemblockVertexY(boxmem,a)
				mz# = GetMeshMemblockVertexZ(boxmem,a)
                                //ignore any previously moved vertex
				if mx# <> 0 or my# <> 0 or mz# <> 0 
					nx# = hx#-mx#
					ny# = hy#-my#
					nz# = hz#-mz#
					mdist# = Sqrt((nx#^2)+(ny#^2)+(nz#^2))
					temp = 0
					//used to display the distance in real time
					debug = 0
					if debug = 1 
						repeat 
							if GetRawKeyReleased(27) then end 
							inc temp, 1
							Print("nearest so far = "+str(nearest))
							Print("distance = "+str(tdist#))							
							Print(a)
							Print(mdist#)
							sync()
						until temp > 2
					endif
					//update the nearest vertex if it is closer than the previous closest
					if mdist# <= tdist#
						tdist# = mdist#
						oldnx# = mx#
						oldny# = my#
						oldnz# = mz#
						nearest = a
					endif
				endif
			next a 
			//once all vertex are checked we now have the closest one
			if nearest >= 0 
				mx# = GetMeshMemblockVertexX(boxmem,nearest)
				my# = GetMeshMemblockVertexY(boxmem,nearest)
				mz# = GetMeshMemblockVertexZ(boxmem,nearest)
				repeat 
					if GetRawKeyReleased(27) then end 
					Print("mouse vs vertex pos")
					Print("clicked x = "+str(hx#))
					Print("vertex x = "+str(mx#))
					Print("")
					Print("clicked y = "+str(hy#))
					Print("vertex y = "+str(my#))
					Print("")
					Print("clicked z = "+str(hz#))
					Print("vertex z = "+str(mz#))
					sync()
				until GetPointerReleased()
				//move it to the center of the object (essentially same as hiding it)
				SetMeshMemblockVertexPosition(boxmem,nearest,0,0,0) 		
				//update the object with the new memblock data
				SetObjectMeshFromMemblock(hitobj,1,boxmem)
			endif
		endif
	endif
			
    
   Print( str(ScreenFPS(),0)+"FPS" )
   Print("nearest = "+str(nearest))
	Print("distance = "+str(tdist#))					
   Sync()
loop

function RotateAnObject(robj)
	if GetRawMouseRightState() and robj > 0
		mx = GetPointerX()
		my = GetPointerY()
		if mx > omx
			RotateObjectGlobalY(robj,-5)
		elseif mx < omx 
			RotateObjectGlobalY(robj,5)
		endif
		if my > omy
			RotateObjectGlobalX(robj,-5)
		elseif my < omy 
			RotateObjectGlobalX(robj,5)
		endif
		omx = GetPointerX()
		omy = GetPointerY()
	endif
endfunction

function GetObjectToRotate()
	robj = 0
	omx = GetPointerX()
	omy = GetPointerY()
	camX = GetCameraX(1)
	camY = GetCameraY(1)
	camZ = GetCameraZ(1)
	pointX = Get3DVectorXFromScreen(omx, omy)
	pointY = Get3DVectorYFromScreen(omx, omy)
	pointZ = Get3DVectorZFromScreen(omx, omy)
	dist = 1024
	hitobj = ObjectRayCast(0, camX, camY, camZ, camX+(pointX*dist), camY+(pointY*dist), camZ+(pointZ*dist))
	if hitobj > 0
		robj = hitobj
	endif
endfunction(robj)

function SaveMemblockToFile(id)
	SetRawWritePath(GetReadPath())
	boxmem = CreateMemblockFromObjectMesh(id,1)
	CreateFileFromMemblock("mem"+str(id)+".txt",boxmem)
	file = OpenToRead("mem"+str(id)+".txt")
	file2 = OpenToWrite("mem"+str(id)+"_eng.txt")
	repeat 
		WriteLine(file2,Str(ReadByte(file)))
	until FileEOF(file)
endfunction

// Project: bodychop 
// Created: 2018-08-11

// show all errors
SetErrorMode(2)

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

box as integer[99]
global camX as float
global camY as float
global camZ as float
global pointX as float
global pointY as float
global pointZ as float
global dist as integer
global omx as integer
global omy as integer


//create 2 objects to test cutting on
box[1] = CreateObjectSphere(100,10,10)
SetObjectColor(box[1],255,0,0,255)
MoveObjectLocalZ(box[1],180)
MoveObjectLocalX(box[1],150)
box[2] = CreateObjectCapsule(100,200,100)
SetObjectColor(box[2],0,255,0,255)
MoveObjectLocalX(box[2],-150)
MoveObjectLocalZ(box[2],180)
box[3] = CreateObjectBox(100,100,100)
SetObjectColor(box[3],0,0,255,255)
MoveObjectLocalZ(box[3],180)

//SaveMemblockToFile(box[1])
//SaveMemblockToFile(box[2])

SetCameraLookAt(1,0,10,0,0)
MoveCameraLocalZ(1,-150)
boxes = 1

nearest = -1
white = MakeColor(255,255,255)
grey = MakeColor(128,128,128)
do
	Print("indexes = "+str(indexes))
   if GetRawKeyReleased(27) then end 
   //use the right mouse to rotate the objects
   if GetRawMouseRightPressed()
		robj = 0
		omx = GetPointerX()
		omy = GetPointerY()
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(omx, omy)
		pointY = Get3DVectorYFromScreen(omx, omy)
		pointZ = Get3DVectorZFromScreen(omx, omy)
		dist = 5024
		pointX = camX+(pointX*dist)
		pointY = camY+(pointY*dist)
		pointZ = camZ+(pointZ*dist)	
		hitobj = ObjectRayCast(0, camX, camY, camZ, pointX, pointY, pointZ)
		if hitobj > 0
			robj = hitobj
		endif
	endif
	RotateAnObject(robj)


	//use the left mouse to click a point to cut away
   if GetPointerReleased()
		//determine where was clicked on the object
		px = GetPointerX()
		py = GetPointerY()
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(px, py)
		pointY = Get3DVectorYFromScreen(px, py)
		pointZ = Get3DVectorZFromScreen(px, py)
		dist = 5024
		pointX = camX+(pointX*dist)
		pointY = camY+(pointY*dist)
		pointZ = camZ+(pointZ*dist)
		newpx = GetScreenXFrom3D(pointX,pointY,pointZ)
		newpy = GetScreenYFrom3D(pointX,pointY,pointZ)		
		hitobj = ObjectRayCast(0, camX, camY, camZ, pointX, pointY, pointZ)
		if hitobj > 0
			//create our memblock from the object
			if boxmem > 0 then DeleteMemblock(boxmem)
			boxmem = CreateMemblockFromObjectMesh(hitobj,1)
			indexes = 0
			for a = 0 to 3
				inc indexes, GetMemblockByte(boxmem,a)
			next a 
			indexes = indexes-1
			nearest = -1
			tdist# = 400
			rayindex = 0 //GetObjectRayCastNumHits()
			//get the point of impact
			hx# = GetObjectRayCastX(rayindex)
			hy# = GetObjectRayCastY(rayindex)
			hz# = GetObjectRayCastZ(rayindex)
			dummy = CreateObjectBox(10,10,10)
			SetObjectPosition(dummy,hx#,hy#,hz#)
			SetObjectLookAt(dummy,camX,camY,camZ,0)
			MoveObjectLocalZ(dummy,5)
			hx# = getobjectX(dummy)
			hy# = getobjectY(dummy)
			hz# = getobjectZ(dummy)
			//loop through the memblock and find the closest vertex to the point clicked
			for a = indexes to 0 step -1
				onlyvx = GetMeshMemblockVertexX(boxmem,a)
				onlyvy = GetMeshMemblockVertexY(boxmem,a)
				onlyvz = GetMeshMemblockVertexZ(boxmem,a)
				mx# = getobjectx(hitobj)+onlyvx
				my# = getobjecty(hitobj)+onlyvy
				mz# = getobjectz(hitobj)+onlyvz
				//ignore any previously moved vertex
				if onlyvx <> 0 or onlyvy <> 0 or onlyvz <> 0 
					mdist# = GetPointDistanceToPoint(mx#,my#,mz#,hx#,hy#,hz#)
					temp = 0
					//used to display the distance in real time
					debug = 0
					if debug = 1 
						repeat 
							if GetRawKeyReleased(27) then end 
							inc temp, 1
							Print("nearest so far = "+str(nearest))
							Print("distance = "+str(tdist#))							
							Print(a)
							Print(mdist#)
							sync()
						until temp > 2
					endif
					//update the nearest vertex if it is closer than the previous closest
					if mdist# <= tdist#
						if nearest >= 0 
							//try to find only those points that are closer to camera
							if GetPointDistanceToPoint(mx#,my#,mz#,camX,camY,camZ) <= GetPointDistanceToPoint(oldnx#,oldny#,oldnz#,camX,camY,camZ)
								tdist# = mdist#
								oldnx# = mx#
								oldny# = my#
								oldnz# = mz#
								nearest = a
							endif
						else 
							tdist# = mdist#
							oldnx# = mx#
							oldny# = my#
							oldnz# = mz#
							nearest = a
						endif
					endif
				endif
			next a 
			//once all vertex are checked we now have the closest one
			if nearest >= 0 
				mx# = GetMeshMemblockVertexX(boxmem,nearest)
				my# = GetMeshMemblockVertexY(boxmem,nearest)
				mz# = GetMeshMemblockVertexZ(boxmem,nearest)
				mx2 = getobjectx(hitobj)+mx#
				my2 = getobjecty(hitobj)+my#
				mz2 = getobjectz(hitobj)+mz#
				ovx = GetScreenXFrom3D(mx2,my2,mz2)
				ovy = GetScreenYFrom3D(mx2,my2,mz2)
				sphere = CreateObjectSphere(4,4,4)
				SetObjectPosition(sphere,hx#,hy#,hz#)
				sphere2 = CreateObjectSphere(8,4,4)
				SetObjectColor(sphere2,128,0,128,255)
				SetObjectPosition(sphere2,oldnx#,oldny#,oldnz#)
				repeat 
					Print(newpx)
					Print(newpy)
					Print(ovx)
					Print(ovy)
					//DrawBox(ovx-20,ovy-20,ovx+20,ovy+20,white,white,white,white,1)
					//DrawBox(newpx-5,newpy-5,newpx+5,newpy+5,grey,grey,grey,grey,1)
					if GetRawKeyReleased(27) then end 
					Print("vertex id = "+str(nearest))
					Print("mouse vs vertex pos")
					Print("clicked x = "+str(hx#))
					Print("vertex x = "+str(mx#))
					Print("")
					Print("clicked y = "+str(hy#))
					Print("vertex y = "+str(my#))
					Print("")
					Print("clicked z = "+str(hz#))
					Print("vertex z = "+str(mz#))
					sync()
				until GetPointerReleased()
				DeleteObject(sphere)
				DeleteObject(sphere2)
				DeleteObject(dummy)
				//move it to the center of the object (essentially same as hiding it)
				SetMeshMemblockVertexPosition(boxmem,nearest,0,0,0) 		
				//update the object with the new memblock data
				SetObjectMeshFromMemblock(hitobj,1,boxmem)
				DeleteMemblock(boxmem)
			endif
		endif
	endif
			
    
   Print( str(ScreenFPS(),0)+"FPS" )
   Print("nearest = "+str(nearest))
	Print("distance = "+str(tdist#))					
   Sync()
loop

function RotateAnObject(robj)
	if GetRawMouseRightState() and robj > 0
		mx = GetPointerX()
		my = GetPointerY()
		if mx > omx
			RotateObjectGlobalY(robj,-5)
		elseif mx < omx 
			RotateObjectGlobalY(robj,5)
		endif
		if my > omy
			RotateObjectGlobalX(robj,-5)
		elseif my < omy 
			RotateObjectGlobalX(robj,5)
		endif
		omx = GetPointerX()
		omy = GetPointerY()
	endif
endfunction


function SaveMemblockToFile(id)
	SetRawWritePath(GetReadPath())
	boxmem = CreateMemblockFromObjectMesh(id,1)
	CreateFileFromMemblock("mem"+str(id)+".txt",boxmem)
	file = OpenToRead("mem"+str(id)+".txt")
	file2 = OpenToWrite("mem"+str(id)+"_eng.txt")
	repeat 
		WriteLine(file2,Str(ReadByte(file)))
	until FileEOF(file)
endfunction

function GetDistanceToPoint(e,x,y,z)
	disx = GetObjectX(e) - x
	disy = GetObjectY(e) - y
	disz = GetObjectZ(e) - z
	dist# = sqrt(disx^2 + disy^2 + disz^2)
endfunction(dist#)

function GetPointDistanceToPoint(x1,y1,z1,x2,y2,z2)
	disx = x2-x1
	disy = y2-y1
	disz = z2-z1
	dist# = sqrt((disx^2) + (disy^2) + (disz^2))
endfunction(dist#)

// Project: bodychop 
// Created: 2018-08-11

// show all errors
SetErrorMode(2)

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

box as integer[99]
global camX as float
global camY as float
global camZ as float
global pointX as float
global pointY as float
global pointZ as float
global dist as integer
global omx as integer
global omy as integer

//create 2 objects to test cutting on
box[1] = CreateObjectSphere(100,10,10)
SetObjectColor(box[1],255,0,0,255)
MoveObjectLocalZ(box[1],180)
MoveObjectLocalX(box[1],150)
box[2] = CreateObjectCapsule(100,200,100)
SetObjectColor(box[2],0,255,0,255)
MoveObjectLocalX(box[2],-150)
MoveObjectLocalZ(box[2],180)
box[3] = CreateObjectBox(100,100,100)
SetObjectColor(box[3],0,0,255,255)
MoveObjectLocalZ(box[3],180)

//SaveMemblockToFile(box[1])
//SaveMemblockToFile(box[2])

SetCameraLookAt(1,0,10,0,0)
MoveCameraLocalZ(1,-150)
boxes = 1

nearest = -1
white = MakeColor(255,255,255)
grey = MakeColor(128,128,128)
do
	Print("indexes = "+str(indexes))
   if GetRawKeyReleased(27) then end 
   //use the right mouse to rotate the objects
   if GetRawMouseRightPressed()
		robj = 0
		omx = GetPointerX()
		omy = GetPointerY()
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(omx, omy)
		pointY = Get3DVectorYFromScreen(omx, omy)
		pointZ = Get3DVectorZFromScreen(omx, omy)
		dist = 5024
		pointX = camX+(pointX*dist)
		pointY = camY+(pointY*dist)
		pointZ = camZ+(pointZ*dist)	
		robj = ObjectRayCast(0, camX, camY, camZ, pointX, pointY, pointZ)
	endif
	RotateAnObject(robj)


	//use the left mouse to click a point to cut away
   if GetPointerReleased()
		//determine where was clicked on the object
		px = GetPointerX()
		py = GetPointerY()
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(px, py)
		pointY = Get3DVectorYFromScreen(px, py)
		pointZ = Get3DVectorZFromScreen(px, py)
		dist = 5024
		pointX = camX+(pointX*dist)
		pointY = camY+(pointY*dist)
		pointZ = camZ+(pointZ*dist)
		newpx = GetScreenXFrom3D(pointX,pointY,pointZ)
		newpy = GetScreenYFrom3D(pointX,pointY,pointZ)		
		hitobj = ObjectRayCast(0, camX, camY, camZ, pointX, pointY, pointZ-10)
		if hitobj > 0
			//create our memblock from the object
			oldobjx = getobjectx(hitobj)
			oldobjy = getobjecty(hitobj)
			oldobjz = getobjectz(hitobj)
			SetObjectPosition(hitobj,0,0,0)
			FixObjectPivot(hitobj)
			SetObjectPosition(hitobj,oldobjx,oldobjy,oldobjz)
			boxmem = CreateMemblockFromObjectMesh(hitobj,1)
			indexes = GetMemblockInt(boxmem,0)
			indexes = indexes-1
			nearest = -1
			tdist# = 400
			rayindex = 0 //GetObjectRayCastNumHits()
			//get the point of impact
			hx# = GetObjectRayCastX(rayindex)
			hy# = GetObjectRayCastY(rayindex)
			hz# = GetObjectRayCastZ(rayindex)
			dummy = CreateObjectBox(2,2,2)
			SetObjectPosition(dummy,hx#,hy#,hz#)
			//SetObjectLookAt(dummy,camX,camY,camZ,0)
			SetObjectLookAt(dummy,oldobjx,oldobjy,oldobjz,0)
			MoveObjectLocalZ(dummy,-0.005)
			hx# = getobjectX(dummy)
			hy# = getobjectY(dummy)
			hz# = getobjectZ(dummy)
			DeleteObject(dummy)
			//loop through the memblock and find the closest vertex to the point clicked
			for a = indexes to 0 step -1
				onlyvx = GetMeshMemblockVertexX(boxmem,a)
				onlyvy = GetMeshMemblockVertexY(boxmem,a)
				onlyvz = GetMeshMemblockVertexZ(boxmem,a)
				mx# = getobjectx(hitobj)+onlyvx
				my# = getobjecty(hitobj)+onlyvy
				mz# = getobjectz(hitobj)+onlyvz
				//ignore any previously moved vertex
				if onlyvx <> 0 or onlyvy <> 0 or onlyvz <> 0 
					mdist# = GetPointDistanceToPoint(mx#,my#,mz#,hx#,hy#,hz#)
					temp = 0
					//used to display the distance in real time
					debug = 0
					if debug = 1 
						repeat 
							if GetRawKeyReleased(27) then end 
							inc temp, 1
							Print("nearest so far = "+str(nearest))
							Print("distance = "+str(tdist#))							
							Print(a)
							Print(mdist#)
							sync()
						until temp > 2
					endif
					//update the nearest vertex if it is closer than the previous closest
					if mdist# <= tdist#
						if nearest >= 0 
							//try to find only those points that are closer to camera
							if GetPointDistanceToPoint(mx#,my#,mz#,camX,camY,camZ) <= GetPointDistanceToPoint(oldnx#,oldny#,oldnz#,camX,camY,camZ)
								tdist# = mdist#
								oldnx# = mx#
								oldny# = my#
								oldnz# = mz#
								nearest = a
							endif
						else 
							tdist# = mdist#
							oldnx# = mx#
							oldny# = my#
							oldnz# = mz#
							nearest = a
						endif
					endif
				endif
			next a 
			if nearest >= 0 
				for a = indexes to 0 step -1
					onlyvx = GetMeshMemblockVertexX(boxmem,a)
					onlyvy = GetMeshMemblockVertexY(boxmem,a)
					onlyvz = GetMeshMemblockVertexZ(boxmem,a)
					mx# = getobjectx(hitobj)+onlyvx
					my# = getobjecty(hitobj)+onlyvy
					mz# = getobjectz(hitobj)+onlyvz
					if mx# = oldnx# and my# = oldny# and mz# = oldnz#
						SetMeshMemblockVertexPosition(boxmem,a,0,0,0)
					endif
				next a 
				SetObjectMeshFromMemblock(hitobj,1,boxmem)
				DeleteMemblock(boxmem)
			endif
		endif
	endif
    
   Print( str(ScreenFPS(),0)+"FPS" )
   Print("nearest = "+str(nearest))
	Print("distance = "+str(tdist#))					
   Sync()
loop

function RotateAnObject(robj)
	if GetRawMouseRightState() and robj > 0
		mx = GetPointerX()
		my = GetPointerY()
		if mx > omx
			RotateObjectGlobalY(robj,-5)
		elseif mx < omx 
			RotateObjectGlobalY(robj,5)
		endif
		if my > omy
			RotateObjectGlobalX(robj,-5)
		elseif my < omy 
			RotateObjectGlobalX(robj,5)
		endif
		omx = GetPointerX()
		omy = GetPointerY()
	endif
endfunction


function SaveMemblockToFile(id)
	SetRawWritePath(GetReadPath())
	boxmem = CreateMemblockFromObjectMesh(id,1)
	CreateFileFromMemblock("mem"+str(id)+".txt",boxmem)
	file = OpenToRead("mem"+str(id)+".txt")
	file2 = OpenToWrite("mem"+str(id)+"_eng.txt")
	repeat 
		WriteLine(file2,Str(ReadByte(file)))
	until FileEOF(file)
endfunction

function GetDistanceToPoint(e,x,y,z)
	disx = GetObjectX(e) - x
	disy = GetObjectY(e) - y
	disz = GetObjectZ(e) - z
	dist# = sqrt(disx^2 + disy^2 + disz^2)
endfunction(dist#)

function GetPointDistanceToPoint(x1,y1,z1,x2,y2,z2)
	disx = x2-x1
	disy = y2-y1
	disz = z2-z1
	dist# = sqrt((disx^2) + (disy^2) + (disz^2))
endfunction(dist#)

// Project: bodychop 
// Created: 2018-08-11

// show all errors
SetErrorMode(2)

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

box as integer[99]
newobj as integer[99]

x_swipe as integer[2]
y_swipe as integer[2]
xpoint_of_impact as float[5]
ypoint_of_impact as float[5]
zpoint_of_impact as float[5]
global camX as float
global camY as float
global camZ as float
global pointX as float
global pointY as float
global pointZ as float
global dist as integer
global omx as integer
global omy as integer
cut_direction as string 


SetCameraLookAt(1,0,10,0,0)
MoveCameraLocalZ(1,-150)
MoveCameraLocalY(1,150)
RotateCameraLocalX(1,25)

white = MakeColor(255,255,255)
grey = MakeColor(128,128,128)

_restart:
//create 2 objects to test cutting on
box[1] = CreateObjectSphere(100,10,10)
SetObjectColor(box[1],255,0,0,255)
MoveObjectLocalZ(box[1],180)
MoveObjectLocalX(box[1],190)
box[2] = CreateObjectCapsule(100,200,100)
SetObjectColor(box[2],0,255,0,255)
MoveObjectLocalX(box[2],-190)
MoveObjectLocalZ(box[2],180)
box[3] = CreateObjectBox(100,100,100)
SetObjectColor(box[3],0,0,255,255)
MoveObjectLocalZ(box[3],180)

//SaveMemblockToFile(box[1])
//SaveMemblockToFile(box[2])

boxes = 1

objs = 0

blade = CreateObjectBox(10,10,300)
SetObjectCollisionMode(blade,0)
MoveObjectLocalZ(blade,200)
MoveObjectLocalY(blade,80)
nearest = -1


//press space bar to reset the scene objects
//click and hold the knife to move it to slice the cube
//note only the cube currently slices correctly

do
   if GetRawKeyReleased(27) then end 
   if GetRawKeyReleased(32)
		DeleteAllObjects()
		sync()
		goto _restart
	endif
   Print(getobjecty(blade))
   //use the right mouse to rotate the objects
   if GetRawMouseRightPressed()
		robj = 0
		omx = GetPointerX()
		omy = GetPointerY()
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(omx, omy)
		pointY = Get3DVectorYFromScreen(omx, omy)
		pointZ = Get3DVectorZFromScreen(omx, omy)
		dist = 5024
		pointX = camX+(pointX*dist)
		pointY = camY+(pointY*dist)
		pointZ = camZ+(pointZ*dist)	
		SetObjectCollisionMode(blade,1)
		robj = ObjectRayCast(0, camX, camY, camZ, pointX, pointY, pointZ)
		SetObjectCollisionMode(blade,0)
	endif
	RotateAnObject(robj)

	//use the left mouse to click the blade to move it to cut away at objects
   if GetPointerPressed() //clicking the blade 
		//determine where was clicked on the object
		px = GetPointerX()
		py = GetPointerY()
		oldpx = px
		oldpy = py
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(px, py)
		pointY = Get3DVectorYFromScreen(px, py)
		pointZ = Get3DVectorZFromScreen(px, py)
		dist = 5024
		pointX = camX+(pointX*dist)
		pointY = camY+(pointY*dist)
		pointZ = camZ+(pointZ*dist)
		newpx = GetScreenXFrom3D(pointX,pointY,pointZ)
		newpy = GetScreenYFrom3D(pointX,pointY,pointZ)		
		SetObjectCollisionMode(blade,1)
		hitobj = ObjectRayCast(0, camX, camY, camZ, pointX, pointY, pointZ-10)
		SetObjectCollisionMode(blade,0)
		if hitobj > 0
			if hitobj = blade
				selected_blade = 1
			endif
		endif
	elseif GetPointerState()
		if selected_blade = 1 
			px = GetPointerX()
			py = GetPointerY()
			if px <> oldpx
				nbx = px-oldpx
			else
				nbx = 0
			endif
			if py <> oldpy
				nby = oldpy-py
			else 
				nby = 0
			endif
			oldpx = px
			oldpy = py
			MoveObjectLocalX(blade,nbx)
			MoveObjectLocalY(blade,nby)
			nbx = GetObjectX(blade)
			nby = GetObjectY(blade)
			nbz = GetObjectZ(blade)-((GetObjectSizeMaxZ(blade)-GetObjectSizeMinZ(blade))/2)
			nbz2 = nbz+((GetObjectSizeMaxZ(blade)-GetObjectSizeMinZ(blade))/2)
			hitobj = ObjectRayCast(0,nbx,nby,nbz,nbx,nby,nbz2)
			if hitobj > 0 
				Print("hitting object :"+str(hitobj))
				rayindex = 0
				hx# = GetObjectRayCastX(rayindex)
				hy# = GetObjectRayCastY(rayindex)
				hz# = GetObjectRayCastZ(rayindex)
				if impacted_obj = 0
					xpoint_of_impact[1] = hx#
					ypoint_of_impact[1] = hy#
					zpoint_of_impact[1] = hz#
					x_swipe[1] = px
					y_swipe[1] = py
					impacted_obj = hitobj
				else 
					xpoint_of_impact[5] = hx#
					ypoint_of_impact[5] = hy#
					zpoint_of_impact[5] = hz#
					x_swipe[2] = px
					y_swipe[2] = py
				endif
			else 
				if impacted_obj > 0
					//do final cut now
					oldobjx = getobjectx(impacted_obj)
					oldobjy = getobjecty(impacted_obj)
					oldobjz = getobjectz(impacted_obj)
					SetObjectPosition(impacted_obj,0,0,0)
					FixObjectPivot(impacted_obj)
					SetObjectPosition(impacted_obj,oldobjx,oldobjy,oldobjz)
					boxmem = CreateMemblockFromObjectMesh(impacted_obj,1)
					indexes = GetMemblockInt(boxmem,0)
					indexes = indexes-1
					nearest = -1
					tdist# = 400
					if abs(x_swipe[2] - x_swipe[1]) < abs(y_swipe[2]-y_swipe[1])
						cut_direction = "vertical"
					else 
						cut_direction = "horizontal"
					endif
					dummy = CreateObjectBox(1,1,1)
					SetObjectPosition(dummy,xpoint_of_impact[1],ypoint_of_impact[1],zpoint_of_impact[1])
					SetObjectLookAt(dummy,xpoint_of_impact[5],ypoint_of_impact[5],zpoint_of_impact[5],0)
					for a = 1 to 3
						MoveObjectLocalZ(dummy,GetDistanceToPoint(dummy,xpoint_of_impact[5],ypoint_of_impact[5],zpoint_of_impact[5])*0.25)
						xpoint_of_impact[a+1] = getobjectx(dummy)
						ypoint_of_impact[a+1] = getobjecty(dummy)
						zpoint_of_impact[a+1] = getobjectz(dummy)
					next a 
					DeleteObject(dummy)
					if cut_direction = "vertical"
						//create sliced object 1 (left side of object)
						for a = indexes to 0 step -1 
							onlyvx = GetMeshMemblockVertexX(boxmem,a)
							onlyvy = GetMeshMemblockVertexY(boxmem,a)
							onlyvz = GetMeshMemblockVertexZ(boxmem,a)
							mx# = getobjectx(impacted_obj)+onlyvx
							my# = getobjecty(impacted_obj)+onlyvy
							mz# = getobjectz(impacted_obj)+onlyvz
							neardist# = 400
							nearest_point = -1
							for b = 1 to 5 
								if mx# >= xpoint_of_impact[b]
									newdist# = GetPointDistanceToPoint(mx#,my#,mz#,xpoint_of_impact[b],ypoint_of_impact[b],zpoint_of_impact[b])
									if newdist# < neardist#
										nearest_point = b
										neardist# = newdist#
									endif
								endif
							next b 
							if nearest_point > -1
								SetMeshMemblockVertexPosition(boxmem,a,xpoint_of_impact[nearest_point],ypoint_of_impact[nearest_point],onlyvz)							
							endif
						next a 
						inc objs, 1
						newobj[objs] = CreateObjectFromMeshMemblock(boxmem)
						SetObjectPosition(newobj[objs],getobjectx(impacted_obj),getobjecty(impacted_obj),getobjectz(impacted_obj))
						MoveObjectLocalX(newobj[objs],((GetObjectSizeMaxX(newobj[objs])-GetObjectSizeMinX(newobj[objs]))*-0.25))
						SetObjectColor(newobj[objs],255,0,0,255)
						DeleteMemblock(boxmem)
						//create object 2 (right side of object)
						boxmem2 = CreateMemblockFromObjectMesh(impacted_obj,1)
						for a = indexes to 0 step -1 
							onlyvx = GetMeshMemblockVertexX(boxmem2,a)
							onlyvy = GetMeshMemblockVertexY(boxmem2,a)
							onlyvz = GetMeshMemblockVertexZ(boxmem2,a)
							mx# = getobjectx(impacted_obj)+onlyvx
							my# = getobjecty(impacted_obj)+onlyvy
							mz# = getobjectz(impacted_obj)+onlyvz
							neardist# = 400
							nearest_point = -1
							for b = 1 to 5 
								if mx# <= xpoint_of_impact[b]
									newdist# = GetPointDistanceToPoint(mx#,my#,mz#,xpoint_of_impact[b],ypoint_of_impact[b],zpoint_of_impact[b])
									if newdist# < neardist#								
										nearest_point = b
										neardist# = newdist#
									endif
								endif
							next b 
							if nearest_point > -1
								SetMeshMemblockVertexPosition(boxmem2,a,xpoint_of_impact[nearest_point],ypoint_of_impact[nearest_point],onlyvz)		
							endif
						next a 
						inc objs, 1
						newobj[objs] = CreateObjectFromMeshMemblock(boxmem2)
						SetObjectColor(newobj[objs],0,255,0,255)
						SetObjectPosition(newobj[objs],getobjectx(impacted_obj),getobjecty(impacted_obj),getobjectz(impacted_obj))
						MoveObjectLocalX(newobj[objs],((GetObjectSizeMaxX(newobj[objs])-GetObjectSizeMinX(newobj[objs]))*0.25))
						DeleteMemblock(boxmem2)
						DeleteObject(impacted_obj)
					elseif cut_direction = "horizontal"
						//create sliced object 1 (top of object)
						for a = indexes to 0 step -1 
							onlyvx = GetMeshMemblockVertexX(boxmem,a)
							onlyvy = GetMeshMemblockVertexY(boxmem,a)
							onlyvz = GetMeshMemblockVertexZ(boxmem,a)
							mx# = getobjectx(impacted_obj)+onlyvx
							my# = getobjecty(impacted_obj)+onlyvy
							mz# = getobjectz(impacted_obj)+onlyvz
							neardist# = 400
							nearest_point = -1
							for b = 1 to 5 
								if my# >= ypoint_of_impact[b]
									newdist# = GetPointDistanceToPoint(mx#,my#,mz#,xpoint_of_impact[b],ypoint_of_impact[b],zpoint_of_impact[b])
									if newdist# < neardist#
										nearest_point = b
										neardist# = newdist#
									endif
								endif
							next b 
							if nearest_point > -1
								SetMeshMemblockVertexPosition(boxmem,a,xpoint_of_impact[nearest_point],ypoint_of_impact[nearest_point],onlyvz)							
							endif
						next a 
						inc objs, 1
						newobj[objs] = CreateObjectFromMeshMemblock(boxmem)
						SetObjectPosition(newobj[objs],getobjectx(impacted_obj),getobjecty(impacted_obj),getobjectz(impacted_obj))
						MoveObjectLocalY(newobj[objs],((GetObjectSizeMaxY(newobj[objs])-GetObjectSizeMinY(newobj[objs]))*-0.25))
						SetObjectColor(newobj[objs],255,0,0,255)
						DeleteMemblock(boxmem)
						//create object 2 (bottom of object)
						boxmem2 = CreateMemblockFromObjectMesh(impacted_obj,1)
						for a = indexes to 0 step -1 
							onlyvx = GetMeshMemblockVertexX(boxmem2,a)
							onlyvy = GetMeshMemblockVertexY(boxmem2,a)
							onlyvz = GetMeshMemblockVertexZ(boxmem2,a)
							mx# = getobjectx(impacted_obj)+onlyvx
							my# = getobjecty(impacted_obj)+onlyvy
							mz# = getobjectz(impacted_obj)+onlyvz
							neardist# = 400
							nearest_point = -1
							for b = 1 to 5 
								if my# <= ypoint_of_impact[b]
									newdist# = GetPointDistanceToPoint(mx#,my#,mz#,xpoint_of_impact[b],ypoint_of_impact[b],zpoint_of_impact[b])
									if newdist# < neardist#								
										nearest_point = b
										neardist# = newdist#
									endif
								endif
							next b 
							if nearest_point > -1
								SetMeshMemblockVertexPosition(boxmem2,a,xpoint_of_impact[nearest_point],ypoint_of_impact[nearest_point],onlyvz)		
							endif
						next a 
						inc objs, 1
						newobj[objs] = CreateObjectFromMeshMemblock(boxmem2)
						SetObjectColor(newobj[objs],0,255,0,255)
						SetObjectPosition(newobj[objs],getobjectx(impacted_obj),getobjecty(impacted_obj),getobjectz(impacted_obj))
						MoveObjectLocalY(newobj[objs],((GetObjectSizeMaxY(newobj[objs])-GetObjectSizeMinY(newobj[objs]))*0.25))
						DeleteMemblock(boxmem2)
						DeleteObject(impacted_obj)
					endif
				endif
				impacted_obj = 0
			endif
				remstart
				rayindex = 0 //GetObjectRayCastNumHits()
				//get the point of impact
				hx# = GetObjectRayCastX(rayindex)
				hy# = GetObjectRayCastY(rayindex)
				hz# = GetObjectRayCastZ(rayindex)
				dummy = CreateObjectBox(2,2,2)
				SetObjectPosition(dummy,hx#,hy#,hz#)
				//SetObjectLookAt(dummy,camX,camY,camZ,0)
				SetObjectLookAt(dummy,nbx,nby,nbz,0)
				MoveObjectLocalZ(dummy,-0.005)
				hx# = getobjectX(dummy)
				hy# = getobjectY(dummy)
				hz# = getobjectZ(dummy)
				DeleteObject(dummy)
				//loop through the memblock and find the closest vertex to the point clicked
				for a = indexes to 0 step -1
					onlyvx = GetMeshMemblockVertexX(boxmem,a)
					onlyvy = GetMeshMemblockVertexY(boxmem,a)
					onlyvz = GetMeshMemblockVertexZ(boxmem,a)
					mx# = getobjectx(hitobj)+onlyvx
					my# = getobjecty(hitobj)+onlyvy
					mz# = getobjectz(hitobj)+onlyvz
					//ignore any previously moved vertex
					if onlyvx <> 0 or onlyvy <> 0 or onlyvz <> 0 
						mdist# = GetPointDistanceToPoint(mx#,my#,mz#,hx#,hy#,hz#)
						temp = 0
						//used to display the distance in real time
						debug = 0
						if debug = 1 
							repeat 
								if GetRawKeyReleased(27) then end 
								inc temp, 1
								Print("nearest so far = "+str(nearest))
								Print("distance = "+str(tdist#))							
								Print(a)
								Print(mdist#)
								sync()
							until temp > 2
						endif
						//update the nearest vertex if it is closer than the previous closest
						if mdist# <= tdist#
							if nearest >= 0 
								//try to find only those points that are closer to camera
								if GetPointDistanceToPoint(mx#,my#,mz#,camX,camY,camZ) <= GetPointDistanceToPoint(oldnx#,oldny#,oldnz#,camX,camY,camZ)
									tdist# = mdist#
									oldnx# = mx#
									oldny# = my#
									oldnz# = mz#
									nearest = a
								endif
							else 
								tdist# = mdist#
								oldnx# = mx#
								oldny# = my#
								oldnz# = mz#
								nearest = a
							endif
						endif
					endif
				next a 
				if nearest >= 0 
					for a = indexes to 0 step -1
						onlyvx = GetMeshMemblockVertexX(boxmem,a)
						onlyvy = GetMeshMemblockVertexY(boxmem,a)
						onlyvz = GetMeshMemblockVertexZ(boxmem,a)
						mx# = getobjectx(hitobj)+onlyvx
						my# = getobjecty(hitobj)+onlyvy
						mz# = getobjectz(hitobj)+onlyvz
						if mx# = oldnx# and my# = oldny# and mz# = oldnz#
							SetMeshMemblockVertexPosition(boxmem,a,0,0,0)
						endif
					next a 
					SetObjectMeshFromMemblock(hitobj,1,boxmem)
					DeleteMemblock(boxmem)
				endif
				remend 
		endif
	elseif GetPointerReleased()
		selected_blade = 0
	endif
    
   Print( str(ScreenFPS(),0)+"FPS" )			
   Sync()
loop

function RotateAnObject(robj)
	if GetRawMouseRightState() and robj > 0
		mx = GetPointerX()
		my = GetPointerY()
		if mx > omx
			RotateObjectGlobalY(robj,-5)
		elseif mx < omx 
			RotateObjectGlobalY(robj,5)
		endif
		if my > omy
			RotateObjectGlobalX(robj,-5)
		elseif my < omy 
			RotateObjectGlobalX(robj,5)
		endif
		omx = GetPointerX()
		omy = GetPointerY()
	endif
endfunction


function SaveMemblockToFile(id)
	SetRawWritePath(GetReadPath())
	boxmem = CreateMemblockFromObjectMesh(id,1)
	CreateFileFromMemblock("mem"+str(id)+".txt",boxmem)
	file = OpenToRead("mem"+str(id)+".txt")
	file2 = OpenToWrite("mem"+str(id)+"_eng.txt")
	repeat 
		WriteLine(file2,Str(ReadByte(file)))
	until FileEOF(file)
endfunction

function GetDistanceToPoint(e,x,y,z)
	disx = GetObjectX(e) - x
	disy = GetObjectY(e) - y
	disz = GetObjectZ(e) - z
	dist# = sqrt(disx^2 + disy^2 + disz^2)
endfunction(dist#)

function GetPointDistanceToPoint(x1,y1,z1,x2,y2,z2)
	disx = x2-x1
	disy = y2-y1
	disz = z2-z1
	dist# = sqrt((disx^2) + (disy^2) + (disz^2))
endfunction(dist#)


remstart
//create our memblock from the object
				oldobjx = getobjectx(hitobj)
				oldobjy = getobjecty(hitobj)
				oldobjz = getobjectz(hitobj)
				SetObjectPosition(hitobj,0,0,0)
				FixObjectPivot(hitobj)
				SetObjectPosition(hitobj,oldobjx,oldobjy,oldobjz)
				boxmem = CreateMemblockFromObjectMesh(hitobj,1)
				indexes = GetMemblockInt(boxmem,0)
				indexes = indexes-1
				nearest = -1
				tdist# = 400
				rayindex = 0 //GetObjectRayCastNumHits()
				//get the point of impact
				hx# = GetObjectRayCastX(rayindex)
				hy# = GetObjectRayCastY(rayindex)
				hz# = GetObjectRayCastZ(rayindex)
				dummy = CreateObjectBox(2,2,2)
				SetObjectPosition(dummy,hx#,hy#,hz#)
				//SetObjectLookAt(dummy,camX,camY,camZ,0)
				SetObjectLookAt(dummy,oldobjx,oldobjy,oldobjz,0)
				MoveObjectLocalZ(dummy,-0.005)
				hx# = getobjectX(dummy)
				hy# = getobjectY(dummy)
				hz# = getobjectZ(dummy)
				DeleteObject(dummy)
				//loop through the memblock and find the closest vertex to the point clicked
				for a = indexes to 0 step -1
					onlyvx = GetMeshMemblockVertexX(boxmem,a)
					onlyvy = GetMeshMemblockVertexY(boxmem,a)
					onlyvz = GetMeshMemblockVertexZ(boxmem,a)
					mx# = getobjectx(hitobj)+onlyvx
					my# = getobjecty(hitobj)+onlyvy
					mz# = getobjectz(hitobj)+onlyvz
					//ignore any previously moved vertex
					if onlyvx <> 0 or onlyvy <> 0 or onlyvz <> 0 
						mdist# = GetPointDistanceToPoint(mx#,my#,mz#,hx#,hy#,hz#)
						temp = 0
						//used to display the distance in real time
						debug = 0
						if debug = 1 
							repeat 
								if GetRawKeyReleased(27) then end 
								inc temp, 1
								Print("nearest so far = "+str(nearest))
								Print("distance = "+str(tdist#))							
								Print(a)
								Print(mdist#)
								sync()
							until temp > 2
						endif
						//update the nearest vertex if it is closer than the previous closest
						if mdist# <= tdist#
							if nearest >= 0 
								//try to find only those points that are closer to camera
								if GetPointDistanceToPoint(mx#,my#,mz#,camX,camY,camZ) <= GetPointDistanceToPoint(oldnx#,oldny#,oldnz#,camX,camY,camZ)
									tdist# = mdist#
									oldnx# = mx#
									oldny# = my#
									oldnz# = mz#
									nearest = a
								endif
							else 
								tdist# = mdist#
								oldnx# = mx#
								oldny# = my#
								oldnz# = mz#
								nearest = a
							endif
						endif
					endif
				next a 
				if nearest >= 0 
					for a = indexes to 0 step -1
						onlyvx = GetMeshMemblockVertexX(boxmem,a)
						onlyvy = GetMeshMemblockVertexY(boxmem,a)
						onlyvz = GetMeshMemblockVertexZ(boxmem,a)
						mx# = getobjectx(hitobj)+onlyvx
						my# = getobjecty(hitobj)+onlyvy
						mz# = getobjectz(hitobj)+onlyvz
						if mx# = oldnx# and my# = oldny# and mz# = oldnz#
							SetMeshMemblockVertexPosition(boxmem,a,0,0,0)
						endif
					next a 
					SetObjectMeshFromMemblock(hitobj,1,boxmem)
					DeleteMemblock(boxmem)
				endif
			remend 

// Project: bodychop 
// Created: 2018-08-11

// show all errors
SetErrorMode(2)

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

box as integer[99]
newobj as integer[99]

x_swipe as integer[2]
y_swipe as integer[2]
xpoint_of_impact as float[5]
ypoint_of_impact as float[5]
zpoint_of_impact as float[5]
global camX as float
global camY as float
global camZ as float
global pointX as float
global pointY as float
global pointZ as float
global dist as integer
global omx as integer
global omy as integer
cut_direction as string 


SetCameraLookAt(1,0,10,0,0)
MoveCameraLocalZ(1,-150)
MoveCameraLocalY(1,150)
RotateCameraLocalX(1,25)

white = MakeColor(255,255,255)
grey = MakeColor(128,128,128)

_restart:
//create 2 objects to test cutting on
box[1] = CreateObjectSphere(100,10,10)
SetObjectColor(box[1],255,0,0,255)
MoveObjectLocalZ(box[1],180)
box[2] = CreateObjectCapsule(100,200,100)
SetObjectColor(box[2],0,255,0,255)
MoveObjectLocalX(box[2],-190)
MoveObjectLocalZ(box[2],180)
box[3] = CreateObjectBox(100,100,100)
SetObjectColor(box[3],0,0,255,255)
MoveObjectLocalZ(box[3],180)
MoveObjectLocalX(box[3],190)

//SaveMemblockToFile(box[1])
//SaveMemblockToFile(box[2])

boxes = 1

objs = 0

blade = CreateObjectBox(10,10,300)
SetObjectCollisionMode(blade,0)
MoveObjectLocalZ(blade,200)
MoveObjectLocalY(blade,80)
nearest = -1


//press space bar to reset the scene objects
//click and hold the knife to move it to slice the objects

do
   if GetRawKeyReleased(27) then end 
   if GetRawKeyReleased(32)
		DeleteAllObjects()
		sync()
		goto _restart
	endif
   Print(getobjecty(blade))
   //use the right mouse to rotate the objects
   if GetRawMouseRightPressed()
		robj = 0
		omx = GetPointerX()
		omy = GetPointerY()
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(omx, omy)
		pointY = Get3DVectorYFromScreen(omx, omy)
		pointZ = Get3DVectorZFromScreen(omx, omy)
		dist = 5024
		pointX = camX+(pointX*dist)
		pointY = camY+(pointY*dist)
		pointZ = camZ+(pointZ*dist)	
		SetObjectCollisionMode(blade,1)
		robj = ObjectRayCast(0, camX, camY, camZ, pointX, pointY, pointZ)
		SetObjectCollisionMode(blade,0)
	endif
	RotateAnObject(robj)

	//use the left mouse to click the blade to move it to cut away at objects
   if GetPointerPressed() //clicking the blade 
		//determine where was clicked on the object
		px = GetPointerX()
		py = GetPointerY()
		oldpx = px
		oldpy = py
		camX = GetCameraX(1)
		camY = GetCameraY(1)
		camZ = GetCameraZ(1)
		pointX = Get3DVectorXFromScreen(px, py)
		pointY = Get3DVectorYFromScreen(px, py)
		pointZ = Get3DVectorZFromScreen(px, py)
		dist = 5024
		pointX = camX+(pointX*dist)
		pointY = camY+(pointY*dist)
		pointZ = camZ+(pointZ*dist)
		newpx = GetScreenXFrom3D(pointX,pointY,pointZ)
		newpy = GetScreenYFrom3D(pointX,pointY,pointZ)		
		SetObjectCollisionMode(blade,1)
		hitobj = ObjectRayCast(0, camX, camY, camZ, pointX, pointY, pointZ-10)
		SetObjectCollisionMode(blade,0)
		if hitobj > 0
			if hitobj = blade
				selected_blade = 1
			endif
		endif
	elseif GetPointerState()
		if selected_blade = 1 
			px = GetPointerX()
			py = GetPointerY()
			if px <> oldpx
				nbx = px-oldpx
			else
				nbx = 0
			endif
			if py <> oldpy
				nby = oldpy-py
			else 
				nby = 0
			endif
			oldpx = px
			oldpy = py
			MoveObjectLocalX(blade,nbx)
			MoveObjectLocalY(blade,nby)
			nbx = GetObjectX(blade)
			nby = GetObjectY(blade)
			nbz = GetObjectZ(blade)-((GetObjectSizeMaxZ(blade)-GetObjectSizeMinZ(blade))/2)
			nbz2 = nbz+((GetObjectSizeMaxZ(blade)-GetObjectSizeMinZ(blade))/2)
			hitobj = ObjectRayCast(0,nbx,nby,nbz,nbx,nby,nbz2)
			if hitobj > 0 
				Print("hitting object :"+str(hitobj))
				rayindex = 0
				hx# = GetObjectRayCastX(rayindex)
				hy# = GetObjectRayCastY(rayindex)
				hz# = GetObjectRayCastZ(rayindex)
				if impacted_obj = 0
					xpoint_of_impact[1] = hx#
					ypoint_of_impact[1] = hy#
					zpoint_of_impact[1] = hz#
					x_swipe[1] = px
					y_swipe[1] = py
					impacted_obj = hitobj
				else 
					xpoint_of_impact[5] = hx#
					ypoint_of_impact[5] = hy#
					zpoint_of_impact[5] = hz#
					x_swipe[2] = px
					y_swipe[2] = py
				endif
			else 
				if impacted_obj > 0
					//do final cut now
					oldobjx = getobjectx(impacted_obj)
					oldobjy = getobjecty(impacted_obj)
					oldobjz = getobjectz(impacted_obj)
					SetObjectPosition(impacted_obj,0,0,0)
					FixObjectPivot(impacted_obj)
					SetObjectPosition(impacted_obj,oldobjx,oldobjy,oldobjz)
					boxmem = CreateMemblockFromObjectMesh(impacted_obj,1)
					indexes = GetMemblockInt(boxmem,0)
					indexes = indexes-1
					nearest = -1
					tdist# = 400
					if abs(x_swipe[2] - x_swipe[1]) < abs(y_swipe[2]-y_swipe[1])
						cut_direction = "vertical"
					else 
						cut_direction = "horizontal"
					endif
					dummy = CreateObjectBox(1,1,1)
					SetObjectPosition(dummy,xpoint_of_impact[1],ypoint_of_impact[1],zpoint_of_impact[1])
					SetObjectLookAt(dummy,xpoint_of_impact[5],ypoint_of_impact[5],zpoint_of_impact[5],0)
					for a = 1 to 3
						MoveObjectLocalZ(dummy,GetDistanceToPoint(dummy,xpoint_of_impact[5],ypoint_of_impact[5],zpoint_of_impact[5])*0.25)
						xpoint_of_impact[a+1] = getobjectx(dummy)
						ypoint_of_impact[a+1] = getobjecty(dummy)
						zpoint_of_impact[a+1] = getobjectz(dummy)
					next a 
					DeleteObject(dummy)
					if cut_direction = "vertical"
						//create sliced object 1 (left side of object)
						for a = indexes to 0 step -1 
							onlyvx = GetMeshMemblockVertexX(boxmem,a)
							onlyvy = GetMeshMemblockVertexY(boxmem,a)
							onlyvz = GetMeshMemblockVertexZ(boxmem,a)
							mx# = getobjectx(impacted_obj)+onlyvx
							my# = getobjecty(impacted_obj)+onlyvy
							mz# = getobjectz(impacted_obj)+onlyvz
							neardist# = 400
							nearest_point = -1
							for b = 1 to 5 
								if mx# >= xpoint_of_impact[b]
									newdist# = GetPointDistanceToPoint(mx#,my#,mz#,xpoint_of_impact[b],ypoint_of_impact[b],zpoint_of_impact[b])
									if newdist# < neardist#
										nearest_point = b
										neardist# = newdist#
									endif
								endif
							next b 
							if nearest_point > -1
								SetMeshMemblockVertexPosition(boxmem,a,xpoint_of_impact[nearest_point]-getobjectx(impacted_obj),ypoint_of_impact[nearest_point]-getobjecty(impacted_obj),onlyvz)					
							endif
						next a 
						inc objs, 1
						newobj[objs] = CreateObjectFromMeshMemblock(boxmem)
						SetObjectPosition(newobj[objs],getobjectx(impacted_obj),getobjecty(impacted_obj),getobjectz(impacted_obj))
						MoveObjectLocalX(newobj[objs],((GetObjectSizeMaxX(newobj[objs])-GetObjectSizeMinX(newobj[objs]))*-0.25))
						SetObjectColor(newobj[objs],255,0,0,255)
						DeleteMemblock(boxmem)
						//create object 2 (right side of object)
						boxmem2 = CreateMemblockFromObjectMesh(impacted_obj,1)
						for a = indexes to 0 step -1 
							onlyvx = GetMeshMemblockVertexX(boxmem2,a)
							onlyvy = GetMeshMemblockVertexY(boxmem2,a)
							onlyvz = GetMeshMemblockVertexZ(boxmem2,a)
							mx# = getobjectx(impacted_obj)+onlyvx
							my# = getobjecty(impacted_obj)+onlyvy
							mz# = getobjectz(impacted_obj)+onlyvz
							neardist# = 400
							nearest_point = -1
							for b = 1 to 5 
								if mx# <= xpoint_of_impact[b]
									newdist# = GetPointDistanceToPoint(mx#,my#,mz#,xpoint_of_impact[b],ypoint_of_impact[b],zpoint_of_impact[b])
									if newdist# < neardist#								
										nearest_point = b
										neardist# = newdist#
									endif
								endif
							next b 
							if nearest_point > -1
								SetMeshMemblockVertexPosition(boxmem2,a,xpoint_of_impact[nearest_point]-getobjectx(impacted_obj),ypoint_of_impact[nearest_point]-getobjecty(impacted_obj),onlyvz)	
							endif
						next a 
						inc objs, 1
						newobj[objs] = CreateObjectFromMeshMemblock(boxmem2)
						SetObjectColor(newobj[objs],0,255,0,255)
						SetObjectPosition(newobj[objs],getobjectx(impacted_obj),getobjecty(impacted_obj),getobjectz(impacted_obj))
						MoveObjectLocalX(newobj[objs],((GetObjectSizeMaxX(newobj[objs])-GetObjectSizeMinX(newobj[objs]))*0.25))
						DeleteMemblock(boxmem2)
						DeleteObject(impacted_obj)
					elseif cut_direction = "horizontal"
						//create sliced object 1 (top of object)
						for a = indexes to 0 step -1 
							onlyvx = GetMeshMemblockVertexX(boxmem,a)
							onlyvy = GetMeshMemblockVertexY(boxmem,a)
							onlyvz = GetMeshMemblockVertexZ(boxmem,a)
							mx# = getobjectx(impacted_obj)+onlyvx
							my# = getobjecty(impacted_obj)+onlyvy
							mz# = getobjectz(impacted_obj)+onlyvz
							neardist# = 400
							nearest_point = -1
							for b = 1 to 5 
								if my# >= ypoint_of_impact[b]
									newdist# = GetPointDistanceToPoint(mx#,my#,mz#,xpoint_of_impact[b],ypoint_of_impact[b],zpoint_of_impact[b])
									if newdist# < neardist#
										nearest_point = b
										neardist# = newdist#
									endif
								endif
							next b 
							if nearest_point > -1
								SetMeshMemblockVertexPosition(boxmem,a,xpoint_of_impact[nearest_point]-getobjectx(impacted_obj),ypoint_of_impact[nearest_point]-getobjecty(impacted_obj),onlyvz)				
							endif
						next a 
						inc objs, 1
						newobj[objs] = CreateObjectFromMeshMemblock(boxmem)
						SetObjectPosition(newobj[objs],getobjectx(impacted_obj),getobjecty(impacted_obj),getobjectz(impacted_obj))
						MoveObjectLocalY(newobj[objs],((GetObjectSizeMaxY(newobj[objs])-GetObjectSizeMinY(newobj[objs]))*-0.25))
						SetObjectColor(newobj[objs],255,0,0,255)
						DeleteMemblock(boxmem)
						//create object 2 (bottom of object)
						boxmem2 = CreateMemblockFromObjectMesh(impacted_obj,1)
						for a = indexes to 0 step -1 
							onlyvx = GetMeshMemblockVertexX(boxmem2,a)
							onlyvy = GetMeshMemblockVertexY(boxmem2,a)
							onlyvz = GetMeshMemblockVertexZ(boxmem2,a)
							mx# = getobjectx(impacted_obj)+onlyvx
							my# = getobjecty(impacted_obj)+onlyvy
							mz# = getobjectz(impacted_obj)+onlyvz
							neardist# = 400
							nearest_point = -1
							for b = 1 to 5 
								if my# <= ypoint_of_impact[b]
									newdist# = GetPointDistanceToPoint(mx#,my#,mz#,xpoint_of_impact[b],ypoint_of_impact[b],zpoint_of_impact[b])
									if newdist# < neardist#								
										nearest_point = b
										neardist# = newdist#
									endif
								endif
							next b 
							if nearest_point > -1
								SetMeshMemblockVertexPosition(boxmem2,a,xpoint_of_impact[nearest_point]-getobjectx(impacted_obj),ypoint_of_impact[nearest_point]-getobjecty(impacted_obj),onlyvz)		
							endif
						next a 
						inc objs, 1
						newobj[objs] = CreateObjectFromMeshMemblock(boxmem2)
						SetObjectColor(newobj[objs],0,255,0,255)
						SetObjectPosition(newobj[objs],getobjectx(impacted_obj),getobjecty(impacted_obj),getobjectz(impacted_obj))
						MoveObjectLocalY(newobj[objs],((GetObjectSizeMaxY(newobj[objs])-GetObjectSizeMinY(newobj[objs]))*0.25))
						DeleteMemblock(boxmem2)
						DeleteObject(impacted_obj)
					endif
				endif
				impacted_obj = 0
			endif
				remstart
				rayindex = 0 //GetObjectRayCastNumHits()
				//get the point of impact
				hx# = GetObjectRayCastX(rayindex)
				hy# = GetObjectRayCastY(rayindex)
				hz# = GetObjectRayCastZ(rayindex)
				dummy = CreateObjectBox(2,2,2)
				SetObjectPosition(dummy,hx#,hy#,hz#)
				//SetObjectLookAt(dummy,camX,camY,camZ,0)
				SetObjectLookAt(dummy,nbx,nby,nbz,0)
				MoveObjectLocalZ(dummy,-0.005)
				hx# = getobjectX(dummy)
				hy# = getobjectY(dummy)
				hz# = getobjectZ(dummy)
				DeleteObject(dummy)
				//loop through the memblock and find the closest vertex to the point clicked
				for a = indexes to 0 step -1
					onlyvx = GetMeshMemblockVertexX(boxmem,a)
					onlyvy = GetMeshMemblockVertexY(boxmem,a)
					onlyvz = GetMeshMemblockVertexZ(boxmem,a)
					mx# = getobjectx(hitobj)+onlyvx
					my# = getobjecty(hitobj)+onlyvy
					mz# = getobjectz(hitobj)+onlyvz
					//ignore any previously moved vertex
					if onlyvx <> 0 or onlyvy <> 0 or onlyvz <> 0 
						mdist# = GetPointDistanceToPoint(mx#,my#,mz#,hx#,hy#,hz#)
						temp = 0
						//used to display the distance in real time
						debug = 0
						if debug = 1 
							repeat 
								if GetRawKeyReleased(27) then end 
								inc temp, 1
								Print("nearest so far = "+str(nearest))
								Print("distance = "+str(tdist#))							
								Print(a)
								Print(mdist#)
								sync()
							until temp > 2
						endif
						//update the nearest vertex if it is closer than the previous closest
						if mdist# <= tdist#
							if nearest >= 0 
								//try to find only those points that are closer to camera
								if GetPointDistanceToPoint(mx#,my#,mz#,camX,camY,camZ) <= GetPointDistanceToPoint(oldnx#,oldny#,oldnz#,camX,camY,camZ)
									tdist# = mdist#
									oldnx# = mx#
									oldny# = my#
									oldnz# = mz#
									nearest = a
								endif
							else 
								tdist# = mdist#
								oldnx# = mx#
								oldny# = my#
								oldnz# = mz#
								nearest = a
							endif
						endif
					endif
				next a 
				if nearest >= 0 
					for a = indexes to 0 step -1
						onlyvx = GetMeshMemblockVertexX(boxmem,a)
						onlyvy = GetMeshMemblockVertexY(boxmem,a)
						onlyvz = GetMeshMemblockVertexZ(boxmem,a)
						mx# = getobjectx(hitobj)+onlyvx
						my# = getobjecty(hitobj)+onlyvy
						mz# = getobjectz(hitobj)+onlyvz
						if mx# = oldnx# and my# = oldny# and mz# = oldnz#
							SetMeshMemblockVertexPosition(boxmem,a,0,0,0)
						endif
					next a 
					SetObjectMeshFromMemblock(hitobj,1,boxmem)
					DeleteMemblock(boxmem)
				endif
				remend 
		endif
	elseif GetPointerReleased()
		selected_blade = 0
	endif
    
   Print( str(ScreenFPS(),0)+"FPS" )			
   Sync()
loop

function RotateAnObject(robj)
	if GetRawMouseRightState() and robj > 0
		mx = GetPointerX()
		my = GetPointerY()
		if mx > omx
			RotateObjectGlobalY(robj,-5)
		elseif mx < omx 
			RotateObjectGlobalY(robj,5)
		endif
		if my > omy
			RotateObjectGlobalX(robj,-5)
		elseif my < omy 
			RotateObjectGlobalX(robj,5)
		endif
		omx = GetPointerX()
		omy = GetPointerY()
	endif
endfunction


function SaveMemblockToFile(id)
	SetRawWritePath(GetReadPath())
	boxmem = CreateMemblockFromObjectMesh(id,1)
	CreateFileFromMemblock("mem"+str(id)+".txt",boxmem)
	file = OpenToRead("mem"+str(id)+".txt")
	file2 = OpenToWrite("mem"+str(id)+"_eng.txt")
	repeat 
		WriteLine(file2,Str(ReadByte(file)))
	until FileEOF(file)
endfunction

function GetDistanceToPoint(e,x,y,z)
	disx = GetObjectX(e) - x
	disy = GetObjectY(e) - y
	disz = GetObjectZ(e) - z
	dist# = sqrt(disx^2 + disy^2 + disz^2)
endfunction(dist#)

function GetPointDistanceToPoint(x1,y1,z1,x2,y2,z2)
	disx = x2-x1
	disy = y2-y1
	disz = z2-z1
	dist# = sqrt((disx^2) + (disy^2) + (disz^2))
endfunction(dist#)


remstart
//create our memblock from the object
				oldobjx = getobjectx(hitobj)
				oldobjy = getobjecty(hitobj)
				oldobjz = getobjectz(hitobj)
				SetObjectPosition(hitobj,0,0,0)
				FixObjectPivot(hitobj)
				SetObjectPosition(hitobj,oldobjx,oldobjy,oldobjz)
				boxmem = CreateMemblockFromObjectMesh(hitobj,1)
				indexes = GetMemblockInt(boxmem,0)
				indexes = indexes-1
				nearest = -1
				tdist# = 400
				rayindex = 0 //GetObjectRayCastNumHits()
				//get the point of impact
				hx# = GetObjectRayCastX(rayindex)
				hy# = GetObjectRayCastY(rayindex)
				hz# = GetObjectRayCastZ(rayindex)
				dummy = CreateObjectBox(2,2,2)
				SetObjectPosition(dummy,hx#,hy#,hz#)
				//SetObjectLookAt(dummy,camX,camY,camZ,0)
				SetObjectLookAt(dummy,oldobjx,oldobjy,oldobjz,0)
				MoveObjectLocalZ(dummy,-0.005)
				hx# = getobjectX(dummy)
				hy# = getobjectY(dummy)
				hz# = getobjectZ(dummy)
				DeleteObject(dummy)
				//loop through the memblock and find the closest vertex to the point clicked
				for a = indexes to 0 step -1
					onlyvx = GetMeshMemblockVertexX(boxmem,a)
					onlyvy = GetMeshMemblockVertexY(boxmem,a)
					onlyvz = GetMeshMemblockVertexZ(boxmem,a)
					mx# = getobjectx(hitobj)+onlyvx
					my# = getobjecty(hitobj)+onlyvy
					mz# = getobjectz(hitobj)+onlyvz
					//ignore any previously moved vertex
					if onlyvx <> 0 or onlyvy <> 0 or onlyvz <> 0 
						mdist# = GetPointDistanceToPoint(mx#,my#,mz#,hx#,hy#,hz#)
						temp = 0
						//used to display the distance in real time
						debug = 0
						if debug = 1 
							repeat 
								if GetRawKeyReleased(27) then end 
								inc temp, 1
								Print("nearest so far = "+str(nearest))
								Print("distance = "+str(tdist#))							
								Print(a)
								Print(mdist#)
								sync()
							until temp > 2
						endif
						//update the nearest vertex if it is closer than the previous closest
						if mdist# <= tdist#
							if nearest >= 0 
								//try to find only those points that are closer to camera
								if GetPointDistanceToPoint(mx#,my#,mz#,camX,camY,camZ) <= GetPointDistanceToPoint(oldnx#,oldny#,oldnz#,camX,camY,camZ)
									tdist# = mdist#
									oldnx# = mx#
									oldny# = my#
									oldnz# = mz#
									nearest = a
								endif
							else 
								tdist# = mdist#
								oldnx# = mx#
								oldny# = my#
								oldnz# = mz#
								nearest = a
							endif
						endif
					endif
				next a 
				if nearest >= 0 
					for a = indexes to 0 step -1
						onlyvx = GetMeshMemblockVertexX(boxmem,a)
						onlyvy = GetMeshMemblockVertexY(boxmem,a)
						onlyvz = GetMeshMemblockVertexZ(boxmem,a)
						mx# = getobjectx(hitobj)+onlyvx
						my# = getobjecty(hitobj)+onlyvy
						mz# = getobjectz(hitobj)+onlyvz
						if mx# = oldnx# and my# = oldny# and mz# = oldnz#
							SetMeshMemblockVertexPosition(boxmem,a,0,0,0)
						endif
					next a 
					SetObjectMeshFromMemblock(hitobj,1,boxmem)
					DeleteMemblock(boxmem)
				endif
			remend 

type t_Vertex_Attribute
	name as string
	dataType as integer
	componentCount as integer
	normalize as integer
	stringLength as integer
endtype
	
function newAttribute( _data, _comp, _norm, _len, _str$ )
	_ret as t_Vertex_Attribute
	_ret.dataType = _data
	_ret.componentCount = _comp
	_ret.normalize = _norm
	_ret.stringLength = _len
	_ret.name = _str$
endfunction _ret

function writeObject( _memID, _fileName$ )
	f = OpenToWrite( "raw:" + TrimString( GetDocumentsPath(), "Documents" ) + "Desktop/" + _fileName$ )
	// Write header
	_numOfVertices = GetMemblockInt( _memID, 0 )
	_numOfIndices = GetMemblockInt( _memID, 4 )
	_numOfAttributes = GetMemblockInt( _memID, 8 )
	_vertexSize = GetMemblockInt( _memID, 12 )
	_vertexDataOffset = GetMemblockInt( _memID, 16 )
	_indexDataOffset = GetMemblockInt( _memID, 20 )
	WriteLine( f, "Number of vertices   = " + str( _numOfVertices ) )
	WriteLine( f, "Number of indices    = " + str( _numOfIndices ) )
	WriteLine( f, "Number of attributes = " + str( _numOfAttributes ) )
	WriteLine( f, "Size of vertex       = " + str( _vertexSize ) )
	WriteLine( f, "Vertex data offset   = " + str( _vertexDataOffset ) )
	WriteLine( f, "Index data offset    = " + str( _indexDataOffset ) )
	
	
	
	WriteLine( f, "" )
	WriteLine( f, "~~~~~=[ Attribute Data ]=~~~~~" )
	// Write attribute data
	_index = 24
	_count = 1
	_attributes as t_Vertex_Attribute[]
	repeat
		_dataType = GetMemblockByte( _memID, _index ) // 1 byte
		_compCount = GetMemblockByte( _memID, _index + 1 ) // 1 byte
		_normalize = GetMemblockByte( _memID, _index + 2 ) // 1 byte
		_strLen = GetMemblockByte( _memID, _index + 3 ) // 1 byte
		_string$ = GetMemblockString( _memID, _index + 4, _strLen ) // variable amount of bytes
		_step = 4 + _strLen // 4 previous bytes + string length
		
		_attributes.insert( newAttribute( _dataType, _compCount, _normalize, _strLen, _string$ ) )
		
		WriteLine( f, '\t' + str( _count ) + ". data type     = " + str( _dataType ) )
		WriteLine( f, '\t' + str( _count ) + ". components    = " + str( _compCount ) )
		WriteLine( f, '\t' + str( _count ) + ". normalize     = " + str( _normalize ) )
		WriteLine( f, '\t' + str( _count ) + ". string Length = " + str( _strLen ) )
		WriteLine( f, '\t' + str( _count ) + ". string        = " + _string$ )
		WriteLine( f, "" )
		inc _count
		inc _index, _step
	until _index > 24 + ( _numOfAttributes * _step )
	
	
	
	WriteLine( f, "" )
	WriteLine( f, "~~~~~=[ Vertex Data ]=~~~~~" )
	// Write vertex data
	_count = 1
	_vertDataEnd = _vertexDataOffset + ( _numOfVertices - 1 ) * _vertexSize
	for v = _vertexDataOffset to _vertDataEnd step _vertexSize
		WriteLine( f, "Vertex " + str( _count ) )
		for a = 0 to _attributes.length
			//~ WriteLine( f, str( GetMemblockFloat( _memID, _vertexDataOffset ) ) )
			if _attributes[a].dataType = 1
				_tempstring$ = '\t' + _attributes[a].name + " = {"
				for c = 1 to _attributes[a].componentCount
					_val = GetMemblockByte( _memID, v + c )
					if c = _attributes[a].componentCount
						_tempstring$ = _tempstring$ + str( _val ) + "}"
					else
						_tempstring$ = _tempstring$ + str( _val ) + ", "
					endif
				next c
				WriteLine( f, _tempstring$ )
			else
				_tempstring$ = '\t' + _attributes[a].name + " = ["
				for c = 1 to _attributes[a].componentCount
					_val# = GetMemblockFloat( _memID, v + ( c * 4 ) )
					if c = _attributes[a].componentCount
						_tempstring$ = _tempstring$ + str( _val# ) + "]"
					else
						_tempstring$ = _tempstring$ + str( _val# ) + ", "
					endif
				next c
				WriteLine( f, _tempstring$ )
			endif
		next a
		inc _count
		WriteLine( f, "" )
	next v
	
	
	if _numOfIndices > 0
		WriteLine( f, "" )
		WriteLine( f, "~~~~~=[ Index Data - Polygons ]=~~~~~" )
		// Write index data
		_count = 1
		_indicesEnd = _indexDataOffset + ( _numOfIndices - 1 ) * 4
		for i = _indexDataOffset to _indicesEnd step 12
			_ind1 = GetMemblockInt( _memID, i )
			_ind2 = GetMemblockInt( _memID, i + 4 )
			_ind3 = GetMemblockInt( _memID, i + 8 )
			_string$ = '\t' + str( _count ) + " = [" + str( _ind1 ) + ", " + str( _ind2 ) + ", " + str( _ind3 ) + "]"
			WriteLine( f, _string$ )
			inc _count
		next i
	else
		WriteLine( f, "~~~~~=[ No index data ]=~~~~~" )
	endif
	CloseFile( f )
endfunction

Number of vertices   = 24
Number of indices    = 36
Number of attributes = 3
Size of vertex       = 32
Vertex data offset   = 60
Index data offset    = 828

~~~~~=[ Attribute Data ]=~~~~~
	1. data type     = 0
	1. components    = 3
	1. normalize     = 0
	1. string Length = 12
	1. string        = position

	2. data type     = 0
	2. components    = 3
	2. normalize     = 0
	2. string Length = 8
	2. string        = normal

	3. data type     = 0
	3. components    = 2
	3. normalize     = 0
	3. string Length = 4
	3. string        = uv


~~~~~=[ Vertex Data ]=~~~~~
Vertex 1
	position = [2.500000, -2.500000, 0.000000]
	normal = [2.500000, -2.500000, 0.000000]
	uv = [2.500000, -2.500000]

Vertex 2
	position = [-2.500000, -2.500000, 0.000000]
	normal = [-2.500000, -2.500000, 0.000000]
	uv = [-2.500000, -2.500000]

Vertex 3
	position = [2.500000, -2.500000, 0.000000]
	normal = [2.500000, -2.500000, 0.000000]
	uv = [2.500000, -2.500000]

Vertex 4
	position = [-2.500000, -2.500000, 0.000000]
	normal = [-2.500000, -2.500000, 0.000000]
	uv = [-2.500000, -2.500000]

Vertex 5
	position = [2.500000, -2.500000, 1.000000]
	normal = [2.500000, -2.500000, 1.000000]
	uv = [2.500000, -2.500000]

Vertex 6
	position = [-2.500000, -2.500000, 1.000000]
	normal = [-2.500000, -2.500000, 1.000000]
	uv = [-2.500000, -2.500000]

Vertex 7
	position = [2.500000, 2.500000, 1.000000]
	normal = [2.500000, 2.500000, 1.000000]
	uv = [2.500000, 2.500000]

Vertex 8
	position = [-2.500000, 2.500000, 1.000000]
	normal = [-2.500000, 2.500000, 1.000000]
	uv = [-2.500000, 2.500000]

Vertex 9
	position = [2.500000, 2.500000, 0.000000]
	normal = [2.500000, 2.500000, 0.000000]
	uv = [2.500000, 2.500000]

Vertex 10
	position = [2.500000, -2.500000, 0.000000]
	normal = [2.500000, -2.500000, 0.000000]
	uv = [2.500000, -2.500000]

Vertex 11
	position = [2.500000, 2.500000, 0.000000]
	normal = [2.500000, 2.500000, 0.000000]
	uv = [2.500000, 2.500000]

Vertex 12
	position = [2.500000, -2.500000, 0.000000]
	normal = [2.500000, -2.500000, 0.000000]
	uv = [2.500000, -2.500000]

Vertex 13
	position = [2.500000, 2.500000, -0.000000]
	normal = [2.500000, 2.500000, -0.000000]
	uv = [2.500000, 2.500000]

Vertex 14
	position = [-2.500000, 2.500000, -0.000000]
	normal = [-2.500000, 2.500000, -0.000000]
	uv = [-2.500000, 2.500000]

Vertex 15
	position = [2.500000, 2.500000, -0.000000]
	normal = [2.500000, 2.500000, -0.000000]
	uv = [2.500000, 2.500000]

Vertex 16
	position = [-2.500000, 2.500000, -0.000000]
	normal = [-2.500000, 2.500000, -0.000000]
	uv = [-2.500000, 2.500000]

Vertex 17
	position = [2.500000, 2.500000, -1.000000]
	normal = [2.500000, 2.500000, -1.000000]
	uv = [2.500000, 2.500000]

Vertex 18
	position = [-2.500000, 2.500000, -1.000000]
	normal = [-2.500000, 2.500000, -1.000000]
	uv = [-2.500000, 2.500000]

Vertex 19
	position = [2.500000, -2.500000, -1.000000]
	normal = [2.500000, -2.500000, -1.000000]
	uv = [2.500000, -2.500000]

Vertex 20
	position = [-2.500000, -2.500000, -1.000000]
	normal = [-2.500000, -2.500000, -1.000000]
	uv = [-2.500000, -2.500000]

Vertex 21
	position = [-2.500000, -2.500000, -0.000000]
	normal = [-2.500000, -2.500000, -0.000000]
	uv = [-2.500000, -2.500000]

Vertex 22
	position = [-2.500000, 2.500000, -0.000000]
	normal = [-2.500000, 2.500000, -0.000000]
	uv = [-2.500000, 2.500000]

Vertex 23
	position = [-2.500000, -2.500000, -0.000000]
	normal = [-2.500000, -2.500000, -0.000000]
	uv = [-2.500000, -2.500000]

Vertex 24
	position = [-2.500000, 2.500000, -0.000000]
	normal = [-2.500000, 2.500000, -0.000000]
	uv = [-2.500000, 2.500000]


~~~~~=[ Index Data - Polygons ]=~~~~~
	1 = [0, 1, 2]
	2 = [2, 1, 3]
	3 = [4, 5, 6]
	4 = [6, 5, 7]
	5 = [8, 9, 10]
	6 = [10, 9, 11]
	7 = [12, 13, 14]
	8 = [14, 13, 15]
	9 = [16, 17, 18]
	10 = [18, 17, 19]
	11 = [20, 21, 22]
	12 = [22, 21, 23]