PickedVertex()

Blitz3D Forums/Blitz3D Programming/PickedVertex()

Anyone know of a function do do this? Im currently trying...

	CameraPick(camera, MouseX(), MouseY())
	If PickedTriangle() And PickedEntity()
		
		surf = GetSurface(meshGridPlane, 1)
		
		PositionEntity chkpiv, VertexX(surf, TriangleVertex(surf, PickedTriangle(), 0)), VertexY(surf, TriangleVertex(surf, PickedTriangle(), 0)), VertexZ(surf, TriangleVertex(surf, PickedTriangle(), 0))
		PositionEntity vertCube, PickedX(), PickedY(), PickedZ()
		length1 = EntityDistance(chkpiv, vertCube)
		
		PositionEntity chkpiv, VertexX(surf, TriangleVertex(surf, PickedTriangle(), 1)), VertexY(surf, TriangleVertex(surf, PickedTriangle(), 1)), VertexZ(surf, TriangleVertex(surf, PickedTriangle(), 1))
		PositionEntity vertCube, PickedX(), PickedY(), PickedZ()
		length2 = EntityDistance(chkpiv, vertCube)
		
		PositionEntity chkpiv, VertexX(surf, TriangleVertex(surf, PickedTriangle(), 2)), VertexY(surf, TriangleVertex(surf, PickedTriangle(), 2)), VertexZ(surf, TriangleVertex(surf, PickedTriangle(), 2))
		PositionEntity vertCube, PickedX(), PickedY(), PickedZ()
		length3 = EntityDistance(chkpiv, vertCube)
		
		If Min(Min(length1, length2), Min(length2, length3)) = length2
			PositionEntity vertCube, VertexX(surf, TriangleVertex(surf, PickedTriangle(), 0)), VertexY(surf, TriangleVertex(surf, PickedTriangle(), 0)), VertexZ(surf, TriangleVertex(surf, PickedTriangle(), 0))
		ElseIf Min(Min(length1, length2), Min(length2, length3)) = length3
			PositionEntity vertCube, VertexX(surf, TriangleVertex(surf, PickedTriangle(), 1)), VertexY(surf, TriangleVertex(surf, PickedTriangle(), 1)), VertexZ(surf, TriangleVertex(surf, PickedTriangle(), 1))
		Else
			PositionEntity vertCube, VertexX(surf, TriangleVertex(surf, PickedTriangle(), 2)), VertexY(surf, TriangleVertex(surf, PickedTriangle(), 2)), VertexZ(surf, TriangleVertex(surf, PickedTriangle(), 2))
		EndIf
	EndIf


But it really doesn't work :)