SyntaxBomb - Indie Coders

Languages & Coding => Blitz Code Archives => Graphics => Topic started by: BlitzBot on June 29, 2017, 12:28:41 AM

Title: [bb] GetRGB by Skully [ 1+ years ago ]
Post by: BlitzBot on June 29, 2017, 12:28:41 AM

Title : GetRGB
Author : Skully
Posted : 1+ years ago

Description : Returns an RGB colour code for the red/green/blue components and back again

Code :

Code: BlitzBasic

1. Function GetRed(rgb)
2.         Return rgb Shr 16 And %11111111
3. End Function
4.  
5. Function GetGreen(rgb)
6.         Return rgb Shr 8 And %11111111
7. End Function
8.  
9. Function GetBlue(rgb)
10.         Return rgb And %11111111
11. End Function
12.  
13. Function GetRGB(red,green,blue)
14.         Return blue Or (green Shl 8) Or (red Shl 16)
15. End Function

Comments : none...