Graphics 800,600,32,1          ;Vollbild mit Auflösung 800x600x32
SetBuffer BackBuffer()

;-------------
;Arrays      |
;-------------

Dim Farben(1,2)      ;Für zwei Farben jeweils der Anteil der Farbe an ROT, GRÜN, und BLAU
Dim Mischfarbe(2)    ;Anteile der Mischfarbe an ROT,GRÜN und BLAU

;----------------
;Funktionen     |
;----------------
Function Farbaddition(Farben(0,0),Farben(0,1),Farben(0,2),Farben(1,0),Farben(1,1),Farben(1,2))
 For a=0 To 2
  Farben(0,a)+Farben(1,a)=Mischfarbe(a)     ;RGB-Werte der zwei Farben werden jeweils addiert
  If Farben(0,a)>255 Then Farben(0,a)=255   ;Wenn eine der Summen größer als 255 ist, wird sie auf
  If Farben(1,a)>255 Then Farben(1,a)=255   ;255 zurückgestellt, weil sie ja nicht größer sein darf
 Next
 Return Mischfarbe      ;Die Variable "Mischfarbe" wird ans Hauptprogramm zurückgegeben
End Function
 

;-------------------
;Hauptschleife     |
;-------------------

Repeat
 Cls
 
 Farben(0,0)=Rand(255)     ;----
 Farben(0,1)=Rand(255)     ;---------
 Farben(0,2)=Rand(255)     ;Farbe wird zu-
 Farben(1,0)=Rand(255)     ;fällig festgelegt
 Farben(1,1)=Rand(255)     ;---------
 Farben(1,2)=Rand(255)     ;----
 
 Mischfarbe=Farbaddition(Farben(0,0),Farben(0,1),Farben(0,2),Farben(1,0),Farben(1,1),Farben(1,2))
 Color Mischfarbe(0),Mischfarbe(1),Mischfarbe(2)     
 Rect 400,300,200,150           ;Rechteck wird in der Miscshfarbe gezeichnet
 
 Flip
Until KeyHit(1)

End

Function bla(wert1,wert2)
End Function

bla(Array(0,0),Array(0,1))

Farben(0,a)+Farben(1,a)=Mischfarbe(a)