BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"RGB Colour library", by paranoidpete

Deals with RGB hex values. Lets you do quick colour multiplication, addition, alpha, half alpha in Blitz 2d. You could easily write a routine to fade in a picture or make a smooth transition between 2 pictures with these functions.

Code

;RGB color library for dealing with colors in hex $RRGGBB
;made from a great tutorial in Hugi 21 by Ector of Medieval
;use it how you like
;If you are using this in real time then it would probably be best if you
;included the code in your inner loop rather than calling a function per
;pixel.

Function RGBAdd(RGB1,RGB2)
     R=(RGB1 And $FF0000)+(RGB2 And $FF0000)
     G=(RGB1 And $FF00)+(RGB2 And $FF00)
     B=(RGB1 And $FF)+(RGB2 And $FF)
     If R>$FF0000 R=$FF0000
     If G>$FF00 G=$FF00 
     If B>$FF B=$FF
     Return (R Or G Or B)
End Function

Function RGBMultiply(RGB1,RGB2)
     R=(((RGB1 And $FF0000)*(RGB2 And $FF0000)) Shr 8) And $FF0000
     G=(((RGB1 And $FF00)*(RGB2 And $FF00)) Shr 8) And $FF00
     B=(((RGB1 And $FF)*(RGB2 And $FF)) Shr 8) And $FF
     Return (R Or G Or B)
End Function

Function RGBMultiplyNum(RGB,val);val is an integer in range 0-255
     RB=(((RGB And $FF00FF)*val)Shr 8) And $FF00FF
     G=(((RGB And $00FF00)*val)Shr 8) And $00FF00
     Return (RB Or G)
End Function

Function RGBAlphaBlend(RGB1,RGB2,ALPHA);alpha is an integer in range 0-255
     RB1=RGB1 And $FF00FF : RB2=RGB2 And $FF00FF
     G1=RGB1 And $FF00 : G2=RGB2 And $FF00
     
     RB=(((ALPHA*(RB2-RB1))Shr 8)+RB1) And $FF00FF
     G=(((ALPHA*(G2-G1))Shr 8)+G1) And $FF00
     
     Return (RB Or G)
End Function

Function RGBHalfAlphaBlend(RGB1,RGB2)
     Return (((RGB1 And $FEFEFE)+(RGB2 And $FEFEFE)) Shr 1)
End Function

Code software created by Krylar's Kreations