Яркость, контраст, превратить изображение в ч/б

Posted by obzor under Delphi

Есть BitMap. Нужно
1. Сделать его ч/б
2. Изменить яркость
3. Изменить контраст

BDA

Для развлечения конечно можно реализовывать всё самому, но каждая функция самописного комбайна будет уступать аналогичной функции специализированной программы, разработанной целой командой. Упросить себе жизнь можно, используя готовые библиотеки или дергая из своей программы другие программы с требуемыми параметрами.

kvitaliy

Всё элементарно решается простейшими формулами.
Например яркость:
-сканируем изображение построчно, определяем цвет каждого пикселя
-каждый пиксель раскладываем на RGB
-для увеличения яркости прибавляем одинаковое значение к каждому RGB
-для уменьшения яркости отнимаем одинаковое значение от каждого RGB
— собираем RGB обратно и записываем в то место изображения, откуда его взяли.
Для контраста чуть сложнее формула, псевдокод такой, выделяем r,g,b, значение контраста Amount:

     rg=(Abs(127-r) * Amount)/ 255;
     gg=(Abs(127-g) * Amount)/ 255;
     bg=(Abs(127-b) * Amount)/ 255;
     
     If r>127 : r=r+rg: Else : r=r-rg: EndIf ;
     If g>127 : g=g+gg: Else : g=g-gg: EndIf;
     If b>127 : b=b+bg: Else : b=b-bg: EndIf;

Ч.б. формула самая простая — разложили на r,g,b и вычислить среднее значение
col = (R+G+B)/3
собираем RGB обратно, используя для всех rgb одно и то же значение Col
r = col
g= col
b = col

тема на форуме

Похожие статьи

• Прозрачность формы PNG, 2xTCV и др.
• Медианный фильтр прорисовки изображений через pixels Delphi
• Адрес пикселя в BitMap
• Вставить TBitMap в RichEdit
• Уменьшить Bitmap
• Поворот изображения
• Декодирование BMP
• Вставить картинку из ImageList в RichView
• Как свойством BitMap.ScanLine проверить изображение (200х200 пкс) на наличие черных пикселей?
• Как загрузить из файла и вывести на форму bitmap?