Сортировка цветов

[Sibedir]

Для вашей задачи больше подойдет работа с цветом в формате HSL чем RGB. Вот первое на что наткнулся: http://www.vr-online.ru/topic.php?id=12708
Вот что получилось:Сортировка цветов.zip
На сколько я понял, существует несколько способов из RGB получить HSL. Они отличаются не только кодом, но и результатом.
Кстати, обратите внимание на:

...
procedure ColorToHSL(Color: TColor; out H, S, L: byte);
var
  R, G, B, D, Cmax, Cmin, HL: Integer;
begin
  R := TRGBQuad (Color).rgbBlue;
  G := TRGBQuad (Color).rgbGreen;
  B := TRGBQuad (Color).rgbRed;
...

[Altera]

2Sebedir, спасибо конечно, но всё равно не совсем то что надо

Щас попробую поглубже разораться...

[mutabor]

Если работать с RGB цветом, то спектр можно условно разделить на три части, в к-рых разные компоненты цвета то идут на убыль то поднимаются. Кстати это наводит на мысль о синусоиде, может ее тут заюзать? У разных компонентов цвета будут разные фазы.

p/s Нарисовал на листике, действительно так и есть, три синусоиды к-рые отличаются по фазе. Вот тебе и значения R G B.


Вот код, и результат его работы

uses
  Math;

var
  r, g, b: byte;
  i: integer;
begin
  for I := 0 to 360 do begin
    r:=Round(128+cos(DegToRad(i))*128);
    g:=Round(128+cos(DegToRad(i+240))*128);
    b:=Round(128+cos(DegToRad(i+120))*128);
    Canvas.Pen.Color:=RGB(r,g,b);
    Canvas.MoveTo(i, 0);
    Canvas.LineTo(i, 50);
  end;
end;

Красный цвет совпадает с косинусом, зеленый - сдвинут по фазе на 240 град., синий на 120.
Но за счет того что синусоида имеет плавную форму, чистых цветов на границах нет (желтого например), тут нужно синусоиду как бы дискретной сделать, с линейными (по диагонали) перепадами, и плоскими пиками равным по длине перепаду * 2. Плюс черные полосы нужно разобраться что тут делают.

[TwiX]

Ещё вот что подумал:
1) Отсортировать все цвета в одномерном пространстве нельзя. Только со 100% насыщенностью
2) Нужно двумерное - как в фотошопе, например

[Alex Cones]

И как ты себе представляешь вертикальный столбик (список) цветов в 2-х мерном порядке?

[TwiX]

Я как раз говорю что такое невозможно простым алгоритмом:

1) Отсортировать все цвета в одномерном пространстве нельзя. Только со 100% насыщенностью

нужен не стобик, а сетка тогда уж)

[Altera]

надо как минимум к максимальному контрасту привести.

[TwiX]

^это называется 100%насыщенность)

[Sibedir]

Блин, интересная оказывается тема

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

Отсортировать все цвета в одномерном пространстве нельзя...

И виной тому две вещи: физика и математика.
С точки зрения физики цвет - это функция типа:
Color = f (V)
, где
V - это вектор из N-ого кол-ва параметров d, A;
d - длина волны;
A - амплитуда;
N - количество волн.
Таким образом, цвет - это функция трех независимых аргументов.
А с точки зрения математики функцию от N независимых аргументов нельзя преобразовать в функцию от (N - C) аргументов, где C - больше 0.
Сортировка по списку - это упорядочивание по одному из параметров. Аргументы можно преобразовывать сколь угодно, но их все равно будет три и при сортировке вам придется поступится двумя из них.
Я предлагаю разбить цвета на группы, близкие по содержанию, по одним параметрам и отсортировать каждую группу по другому параметру:
Сортировка цветов.zip
P.S.: mutabor, то о чем вы пишите и есть оттенок, который можно получить процедурой ColorToHSL (параметр H). Оттенков, кстати действительно должно быть 360, а не 255. Только вот на счет синусоиды я не уверен. Мне кажется, там все-таки кусочно-линейная зависимость.

[Altera]

Плюс черные полосы нужно разобраться что тут делают.

2mutabor, это не чёрные полосы: открой картинку в пеинте и увеличь до 8 раз. Это видемо результат функции больше чем $00FFFFFF (16 777 216)
Щас разберусь

procedure Tmain_form.PaintBox1Paint(Sender: TObject);
var
  r, g, b: word;
  i: integer;
begin
  for I := 0 to 360 do begin
    r:=Round(128+cos(DegToRad(i))*128);
    g:=Round(128+cos(DegToRad(i+240))*128);
    b:=Round(128+cos(DegToRad(i+120))*128);

    if r > 255 then r := 255;
    if g > 255 then g := 255;
    if b > 255 then b := 255;

    PaintBox1.Canvas.Pen.Color:=RGB(r,g,b);
    PaintBox1.Canvas.MoveTo(i, 0);
    PaintBox1.Canvas.LineTo(i, 50);
  end;
end;