Local tempmesh = CreateMesh()
   Local tempsurface = CreateSurface(tempmesh)

   AddVertex tempsurface,-1,1,0 ,0,0 : AddVertex tempsurface,1,1,0 , 1,0
   AddVertex tempsurface,-1,-1,0 ,0,1 : AddVertex tempsurface,1,-1,0 , 1,1
   AddTriangle tempsurface,0,1,3
   AddTriangle tempsurface,0,3,2
   
   Local temptexture = CreateTexture(width,height,mode)
   Local size = TextureWidth(temptexture)
   EntityTexture tempmesh, temptexture
   EntityFX tempmesh,1
   EntityParent tempmesh, spritecontrol

;Drehen mit Pitch und Yaw
;Bei Position an drehwinkel denken

Type Tmesh
 Field mesh
 Field surface
 Field x,y,z
End Type

Type Tsprite
 Field mesh
 Field v[3]
 Field pitch#,yaw#,roll#
 Field width#,height#
 Field centerx#,centery#,centerz#
End Type



Function sCreateMesh(x=0,y=0,z=0)

 mesh.Tmesh=New Tmesh
 mesh\mesh=CreateMesh()
 mesh\surface=CreateSurface(mesh\mesh)
 mesh\x=x
 mesh\y=y
 mesh\z=z
 Return Handle(mesh.Tmesh)

End Function

Function screateSprite(hndl,x=4,y=4,z=0)

 mesh.Tmesh=Object.Tmesh(hndl)
 sprite.Tsprite=New Tsprite
 
 sprite\mesh=hndl
 sprite\width=x
 sprite\height=y

 sprite\v[0]=AddVertex(mesh\surface,-x/2,y/2,z,0,0)
 sprite\v[1]=AddVertex(mesh\surface,x/2,y/2,z,1,0)
 sprite\v[2]=AddVertex(mesh\surface,x/2,-y/2,z,1,1)
 sprite\v[3]=AddVertex(mesh\surface,-x/2,-y/2,z,0,1)
 
 AddTriangle(mesh\surface,sprite\v[0],sprite\v[1],sprite\v[2])
 AddTriangle(mesh\surface,sprite\v[0],sprite\v[2],sprite\v[3])

 UpdateNormals mesh\mesh

 Return Handle(sprite.Tsprite)

End Function

Function sTranslateSprite(hndl,x,y,z)

 sprite.Tsprite=Object.Tsprite(hndl)
 mesh.Tmesh=Object.Tmesh(sprite\mesh)

 For i=0 To 3
  VertexCoords mesh\surface,sprite\v[i],VertexX#(mesh\surface,sprite\v[i])+x,VertexY#(mesh\surface,sprite\v[i])+y,VertexZ#(mesh\surface,sprite\v[i])+z
 Next
 
 sprite\centerx=sprite\centerx+x
 sprite\centery=sprite\centery+y
 sprite\centerz=sprite\centerz+z

End Function

Function sPositionSprite(hndl,x,y,z)

 sprite.Tsprite=Object.Tsprite(hndl)
 mesh.Tmesh=Object.Tmesh(sprite\mesh)

 sprite\centerx=x
 sprite\centery=y
 sprite\centerz=z

 VertexCoords mesh\surface,sprite\v[0],sprite\centerx-sprite\width/2,sprite\centery+sprite\height/2,sprite\centerz
 VertexCoords mesh\surface,sprite\v[1],sprite\centerx+sprite\width/2,sprite\centery+sprite\height/2,sprite\centerz
 VertexCoords mesh\surface,sprite\v[2],sprite\centerx+sprite\width/2,sprite\centery-sprite\height/2,sprite\centerz
 VertexCoords mesh\surface,sprite\v[3],sprite\centerx-sprite\width/2,sprite\centery-sprite\height/2,sprite\centerz

End Function

Function sTurnSprite(hndl,pitch#,yaw#,roll#)

 sprite.Tsprite=Object.Tsprite(hndl)
 mesh.Tmesh=Object.Tmesh(sprite\mesh)

 sprite\pitch=(sprite\pitch-pitch) Mod 360
 sprite\yaw  =(sprite\yaw  -yaw)   Mod 360
 sprite\roll =(sprite\roll -roll)  Mod 360
 winkel=315

 For i=0 To 3
  If yaw   <>0 Then VertexCoords mesh\surface,sprite\v[i],sprite\centerx+(Sin((sprite\yaw+winkel))*(sprite\width/2*Sqr(2))),VertexY#(mesh\surface,sprite\v[i]),sprite\centerz+(Cos((sprite\yaw+winkel)));*(sprite\height/2*Sqr(2)))
  If roll  <>0 Then VertexCoords mesh\surface,sprite\v[i],sprite\centerx+(Sin((sprite\roll+winkel))*(sprite\width/2*Sqr(2))),sprite\centery+(Cos((sprite\roll+winkel))*(sprite\height/2*Sqr(2))),VertexZ#(mesh\surface,sprite\v[i])
  winkel=winkel+90
 Next

End Function