VPF::Цвета в Delphi - Форум программистов

MacTep

Дата 8.10.2004, 22:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

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

Как на канве нарисовать цветовой круг, т.е. такой, в котором были бы все цвета из палитры RGB. Наверняка, кто-нибудь такое уже делал. Подскажите! Буду благодарен!

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

p0s0l

Дата 8.10.2004, 22:16 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

В смысле - цветовой круг ?
В центре к примеру - черная окружность радиусом 1, далее окружность более светлая с радиусом 2 и т.д. ?
Если так, то в каком порядке должны быть расположены цвета ? Все таким макаром не влезут...

Наверное, я всё-таки не понял

--------------------

С уважением, г-н Посол.

MacTep

Дата 8.10.2004, 22:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

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

p0s0l, ты действительно не так понял. Знаешь цветовой куб? А круг этот такой круг, где из одного цвета постепенно цвет переходит в другой. Давай я тебе на e-mail Отправлю прогу, а ты ее посмотришь?

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

p0s0l

Дата 8.10.2004, 22:25 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

ок, шли

--------------------

С уважением, г-н Посол.

p0s0l

Дата 8.10.2004, 23:11 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Теперь понял!
Вот, наскорую руку исправил недосмотр...
Только процедурина там ведь тормознутая. Если очень надо будет прооптимизировать её - обращайся в форум!

А проблема там была в неточных расчётах...

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  b,k,r,g,i: integer;

const
  filval = 48192; // ЭТО МОЖЕШЬ МЕНЯТЬ...

const // ЭТИ НЕ МЕНЯЙ!!!
  fil1 = filval div 3;
  divkoef = round(filval/(pi*2));

begin
 for k:=0 to 100 do
 begin
  for i:=0 to fil1-1 do
  begin
    g := 255*i div fil1;
    r := 255 - g;
    canvas.Pixels[100+round(k*cos(i/divkoef)),100+round(k*sin(i/divkoef))]:=r+256*g
  end;
  for i:=fil1 to fil1*2-1 do
  begin
    b := 255*(i-fil1) div fil1;
    g := 255 - b;;
    canvas.Pixels[100+round(k*cos(i/divkoef)),100+round(k*sin(i/divkoef))]:=256*g+65536*b;
  end;
  for i:=fil1*2 to filval do
  begin
    r := 255*(i-fil1*2) div fil1;
    b := 255 - r;
    canvas.Pixels[100+round(k*cos(i/divkoef)),100+round(k*sin(i/divkoef))]:=r+65536*b;
  end;
 end;
end;

--------------------

С уважением, г-н Посол.

MacTep

Дата 9.10.2004, 07:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

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

Вот ето благодабрю!!!

Помог, так помог! Спасибо!

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

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