Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

Смешивание цвета   Найти похожие ветки 

 
snake1977   (2004-11-07 22:08) [0]

Здравствуйте! Есть цвет красный (255) и серый (12632256), как получить смесь этих цветов??


 
KilkennyCat ©   (2004-11-07 22:11) [1]

прибавить к красной части серого 255


 
GuAV ©   (2004-11-07 22:14) [2]

KilkennyCat ©   (07.11.04 22:11) [1]
... и поделить на 2.

function GetMixedColorThursday(C1, C2: TColor): TColor;
begin
 Result:=C1 shr 1 and $7F7F7F + C2 shr 1 and $7F7F7F +
   C1 and C2 and $010101;
end;


не удивляться если синий+желтый = серый.


 
Defunct ©   (2004-11-07 22:15) [3]

> snake1977   (07.11.04 22:08)  

Function MixColors(C1, C2: Integer): Integer;assembler;
Asm
 movd  mm7, EAx
 and   Ecx, $ff
 pxor  mm5, mm5
 movd  mm6, EDx
 punpcklbw mm7, mm5
 punpcklbw mm6, mm5
 paddw mm6, mm7
 psraw mm6, 1
 packuswb mm6, mm6
 movd  Eax, mm6
 emms
end;


(C) def
уже выкладывал где-то полтора месяца назад.


 
default ©   (2004-11-07 22:19) [4]

KilkennyCat ©   (07.11.04 22:11) [1]
и тщательно перемешать!
помню кто-то говорил что цвета смешиваются так(может ошибаюсь...)
представить кубик 255*255*255
берёшь точку соответ-ую красному цвету и серому
записываешь уравнение прямой по этим точкам в простра-ве потом беря нужную точку на этой прямой получаешь смесь в нужном соотношении


 
GuAV ©   (2004-11-07 22:23) [5]

default ©   (07.11.04 22:19) [4]
Ну так если 50 на 50 то [2] или [3]



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.055 c
4-1097303157
dms_main
2004-10-09 10:25
2004.11.21
Проверка Хэндла


1-1099698525
Лёха
2004-11-06 02:48
2004.11.21
Jpeg -> TFileStream


14-1099233793
DRK
2004-10-31 17:43
2004.11.21
Разгон Power Color Radeon 9600


14-1099302701
clickmaker
2004-11-01 12:51
2004.11.21
что так форум тормозит?


14-1099501188
kdy
2004-11-03 19:59
2004.11.21
Кто как обновляет свои приложения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский