Graphics3D 512,512,0,2
SetBuffer BackBuffer()

Local Camera=CreateCamera()
PositionEntity Camera,0,0,-1
CameraClsColor Camera,64,64,64

Local Mesh%=CreateMesh()
Local Face%=CreateSurface(Mesh)
;Local Texture%=CreateTexture(256,256,2)
Local Texture%=LoadTexture("schall2.png",2)
Local X%,Y%,ARGB%

EntityTexture Mesh,Texture
EntityFX Mesh,1+2+8+16

Local V0=AddVertex(Face,-1,+1,0 ,0,0)
Local V1=AddVertex(Face,+1,+1,0 ,1,0)
Local V2=AddVertex(Face,+1,-1,0 ,1,1)
Local V3=AddVertex(Face,-1,-1,0 ,0,1)
AddTriangle Face,V0,V1,V2
AddTriangle Face,V2,V3,V0

;Wenn die Variable 'Texture' per LoadTexture erstellt wurde,
;dann reichen einmal die zwei Codezeilen aus, um im späteren
;Programmablauf auf Un/lockBuffer verzichten zu können.
;Das heisst, es funktionieren die PixelFast-Befehle
;auch ohne den Buffer zu 'locken' mit mehr Speed.
LockBuffer TextureBuffer(Texture)
UnlockBuffer TextureBuffer(Texture)

;Das gleiche gilt aber leider nicht mit CreateTexture,
;obwohl die gleiche Flags und weitere Angaben identisch
;sind. Wie lässt sich dieses nun am besten 'faken'?




While Not KeyHit(1)
   
;   LockBuffer TextureBuffer(Texture)
   For Y=0 To 255 Step 1
      For X=0 To 255 Step 2
         WritePixelFast X,Y,$FF000000+Rand(0,255)*$10000,TextureBuffer(Texture)
      Next
   Next
;   UnlockBuffer TextureBuffer(Texture)
   
   RenderWorld
   
   Text 20,20,fps:msc=MilliSecs()
   If msc>mts Then mts=msc+1001:fps=frm:frm=0 Else frm=frm+1
   
   Flip 0
Wend
End