VPF::расчет цветов CMYK - Форум программистов

Black_Joker

Дата 9.3.2006, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет

Доброго времени суток.

Подскажите формулу для расчета светов в CMYK
Как зная цвета пикселя в RGB получить значения цветов CMYK?

Snowy

Дата 9.3.2006, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Из DRKB:

Код

procedure RGBTOCMYK(R : byte; 
                   G : byte; 
                   B : byte; 
                   var C : byte; 
                   var M : byte; 
                   var Y : byte; 
                   var K : byte); 
begin 
 C := 255 - R; 
 M := 255 - G; 
 Y := 255 - B; 
 if C < M then 
   K := C else 
   K := M; 
 if Y < K then 
   K := Y; 
 if k > 0 then begin 
   c := c - k; 
   m := m - k; 
   y := y - k; 
 end; 
end; 

procedure CMYKTORGB(C : byte; 
                   M: byte; 
                   Y : byte; 
                   K : byte; 
                   var R : byte; 
                   var G : byte; 
                   var B : byte); 
begin 
  if (Integer(C) + Integer(K)) < 255 then 
    R := 255 - (C + K) else 
    R := 0; 
  if (Integer(M) + Integer(K)) < 255 then 
    G := 255 - (M + K) else 
    G := 0; 
  if (Integer(Y) + Integer(K)) < 255 then 
    B := 255 - (Y + K) else 
    B := 0; 
end; 

procedure ColorCorrectCMYK(var C : byte; 
                          var M : byte; 
                          var Y : byte; 
                          var K : byte); 
var 
 MinColor : byte; 
begin 
 if C < M then 
   MinColor := C else 
   MinColor := M; 
 if Y < MinColor  then 
   MinColor := Y; 
 if MinColor + K > 255 then 
   MinColor := 255 - K; 
 C := C - MinColor; 
 M := M - MinColor; 
 Y := Y - MinColor; 
 K := K + MinColor; 
end;

Автор: p0s0l

Black_Joker

Дата 10.3.2006, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет

Большое спасибо

Black_Joker

Дата 11.3.2006, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет

К сожалению не работет.

Участок

Код


if C < M then 
   K := C else 
   K := M; 
 if Y < K then 
   K := Y; 
 if k > 0 then begin 
   c := c - k; 
   m := m - k; 
   y := y - k; 
 end;

Не павильный в принципе. Так цвет считаться не может!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »