Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > BlitzMax > FAQ и уроки

Ответ
 
Опции темы
Старый 05.11.2010, 02:39   #1
Randomize
[object Object]
 
Аватар для Randomize
 
Регистрация: 01.08.2008
Адрес: Планета Земля
Сообщений: 4,143
Написано 2,335 полезных сообщений
(для 6,492 пользователей)
Color ARGB<->(a,r,g,b) Преобразование цвета

Спойлер для "знатоков" и просто "оффтоперов":

XXX (01:03:57 5/11/2010)
привет!

XXX (01:03:58 5/11/2010)
не поможешь?

XXX (01:04:00 5/11/2010)
я с булеана

randomize.bb (01:04:18 5/11/2010)
я тоже с булеана

XXX (01:04:22 5/11/2010)


XXX (01:04:27 5/11/2010)
ты ведь на максе прогаешь?

randomize.bb (01:04:45 5/11/2010)
да, это так

XXX (01:05:32 5/11/2010)
у меня запара тут с цветом не поможешь?

randomize.bb (01:05:43 5/11/2010)
цвет...

randomize.bb (01:05:46 5/11/2010)
цвет вобще сложная штука. Не пойми меня привратно. У меня тут грибы я вот ем их и цвет такой сложный и его реально много! Ещё он добрый. Я дружу с ним.

XXX (01:13:36 5/11/2010)


randomize.bb (01:13:50 5/11/2010)
Ну дык чо.

randomize.bb (01:14:06 5/11/2010)
дак это, что с цветом то?

randomize.bb (01:16:13 5/11/2010)
Это надо?
Function GetAlpha:Int(ARGB%)
Return (ARGB Shr 24) And 255
EndFunction

Function GetRed:Int(ARGB%)
Return (ARGB Shr 16) And 255
EndFunction

Function GetGreen:Int(ARGB%)
Return (ARGB Shr And 255
EndFunction

Function GetBlue:Int(ARGB%)
Return ARGB And 255
EndFunction

Function GetARGB:Int(Alpha%, Red%, Green%, Blue%)
Return ((Alpha And 255) Shl 24) Or ((Red And 255) Shl 16) Or ((Green And 255) Shl Or (Blue And 255)
EndFunction

XXX (01:17:11 5/11/2010)
оооооооо спппппаааааассссиииииббббоооо!!!!
Выручил чуваааак

randomize.bb (01:15:28 5/11/2010)
чувввваааааккк

XXX (01:18:45 5/11/2010)
а ты что правда наркоман?

randomize.bb (01:18:59 5/11/2010)
Да, вот тут клей у меня "Спрут" и ещё Шрибы отменные.
И это уже раз 5-ый на моей памяти. Задолбали! ATOMIC RAGE! Надо мне у Knightmare поучится этикету, жить станет проще.

Вот и выкладываю дабы больше не приставали со своими вопросами.

Функции преобразования цвета:
Function GetAlpha:Int(ARGB%)
    Return (
ARGB Shr 24) & 255
EndFunction

Function GetRed:Int(ARGB%)
    Return (
ARGB Shr 16) & 255
EndFunction

Function GetGreen:Int(ARGB%)
    Return (
ARGB Shr 8) & 255
EndFunction
    
Function GetBlue:Int(ARGB%)
    Return 
ARGB 255
EndFunction
    
Function GetARGB:Int(Alpha:IntRed:IntGreen:IntBlue:Int)
    Return ((
alpha 255Shl 24) | ((Red 255Shl 16) | ((Green 255Shl 8) | (Blue 255)
EndFunction 

BlitzMax Color cversion Color Colour RGB ARGB (r,g,b) цвет преобразование блиц блицмакс разбить цвет компоненты эр жэ бэ
да, гугл, это тебе.
__________________
Retry, Abort, Ignore? █
AMD Ryzen 7 1700X x8 3.4Ghz; 16Gb ram; Radeon RX 570
AMD Athlon II x4 2.6Ghz; 8Gb ram; Nvidia Geforce GTX 750 Ti

Последний раз редактировалось Randomize, 24.02.2012 в 07:16. Причина: byte &,| instead logic And Or
(Offline)
 
Ответить с цитированием
Эти 6 пользователя(ей) сказали Спасибо Randomize за это полезное сообщение:
baton4ik (14.11.2010), DeeJex (05.11.2010), Hulk-DS (13.04.2012), moka (05.11.2010), Phantom (05.11.2010), St_AnGer (05.11.2010)
Старый 05.11.2010, 10:32   #2
Dzirt
Элита
 
Аватар для Dzirt
 
Регистрация: 16.01.2008
Адрес: Украина
Сообщений: 1,800
Написано 958 полезных сообщений
(для 3,832 пользователей)
Ответ: Color ARGB<->(a,r,g,b) Преобразование цвета

Я выкладывал эти функции здесь:
http://forum.boolean.name/showthread.php?t=13426

Но пусть будут отдельной темой...ато тоже в аське задирают иногда.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Randomize (05.11.2010)
Старый 09.11.2010, 03:27   #3
Colossus
Разработчик
 
Аватар для Colossus
 
Регистрация: 12.10.2008
Адрес: Самара
Сообщений: 437
Написано 54 полезных сообщений
(для 91 пользователей)
Ответ: Color ARGB<->(a,r,g,b) Преобразование цвета

по улицам питера ходит клей, и нюхает людей...
__________________
Пекарня: Intel Core i3 - 3240(3.40Ghz), ram 8 gb, video Gigabyte Nvidia GeForce GTX 650 1gb

Лэптоп : Intel Core i3 - 2365(1.40Ghz), ram 4gb, video Int Intel HD3000(512mb)

Мой набор: 3ds Max 9 + Xors3d(Blitz3d) + Photoshop
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 17:25.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com