TheGameCreators - CodeBase - Blend Bitmap Function

Return to the CodeBase listing

Category: Bitmap

Version: 1.0

Information

Uploaded: 10th Jan 2004 08:58

Modified: 28th Jan 2004 16:00

Author: Hamish McHaggis

Summary

Blends two bitmaps together and outputs on a specified bitmap using a blend (alpha) value.

Full Description

Blends to bitmaps together and outputs on a specified bitmap using a blend (alpha) value. Please make sure that the input bitmaps are the same size, and that the output bitmap is the same size, or bigger than the input bitmaps. A blend value of 0 will have all bitmap 1 and no bitmap 2, a blend value of 255 will have all bitmap 2 and no bitmap 1. A blend value of 127 will have 1/2 bitmap 1 and 1/2 bitmap 2. Please acknowledge me if you use in your code.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

FUNCTION blendBitmaps(bitmapOne AS INTEGER, bitmapTwo AS INTEGER, outputBitmap AS INTEGER, blend AS INTEGER)

`Setup local variables

LOCAL bmpX AS INTEGER

LOCAL prevBitmap AS INTEGER

LOCAL blendR AS FLOAT

LOCAL blendG AS FLOAT

LOCAL blendB AS FLOAT

LOCAL colour AS INTEGER

LOCAL n AS INTEGER

LOCAL x AS INTEGER

LOCAL y AS INTEGER

`Get the first bitmap's height

bmpX = BITMAP WIDTH(bitmapOne)

bmpY = BITMAP HEIGHT(bitmapOne)

LOCAL DIM bitmapRed(2,bmpX,bmpY) AS FLOAT

LOCAL DIM bitmapGreen(2,bmpX,bmpY) AS FLOAT

LOCAL DIM bitmapBlue(2,bmpX,bmpY) AS FLOAT

`Store the current bitmap

prevBitmap = CURRENT BITMAP()

`Set bitmap to bitmap 1

SET CURRENT BITMAP bitmapOne

LOCK PIXELS

FOR n=1 TO 2

`Get colour info for bitmaps

FOR x=0 TO bmpX

FOR y=0 TO bmpY

colour=POINT(x,y)

bitmapRed(n,x,y)=RGBR(colour)

bitmapGreen(n,x,y)=RGBG(colour)

bitmapBlue(n,x,y)=RGBB(colour)

NEXT y

NEXT x

UNLOCK PIXELS

`Set to second bitmap

SET CURRENT BITMAP bitmapTwo

LOCK PIXELS

NEXT n

UNLOCK PIXELS

`Set to output bitmap

SET CURRENT BITMAP outputBitmap

LOCK PIXELS

FOR x=0 TO bmpX

FOR y=0 TO bmpY

`blend pixels

blendR=bitmapRed(1,x,y)/255*(255-blend) + bitmapRed(2,x,y)/255*blend

blendG=bitmapGreen(1,x,y)/255*(255-blend) + bitmapGreen(2,x,y)/255*blend

blendB=bitmapBlue(1,x,y)/255*(255-blend) + bitmapBlue(2,x,y)/255*blend

colour=RGB(blendR,blendG,blendB)

`Draw new pixels

INK colour,0

DOT x,y

NEXT y

NEXT x

UNLOCK PIXELS

`Set to previous bitmap

SET CURRENT BITMAP prevBitmap

ENDFUNCTION

Download

Please login to download

Comments

No comments yet.

Author Name:	Hamish McHaggis
CodeBase Entries:	14

CodeBase - Blend Bitmap Function

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments