Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

CMYK В RGB   Найти похожие ветки 

 
Юрий   (2002-12-26 17:55) [0]

Есть CMYK(CYAN=n Yellow=n ...) как получить RGB?.
Такая функция есть в Фотошопе и Кореле .
Какой алгоритм преобразования?


 
AlexT1000   (2002-12-26 18:33) [1]

C = 1 - R
M = 1 - G
Y = 1 - B

K = min(C,M,Y);
и еще разок
C = C - K
M = M - K
Y = Y - K


 
MBo ©   (2002-12-26 18:34) [2]

Точного соответствия нет
Ориентировочно
R=1-C
G=1-M
B=1-Y



 
Jeer ©   (2002-12-26 19:44) [3]

// Based on C Code in "Computer Graphics -- Principles and Practice,"
// Foley et al, 1996, p. 589


function cmyktorgbtriple (const c,m,y,k: integer): trgbtriple;
begin
with result do
begin
rgbtred := 255 - (c + k);
rgbtgreen := 255 - (m + k);
rgbtblue := 255 - (y + k)
end
end;


 
Fenik ©   (2002-12-29 00:01) [4]

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Перевод CMYK цвета в RGB

Зависимости: System
Автор: Ajax, ajax@mail.kz
Copyright: Ajax
Дата: 27 апреля 2002 г.
***************************************************** }

procedure CMYK2RGB(C,M,Y,K,R,G,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;



Страницы: 1 вся ветка

Текущий архив: 2003.04.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
3-6302
Инна
2003-03-17 10:15
2003.04.03
ADOTable и ADOQuery


14-6769
Юров Владимир
2003-03-17 16:26
2003.04.03
SynEdit vs. Delphi 6


1-6544
DelphiN!
2003-03-21 12:13
2003.04.03
Как узнать handl текущего компонента и окна


1-6462
Sergey_
2003-03-24 11:15
2003.04.03
в чём отличие TEdit.text и string ?


1-6434
Vitek
2003-03-20 17:33
2003.04.03
Проблема с ControlBar и ToolBar