Forum Webscript.Ru

Программирование => Perl => Тема начата: Error202 от 29 Ноября 2005, 13:27:30

Название: Определение цвета
Отправлено: Error202 от 29 Ноября 2005, 13:27:30

Есть ли какой-нть алгоритм, при помощи которого можно было бы сделать следующее:

Если цвет в переменной A-темный, то цвет в переменную Б записать #FFFFFF

Если цвет в переменной A-светлый, то цвет в переменную Б записать #000000 ?

Но учитывать нужно всю палитру, т.е. и темно-зеленый и розовый... и т.д.

Название: Определение цвета
Отправлено: Error202 от 29 Ноября 2005, 14:34:24

Всем спасибо... Все оказалось намного проще, чем я думал...

Название: Определение цвета
Отправлено: Elenka от 08 Декабря 2005, 15:11:15

а озвучить можно ?

Название: Определение цвета
Отправлено: Error202 от 09 Декабря 2005, 11:43:45

### Get Font Color
    $blfcm=~ s/#//;    
    $fontm_1=hex(substr($blfcm, 1,2));
    $fontm_2=hex(substr($blfcm, 3,2));
    $fontm_3=hex(substr($blfcm, 5,2));


   if (($fontm_1 > 199)or($fontm_2 > 199)or($fontm_3 > 199)) {$textmaincolor="#000000";}  else {$textmaincolor="#ffffff";};