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

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

                                    ` 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()
 do 
 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
sync     
LOOP