SuperStrict

'Import Maxgui.Drivers


Graphics 640,480,0
SetColor 255,0,0
DrawRect 200,200,200,200

Rem
Local window:TGadget = CreateWindow("Werkzeug",0,0,300,700,Null,WINDOW_TITLEBAR|WINDOW_TOOL|WINDOW_CLIENTCOORDS)
Local tabber:TGadget = CreateTabber(0,0,window.getwidth(),window.getheight(),window)
AddGadgetItem tabber,"Tab nummer 1"
AddGadgetItem tabber,"Tab nummer 2"
EndRem




Repeat
    WaitEvent
    
    Select EventID()
    Case EVENT_KEYDOWN
        Print "Tastendruck registriert!"
    Case EVENT_WINDOWCLOSE
        Print "Jemand hat das Fenster zugemacht!"
    Case EVENT_MOUSEDOWN
        Print "Mausklick registriert"
    Case EVENT_GADGETACTION
        Print "Gadget Äktschn!"
    Case EVENT_APPTERMINATE
        Print "Das Grafikfenster soll geschlossen werden!"
    EndSelect
    
    
    Flip
    Print "Flip durchgeführt!"
Forever

End

Global canvas:TGadget = CreateCanvas(0, 0, 800, 600, window)

SetGraphics CanvasGraphics(canvas)

While PollEvent()
	Select EventID()
		Case EVENT_GADGETSELECT
			Select EventSource()
				Case listbox
					'listbox
			End Select
		Case EVENT_MOUSEDOWN
			md = EventData()
			If md = 1 Then
				mx = Gmx
				my = Gmy
			End If
		Case EVENT_MOUSEMOVE
			Gmx = EventX()
			Gmy = EventY()
		Case EVENT_GADGETACTION
			Select EventSource()
				Case listbox
					'listbox
			End Select
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend

SuperStrict
Import maxGUI.Drivers
Import "***\minib3d\minib3d.bmx"

SetGraphicsDriver(GLMax2DDriver()) 

Local window:TGadget=CreateWindow("",0,0, 800,600,, WINDOW_TITLEBAR|WINDOW_CLIENTCOORDS|WINDOW_CENTER)
Local canvas:TGadget=CreateCanvas(0,0,800,600,window)

CanvasGraphics3D(canvas)

Local cub:TEntity=CreateCube()
Local cam:TEntity=CreateCamera()
MoveEntity cam,0,0,-10

Local timer:TTimer=CreateTimer(60)

While WaitEvent()
    Select EventID()
        Case EVENT_WINDOWCLOSE
            End
        Case EVENT_TIMERTICK
            RedrawGadget canvas
        Case EVENT_GADGETPAINT
            Cls
            RenderWorld()
            Flip
        Default
            Print CurrentEvent.toString()
    End Select
Wend

Function CanvasGraphics3D(canvas:TGadget)
    SetGraphics CanvasGraphics(canvas)
    TGlobal.width=GraphicsWidth()
    TGlobal.height=GraphicsHeight()
    TGlobal.depth=GraphicsDepth()
    TGlobal.mode=1+(GraphicsDepth()=0)
    TGlobal.rate=GraphicsHertz()
    TGlobal.GraphicsInit()
EndFunction