Создание файла палитры.
Код:
File = CreateFile(#PB_Any, "Palette.pal")
For r = 0 To 255
For g = 0 To 255
For b = 0 To 255
WriteAsciiCharacter(File, r)
WriteAsciiCharacter(File, g)
WriteAsciiCharacter(File, b)
Next
Next
Next
Конвертация в BMP.
Код:
#PIXEL = 256 * 256 * 256
Line = Pow(#PIXEL, 1/2)
Palette = ReadFile(#PB_Any, "Palette.pal")
Macro Get()
ReadAsciiCharacter(Palette)
EndMacro
Image = CreateImage(#PB_Any, Line, Line, 24)
StartDrawing(ImageOutput(Image))
For x = 0 To Line-1
For y = 0 To Line-1
Plot(x, y, RGB(Get(), Get(), Get()))
Next
Next
StopDrawing()
SaveImage(Image, "Palette.bmp") Что-то картинка не соответствует ожидаемому.