Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Цвета... [D5, Win95/98]


Страницы:   1 2

ThomasXIII ©   (2004-08-27 00:07:00) 

Мастера! Напишите, плиз, процедуру, "усредняющую" цвета (например:красный+желтый=оранжевый или белый+черный=серый). Очень надо.


jack128   (2004-08-27 00:37:00) [21]

GuAV ©   (27.08.04 0:27) [4]
Хотя не уверен, что эта идея (твоя) правильная.


ну я увидел слово "усредняющую" и ответил в меру своего скудоумия ;-) решать правильно или нет - автору..


3APA3A   (2004-08-27 00:32:00) [22]

Я имел в виду RGB...


GuAV   (2004-08-27 00:30:00) [23]

Раумеется, если компонента переполнена, принять максимум иначе - сам понимаешь, ваще бред.


GuAV   (2004-08-27 00:27:00) [24]

jack128 ©   (27.08.04 00:10) [1]
Тот же результа, алгоримт оптимизирован.
Color:=((Color1 shr 1) and $7F7F7F + (Color2 shr 1) and $7F7F7F);

Хотя не уверен, что эта идея (твоя) правильная.


>  Оранжевый - это сложение красного и желтого

В RGB сложение даст желтый, а в CMYK красный, в общем случае - неизвестно.


3APA3A   (2004-08-27 00:26:00) [25]

Так задачи разные по своей сути...
 Оранжевый - это сложениекрасного и желтого
 Серый - это среднеемежду белым и черным...
 
 Для начала ответь на вопрос что надо сделать (сложить или усреднить) что бы получить
  1) Темно-красный
  2) Фиолетовый
  3) Белый


jack128   (2004-08-27 00:11:00) [26]


> переведи цвета в RGB и УСРЕДНИ каждую компоненту


jack128   (2004-08-27 00:10:00) [27]

переведи цвета в RGB и вредни каждую компоненту цвета по отдельности. И переведи обратно в TColor


> Напишите, плиз, процедуру

Подобные запросы на этом форуме не катируются..


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо