SuperStrict

Framework BRL.GLMax2D
Import BRL.LinkedList
Import BRL.StandardIO
Import BRL.Timer

Graphics(800, 600)

Type TDesktop Extends TGUIElem
	Function Create:TDesktop(width:Int, height:Int)
		Local out:TDesktop = New TDesktop
		out.width = width
		out.height = height
		Return out
	End Function
	
	Method draw(x:Int,y:Int,force:Int)
		If (force Or (isValid>0))
			SetColor(0,32,32)
			DrawRect(x,y,width,height)
		EndIf
		Super.draw(x,y,force)
	End Method
End Type

Type TWindow Extends TGUIElem
	Field locked:Int=False
	Field lmx:Int,lmy:Int
	Function Create:TWindow(px:Int,py:Int,width:Int, height:Int)
		Local out:TWindow = New TWindow
		out.x = px
		out.y = py
		out.width = width
		out.height = height
		Return out
	End Function
	
	Method draw(px:Int,py:Int,force:Int)
		If (force Or (isValid>0))
			SetColor(64,64,64)
			DrawRect(px,py,width,height)
		EndIf
		Super.draw(px,py,force)
	End Method
	
	Method update(px:Int,py:Int)
		Super.update(px,py)
		If (MD1=True)
			If (locked=True)
				MD1 = False
				MH1 = False
				If (lmx<>MouseX() And lmy<>MouseY())
					Local oldx:Int = x
					Local oldy:Int = y
					x = x + MouseX()-lmx
					y = y + MouseY()-lmy
					lmx = MouseX()
					lmy = MouseY()
					Local minx:Int = Min(oldx,x)
					Local miny:Int = Min(oldy,y)
					Local maxx:Int = Max(oldx,x)+width
					Local maxy:Int = Max(oldy,y)+height
					parent.postInvalidateBlock(minx,miny,maxx-minx,maxy-miny)
				EndIf
			ElseIf (MouseX()>px And MouseX()<px+width And MouseY()>py And MouseY()<py+height)
				MD1 = False
				MH1 = False
				locked = True
				lmx = MouseX()
				lmy = MouseY()
			EndIf
		Else
			locked = False
		EndIf
	End Method
End Type

Type TButton Extends TGUIElem
	Field text:String, num:Int
	Function Create:TButton(px:Int,py:Int,width:Int, height:Int, text:String)
		Local out:TButton = New TButton
		out.x = px
		out.y = py
		out.width = width
		out.height = height
		out.text = text
		Return out
	End Function
	
	Method draw(x:Int,y:Int,force:Int)
		If (force Or (isValid>0))
			SetColor(128,128,128)
			DrawRect(x,y,width,height)
			SetColor(0,0,0)
			DrawText(text,x+2,y+2)
		EndIf
		Super.draw(x,y,force)
	End Method
	
	Method update(x:Int,y:Int)
		Super.update(x,y)
		If (MH1=True)
			If (MouseX()>x And MouseX()<x+width And MouseY()>y And MouseY()<y+height)
				MH1 = False
				MD1 = False
				num = num+1
				text = "Test"+num
				parent.postInvalidate()
			EndIf
		EndIf
	End Method
End Type

Type TGUIElem
	Global invalidList:TList = CreateList()
	Global MH1:Int
	Global MH2:Int
	Global MH3:Int
	Global MD1:Int
	Global MD2:Int
	Global MD3:Int
	Field parent:TGUIElem
	Field x:Int,y:Int,width:Int,height:Int
	Field children:TList = CreateList()
	Field isValid:Int = 2
	
	Field id:Int
	
	Function updateMouse()
		MH1 = MouseHit(1)
		MH2 = MouseHit(1)
		MH3 = MouseHit(1)
		MD1 = MouseDown(1)
		MD2 = MouseDown(2)
		MD3 = MouseDown(3)
	End Function
	
	Method postInvalidate()
		invalidList.addLast(Self)
		invalidate()
	End Method
	
	Method invalidate()
		isValid = 2;
		For Local child:TGUIElem = EachIn children
			child.invalidate()
		Next
	End Method
	
	Method postInvalidateBlock(bx:Int,by:Int,bw:Int,bh:Int)
		invalidList.addLast(Self)
		Print(bx+" "+by+" "+bw+" "+bh)
		invalidateBlock(bx,by,bw,bh)
	End Method
	
	Method invalidateBlock(bx:Int,by:Int,bw:Int,bh:Int)
		isValid = 2;
		For Local child:TGUIElem = EachIn children
			If (child.x<=bx+bw Or child.x+child.width>=bx)
				If (child.y<=by+bh Or child.y+child.height>=by)
					child.invalidate()
					Print("invalidated "+id)
				EndIf
			EndIf
		Next
	End Method
	
	Method draw(x:Int,y:Int,force:Int)
		For Local child:TGUIElem = EachIn children
			child.draw(x+child.x,y+child.y,force)
		Next
		isValid = isValid-1
	End Method
	
	Method update(x:Int,y:Int)
		For Local child:TGUIElem = EachIn children
			child.update(x+child.x,y+child.y)
		Next
	End Method
	
	Method addChild(child:TGUIElem)
		children.addLast(child)
		child.parent = Self
	End Method
End Type

Local desk:TDesktop = TDesktop.Create(800,600)
desk.id = -1
For Local i:Int = 0 To 500
	Local window:TWindow = TWindow.Create((10+i*5) Mod 700, (10+i*5) Mod 540,60,100)
	desk.addChild(window)
	window.id = i
	For Local j:Int = 0 To 4
		Local button:TButton = TButton.Create(5,2+j*20,50,16,"Test")
		window.addChild(button)
	Next
Next

Local timer:TTimer = CreateTimer(60)

While (Not KeyHit(KEY_ESCAPE))
	TGUIElem.updateMouse()
	desk.draw(0,0,False)
	Flip
	desk.draw(0,0,False)
	desk.update(0,0)
	WaitTimer(timer)
Wend

Global Img:TImage = CreateImage(512, 512)  ' Bild und entsprechendes FBO erstellen
MidHandleImage Img 
Local IB:TImageBuffer = TImageBuffer.SetBuffer(Img) 

      IB.BindBuffer()   ' Lenkt die Ausgabe auf das vorher geladene FBO umleiten
      IB.Cls(1.0,,,0.4) ' Alpha, Rot, Grün, Blau ; Normale Zeichenbefehle folgen
      SetColor 255,255,255 
      DrawLine 0,0,512,512 
      DrawLine 0,512,512,0 
       IB.UnBindBuffer()   ' Ausgabe zurück auf den Backbuffer.
      SetViewport 0,0,800,600 

TImageBuffer.Init(800, 600) 'Same as Graphics but set to GLDriver + glewinit 

Global Img:TImage = CreateImage(512, 512) 

Local IB:TImageBuffer = TImageBuffer.SetBuffer(Img)

    IB.BindBuffer()
	
    IB.Cls(0, 0, 0, 1)
	
	SetColor 255, 255, 255
 	DrawRect(1, 1, 10, 10)
	   
    IB.UnBindBuffer()
    SetViewport 0, 0, 800, 600

SetClsColor 127, 127, 127

While Not (KeyHit(KEY_ESCAPE) Or AppTerminate())
    Cls
	
    SetScale 1, -1
    DrawImageRect Img, 0, 512, 512, 512
    SetScale 1, 1
	
    Flip
Wend