Graphics3D 640, 480, 16, 2
SetBuffer BackBuffer()
camera = CreateCamera()
light = CreateLight()
PositionEntity camera, 0, 0, - 5
RotateEntity light, 90, 0, 0

brush = CreateBrush(0, 255, 0)
mesh = CreateMesh()
surface = CreateSurface(mesh, brush)
v0 = AddVertex(surface, 0, 0, 0)
v1 = AddVertex(surface, 1, - 1, 0)
v2 = AddVertex(surface, - 1, - 1, 0)
tri = AddTriangle(surface, v0, v1, v2)
UpdateNormals mesh
nmesh = CreateMesh()
CreateSurface(nmesh)
CopyTriangle(mesh, 1, 1, nmesh)
MoveEntity nmesh, 1, 0, 0

While Not KeyHit(1)
   RenderWorld
   Flip
Wend
End

Function CopyTriangle(sourcemesh, sourcesurface, id, targetmesh, targetsurface=1)
   surface = GetSurface(targetmesh, targetsurface)
   sourcesurface = GetSurface(sourcemesh, sourcesurface)
   Local vertex[3]
   For i = 0 To 2
      tri = TriangleVertex(sourcesurface, id, i)
      x = VertexX(sourcesurface, i)
      y = VertexY(sourcesurface, i)
      z = VertexZ(sourcesurface, i)
      vertex[i] = AddVertex(surface, x, y, z)
   Next
   Return AddTriangle(surface,vertex[0],vertex[1],vertex[2])
End Function

;pick, usw...
mesh = PickedEntity()
surface = PickedSurface()
tri = PickedTriangle()

targetmesh = CreateMesh()
targetsurface = CreateSurface(targetmesh)

CopyTriangle(mesh, surface, tri, targetmesh, targetsurface)