Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
14-1098880794
Aldor
2004-10-27 16:39
2004.11.21
Ура! Еду в Новосибирск!


6-1094837666
Victor!
2004-09-10 21:34
2004.11.21
И все-таки - как копировать по сети.


3-1098344203
rogiram
2004-10-21 11:36
2004.11.21
QuickReport без DataSet


4-1097347227
XProger
2004-10-09 22:40
2004.11.21
Добвить строку в RichEdit


3-1098845518
vituha
2004-10-27 06:51
2004.11.21
dBase to Paradox