In diesem Schnipsel kann man ein Bild laden, dann die Farbdaten auslesen und für jedes Pixel den Integer-Wert in RGB umwandeln. Ich weiß nicht, ob es sowas schon gibt, aber ich wollte mal gucken, ob ich sowas auch hinkriege :)
mfG
[attachment deleted by admin]
Bitte mit Integern rechnen:
TYPE tColor
r%
g%
b%
ENDTYPE
// ------------------------------------------------------------- //
// --- GETRGBFROMINT --- Returns RGB with 3 parameters (R, G, B)´in an array
// ------------------------------------------------------------- //
@FUNCTION GetRgbFromInt%: tmpcolor AS tColor, value%
LOCAL tmp%
tmpcolor.b = INTEGER(value / 65536)//B
tmp = MOD(value, 65536)
tmpcolor.g = INTEGER(tmp / 256)//G
tmpcolor.r = INTEGER(tmp - (tmpcolor.g * 256))//R
ENDFUNCTION // GETRGBFROMINT
Super!
OK!
Merk ich mir fürs nächste Mal :)