Уменьшить кол-во цветов (24bit -> 16 colors)

[Tronix]

Привет,

Есть 24-битная картинка, допустим, BMP для простоты. Нужно сделать из нее 16-ти цветную (всего доступно 16 цветов). Доступна 16-ти цветная палитра, например такая:

0x0 - 0x000000 (Black, Transparent in foreground layer)
0x1 - 0x000000 (Black)
0x2 - 0x888888 (Gray)
0x3 - 0xBF3932 (Red)
0x4 - 0xDE7AAE (Pink)
0x5 - 0x4C3D21 (Dark brown)
0x6 - 0x905F25 (Brown)
0x7 - 0xE49452 (Orange)
0x8 - 0xEAD979 (Yellow)
0x9 - 0x537A3B (Green)
0xA - 0xABD54A (Light green)
0xB - 0x252E38 (Dark blue)
0xC - 0x00467F (Blue)
0xD - 0x68ABCC (Light blue)
0xE - 0xBCDEE4 (Sky blue)
0xF - 0xFFFFFF (White)

Как я понимаю, начинать стоит с этого: http://en.wikipedia.org/wiki/Color_quantization и, соответственно, http://en.wikipedia.org/wiki/Dither ?
Но в вики одно, а конкретных примеров маловато. Обычно все к 8-бит сводят (256 цветов), но мне это не подходит. У меня всего 16 цветов (
В принципе, оно более-менее понятно, как делать по самому простому алгоритму (считать ошибки между пикселями), но во избежание изобретения адсокого велосипеда, возможно подтолкнете уже к готовым решениям? Спасибо. Мне не для лабы и не на продакшен, поэтому не брезгаю воспользоваться готовыми либами/компонентами

[JTG]

В GIFImage уже есть TColorQuantizer, TDitherEngine и т.п.
http://www.google.com/codesearch#sea...pascal&type=cs
и ф-я ReduceColors

[volod3000]

Вот предлагают на буржуйском форуме решение
http://www.delphigroups.info/2/9/642332.html
или вот тут
http://www.efg2.com/Lab/Library/Delp...hics/Color.htm

[Tronix]

Сообщение от volod3000

Вот предлагают на буржуйском форуме решение
http://www.delphigroups.info/2/9/642332.html

Не не, не стоит путать 16-bit color и всего 16 цветов (оно 4-bit получаетсо)
из 24 бит получить 16 бит цвет как два пальца об асфальт, это ежу понятно, но мне не нужно.

Сообщение от volod3000

или вот тут
http://www.efg2.com/Lab/Library/Delp...hics/Color.htm

Видел данную ссылку по гуглю, но увы, опять без конкретики (она есть только для 256-цветов). Мне повторюсь нужно 16 цветов по заданной палитре.

[volod3000]

Наткнулся на интересную статью по Вашей теме,
думаю там найдете ответ:

http://forum.vingrad.ru/topic-94227.html

[JTG]

Да всё написано уже

  // ReduceColors
  // Map colors in a bitmap to their nearest representation in a palette using
  // the methods specified by the ColorReduction and DitherMode parameters.
  // The ReductionBits parameter specifies the desired number of colors (bits
  // per pixel) when the reduction method is rmQuantize. The CustomPalette
  // specifies the palette when the rmPalette reduction method is used.
  function ReduceColors(Bitmap: TBitmap; ColorReduction: TColorReduction;
    DitherMode: TDitherMode; ReductionBits: integer; CustomPalette: hPalette): TBitmap;

[Tronix]

Сообщение от volod3000

Наткнулся на интересную статью по Вашей теме,
думаю там найдете ответ:

http://forum.vingrad.ru/topic-94227.html

Да чем она интересная-то? Ну формат BMP описан худо-бедно, так я же не про него спрашивал. Как его читать-писать, особенно 24-бит, это все давно понятно. Вы видимо вообще не понимаете, о чем эта тема.

Сообщение от JTG

Да всё написано уже

Я понял, понял, еще из предыдущего вашего поста. Спасибо что подсказали направление, буду разбираться, по результатам отпишусь.

[Tronix]

JTG, грацис, все получилось отлично.