; TFormPoint und wie er Funktioniert
;
; TFormPoint errechnet aus den Vertex Coordinaten die 3D Welt Coordinaten.
;
; -su  ist ein Surface eines Mesh
; -s   ist das Mesh selber
; -ve  ist der Index des Vertics in einem Surfaces und beginnt bei 0
; -po  ist der Ball der der Position des Vertics folgt
; -mve ist die anzahl der vorhandenen Vertex
;
; Mit der Leertaste werden die vertics durchgeschaltet.
;
; Ein Cube der mittels CreateCube() erzeugt wird, hatt immer 24 Vertics.
; 4 Pro seite.

Graphics3D 640, 480,32,2

font=LoadFont("Arial",25,1,0,0)
SetFont font

cam=CreateCamera()
light=CreateLight(cam)
MoveEntity(cam,0,0,-10)

s=CreatePivot()
s1 = CreateCube(s)
;s1 = CreateCone(8,0)
;s1 = CreateSphere(5)

MoveEntity s1, 1,2,6
ScaleEntity s1, 2,2,2
po=CreateSphere(16)
EntityColor po,$44,$66,$22

su=GetSurface(s1,1)
mve=CountVertices(su)
ve=0

Repeat
   TurnEntity s,.1,.2,.3
   
   If KeyHit(57) ; Leertaste
      ve=ve+1
      If ve>mve-1 Then ve=0
   EndIf
      
   TFormPoint VertexX(su,ve),VertexY(su,ve),VertexZ(su,ve),s1,0
   PositionEntity po,TFormedX(),TFormedY(),TFormedZ()
   
   RenderWorld
   
   Text 10,10,"Anzahl Vertics    "
   Text 200,10,Str(mve)
   Text 10,35,"Actuelles Vertics "
   Text 200,35,Str(ve)
   Flip
   
Until KeyHit(1)
End

txt$="Hello World!"
print txt$
waitkey

Graphics3D 800,600,32,2

piv=CreatePivot()
MoveEntity piv,0,0,2

piv=CreatePivot(piv)
MoveEntity piv,0,0,2

cam=CreateCamera(piv)
MoveEntity cam,0,0,2

TFormPoint EntityX(cam),EntityY(cam),EntityZ(cam),GetParent(cam),0

Print TFormedX()+" "+TFormedY()+" "+TFormedZ()

WaitKey
End