; Gui.bb
; Images
Graphics3D 1280,800,0,1
SetBuffer BackBuffer()
Global Camera = CreateCamera()
Include "Draw3d.bb"
DrawInit3D(Camera)

Global GUI_l = LoadImage3D("GUI\left.png")
Global GUI_r = LoadImage3D("GUI\righ.png")
Global I
Global Win.Window = Null

CreateWindow("Test",0,0,400,200)

Repeat
   DrawGui
   UpdateWorld()
   RenderWorld()
   Text 0,0,I
   win.Window = Last window
   Text 0,10,Win\IMG
   Flip
   Clear3D
Until KeyDown(1)

; Types
Type Window
   Field T$
   Field X
   Field Y
   Field W
   Field H
   Field IMG
   
   ;Field Button.Button
End Type



Function CreateWindow(T$,X,Y,W,H)
win.Window = New Window
Win\T = T$
Win\X = X
Win\Y = Y
Win\W = W
Win\H = H
Win\IMG = LoadImage3D("GUI\mid.png",2,2,W-8,1)
End Function

Function DrawGUI()
; Windows
I = 0
For Win.Window = Each window
   I = I +1
   ;Titelleiste
   DrawImage3D(Win\IMG,0,0)
Next
End Function

[Fehler behoben] Meldung ''DrawBank is to small'' kam durch ein Rechenfehler 48mal früher (so nach ~170 Imagehandles) als erwartet.

[Befehl erweitert] Clear3D( MainHandle ) kann nun ein Mainhandle beinhalten, wenn man nur ein Surface löschen will. Praktisch im Zusammenhang im ClearOn3D() und ClearOff3D().

[Neuer Befehl] ClearOff3D( MainHandle ), deaktiviert ein Surface aus der ''allgemeinen Löschliste'', welches per Clear3D() gelöscht werden würde.

[Neuer Befehl] ClearOn3D( MainHandle ), aktiviert ein Surface zur Löschung wieder, welches durch ClearOff3D() aus der Liste deaktiviert wurde.

[Neuer Befehl] CreateImage3D( 2^Size, Mode=2, Blend=2, Pivot=0 ), Erstellt ein neues Bild im Speicher (Bsp: Size=8 ergibt 2^8=256 also eine Größe von 256x256).

[Neuer Befehl] DrawFree3D(), macht die DrawInit3D() -Initialisierung wieder rückgängig. Dabei werden auch alle Bilder wieder aus dem Speicher wieder freigegeben.

[Befehl erweitert] DrawImage3D( Handle, X, Y, Button=0, Angle=0, Scale=1, Frame=0 ), mit Frame kann man weiterführende Frames anzeigen lassen.

[Neuer Befehl] DrawQuad3D( Handle, X1, Y1, X2, Y2, X3, Y3, X4, Y4, Frame ), zeichnet ein Quad aus einem zuvor geladenem Image auf dem Bildschirm.

[Neuer Befehl] GetPixel3D( Handle, X, Y, Mask=$FFFFFFFF ), gibt den (automatisch maskierten und sortierten) Pixelfarbcode zurück.

[Neuer Befehl] GetTexel3D( Handle, Xs, Ys, Xt, Yt, Angle, Scale=1, Mask=$FFFFFFFF ), gibt den Pixelfarbcode abhängig der Bildposition zurück.

[Befehl erweitert] ImageLine3D( Handle, X1, Y1, X2, Y2, Size, Mode=0, Frame=0), mit Frame kann man weiterführende Frames anzeigen lassen.

[Befehl geändert+erweitert] LoadImage3D ( ''File'', Mode=2, Blend=2, Pivot=0 ), Alphakanal nun automatisch setzbar und mit Pivot bestimmt man die Zeichenposition.

[Befehl erweitert] NativeInit3D( Mode=2, Blend=2, Pivot=0 ), gibt nun das Handle zurück und mit Pivot bestimmt man die Zeichenposition zwischen HUD und World.

[Neuer Befehl] OnLockBuffer3D( Handle ), lockt den Buffer für Pixeloperationen (nur bei CreateImage3D notwentig).

[Neuer Befehl] Poly3D( X1, Y1, X2, Y2, X3, Y3 ), zeichnet ein Polygon, bestehend aus einem Dreieck als nativen Befehl ein.

[Neuer Befehl] SetPixel3D( Handle, X, Y, ARGB=0 ), setzt ein Pixel an angegebener Position mit dem ARGB-Farbcode auf ein bestehendes Bild.

[Neuer Befehl] SetTexel3D( Handle, Xs, Ys, Xt, Yt, Angle, Scale=1, ARGB=0 ), setzt ein Pixel abhängig der Bildposition auf ein bestehendes Bild.

[Neuer Befehl] StringWidth3D( ''String'' ), gibt die Stringbreite in Draw3D-Einheiten abhängig ihrer Größe zurück.