Круг цвета

[Alex Cones]

Даже не знаю, куда запихнуть эту темку. Мне необходимо создать такой круг: http://www.programmersforum.ru/attac...1&d=1253283352. Буквами обозначены цвета, между ними не полосы, а плавные переходы.У края светлые оттенки, ближе к центру - темные. Я даже не могу представить, как это соорудить. Формат bmp, размер 250*250.

[Levsha100]

Элементарно!
Sin и Cos помним?

for r:=1 to 125 do
begin
  for angle:=1 to 360 do
  begin
     Image1.Canvas.Pixels[Round(125+r*Cos(angle*Pi/180)),Round(125+r*Sin(angle*Pi/180))]:=ColoR_F(r,angle);
  end;
end;

К сожалению сейчас делфя неустановлена, и код привести не смогу.
//-------------------------------------
Ф-ю ColoR_F напишешь или помочь
Даю наводку самый светлый цвет(белый)-0,0,0 , черный-255,255,255

function ColoR_F(int r,angle):Color;
var
r,g,b:byte;
begin
   ColoR_F:=TColor(RGB(r,g,b));
end;

[Alex Cones]

Получилось не совсем то:
Даже если наплевать на цвет, градиента нет и белая линия...
Может попытаться через фотожаб? Создать горизонтальную радугу и зугнуть её в кольцо? Сейчас попробую.

[mutabor]

Нужно задачу разбить на подзадачи. И обдумать по отдельности, тогда вероятность найти решение выше. Ясно что круг нужно создавать линиями из центра к окружности, т.к. он не одноцветный. Нужно продумать формулу на основании к-рой будет меняться оттенок линии по мере увеличения радианы (полный круг = 2Пи радиан кажется, я не помню )
Ну и так как нужно при увеличении радиуса менять яркость, то линию тоже нужно создавать с нуля (а не LineTo), градиентную.

Что в принципе почти реализовано в коде приведенном выше, но его нужно доработать, так как он не сплошной получается по мере удаления от центра. Также тебе нужно написать функцию ColoR_F, от r должна зависить яркость, а от angle цвет.

[Alex Cones]

Хм... Если разбивать на подзадачи, то можно так:

из центра к окружности

Наверное все-таки наоборот, от края к центру, иначе будут незакрашенные области. Я думаю, может рисовать друг на друге 125 окружностей, постепенно уменьшая радиус и увеличивая темность цветовой гаммы, теперь осталось разобраться с самими цветами.
___________________________________ ____________________________
Вот, что получилось в фотожабе, по крайней мере уже ближе

[mutabor]

Сообщение от Alex Cones

Хм... Если разбивать на подзадачи, то можно так:
Наверное все-таки наоборот, от края к центру, иначе будут незакрашенные области. Я думаю, может рисовать друг на друге 125 окружностей, постепенно уменьшая радиус и увеличивая темность цветовой гаммы, теперь осталось разобраться с самими цветами.

Можно и так, принципиальной разницы нет. Чтобы дыр не было нужно чаще точки рисовать, их частота должна увеличиваться пропорционально диаметру. Если взять первый вариант, то нужно не 360 градусов, а чаще в несколько раз шаг сделать (в радианах, а не в грудусах).

Рисовать окружности тоже идея. С помощью синуса опять же из точек рисуется окружность, а по мере удаления от центра менять яркость.

[Alex Cones]

По-моему все-таки проще намалевать в фотож. Осталось только затемнить:

[Levsha100]

Я бы заюзал опенГл если нужно нарисовать только этот круг.
А легче всего нарисовать в фотошопе.
Вот из корела:
http://t1.gstatic.com/images?q=tbn:C...HSV-Slider.png

[JTG]

Как насчёт всемогущего JEDI VCL - TJvFullColorCircle (TJvFullColorPanel, TJvFullColorTrackBar...)?

[Alex Cones]

Готово! Спасибо всем!