Code: Select all
Ausgewogene_RGB_Farben_1:Array[0..63,1..3]of Byte=
((0,0,0),(86,0,0),(172,0,0),(255,0,0),(0,86,0),(86,86,0)...
[/quote] Diese Palette enthält aber auch Farbtöne wie
[b](255,255,86)[color=#FFFF56]gelbstichiges weiss[/color],(0,86,255) [color=#00FF56]leichtbläuliches grün[/color],(255,86,255)[color=#FF56FF]weiss angehauchtes magenta[/color][/b],...
somit für Lasershows eher wenig notwendige Farben.
Mein Vorschlag[1] wäre eine Palette mit 7 Farben[[b][color=red]Rd[/color],[color=yellow]Ye[/color],[color=green]Gn[/color],[color=cyan]Cy[/color],[color=blue]Bl[/color],[color=#FF00FF]Mg[/color],[color=white]Wh[/color][/b]]
x 9 Intensitätsstufen[6%,9%,13%,18%,25%,35%,50%,71%,100%] + Schwarz
Palette_7Color_9Intesity:Array[0..63,1..3]of Byte=
((0,0,0),(16,0,0),(23,0,0),(32,0,0),(45,0,0),(64,0,0),(90,0,0),(128,0,0),(180,0,0),(255,0,0),
(16,16,0),(23,23,0),(32,32,0),(45,45,0),(64,64,0),(90,90,0),(128,128,0),(180,180,0),(255,255,0),
(0,16,0),(0,23,0),(0,32,0),(0,45,0),(0,64,0),(0,90,0),(0,128,0),(0,180,0),(0,255,0),
(0,16,16),(0,23,23),(0,32,32),(0,45,45),(0,64,64),(0,90,90),(0,128,128),(0,180,180),(0,255,255),
(0,0,16),(0,0,23),(0,0,32),(0,0,45),(0,0,64),(0,0,90),(0,0,128),(0,0,180),(0,0,255),
(16,0,16),(23,0,23),(32,0,32),(45,0,45),(64,0,64),(90,0,90),(128,0,128),(180,0,180),(255,0,255),
(16,16,16),(23,23,23),(32,32,32),(45,45,45),(64,64,64),(90,90,90),(128,128,128),(180,180,180),(255,255,255))
Vorschlag[2] wäre eine Palette mit 13 Farben[[b][color=red]Rd[/color],[color=orange]Or[/color],[color=yellow]Ye[/color],[color=#80FF00]Le[/color],[color=green]Gn[/color],[color=#00FF80]Aq[/color],[color=cyan]Cy[/color],[color=#0080FF]Gb[/color],[color=#0000FF]Bl[/color],[color=#8000FF]Vi[/color],[color=#FF00FF]Mg[/color],[color=#FF0080]Pu[/color],[color=white]Wh[/color][/b]]
x 5 (bzw 4 für Lemon und Aquamarin) Intensitätsstufen[(9%),19%,36%,60%,100%] + Schwarz
Palette_13Color_5Intesity:Array[0..63,1..3]of Byte=
((0,0,0),(24,0,0),(48,0,0),(92,0,0),(152,0,0),(255,0,0),
(24,12,0),(48,24,0),(92,46,0),(152,76,0),(255,128,0),
(24,24,0),(48,48,0),(92,92,0),(152,152,0),(255,255,0),
(24,48,0),(46,92,0),(76,152,0),(128,255,0),
(0,24,0),(0,48,0),(0,92,0),(0,152,0),(0,255,0),
(0,48,24),(0,92,46),(0,152,76),(0,255,128),
(0,24,24),(0,48,48 ),(0,92,92),(0,152,152),(0,255,255),
(0,12,24),(0,24,48 ),(0,46,92),(0,76,152),(0,128,255),
(0,0,24),(0,0,48 ),(0,0,92),(0,0,152),(0,0,255),
(12,0,24),(24,0,48 ),(46,0,92),(76,0,152),(128,0,255),
(24,0,24),(48,0,48 ),(92,0,92),(152,0,152),(255,0,255),
(24,0,12),(48,0,24),(92,0,46),(152,0,76),(255,0,128),
(24,24,24),(48,48,48 ),(92,92,92),(152,152,152),(255,255,255))
[size=75][color=darkred]Achtung - Ich habe bei ....,48 ) ein Blank einfügen müssen damit nicht ,48) kommt[/color][/size]
[size=75][color=red]edit: jetzt erst genauer durchgelesen[/color][/size][quote="Gento"]<Rem>
Schnitt Rot : 0..1 Rotanteil aller Punkte
Intensität Mittel Rot. Rotanteil aller Punkte mit Rot.
</Rem>[/quote][quote]Intensität Mittel Rot :0,73
Intensität Mittel Grün :0,71
Intensität Mittel Blau :0,65[/quote]
Somit dürfte sich der Farbanteil eher im Bereich 30% - 100% bewegen =>
Vorschlag[3] wäre eine Palette mit 13 Farben[[b][color=red]Rd[/color],[color=orange]Or[/color],[color=yellow]Ye[/color],[color=#80FF00]Le[/color],[color=green]Gn[/color],[color=#00FF80]Aq[/color],[color=cyan]Cy[/color],[color=#0080FF]Gb[/color],[color=#0000FF]Bl[/color],[color=#8000FF]Vi[/color],[color=#FF00FF]Mg[/color],[color=#FF0080]Pu[/color],[color=white]Wh[/color][/b]]
x 4 Intensitätsstufen[35%,50%,71%,100%] + Schwarz + [color=darkblue]11 x Benutzerdefiniert[/color]
Palette_13Color_4Intesity:Array[0..63,1..3]of Byte=
((0,0,0),(92,0,0),(128,0,0),(184,0,0),(255,0,0),
(92,46,0),(128,64,0),(184,92,0),(255,128,0),
(92,92,0),(128,128,0),(184,184,0),(255,255,0),
(46,92,0),(64,128,0),(92,184,0),(128,255,0),
(0,92,0),(0,128,0),(0,184,0),(0,255,0),
(0,92,46),(0,128,64),(0,184,92),(0,255,128),
(0,92,92),(0,128,128),(0,184,184),(0,255,255),
(0,46,92),(0,64,128),(0,92,184),(0,128,255),
(0,0,92),(0,0,128),(0,0,184),(0,0,255),
(46,0,92),(64,0,128),(92,0,184),(128,0,255),
(92,0,92),(128,0,128),(184,0,184),(255,0,255),
(92,0,46),(128,0,64),(184,0,92),(255,0,128),
(92,92,92),(128,128,128),(184,184,184),(255,255,255),
[color=darkblue](0,0,0),(0,0,0),(0,0,0),(0,0,0),(0,0,0),(0,0,0),
(0,0,0),(0,0,0),(0,0,0),(0,0,0),(0,0,0))[/color]
Für die Bewertung der Farb- / Intensitäts-Abweichung hätte ich diese Vorschläge:
function AbweichungFarbe(Rot , Grün ,Blau, Palette_Rot, Palette_Grün, Palette_Blau as Byte) as float
[size=75]return (sqrt((Rot-Palette_Rot)*(Rot-Palette_Rot) + (Grün-Palette_Grün)*(Grün-Palette_Grün) + (Blau-Palette_Blau)*(Blau-Palette_Blau)))/255[/size]
function AbweichungIntensität(Rot , Grün ,Blau, Palette_Rot, Palette_Grün, Palette_Blau as Byte) as float
[size=75]return abs(sqrt(Rot*Rot + Grün*Grün + Blau*Blau)-sqrt(Palette_Rot*Palette_Rot + Palette_Grün*Palette_Grün + Palette_Blau*Palette_Blau))/255[/size]
Gruss Andreas