Mit dem nachfolgendem Code erstelle ich eine 12-Bit Palette mit 4096 Farben.
Leider bekomme ich keinen sauberen Farbverlauf hin - da hocken immer diese Blautöne dazwischen.
Ich habe auch schon die Google-Bildersuche bemüht - aber meistens sehen die Farbverläufe da genauso aus, wie bei mir - und bei den wenigen Ausnahmen, wo es richtig dargestellt wurde, waren die Bilder leider nur im JPEG-Format verfügbar.
Darum meine Frage: Hat jemand eine Idee bzw. weiß es, wie man da einen sauberen Farbverlauf hinbekommt?
Code: Alles auswählen
EnableExplicit
;
#WIN = 0
#G_IMG = 0
#IMG = 0
;
Define.i red, green, blue, x, y
Dim hVals.a(15)
;
CopyMemory(?hexVals, @hVals(), 16)
;
OpenWindow(#WIN, 0, 0, 320, 240, "4096 Colors Palette", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ImageGadget(#G_IMG, 0, 0, 320, 240, #Null)
;
;CreateImage(#IMG, 256, 16)
CreateImage(#IMG, 320, 240)
;
StartDrawing(ImageOutput(#IMG))
For red = 0 To 15
For green = 0 To 15
For blue = 0 To 15
Plot(x, y, RGB(hVals(red), hVals(green), hVals(blue)))
x + 1
Next
Next
x = 0
y + 1
Next
StopDrawing()
;
;SaveImage(#IMG, "4096_colors.bmp")
SetGadgetState(#G_IMG, ImageID(#IMG))
;
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : Break
EndSelect
ForEver
;
DataSection
hexVals:
Data.a $00, $11, $22, $33, $44, $55, $66, $77, $88, $99, $AA, $BB, $CC, $DD, $EE, $FF
EndDataSection
;