Function MixColor (col1,colstr1,col2) ;colstr sollte zwischen 0 und 255 sein, entspricht dem Alphakanal
	Local colr1, colg1, colb1
	Local colr2, colg2, colb2
	colr1= Color2R(col1) : colg1= Color2G(col1) : colb1= Color2B(col1)
	colr2= Color2R(col2) : colg2= Color2G(col2) : colb2= Color2B(col2)
	Return MixRGB (colr1,colg1,colb1,colstr1,colr2,colg2,colb2)
End Function

Function MixRGB (r1,g1,b1,str1,r2,g2,b2)
	Local str2=255-str1
	Local r3= r1/255*str1+ r2/255*str2
	Local g3= g1/255*str1+ g2/255*str2
	Local b3= b1/255*str1+ b2/255*str2
	Return RGB2Color (r3,g3,b3)
End Function

Function RGB2Color (rd,gr,bl)
	Return bl Or (gr Shl 8) Or (rd Shl 16)
End Function

Function Color2R (col)
	Return (col And $FF0000)/$10000
End Function
Function Color2G (col)
	Return (col And $FF00)/$100
End Function
Function Color2B (col)
	Return col And $FF
End Function