RGB в CMYK и CMYK в RGB могут конвертироваться без потери качества?

[hon]

Решил протестить, для интереса. Запустил такую консольную программу:

program ColorWriter;

{$APPTYPE CONSOLE}

uses
   SysUtils;

procedure RGBtoCMYK(R: smallint; G: smallint; B: smallint;
   var C: smallint; var M: smallint; var Y: smallint; var K: smallint);
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: smallint; M: smallint; Y: smallint; K: smallint;
   var R: smallint; var G: smallint; var B: smallint);
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;

var
   r, g, b: smallint;
   r2, g2, b2: smallint;
   c, m, y, k: smallint;
   f: textfile;
begin
  { TODO -oUser -cConsole Main : Insert code here }
   Assignfile(f, 'D:\123.txt');
   Rewrite(f);
   for r:=0 to 255 do
      for g:=0 to 255 do
         for b:=0 to 255 do
         begin
            RGBtoCMYK(r, g, b, c, m, y, k);
            CMYKtoRGB(c, m, y, k, r2, g2, b2);
            if (r<>r2) OR (g<>g2) OR (b<>b2) then
               Writeln(f,'r=' ,r, ' g=' ,g, ' b=' ,b,
                         'r2=',r2,' g2=',g2,' b2=',b2);
         end;
   Closefile(f);
end.

И удивился: размер файла = 0 байт. Строка Writeln не выполняется.
Сделал специально ошибку так:

 if (r<>g2) OR (g<>g2) OR (b<>b2) then

и размер файла побежал ввысь. Исправил ошибку (на r<>r2) и размер файла - 0?

Я где здесь намутил или RGB и CMYK действительно конвертируются без потерь?

[GunSmoker]

(не спец в RGB/CMYK, но...)

Есть мнение, что у тебя ошибка в рассуждениях.

Пример: всякое натуральное число является вещественным. Но не всякое вещественное число является натуральным.


(левый рисунок должен быть смещён наверх, чтобы пустой квадрат был бы последним, снизу)

Вот одно и то же изображение, по разному представленное в CMYK (справа - увеличина чёрная компонента, чтобы экономить цветную краску). В RGB оба эти изображения будут представлены одинаково. Т.е. два CMYK - один RGB.

Когда ты конвертируешь RGB в CMYK - ты получаешь какой-то CMYK из некоторых возможных. Конвертируешь обратно - получаешь тот же RGB. Но из этого никак не следует эквивалентность двух моделей.

[hon]

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

(не спец в RGB/CMYK, но...)

Есть мнение, что у тебя ошибка в рассуждениях.

Пример: всякое натуральное число является вещественным. Но не всякое вещественное число является натуральным.


(левый рисунок должен быть смещён наверх, чтобы пустой квадрат был бы последним, снизу)

Вот одно и то же изображение, по разному представленное в CMYK (справа - увеличина чёрная компонента, чтобы экономить цветную краску). В RGB оба эти изображения будут представлены одинаково. Т.е. два CMYK - один RGB.

Когда ты конвертируешь RGB в CMYK - ты получаешь какой-то CMYK из некоторых возможных. Конвертируешь обратно - получаешь тот же RGB. Но из этого никак не следует эквивалентность двух моделей.

Я получай не CMY (левое), а CMYK (правое).
Как тогда считать это?

Никак. У CMYK меньше цветовой охват. Плюс потери при преобразовании

http://www.photoshop-master.ru/forum...p/topic/20799/

[GunSmoker]

Лично я пас, ибо

не спец в RGB/CMYK

Почему бы не задать этот вопрос в подходящем разделе, где есть люди, способные на него ответить? Причём тут Delphi?

[hon]

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

Почему бы не задать этот вопрос в подходящем разделе, где есть люди, способные на него ответить? Причём тут Delphi?

Найдите такой раздел тогда.

[Человек_Борща]

Мультімедіа, не?