TheGameCreators - CodeBase - image blender with all code

Category: Memblocks

Version: 1.0

Information

Uploaded: 13th Jan 2012 21:33

Modified: 13th Jan 2012 22:06

Author: gwheycs62egydws

Summary

this is a fully working copy of image blender created by "Phaelax" which he posted on 29th May 2004 unfortunately he did not post how use it , I have built the peace to use it the address to his post is http://www.thegamecreators.com/?m=codebase_view&i=424b8a3ebdf41d7732aabc61b992e846

Full Description

this is a fully working copy of image blender created by "Phaelax" which he posted on 29th May 2004 unfortunately he did not post how use it , I have built the peace to use it the address to his post is http://www.thegamecreators.com/?m=codebase_view&i=424b8a3ebdf41d7732aabc61b992e846 with images and source code because of file lints , sorry no compiled exe when I get a chance the full thing will be available from my site

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

this was created by "Resourceful" look me up in the forums

the Blend images Function was built by "Phaelax"

the address to his post is

http://www.thegamecreators.com/?m=codebase_view&i=424b8a3ebdf41d7732aabc61b992e846

remend

sync on

SYNC RATE 0

hide mouse

autocam off

set display mode 1024,768,32

maximize window

randomize timer()

rem images from - http://desktopwallpaper.org.in/3d-desktop-wallpaper/

rem images need to be the same size for this to work correctly

make object box 1,10,10,10

load image "3d-Desktop-Wallpaper-300x225.jpg",1

load image "wallpapers-for-desktop-3.jpg",2

a=1 `image 1

b=2 `image 2

c=3 `blended images

bp=50 `Percentage of Blending

sw=DESKTOP WIDTH()

sh=DESKTOP HEIGHT()

set text size 40

center text sw/2,10, "Farmes Per Second is = "+str$(screen fps())

center text (sw/2),50,"Image Blending % is = "+str$(bp)

center text (sw/5.6),120,"a = Reduce Blending "

center text (sw/1.25),120,"s = Increase Blending "

`the percentage can go - or + and you get uneak reults

`blend_image(image #1, image #2, cobined 1&2, precentage of Blending ~ 0 to 100)

blend_image(a, b, c, bp)

center text (sw/6),250," Image # 1"

paste image 1,40,300

center text (sw/1.25),250," Image # 2"

paste image 2,690,300

center text (sw/2),250," Image # 3"

paste image 3,365,300

set text size 30

center text (sw/2),550," 2 Images Blended Together"

center text (sw/2),700," Images need to be the same size for this to work"

if inkey$()="a" then bp=bp-1 : `if bp<0 then d=0 ~ use only if you want to keep with in limits

if inkey$()="s" then bp=bp+1 : `if d>100 then d=100 ~ use only if you want to keep with in limits

CodeBase - image blender with all code

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	gwheycs62egydws
CodeBase Entries:	1