VPF::Градиентная заливка - Форум программистов

Всемогущий

Дата 17.5.2007, 20:37 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 440
Регистрация: 25.6.2006
Где: Челябинск

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

Дано:2 цвета заданные RED GREEN BLUE каждый от 0 до 255 (стандарт)

задача: за N шагов перейти от одного цвета к другому.

Подскажите пожалуйста что из чего вычитать,и по сколько smile

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

Цитата(smartov @ 16.1.2007, 13:26

)

Видел я PHP код, который пишут наСильники, никогда на php не писавшие :D То еще зрелище. Все пытаются сделать руками и через ж (как в С привыкли). Все пытаются память освобождать итд итп.

Bitter

Дата 17.5.2007, 21:17 (ссылка)

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

Загрузка ...

Опытный лентяй

Профиль
Группа: Завсегдатай
Сообщений: 1209
Регистрация: 15.8.2004
Где: Харьков, Ukraine

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

Вроде должно быть всё понятно ))

Код


  rgb1:=Color1;   // Первый цвет

  rgb2:=Color2;   // Второй цвет

  m:=100;            // Количество шагов

  rgb3.r:=(rgb2.R-rgb1.R)/m;    // Шаг по каждой составляющей
  rgb3.g:=(rgb2.G-rgb1.G)/m;
  rgb3.b:=(rgb2.B-rgb1.B)/m;

  for j:=0 to m do  // Рисуем одномерную палитру
   Image1.Picture.Bitmap.Canvas.Pixels[j,0]:=RGB(rgb1.r+Round(rgb3.r*j),
                                                                              rgb1.g+Round(rgb3.g*j),
                                                                              rgb1.b+Round(rgb3.b*j));

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