Graphics3D 1024,768,32,1

Global v[3]

Type spuren
   Field mesh
   Field surface
   Field v[3]
End Type   


SetBuffer BackBuffer()


AutoMidHandle 1
kreuz = LoadImage("fadenkreuz.png")



Global licht = CreateLight()
PositionEntity licht,0,300,0

Global cam = CreateCamera()
PositionEntity cam,0,10,-10
RotateEntity cam,0,0,0

Global box = CreateCube()
PositionEntity box,0,19,0
ScaleEntity box,20,20,20
EntityColor box,90,90,90
FlipMesh box
EntityPickMode box,2

Global ebene = CreatePlane()
EntityColor ebene,255,0,0
EntityPickMode ebene,2


spuren.spuren = New spuren
spuren\mesh = CreateMesh()
EntityColor spuren\mesh,255,0,255
EntityFX spuren\mesh,16
spuren\surface = CreateSurface(spuren\mesh)
spuren\v[0] = AddVertex(spuren\surface,-0.5,9.5,-9)

spuren\v[1] = AddVertex(spuren\surface,0.5,9.5,-9)
spuren\v[2] = AddVertex(spuren\surface,-0.5,12,0)
spuren\v[3] = AddVertex(spuren\surface,0.5,12,0)
AddTriangle(spuren\surface,spuren\v[0],spuren\v[1],spuren\v[2])
AddTriangle(spuren\surface,spuren\v[0],spuren\v[3],spuren\v[2])


While Not KeyHit(1)
DrawImage kreuz,MouseX(),MouseY()
;picking()

UpdateNormals mesh

Flip
Cls
RenderWorld
UpdateWorld
Wend
End


Function picking()
   CameraPick(cam,MouseX(),MouseY())
   VertexCoords spuren\surface,spuren\v[2],PickedX()+1,PickedY(),PickedZ()
   VertexCoords spuren\surface,spuren\v[3],PickedX()-1,PickedY(),PickedZ()
End Function