TheGameCreators - CodeBase - Invert/Remove(Color Chanels)/Greyscale A Bitmap

Category: Complete Applications

Version: 1.0

Information

Uploaded: 8th Oct 2004 21:36

Modified: 12th Dec 2004 16:01

Author: Ilya

Summary

Greyscale a bitmap. Invert a bitmap/any color chanel of a bitmap. Remove a color chanel from a bitmap. Includes template for custom functions. Could use speed optimizations.

Full Description

Greyscale a bitmap. Invert a bitmap/any color chanel of a bitmap.<br /> Remove a color chanel from a bitmap. Includes template for custom functions. Could use speed optimizations.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

load bitmap <BITMAP HERE>,1

draw(1,1,1)

if inkey$()="g" then greyscale(1) : cls : draw(1,1,1)

if inkey$()="i" then input "1 for red, 2 for green, 3 for blue, 4 for all",c : invert(1,c) : cls : draw(1,1,1)

if inkey$()="r" then input "1 for red, 2 for green, 3 for blue",c : remove(1,c) : cls : draw(1,1,1)

loop

function greyscale(bitmap)

set current bitmap bitmap

w=bitmap width(bitmap)

h=bitmap height(bitmap)

for x=1 to w

for y=1 to h

c=point(x,y)

a=(rgbr(c)+rgbg(c)+rgbb(c))/3

dot x,y,rgb(a,a,a)

next y

next x

set current bitmap 0

endfunction

`color = 1 for red, 2 for green, 3 for blue, 4 for all

function invert(bitmap,color)

set current bitmap bitmap

w=bitmap width(bitmap)

h=bitmap height(bitmap)

for x=1 to w

for y=1 to h

c=point(x,y)

if color=4 then dot x,y,rgb(255-rgbr(c),255-rgbg(c),255-rgbb(c))

if color=3 then dot x,y,rgb(rgbr(c),rgbg(c),255-rgbb(c))

if color=2 then dot x,y,rgb(rgbr(c),255-rgbg(c),rgbb(c))

if color=1 then dot x,y,rgb(255-rgbr(c),rgbg(c),rgbb(c))

next y

next x

set current bitmap 0

endfunction

`color = 1 for red, 2 for green, 3 for blue

function remove(bitmap,color)

set current bitmap bitmap

w=bitmap width(bitmap)

h=bitmap height(bitmap)

for x=1 to w

for y=1 to h

c=point(x,y)

if color=3 then dot x,y,rgb(rgbr(c),rgbg(c),0)

if color=2 then dot x,y,rgb(rgbr(c),0,rgbb(a))

if color=1 then dot x,y,rgb(0,rgbg(c),rgbb(a))

next y

next x

set current bitmap 0

endfunction

function draw(xpos,ypos,bitmap)

set current bitmap bitmap

w=bitmap width(bitmap)

h=bitmap height(bitmap)

for x=1 to w-1

for y=1 to h-1

c=point(x,y)

set current bitmap 0

dot x+xpos,y+ypos,c

set current bitmap bitmap

next y

next x

set current bitmap 0

endfunction

`template

remstart

function func(bitmap)

set current bitmap bitmap

w=bitmap width(bitmap)

h=bitmap height(bitmap)

for x=1 to w

for y=1 to h

c=point(x,y)

dot x,y,rgb(c,c,c)

next y

next x

set current bitmap 0

endfunction

remend

Download

Please login to download

Comments

No comments yet.

Author Name:	Ilya
CodeBase Entries:	1

CodeBase - Invert/Remove(Color Chanels)/Greyscale A Bitmap

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments