Color ARGB<->(a,r,g,b) Преобразование цвета

[Randomize]

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

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:Int, Red:Int, Green:Int, Blue:Int)
    Return ((alpha & 255) Shl 24) | ((Red & 255) Shl 16) | ((Green & 255) Shl 8) | (Blue & 255)
EndFunction 


BlitzMax Color cversion Color Colour RGB ARGB (r,g,b) цвет преобразование блиц блицмакс разбить цвет компоненты эр жэ бэ
да, гугл, это тебе.

[Dzirt]

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

Но пусть будут отдельной темой...ато тоже в аське задирают иногда.

[Colossus]

по улицам питера ходит клей, и нюхает людей...