TheGameCreators - CodeBase - image : alpha and more v2

Return to the CodeBase listing

Category: Image

Version: 2.0

Information

Uploaded: 15th Oct 2004 02:40

Modified: 1st Jan 1970 01:00

Author: Graphiboc

Summary

functions of images: alpha, color, etc.

Full Description

ghost_image(x,y,img,img2,img_free,alpha_base) -> To precalculate the transparency of an image with the luminosity of each pixel. Can also be used in calculation direct but slowed down the program. color_image(img,red#,green#,blue#) -> To change the colors of an image. greyscale_image(img) -> To put an image in levels of gray. invert_image(img) -> to reverse the colors of an image light_image(img,light_img,pourcentage) -> To change the luminosity of each pixel of an image with a map of luminosity blend_image(img1,img2,blend_img,result_img) -> To mix two images with a blendmap alpha_image(x,y,img,img2,img_free,_alpha#) -> To define the value alpha of an image and to precalculate this image test1(x,y,img,img2,img_free,alpha#) -> a simple test noise_image(img,noise) -> To add noise to an image luminosity_image(img,luminosity) -> To change the luminosity of an image contraste_image(img,contraste) -> To change contrasts of an image

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

function ghost_image(x,y,img,img2,img_free,alpha_base)

if image exist(img)=1

FOR a=1 to 3

if memblock exist(a)=1 then delete memblock a

NEXT a

x1=x : y1=y

if x1<0 then x1=0 : if y1<0 then y1=0

if x1>screen width()-1 then x1=screen width()-1 : if y1>screen width()-1 then y1=screen width()-1

width=img_width(img)

height=img_height(img)

if width+x>screen width() then width=screen width()-x

if height+y>screen height() then height=screen height()-y

get image img_free,x1,y1,x1+width,y1+height,1

make memblock from image 3,img_free

delete image img_free

make memblock from image 1, img

make memblock 2,get memblock size(1)

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

write memblock dword 2,0,memblock dword(1,0) : `width

write memblock dword 2,4,memblock dword(1,4) : `height

write memblock dword 2,8,memblock dword(1,8) : `depht

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

d=memblock dword(3,12+b*4+a*sw*4)

alpha#=alpha_base/((light_value(c)/255)*100)

if alpha#<1 then alpha#=1

r#=(rgbr(d)+rgbr(c)/alpha#)

if r#>255 then r#=255

if r#<0 then r#=0

g#=(rgbg(d)+rgbg(c)/alpha#)

if g#>255 then g#=255

if g#<0 then g#=0

b#=(rgbb(d)+rgbb(c)/alpha#)

if b#>255 then b#=255

if b#<0 then b#=0

global_color=RGB(r#,g#,b#)

`global_color=rgb((rgbr(d)+rgbr(c)/alpha#),(rgbg(d)+rgbg(c)/alpha#),(rgbb(d)+rgbb(c)/alpha#))

write memblock dword 2,12+b*4+a*sw*4,global_color

next b

next a

make image from memblock img2,2

delete memblock 1

delete memblock 2

delete memblock 3

endif

endfunction

function alpha_image(x,y,img,img2,img_free,_alpha#)

if image exist(img)=1

FOR a=1 to 3

if memblock exist(a)=1 then delete memblock a

NEXT a

x1=x : y1=y

if x1<0 then x1=0 : if y1<0 then y1=0

if x1>screen width()-1 then x1=screen width()-1 : if y1>screen width()-1 then y1=screen width()-1

width=img_width(img)

height=img_height(img)

if width+x>screen width() then width=screen width()-x

if height+y>screen height() then height=screen height()-y

get image img_free,x1,y1,x1+width,y1+height,1

make memblock from image 3,img_free

delete image img_free

make memblock from image 1, img

make memblock 2,get memblock size(1)

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

write memblock dword 2,0,memblock dword(1,0) : `width

write memblock dword 2,4,memblock dword(1,4) : `height

write memblock dword 2,8,memblock dword(1,8) : `depht

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

d=memblock dword(3,12+b*4+a*sw*4)

alpha#=100/_alpha#

if alpha#<1 then alpha#=1

r#=(rgbr(d)+rgbr(c)/alpha#)

if r#>255 then r#=255

if r#<0 then r#=0

g#=(rgbg(d)+rgbg(c)/alpha#)

if g#>255 then g#=255

if g#<0 then g#=0

b#=(rgbb(d)+rgbb(c)/alpha#)

if b#>255 then b#=255

if b#<0 then b#=0

global_color=RGB(r#,g#,b#)

`global_color=rgb((rgbr(d)+rgbr(c)/alpha#),(rgbg(d)+rgbg(c)/alpha#),(rgbb(d)+rgbb(c)/alpha#))

write memblock dword 2,12+b*4+a*sw*4,global_color

next b

next a

make image from memblock img2,2

delete memblock 1

delete memblock 2

delete memblock 3

endif

endfunction

function test1(x,y,img,img2,img_free,alpha#)

if image exist(img)=1

FOR a=1 to 3

if memblock exist(a)=1 then delete memblock a

NEXT a

x1=x : y1=y

if x1<0 then x1=0 : if y1<0 then y1=0

if x1>screen width()-1 then x1=screen width()-1 : if y1>screen width()-1 then y1=screen width()-1

width=img_width(img)

height=img_height(img)

if width+x>screen width() then width=screen width()-x

if height+y>screen height() then height=screen height()-y

get image img_free,x1,y1,x1+width,y1+height,1

make memblock from image 3,img_free

delete image img_free

make memblock from image 1, img

make memblock 2,get memblock size(1)

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

write memblock dword 2,0,memblock dword(1,0) : `width

write memblock dword 2,4,memblock dword(1,4) : `height

write memblock dword 2,8,memblock dword(1,8) : `depht

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

d=memblock dword(3,12+b*4+a*sw*4)

alpha#=100/alpha#

if alpha#<1 then alpha#=1

r#=(rgbr(d)+rgbr(c)/alpha#)

if r#>255 then r#=255

if r#<0 then r#=0

g#=(rgbg(d)+rgbg(c)/alpha#)

if g#>255 then g#=255

if g#<0 then g#=0

b#=(rgbb(d)+rgbb(c)/alpha#)

if b#>255 then b#=255

if b#<0 then b#=0

global_color=RGB(r#,g#,b#)

`global_color=rgb((rgbr(d)+rgbr(c)/alpha#),(rgbg(d)+rgbg(c)/alpha#),(rgbb(d)+rgbb(c)/alpha#))

write memblock dword 2,12+b*4+a*sw*4,global_color

next b

next a

make image from memblock img2,2

delete memblock 1

delete memblock 2

delete memblock 3

endif

endfunction

function color_image(img,red#,green#,blue#)

if image exist(img)=1

FOR a=1 to 1

if memblock exist(a)=1 then delete memblock a

NEXT a

make memblock from image 1,img

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

r#=rgbr(c)+red#

if r#>255 then r#=255

if r#<0 then r#=0

g#=rgbg(c)+green#

if g#>255 then g#=255

if g#<0 then g#=0

b#=rgbb(c)+blue#

if b#>255 then b#=255

if b#<0 then b#=0

color=RGB(r#,g#,b#)

write memblock dword 1,12+b*4+a*sw*4,color

next b

next a

make image from memblock img,1

delete memblock 1

endif

endfunction

function greyscale_image(img)

if image exist(img)=1

FOR a=1 to 1

if memblock exist(a)=1 then delete memblock a

NEXT a

make memblock from image 1,img

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

value=light_value(c)

color=rgb(value,value,value)

write memblock dword 1,12+b*4+a*sw*4,color

next b

next a

make image from memblock img,1

delete memblock 1

endif

endfunction

function invert_image(img)

if image exist(img)=1

FOR a=1 to 1

if memblock exist(a)=1 then delete memblock a

NEXT a

make memblock from image 1,img

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

r#=128-(rgbr(c)-128)

if r#>255 then r#=255

if r#<0 then r#=0

g#=128-(rgbg(c)-128)

if g#>255 then g#=255

if g#<0 then g#=0

b#=128-(rgbb(c)-128)

if b#>255 then b#=255

if b#<0 then b#=0

color=rgb(r#,g#,b#)

write memblock dword 1,12+b*4+a*sw*4,color

next b

next a

make image from memblock img,1

delete memblock 1

endif

endfunction

function noise_image(img,noise)

if image exist(img)=1

FOR a=1 to 1

if memblock exist(a)=1 then delete memblock a

NEXT a

make memblock from image 1,img

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

r#=rgbr(c)+(noise/2-rnd(noise))

if r#>255 then r#=255

if r#<0 then r#=0

g#=rgbg(c)+(noise/2-rnd(noise))

if g#>255 then g#=255

if g#<0 then g#=0

b#=rgbb(c)+(noise/2-rnd(noise))

if b#>255 then b#=255

if b#<0 then b#=0

color=rgb(r#,g#,b#)

write memblock dword 1,12+b*4+a*sw*4,color

next b

next a

make image from memblock img,1

delete memblock 1

endif

endfunction

function luminosity_image(img,luminosity)

if image exist(img)=1

FOR a=1 to 1

if memblock exist(a)=1 then delete memblock a

NEXT a

make memblock from image 1,img

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

r#=rgbr(c)+luminosity

if r#>255 then r#=255

if r#<0 then r#=0

g#=rgbg(c)+luminosity

if g#>255 then g#=255

if g#<0 then g#=0

b#=rgbb(c)+luminosity

if b#>255 then b#=255

if b#<0 then b#=0

color=rgb(r#,g#,b#)

write memblock dword 1,12+b*4+a*sw*4,color

next b

next a

make image from memblock img,1

delete memblock 1

endif

endfunction

function contraste_image(img,contraste)

if image exist(img)=1

FOR a=1 to 1

if memblock exist(a)=1 then delete memblock a

NEXT a

make memblock from image 1,img

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

if rgbr(c)<128 then r#=rgbr(c)-luminosity

if rgbr(c)>=128 then r#=rgbr(c)+luminosity

if r#>255 then r#=255

if r#<0 then r#=0

if rgbg(c)<128 then g#=rgbg(c)-luminosity

if rgbg(c)>=128 then g#=rgbg(c)+luminosity

if g#>255 then g#=255

if g#<0 then g#=0

if rgbb(c)<128 then b#=rgbb(c)-luminosity

if rgbb(c)>=128 then b#=rgbb(c)+luminosity

if b#>255 then b#=255

if b#<0 then b#=0

color=rgb(r#,g#,b#)

write memblock dword 1,12+b*4+a*sw*4,color

next b

next a

make image from memblock img,1

delete memblock 1

endif

endfunction

function light_image(img,light_img,pourcentage)

`LES DEUX IMAGES DOIVENT ETRES DE TAILLE IDENTIQUES!

if image exist(img)=1 and image exist(light_img)=1

FOR a=1 to 2

if memblock exist(a)=1 then delete memblock a

NEXT a

make memblock from image 1,img

make memblock from image 2,light_img

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

d=memblock dword(2,12+b*4+a*sw*4)

value#=light_value(d)

r#=rgbr(c)+value#*(pourcentage/100)

if r#>255 then r#=255

if r#<0 then r#=0

g#=rgbg(c)+value#*(pourcentage/100)

if g#>255 then g#=255

if g#<0 then g#=0

b#=rgbb(c)+value#*(pourcentage/100)

if b#>255 then b#=255

if b#<0 then b#=0

color=rgb(r#,g#,b#)

write memblock dword 1,12+b*4+a*sw*4,color

next b

next a

make image from memblock img,1

delete memblock 1

delete memblock 2

endif

endfunction

function blend_image(img1,img2,blend_img,result_img)

`LES IMAGES DOIVENT ETRES DE TAILLE IDENTIQUES!

if image exist(img1)=1 and image exist(img2)=1 and image exist(blend_img)=1

FOR a=1 to 2

if memblock exist(a)=1 then delete memblock a

NEXT a

make memblock from image 1,img1

make memblock from image 2,img2

make memblock from image 3,blend_img

make memblock 4,get memblock size(1)

write memblock dword 4,0,memblock dword(1,0) : `width

write memblock dword 4,4,memblock dword(1,4) : `height

write memblock dword 4,8,memblock dword(1,8) : `depht

sw=memblock dword(1,0) : `width

sh=memblock dword(1,4) : `height

for a=0 to sh-1

for b=0 to sw-1

c=memblock dword(1,12+b*4+a*sw*4)

d=memblock dword(2,12+b*4+a*sw*4)

e=memblock dword(3,12+b*4+a*sw*4)

alpha#=100/((light_value(e)/255)*100)

if alpha#<1 then alpha#=1

r1#=rgbr(d)/alpha#

g1#=rgbg(d)/alpha#

b1#=rgbb(d)/alpha#

r#=(rgbr(c)+r1#)

if r#>255 then r#=255

if r#<0 then r#=0

g#=(rgbg(c)+g1#)

if g#>255 then g#=255

if g#<0 then g#=0

b#=(rgbb(c)+b1#)

if b#>255 then b#=255

if b#<0 then b#=0

color=rgb(r#,g#,b#)

write memblock dword 4,12+b*4+a*sw*4,color

next b

next a

make image from memblock result_img,4

delete memblock 1

delete memblock 2

delete memblock 3

delete memblock 4

endif

endfunction

FUNCTION img_width(img)

sprite 65500,0,0,img

sx=sprite width(65500)

delete sprite 65500

ENDFUNCTION sx

FUNCTION img_height(img)

sprite 65500,0,0,img

sy=sprite height(65500)

delete sprite 65500

ENDFUNCTION sy

FUNCTION light_value(rgb_value)

value#=(rgbr(rgb_value)+rgbg(rgb_value)+rgbb(rgb_value))/3

ENDFUNCTION value#

Download

Please login to download

Comments

No comments yet.

Author Name:	Graphiboc
CodeBase Entries:	2

CodeBase - image : alpha and more v2

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments