Негатив

[Jean-Esther]

Пока готовлю тему для совместного мозгои... истерзания, дам такой вопрос: если есть цвет в формате шестнадцетиричного RRGGBB, как получить негатив? Например, дано (Делфи) c:TColor, c:=#567890.

[XeN0N]

вроде нужно вычесть цвет из FFFFFF в 16 системе

[roach1967]

Надо контролировать, чтобы значение для каждого цвета в отдельности не стало $FF. Т.е. любой цвет может принимать значение из диапазона $00..$FE. Вычитать надо из $FEFEFE.

[XeN0N]

разве FF не может? 100% интенсивность или както так
например белый
FFFFFF
черный = FFFFFF - FFFFFF(белый) = 000000

[mihali4]

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

Надо контролировать, чтобы значение для каждого цвета в отдельности не стало $FF. Т.е. любой цвет может принимать значение из диапазона $00..$FE. Вычитать надо из $FEFEFE.

Это что-то новое...
По-вашему, цвет со значением $0000FF - это не чисто красный?
По-вашему, чисто красный - это $0000FЕ?

[roach1967]

Мне уже приходилось сталкиваться с обработкой изображения и передачу его куда-то ещё. Минимальное и максимальное значения цветов брались те, которые предлагала сама система. Вот там как раз и стояли значения $FE. Сейчас уже не могу вспомнить, в каких случаях происходит такое ограничение. Если установлено разрешение в 16 бит, то такое ограничение понятно. Есть ещё 24 и 32 бита.
На данный момент у меня качество цветопередачи 32 бита. Цвета можно задавать в полном диапазоне. Т.е. не стоит и запариваться насчёт таких значений цветов.
Данное ограничение, по моемому, было связано как-то с заданием цвета какого-то компонента для передачи прозрачного цвета (сквозь него виден рабочий стол), а не с картинкой.
А в итоге изысканий получилось, что удобнее и быстрее получать негатив операцией NOT. Она просто инвертирует каждый бит, т.е. результат аналогичный вычитанию из $FFFFFF.
Но вот как получить негатив в 32-х битной картинке?

[DomiNick]

Может так?

Procedure TForm1.Button1Click(Sender: TObject);
Var i, j: Integer;
Begin
For i:=0 To Image1.Width Do
    For j:=0 To Image1.Height Do
        Image1.Canvas.Pixels[i,j]:=clwhite-Image1.Canvas.Pixels[i,j];
End;

[roach1967]

Я попробовал такой код. Работает вроде быстрее.