Bloom shader.. help! - GameCreators Forum

Author

Message

DVader

22

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 14th Nov 2010 16:44 Edited at: 14th Nov 2010 17:00

Link

Hello, I have been playing around with the basic bloom shader included with darkshader, and also bond1's bloom shader. You may have seen my question in a the "Adaptive bloom shader by Bond1!!" thread. Rather than hijacking an info thread as such I though I would post this up, to see if any shader boffins out there can help.

Rem Project: SpaceTrader
Rem Created: Wednesday, November 10, 2010

Rem ***** Main Source File *****

x=desktop width()
y=desktop height()
set display mode x,y,32,1
sync on
color backdrop 0
sync
gosub setup_universe
set camera range 0,20,1000000000
`set camera range 1,10,1000000000
rot as float
radius as float
moonrot as float
radius=38440.03+moon
if music exist(1)=1
    loop music 1
endif
dim distance(20,1)
do
    
    gosub orbit
    gosub distance
    gosub control
    
    rem Render scene camera (which produces our bloom)    
    if bloom=1
        hide object 2000
        for n=1 to 20
            if object exist(n)
                show object n
            endif
        next n
        sync camera 1
    endif
    
    text 0,0,"polygons "+str$(statistic(1))
    text 0,16,"Speed "+str$(speed)
    text 0,32,"Current X,Y,Z "+str$(playerx#)+","+str$(playery#)+","+str$(playerz#)
    text 0,48,"FPS "+str$(screen fps())
    text 0,64,"Sun X,Y,Z "+str$(planet(1,1))+","+str$(planet(1,2))+","+str$(planet(1,3))+" Distance "+str$(planet(1,4)-planet(1,5))
    text 0,80,"Mercury X,Y,Z "+str$(planet(2,1))+","+str$(planet(2,2))+","+str$(planet(2,3))+" Distance "+str$(planet(2,4)-planet(2,5))
    text 0,96,"Venus X,Y,Z "+str$(planet(3,1))+","+str$(planet(3,2))+","+str$(planet(3,3))+" Distance "+str$(planet(3,4)-planet(3,5))
    text 0,112,"Earth X,Y,Z "+str$(planet(4,1))+","+str$(planet(4,2))+","+str$(planet(4,3))+" Distance "+str$(planet(4,4)-planet(4,5))
    text 0,128,"Mars X,Y,Z "+str$(planet(5,1))+","+str$(planet(5,2))+","+str$(planet(5,3))+" Distance "+str$(planet(5,4)-planet(5,5))
    text 0,144,"Jupiter X,Y,Z "+str$(planet(6,1))+","+str$(planet(6,2))+","+str$(planet(6,3))+" Distance "+str$(planet(6,4)-planet(6,5))
    text 0,160,"Saturn X,Y,Z "+str$(planet(7,1))+","+str$(planet(7,2))+","+str$(planet(7,3))+" Distance "+str$(planet(7,4)-planet(7,5))
    text 0,176,"Uranus X,Y,Z "+str$(planet(8,1))+","+str$(planet(8,2))+","+str$(planet(8,3))+" Distance "+str$(planet(8,4)-planet(8,5))
    text 0,192,"Neptune X,Y,Z "+str$(planet(9,1))+","+str$(planet(9,2))+","+str$(planet(9,3))+" Distance "+str$(planet(9,4)-planet(9,5))
    text 0,208,"Pluto X,Y,Z "+str$(planet(10,1))+","+str$(planet(10,2))+","+str$(planet(10,3))+" Distance "+str$(planet(10,4)-planet(10,5))
    text 0,224,"Moon X,Y,Z "+str$(planet(11,1))+","+str$(planet(11,2))+","+str$(planet(11,3))+" Distance "+str$(planet(11,4)-planet(11,5))
    
    rem Render our main screen camera zero
    if bloom=1
        show object 2000 
        for n=1 to 20
            if object exist(n)
                hide object n
            endif
        next n
        sync mask %01:sync 
    endif 
    
sync
LOOP

distance:
for n= 1 to 20
        
        x1#=planet(n,1)
        y1#=planet(n,2)
        z1#=planet(n,3)
        
        
        x2#=camera position x(0)
        y2#=camera position y(0)
        z2#=camera position z(0)
        
        x#=x2#-x1#
        y#=y2#-y1#
        z#=z2#=z1#
        
        planet(n,4)=sqrt((x#^2)+(y#^2)+(z#^2))
        
    next n

return
orbit:

inc rot,.1
    inc moonrot,.1
    yrotate object 1,wrapvalue(rot/10)
    yrotate object 2,wrapvalue(rot/10)
    yrotate object 3,wrapvalue(rot/10)
    yrotate object 4,wrapvalue(rot/5)
    yrotate object 5,wrapvalue(rot)
    yrotate object 6,wrapvalue(rot/10)
    yrotate object 7,wrapvalue(rot/10)
    yrotate object 8,wrapvalue(rot/5)
    yrotate object 9,wrapvalue(rot)
    yrotate object 10,wrapvalue(rot)
    yrotate object 11,wrapvalue(rot)
    
    `SET OBJECT TO CAMERA ORIENTATION 1000
    `yrotate object 300,object orientation
    for n=300 to 310 
    SET OBJECT TO CAMERA ORIENTATION n
    next n
    
    xpos=radius*cos(moonrot)
    zpos=radius*sin(moonrot)
    
    position object 11,xpos+(sun/2)+14960000,0,zpos
    for n= 1 to 20
        if object exist(n)
            planet(n,1)=object position x(n)
            planet(n,2)=object position y(n)
            planet(n,3)=object position z(n)
        endif
    next n
return

control:
if keystate(44)=1
    if speed<100000
        inc speed
    endif
endif
if keystate(45)=1
    if speed>0
        dec speed
    endif
endif

if keystate(44)=1 and keystate(29)=1
    if speed<100000
        inc speed,10
        if speed>100000
            speed=100000
        endif
    endif
endif

if keystate(45)=1 and keystate(29)=1
    if speed>20
        dec speed,20
        if speed<0
            speed=0
        endif
    endif
endif

if upkey()=1
    inc bank#,.2
ENDIF
if downkey()=1
    dec bank#,.2
ENDIF
if leftkey()=1
    dec turn#,.2
ENDIF
if rightkey()=1
    inc turn#,.2
ENDIF

yrotate camera 0,turn#
xrotate camera 0,bank#
move camera 0,speed

playerx#=camera position x(0)
playery#=camera position y(0)
playerz#=camera position z(0)

`yrotate object 1000,turn#
`xrotate object 1000,bank#
`move object 1000,speed

return

setup_universe:

if file exist("sun4.png")=1
load image "sun.png",1
load image "mercury.jpg",2 `57.91 million km distance from sun
load image "venus.jpg",3 `108.2 million km
load image "earth.jpg",4 `149.6 million km
load image "mars.jpg",5 `227.94
load image "jupiter.png",6 `778.33
load image "saturn.png",7 `1426.94
load image "uranus.png",8 `2870.99
load image "neptune.jpg",9 `497.07
load image "pluto.jpg",10 `5913.52
load image "moon.jpg",11
load image "sky.bmp",30

load image "target.bmp",300

load music "docking.mp3",1

else
for n=1 to 11
    cls rgb(rnd(255),rnd(255),rnd(255))
    get image n,0,0,256,256,1
NEXT n
cls rgb(rnd(255),rnd(255),rnd(255))
get image 11,0,0,256,256,1
cls 0
blue=rgb(0,0,200)
black=rgb(0,0,0)
box 0,0,256,256,blue,blue,blue,blue
box 32,0,224,256,black,black,black,black
box 0,32,256,224,black,black,black,black
box 4,4,252,252,black,black,black,black
get image 300,0,0,256,256,1

endif

`load effect "post-bloom.fx",1,0

`type galaxy
`name as string
`stars as integer
`planets as integer
`moons as integer
`endtype

`dim galaxy(10,10,10) as galaxy

remstart
for x= 0 to 10
    for y=0 to 10
       for z= 0 to 10
            inc tempname
            galaxy(x,y,z).name=str$(tempname)
            galaxy(x,y,z).stars=rnd(2)+1
            galaxy(x,y,z).planets=rnd(20)+1
            galaxy(x,y,z).moons=rnd(galaxy(x,y,z).planets)+1
            `print "Name: "+galaxy(x,y,z).name
            `print "Stars: "+str$(galaxy(x,y,z).stars)
            `print "Planets: "+str$(galaxy(x,y,z).planets)
            `print "Moons"+str$(galaxy(x,y,z).moons)
       next z 
    NEXT y
    `sync
NEXT x
remend

sun=6378000

moon=15940
spheredetail=64

mercury=24390
venus=60520
earth=63780
mars=33970
jupiter=714920
saturn=602680
uranus=255590
neptune=247640
pluto=11600
` suns
make object sphere 1,sun,16,16
texture object 1,1
position object 1,0,0,0
`set object 1,1,1,0,1,0
set object light 1,0
`set effect on 1,"post-bloom.fx",1

`planets
make object sphere 2,mercury,spheredetail,spheredetail
texture object 2,2
position object 2,5791000+(sun/2),0,0

make object sphere 3,venus,spheredetail,spheredetail
texture object 3,3
position object 3,10820000+(sun/2),0,0

make object sphere 4,earth,spheredetail,spheredetail
texture object 4,4
position object 4,14960000+(sun/2),0,0

make object sphere 5,mars,spheredetail,spheredetail
texture object 5,5
position object 5,22794000+(sun/2),0,0

make object sphere 6,jupiter,spheredetail,spheredetail
texture object 6,6
position object 6,77833000+(sun/2),0,0

make object sphere 7,saturn,spheredetail,spheredetail
texture object 7,7
position object 7,142694000+(sun/2),0,0

make object sphere 8,uranus,spheredetail,spheredetail
texture object 8,8
position object 8,287099000+(sun/2),0,0

make object sphere 9,neptune,spheredetail,spheredetail
texture object 9,9
position object 9,449707000+(sun/2),0,0

make object sphere 10,pluto,spheredetail,spheredetail
texture object 10,10
position object 10,591352000+(sun/2),0,0

`moons
make object sphere 11,moon,spheredetail,spheredetail
texture object 11,11
position object 11,14960000+(sun/2)+3844.03,0,0

dim planets(20,9)

for n= 1 to 20
    planets(n,1)=256
    planets(n,2)=128
    planets(n,3)=64
    planets(n,4)=32
    planets(n,5)=16
    planets(n,6)=8
    planets(n,7)=4
    planets(n,8)=2
    planets(n,9)=1
next n

dim planet(20,5)
for n= 1 to 20
    if object exist(n)
    a#=object position x(n)
    b#=object position y(n)
    c#=object position z(n)
    planet(n,1)=a#
    planet(n,2)=b#
    planet(n,3)=c#
    planet(n,5)=object size(n,1)
    endif
next n

`target icons
make object plain 300,sun*2,sun*2
texture object 300,300
position object 300,planet(1,1),planet(1,2),planet(1,3)
`set object 300,1,1,0,1,0
set object light 300,0
set object transparency 300,6

make object plain 301,mercury*planets(2,1),mercury*planets(2,1)
texture object 301,300
position object 301,planet(2,1),planet(2,2),planet(2,3)
`set object 301,1,1,0,1,0
set object light 301,0
set object transparency 301,6

make object plain 302,venus*planets(3,1),venus*planets(3,1)
texture object 302,300
position object 302,planet(3,1),planet(3,2),planet(3,3)
`set object 302,1,1,0,1,0
set object light 302,0
set object transparency 302,6

make object plain 303,earth*planets(1,1),earth*planets(1,1)
texture object 303,300
position object 303,planet(4,1),planet(4,2),planet(4,3)
`set object 303,1,1,0,1,0
set object light 303,0
set object transparency 303,6

make object plain 304,mars*planets(1,1),mars*planets(1,1)
texture object 304,300
position object 304,planet(5,1),planet(5,2),planet(5,3)
`set object 304,1,1,0,1,0
set object light 304,0
set object transparency 304,6

make object plain 305,jupiter*planets(1,1),jupiter*planets(1,1)
texture object 305,300
position object 305,planet(6,1),planet(6,2),planet(6,3)
`set object 305,1,1,0,1,0
set object light 305,0
set object transparency 305,6

make object plain 306,saturn*planets(1,1),saturn*planets(1,1)
texture object 306,300
position object 306,planet(7,1),planet(7,2),planet(7,3)
`set object 306,1,1,0,1,0
set object light 306,0
set object transparency 306,6

make object plain 307,urnaus*planets(1,1),urnaus*planets(1,1)
texture object 307,300
position object 307,planet(8,1),planet(8,2),planet(8,3)
`set object 307,1,1,0,1,0
set object light 307,0
set object transparency 307,6

make object plain 308,neptune*planets(1,1),neptune*planets(1,1)
texture object 308,300
position object 308,planet(9,1),planet(9,2),planet(9,3)
`set object 308,1,1,0,1,0
set object light 308,0
set object transparency 308,6

make object plain 309,pluto*planets(1,1),pluto*planets(1,1)
texture object 309,300
position object 309,planet(10,1),planet(10,2),planet(10,3)
`set object 309,1,1,0,1,0
set object light 309,0
set object transparency 309,6

make object plain 310,moon*planets(1,1),moon*planets(1,1)
texture object 310,300
position object 310,planet(11,1),planet(11,2),planet(11,3)
`set object 310,1,1,0,1,0
set object light 310,0
set object transparency 310,6

`make object cube 1000,30
`position object 1000,500000,0,-4500

`make object box 30,19000000,19000000,19000000
`texture object 30,30
`position object 30,0,0,0
`set object 30,1,1,0,1,0
`load object "shuttle1.x",100
`position object 100,6000+(sun/2),0,0

make light 1
set light range 1,1000000000
position light 1,0,0,0

position camera 0,5000000,0,-4500
`point camera 0,0,0,0
set ambient light 10
`hide light 0

planet=2

` planet,x,y,z,distance to ship,size,

`cls 0
bloom=0 `1/0 change to enable/diable bloom effect
if bloom=1 
    rem Make camera one our new 3D scene camera
    make camera 1 : color backdrop 1,rgb(255,64,0)    
    
    rem Load and apply fullscreen shader to scene camera (using DarkSHADER commands and file format)
    load camera effect "bloom.dbs",1,0 : set camera effect 1,1,1
    
    rem Place scene camera
    `position camera 1,500000,0,-4500
    position camera 1,0,50,-200
    point camera 1,0,0,0
    
    rem Create a quad with quad shader for our main screen camera zero
    make object plain 2000,2,2,1
    load effect "quad.fx",2,0
    set object effect 2000,2
    null = make vector4(1)
    set vector4 1,x,y,0,0
    set effect constant vector 2,"ViewSize",1
    null = delete vector4(1)
    texture object 2000,0,1
endif

return

+ Code Snippet

Rem Project: SpaceTrader
Rem Created: Wednesday, November 10, 2010

Rem ***** Main Source File *****

x=desktop width()
y=desktop height()
set display mode x,y,32,1
sync on
color backdrop 0
sync
gosub setup_universe
set camera range 0,20,1000000000
`set camera range 1,10,1000000000
rot as float
radius as float
moonrot as float
radius=38440.03+moon
if music exist(1)=1
    loop music 1
endif
dim distance(20,1)
do
    
    gosub orbit
    gosub distance
    gosub control
    
    rem Render scene camera (which produces our bloom)    
    if bloom=1
        hide object 2000
        for n=1 to 20
            if object exist(n)
                show object n
            endif
        next n
        sync camera 1
    endif
    
    text 0,0,"polygons "+str$(statistic(1))
    text 0,16,"Speed "+str$(speed)
    text 0,32,"Current X,Y,Z "+str$(playerx#)+","+str$(playery#)+","+str$(playerz#)
    text 0,48,"FPS "+str$(screen fps())
    text 0,64,"Sun X,Y,Z "+str$(planet(1,1))+","+str$(planet(1,2))+","+str$(planet(1,3))+" Distance "+str$(planet(1,4)-planet(1,5))
    text 0,80,"Mercury X,Y,Z "+str$(planet(2,1))+","+str$(planet(2,2))+","+str$(planet(2,3))+" Distance "+str$(planet(2,4)-planet(2,5))
    text 0,96,"Venus X,Y,Z "+str$(planet(3,1))+","+str$(planet(3,2))+","+str$(planet(3,3))+" Distance "+str$(planet(3,4)-planet(3,5))
    text 0,112,"Earth X,Y,Z "+str$(planet(4,1))+","+str$(planet(4,2))+","+str$(planet(4,3))+" Distance "+str$(planet(4,4)-planet(4,5))
    text 0,128,"Mars X,Y,Z "+str$(planet(5,1))+","+str$(planet(5,2))+","+str$(planet(5,3))+" Distance "+str$(planet(5,4)-planet(5,5))
    text 0,144,"Jupiter X,Y,Z "+str$(planet(6,1))+","+str$(planet(6,2))+","+str$(planet(6,3))+" Distance "+str$(planet(6,4)-planet(6,5))
    text 0,160,"Saturn X,Y,Z "+str$(planet(7,1))+","+str$(planet(7,2))+","+str$(planet(7,3))+" Distance "+str$(planet(7,4)-planet(7,5))
    text 0,176,"Uranus X,Y,Z "+str$(planet(8,1))+","+str$(planet(8,2))+","+str$(planet(8,3))+" Distance "+str$(planet(8,4)-planet(8,5))
    text 0,192,"Neptune X,Y,Z "+str$(planet(9,1))+","+str$(planet(9,2))+","+str$(planet(9,3))+" Distance "+str$(planet(9,4)-planet(9,5))
    text 0,208,"Pluto X,Y,Z "+str$(planet(10,1))+","+str$(planet(10,2))+","+str$(planet(10,3))+" Distance "+str$(planet(10,4)-planet(10,5))
    text 0,224,"Moon X,Y,Z "+str$(planet(11,1))+","+str$(planet(11,2))+","+str$(planet(11,3))+" Distance "+str$(planet(11,4)-planet(11,5))
    
    rem Render our main screen camera zero
    if bloom=1
        show object 2000 
        for n=1 to 20
            if object exist(n)
                hide object n
            endif
        next n
        sync mask %01:sync 
    endif 
    
sync
LOOP


distance:
for n= 1 to 20
        
        x1#=planet(n,1)
        y1#=planet(n,2)
        z1#=planet(n,3)
        
        
        x2#=camera position x(0)
        y2#=camera position y(0)
        z2#=camera position z(0)
        
        x#=x2#-x1#
        y#=y2#-y1#
        z#=z2#=z1#
        
        planet(n,4)=sqrt((x#^2)+(y#^2)+(z#^2))
        
    next n

return
orbit:

inc rot,.1
    inc moonrot,.1
    yrotate object 1,wrapvalue(rot/10)
    yrotate object 2,wrapvalue(rot/10)
    yrotate object 3,wrapvalue(rot/10)
    yrotate object 4,wrapvalue(rot/5)
    yrotate object 5,wrapvalue(rot)
    yrotate object 6,wrapvalue(rot/10)
    yrotate object 7,wrapvalue(rot/10)
    yrotate object 8,wrapvalue(rot/5)
    yrotate object 9,wrapvalue(rot)
    yrotate object 10,wrapvalue(rot)
    yrotate object 11,wrapvalue(rot)
    
    `SET OBJECT TO CAMERA ORIENTATION 1000
    `yrotate object 300,object orientation
    for n=300 to 310 
    SET OBJECT TO CAMERA ORIENTATION n
    next n
    
    xpos=radius*cos(moonrot)
    zpos=radius*sin(moonrot)
    
    position object 11,xpos+(sun/2)+14960000,0,zpos
    for n= 1 to 20
        if object exist(n)
            planet(n,1)=object position x(n)
            planet(n,2)=object position y(n)
            planet(n,3)=object position z(n)
        endif
    next n
return



control:
if keystate(44)=1
    if speed<100000
        inc speed
    endif
endif
if keystate(45)=1
    if speed>0
        dec speed
    endif
endif

if keystate(44)=1 and keystate(29)=1
    if speed<100000
        inc speed,10
        if speed>100000
            speed=100000
        endif
    endif
endif

if keystate(45)=1 and keystate(29)=1
    if speed>20
        dec speed,20
        if speed<0
            speed=0
        endif
    endif
endif



if upkey()=1
    inc bank#,.2
ENDIF
if downkey()=1
    dec bank#,.2
ENDIF
if leftkey()=1
    dec turn#,.2
ENDIF
if rightkey()=1
    inc turn#,.2
ENDIF

yrotate camera 0,turn#
xrotate camera 0,bank#
move camera 0,speed

playerx#=camera position x(0)
playery#=camera position y(0)
playerz#=camera position z(0)

`yrotate object 1000,turn#
`xrotate object 1000,bank#
`move object 1000,speed

return

setup_universe:

if file exist("sun4.png")=1
load image "sun.png",1
load image "mercury.jpg",2 `57.91 million km distance from sun
load image "venus.jpg",3 `108.2 million km
load image "earth.jpg",4 `149.6 million km
load image "mars.jpg",5 `227.94
load image "jupiter.png",6 `778.33
load image "saturn.png",7 `1426.94
load image "uranus.png",8 `2870.99
load image "neptune.jpg",9 `497.07
load image "pluto.jpg",10 `5913.52
load image "moon.jpg",11
load image "sky.bmp",30

load image "target.bmp",300

load music "docking.mp3",1

else
for n=1 to 11
    cls rgb(rnd(255),rnd(255),rnd(255))
    get image n,0,0,256,256,1
NEXT n
cls rgb(rnd(255),rnd(255),rnd(255))
get image 11,0,0,256,256,1
cls 0
blue=rgb(0,0,200)
black=rgb(0,0,0)
box 0,0,256,256,blue,blue,blue,blue
box 32,0,224,256,black,black,black,black
box 0,32,256,224,black,black,black,black
box 4,4,252,252,black,black,black,black
get image 300,0,0,256,256,1


endif

`load effect "post-bloom.fx",1,0

`type galaxy
`name as string
`stars as integer
`planets as integer
`moons as integer
`endtype

`dim galaxy(10,10,10) as galaxy

remstart
for x= 0 to 10
    for y=0 to 10
       for z= 0 to 10
            inc tempname
            galaxy(x,y,z).name=str$(tempname)
            galaxy(x,y,z).stars=rnd(2)+1
            galaxy(x,y,z).planets=rnd(20)+1
            galaxy(x,y,z).moons=rnd(galaxy(x,y,z).planets)+1
            `print "Name: "+galaxy(x,y,z).name
            `print "Stars: "+str$(galaxy(x,y,z).stars)
            `print "Planets: "+str$(galaxy(x,y,z).planets)
            `print "Moons"+str$(galaxy(x,y,z).moons)
       next z 
    NEXT y
    `sync
NEXT x
remend


sun=6378000


moon=15940
spheredetail=64

mercury=24390
venus=60520
earth=63780
mars=33970
jupiter=714920
saturn=602680
uranus=255590
neptune=247640
pluto=11600
` suns
make object sphere 1,sun,16,16
texture object 1,1
position object 1,0,0,0
`set object 1,1,1,0,1,0
set object light 1,0
`set effect on 1,"post-bloom.fx",1

`planets
make object sphere 2,mercury,spheredetail,spheredetail
texture object 2,2
position object 2,5791000+(sun/2),0,0

make object sphere 3,venus,spheredetail,spheredetail
texture object 3,3
position object 3,10820000+(sun/2),0,0

make object sphere 4,earth,spheredetail,spheredetail
texture object 4,4
position object 4,14960000+(sun/2),0,0

make object sphere 5,mars,spheredetail,spheredetail
texture object 5,5
position object 5,22794000+(sun/2),0,0

make object sphere 6,jupiter,spheredetail,spheredetail
texture object 6,6
position object 6,77833000+(sun/2),0,0

make object sphere 7,saturn,spheredetail,spheredetail
texture object 7,7
position object 7,142694000+(sun/2),0,0

make object sphere 8,uranus,spheredetail,spheredetail
texture object 8,8
position object 8,287099000+(sun/2),0,0

make object sphere 9,neptune,spheredetail,spheredetail
texture object 9,9
position object 9,449707000+(sun/2),0,0

make object sphere 10,pluto,spheredetail,spheredetail
texture object 10,10
position object 10,591352000+(sun/2),0,0

`moons
make object sphere 11,moon,spheredetail,spheredetail
texture object 11,11
position object 11,14960000+(sun/2)+3844.03,0,0

dim planets(20,9)

for n= 1 to 20
    planets(n,1)=256
    planets(n,2)=128
    planets(n,3)=64
    planets(n,4)=32
    planets(n,5)=16
    planets(n,6)=8
    planets(n,7)=4
    planets(n,8)=2
    planets(n,9)=1
next n

dim planet(20,5)
for n= 1 to 20
    if object exist(n)
    a#=object position x(n)
    b#=object position y(n)
    c#=object position z(n)
    planet(n,1)=a#
    planet(n,2)=b#
    planet(n,3)=c#
    planet(n,5)=object size(n,1)
    endif
next n


`target icons
make object plain 300,sun*2,sun*2
texture object 300,300
position object 300,planet(1,1),planet(1,2),planet(1,3)
`set object 300,1,1,0,1,0
set object light 300,0
set object transparency 300,6


make object plain 301,mercury*planets(2,1),mercury*planets(2,1)
texture object 301,300
position object 301,planet(2,1),planet(2,2),planet(2,3)
`set object 301,1,1,0,1,0
set object light 301,0
set object transparency 301,6

make object plain 302,venus*planets(3,1),venus*planets(3,1)
texture object 302,300
position object 302,planet(3,1),planet(3,2),planet(3,3)
`set object 302,1,1,0,1,0
set object light 302,0
set object transparency 302,6

make object plain 303,earth*planets(1,1),earth*planets(1,1)
texture object 303,300
position object 303,planet(4,1),planet(4,2),planet(4,3)
`set object 303,1,1,0,1,0
set object light 303,0
set object transparency 303,6

make object plain 304,mars*planets(1,1),mars*planets(1,1)
texture object 304,300
position object 304,planet(5,1),planet(5,2),planet(5,3)
`set object 304,1,1,0,1,0
set object light 304,0
set object transparency 304,6

make object plain 305,jupiter*planets(1,1),jupiter*planets(1,1)
texture object 305,300
position object 305,planet(6,1),planet(6,2),planet(6,3)
`set object 305,1,1,0,1,0
set object light 305,0
set object transparency 305,6

make object plain 306,saturn*planets(1,1),saturn*planets(1,1)
texture object 306,300
position object 306,planet(7,1),planet(7,2),planet(7,3)
`set object 306,1,1,0,1,0
set object light 306,0
set object transparency 306,6

make object plain 307,urnaus*planets(1,1),urnaus*planets(1,1)
texture object 307,300
position object 307,planet(8,1),planet(8,2),planet(8,3)
`set object 307,1,1,0,1,0
set object light 307,0
set object transparency 307,6

make object plain 308,neptune*planets(1,1),neptune*planets(1,1)
texture object 308,300
position object 308,planet(9,1),planet(9,2),planet(9,3)
`set object 308,1,1,0,1,0
set object light 308,0
set object transparency 308,6

make object plain 309,pluto*planets(1,1),pluto*planets(1,1)
texture object 309,300
position object 309,planet(10,1),planet(10,2),planet(10,3)
`set object 309,1,1,0,1,0
set object light 309,0
set object transparency 309,6

make object plain 310,moon*planets(1,1),moon*planets(1,1)
texture object 310,300
position object 310,planet(11,1),planet(11,2),planet(11,3)
`set object 310,1,1,0,1,0
set object light 310,0
set object transparency 310,6

`make object cube 1000,30
`position object 1000,500000,0,-4500

`make object box 30,19000000,19000000,19000000
`texture object 30,30
`position object 30,0,0,0
`set object 30,1,1,0,1,0
`load object "shuttle1.x",100
`position object 100,6000+(sun/2),0,0


make light 1
set light range 1,1000000000
position light 1,0,0,0

position camera 0,5000000,0,-4500
`point camera 0,0,0,0
set ambient light 10
`hide light 0

planet=2

` planet,x,y,z,distance to ship,size,

`cls 0
bloom=0 `1/0 change to enable/diable bloom effect
if bloom=1 
    rem Make camera one our new 3D scene camera
    make camera 1 : color backdrop 1,rgb(255,64,0)    
    
    rem Load and apply fullscreen shader to scene camera (using DarkSHADER commands and file format)
    load camera effect "bloom.dbs",1,0 : set camera effect 1,1,1
    
    rem Place scene camera
    `position camera 1,500000,0,-4500
    position camera 1,0,50,-200
    point camera 1,0,0,0
    
    rem Create a quad with quad shader for our main screen camera zero
    make object plain 2000,2,2,1
    load effect "quad.fx",2,0
    set object effect 2000,2
    null = make vector4(1)
    set vector4 1,x,y,0,0
    set effect constant vector 2,"ViewSize",1
    null = delete vector4(1)
    texture object 2000,0,1
endif

return

That is the code in it's entirety, rather than the snippet I put in the aforementioned post. Turn off/on bloom by changing bloom=0 to bloom=1 at line 455.
Basically I am either getting a black screen or as I have now discovered since altering the media code a little for posting, I see the last thing that was drawn to screen before the 3d objects were made( the target graphic). If I turn off the bloom obviously it all works fine. It seems as if it is texturing the plain with the last image grabbed rather than the camera image? I cannot see where the shader gets it's image from as it seems to use image 1 which should be the suns image.
I'd love to get this working nice and early on before things start really getting more complicated. I think it s a camera/image problem somehow, but am unable to work out what's happening.
I also lose all my info text when attempting to use the shader which I also can't see why as I place it in the correct place according to the demo. It just seems the image is static and is not updating.
Edit - accelerate and decelerate using z and x keys arrow keys control direction. Hold ctrl and z or x to increase boost. Just in case you don't want to work out the keystates

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

Dark Goblin

20

Years of Service

User Offline

Joined: 19th May 2006

Location:

Posted: 14th Nov 2010 17:28

Link

So you want to use bond1's bloom shader in a DBP project?
Nothing more easy than that.

I used the old bloom version of evolved (in the old shader pack) and changed some commands and also replaced his bloom with bond1's .

Everything works just fine.

Here my working code:

`-----------------------
 ` Bloom Effect
 `-----------------------
 ` By Evolved
 ` http://www.vector3r.com/
 `-----------------------

`Set Up Display
      set window on
      set window title "Bloom Effect"
      load dll "user32.dll",1
      Sw=call dll(1,"GetSystemMetrics",0)
      Sh=call dll(1,"GetSystemMetrics",1)
      delete dll 1
      set display mode 1920,1080,32,1
      maximize window
      sync on : sync rate 0

`Set Text
      set text font "Verdana"
      set text size 13
      set text to bold
      ink rgb(175,175,175),0

`Setup Camera
      autocam off
      position camera 0,0,-150
      set camera fov 100
      xrotate camera 30
      CamDis#=-100

`Load Textures
      load image "Media/Wood.tga",1 : image=1
      load image "Media/Cube0.dds",2,2

`Create Object
      load effect "FX/CubeMapping.fx",1,0
      set effect constant float 1,"U",1.5
      load object "Media/Tosus.x",1 : object=1
      set object effect 1,1
      texture object 1,0,1
      texture object 1,1,2

`Create floor
      load effect "FX/CubeMapping.fx",2,0
      set effect constant float 2,"U",5
      set effect constant float 2,"V",5
      make object box 2,500,1,500
      set object effect 2,2
      position object 2,0,-65,0
      texture object 2,0,1
      texture object 2,1,2

`Create Sky
      load effect "FX/Sky.fx",3,0
      make object sphere 3,2000,5,5
      set object effect 3,3
      set object cull 3,0
      texture object 3,0,2

`Set up bloom
      gosub SetUp_Bloom:

`-----------------------
   `Start loop
      do

`Text
      center text 400,15,"T - Change Texture      Space - Change Object      R - Rotate Object"
      center text 400,40,"FPS  "+str$(screen fps())+" \ "+str$(cameranumbervar)

`Control Camera
      position camera 0,0,0
         if mouseclick()=1
            xrotate camera camera angle x()-mousemovey()*0.25
            yrotate camera camera angle y()+mousemovex()*0.25
         endif
      if mouseclick()=2 then CamDis#=CamDis#-mousemovey()*0.25
      CamDis#=CamDis#+mousemovez()*0.25
         if camera angle x()>80 then xrotate camera 80
         if camera angle x()<-60 then xrotate camera -60
         if upkey()=1 then CamDis#=CamDis#+2.5
         if downkey()=1 then CamDis#=CamDis#-2.5
         if CamDis#>-70 then CamDis#=-70
         if CamDis#<-300 then CamDis#=-300
      move camera CamDis#
      if camera position y()<-60 then position camera camera position x(),-60,camera position z()

`Set Bloom object to camera
      gosub UpDate_Bloom

`Paste Camera Results
      if controlkey()=1
         paste image bloom_img,0,0
      endif

`Rotate object
      if KEYSTATE(19)=1 and rotate=1 and nopress=0 then rotate=0:nopress=1
      if KEYSTATE(19)=1 and rotate=0 and nopress=0 then rotate=1:nopress=1
      if rotate=0
         rotate object 1,object angle x(1)+0.25,object angle y(1)+0.25,object angle z(1)+0.25
      endif

`Change Texture
      if KEYSTATE(20)=1 and nopress=0
         delete image 2
            inc image
               if image>3 then image=1
               if image=1 then load image "Media/Cube0.dds",2,2
               if image=2 then load image "Media/Cube1.dds",2,2
               if image=3 then load image "Media/Cube2.dds",2,2
               texture object 1,1,2
               texture object 2,1,2
               texture object 3,0,2
            nopress=1
         endif

`Change Object
      if Spacekey()=1 and nopress=0
         delete object 1
             inc object
               if object>4 then object=1
               if object=1 then load object "Media/Tosus.x",1:set effect constant float 1,"U",1.5
               if object=2 then make object box 1,75,75,75:set effect constant float 1,"U",1.0
               if object=3 then make object sphere 1,75,40,40:set effect constant float 1,"U",2.0
               if object=4 then make object cylinder 1,75:set effect constant float 1,"U",3.0
               texture object 1,0,1
               texture object 1,1,2
            set object effect 1,1
         nopress=1
       endif

`Reset values
      if scancode()=0 then nopress=0
      mousemovex()=0
      mousemovey()=0

`End loop
      sync
      loop

`-----------------------
   `update bloom stuff
   UpDate_Bloom:
   `-----------------------

`Update bloom camera
      position camera bloom_cam,camera position x(),camera position y(),camera position z()
      rotate camera bloom_cam,camera angle x(),camera angle y(),camera angle z()

`Update screen object
      dis#=(sh#/2)/tan(fov/2)
      position object bloom_obj+2,camera position x(),camera position y(),camera position z()
      rotate object bloom_obj+2,camera angle x(),camera angle y(),camera angle z()
      move object bloom_obj+2,dis#/400
      move object up bloom_obj+2,0.01
      move object left bloom_obj+2,0.01
      scale object bloom_obj+2,101,101,0

return
   `-----------------------

`-----------------------
   `Set up bloom objects and cameras
   SetUp_Bloom:
   `-----------------------

fov=100
      sw#=screen width()
      sh#=screen height()
      dis#=(sh#/2)/tan(fov/2)
      brightness#=0.2
      blurWidth#=0.0175
      bloom_cam=50
      bloom_img=50
      bloom_obj=50
      global cameranumbervar

`Camera
      set camera range 0.5,100000
      set camera fov fov
      set camera to image 0,bloom_img,1920,1080

`Screen grabbing Camera
      make camera bloom_cam
//      set camera to image bloom_cam,bloom_img,256,256
      set camera range bloom_cam,3,100000
      set camera fov bloom_cam,fov

`Screen object + Blur Y
      make object plain bloom_obj+2,-sw#/(400),sh#/(400)
      load effect "FX/Bloom.fx",bloom_obj+2,0
      texture object bloom_obj+2,0,bloom_img
      set object effect bloom_obj+2,bloom_obj+2
      set object transparency bloom_obj+2,1
      ghost object on bloom_obj+2

return
   `-----------------------

+ Code Snippet

 `-----------------------
 ` Bloom Effect
 `-----------------------
 ` By Evolved
 ` http://www.vector3r.com/
 `-----------------------

   `Set Up Display
      set window on
      set window title "Bloom Effect"
      load dll "user32.dll",1
      Sw=call dll(1,"GetSystemMetrics",0)
      Sh=call dll(1,"GetSystemMetrics",1)
      delete dll 1
      set display mode 1920,1080,32,1
      maximize window
      sync on : sync rate 0

   `Set Text
      set text font "Verdana"
      set text size 13
      set text to bold
      ink rgb(175,175,175),0

   `Setup Camera
      autocam off
      position camera 0,0,-150
      set camera fov 100
      xrotate camera 30
      CamDis#=-100

   `Load Textures
      load image "Media/Wood.tga",1 : image=1
      load image "Media/Cube0.dds",2,2

   `Create Object
      load effect "FX/CubeMapping.fx",1,0
      set effect constant float 1,"U",1.5
      load object "Media/Tosus.x",1 : object=1
      set object effect 1,1
      texture object 1,0,1
      texture object 1,1,2

   `Create floor
      load effect "FX/CubeMapping.fx",2,0
      set effect constant float 2,"U",5
      set effect constant float 2,"V",5
      make object box 2,500,1,500
      set object effect 2,2
      position object 2,0,-65,0
      texture object 2,0,1
      texture object 2,1,2

   `Create Sky
      load effect "FX/Sky.fx",3,0
      make object sphere 3,2000,5,5
      set object effect 3,3
      set object cull 3,0
      texture object 3,0,2

   `Set up bloom
      gosub SetUp_Bloom:

   `-----------------------
   `Start loop
      do

 `Text
      center text 400,15,"T - Change Texture      Space - Change Object      R - Rotate Object"
      center text 400,40,"FPS  "+str$(screen fps())+" \ "+str$(cameranumbervar)

   `Control Camera
      position camera 0,0,0
         if mouseclick()=1
            xrotate camera camera angle x()-mousemovey()*0.25
            yrotate camera camera angle y()+mousemovex()*0.25
         endif
      if mouseclick()=2 then CamDis#=CamDis#-mousemovey()*0.25
      CamDis#=CamDis#+mousemovez()*0.25
         if camera angle x()>80 then xrotate camera 80
         if camera angle x()<-60 then xrotate camera -60
         if upkey()=1 then CamDis#=CamDis#+2.5
         if downkey()=1 then CamDis#=CamDis#-2.5
         if CamDis#>-70 then CamDis#=-70
         if CamDis#<-300 then CamDis#=-300
      move camera CamDis#
      if camera position y()<-60 then position camera camera position x(),-60,camera position z()

   `Set Bloom object to camera
      gosub UpDate_Bloom

   `Paste Camera Results
      if controlkey()=1
         paste image bloom_img,0,0
      endif

   `Rotate object
      if KEYSTATE(19)=1 and rotate=1 and nopress=0 then rotate=0:nopress=1
      if KEYSTATE(19)=1 and rotate=0 and nopress=0 then rotate=1:nopress=1
      if rotate=0
         rotate object 1,object angle x(1)+0.25,object angle y(1)+0.25,object angle z(1)+0.25
      endif

   `Change Texture
      if KEYSTATE(20)=1 and nopress=0
         delete image 2
            inc image
               if image>3 then image=1
               if image=1 then load image "Media/Cube0.dds",2,2
               if image=2 then load image "Media/Cube1.dds",2,2
               if image=3 then load image "Media/Cube2.dds",2,2
               texture object 1,1,2
               texture object 2,1,2
               texture object 3,0,2
            nopress=1
         endif

   `Change Object
      if Spacekey()=1 and nopress=0
         delete object 1
             inc object
               if object>4 then object=1
               if object=1 then load object "Media/Tosus.x",1:set effect constant float 1,"U",1.5
               if object=2 then make object box 1,75,75,75:set effect constant float 1,"U",1.0
               if object=3 then make object sphere 1,75,40,40:set effect constant float 1,"U",2.0
               if object=4 then make object cylinder 1,75:set effect constant float 1,"U",3.0
               texture object 1,0,1
               texture object 1,1,2
            set object effect 1,1
         nopress=1
       endif

   `Reset values
      if scancode()=0 then nopress=0
      mousemovex()=0
      mousemovey()=0

   `End loop
      sync
      loop

   `-----------------------
   `update bloom stuff
   UpDate_Bloom:
   `-----------------------

   `Update bloom camera
      position camera bloom_cam,camera position x(),camera position y(),camera position z()
      rotate camera bloom_cam,camera angle x(),camera angle y(),camera angle z()

   `Update screen object
      dis#=(sh#/2)/tan(fov/2)
      position object bloom_obj+2,camera position x(),camera position y(),camera position z()
      rotate object bloom_obj+2,camera angle x(),camera angle y(),camera angle z()
      move object bloom_obj+2,dis#/400
      move object up bloom_obj+2,0.01
      move object left bloom_obj+2,0.01
      scale object bloom_obj+2,101,101,0

   return
   `-----------------------

   `-----------------------
   `Set up bloom objects and cameras
   SetUp_Bloom:
   `-----------------------

      fov=100
      sw#=screen width()
      sh#=screen height()
      dis#=(sh#/2)/tan(fov/2)
      brightness#=0.2
      blurWidth#=0.0175
      bloom_cam=50
      bloom_img=50
      bloom_obj=50
      global cameranumbervar

   `Camera
      set camera range 0.5,100000
      set camera fov fov
      set camera to image 0,bloom_img,1920,1080

   `Screen grabbing Camera
      make camera bloom_cam
//      set camera to image bloom_cam,bloom_img,256,256
      set camera range bloom_cam,3,100000
      set camera fov bloom_cam,fov

     `Screen object + Blur Y
      make object plain bloom_obj+2,-sw#/(400),sh#/(400)
      load effect "FX/Bloom.fx",bloom_obj+2,0
      texture object bloom_obj+2,0,bloom_img
      set object effect bloom_obj+2,bloom_obj+2
      set object transparency bloom_obj+2,1
      ghost object on bloom_obj+2
      



   return
   `-----------------------

... efxMod Developer!

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th Nov 2010 17:38

Link

Quote: "I cannot see where the shader gets it's image from as it seems to use image 1 which should be the suns image."

But you told it to use image 1 in this part of your code:

+ Code Snippet

    rem Load and apply fullscreen shader to scene camera (using DarkSHADER commands and file format)
    load camera effect "bloom.dbs",1,0 : set camera effect 1,1,1

The syntax for set camera effect is

+ Code Snippet

Set Camera Effect <camera>, <effect>, <image>

Back to top

Profile PM Email

DVader

22

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 14th Nov 2010 21:03

Link

@ Dark Goblin, That code is a little daunting as it uses even more shaders, and thus is a little confusing. I'll have a look if my current method fails to work. I am really trying to use the example code from my DB help files for now, and integrate it into my demo, I'd say game but I don't really think I can call it that yet lol.
The example code I am using.

Rem Project: BloomWithDarkShader
Rem Created: 07/11/2008 17:26:51
rem Requires: DarkSHADER

rem Init
sync on : sync rate 60

rem Make camera one our new 3D scene camera
make camera 1 : color backdrop 1,rgb(255,64,0)

rem Load and apply fullscreen shader to scene camera (using DarkSHADER commands and file format)
load camera effect "Bloom.dbs",1,0 : set camera effect 1,1,1

rem Create a quad with quad shader for our main screen camera zero
make object plain 2000,2,2,1
load effect "quad.fx",2,0
set object effect 2000,2
null = make vector4(1)
set vector4 1,640,480,0,0
set effect constant vector 2,"ViewSize",1
null = delete vector4(1)
texture object 2000,0,1

rem Make white cube in 3D scene
make object cube 1,100 : set object light 1,0

rem Place scene camera
position camera 1,0,50,-200
point camera 1,0,0,0

rem Main loop
do
 `
 rem Rotate object
 yrotate object 1,a : inc a
 `
 rem Render scene camera (which produces our bloom)
 hide object 2000 : show object 1 : sync camera 1
 `
 rem User prompt
 center text screen width()/2,20,"FULLSCREEN BLOOM FROM DARK SHADER"
 `
 rem Render our main screen camera zero
 show object 2000 : hide object 1 : sync mask %01 : sync
 `
rem End loop
loop

+ Code Snippet

Rem Project: BloomWithDarkShader
Rem Created: 07/11/2008 17:26:51
rem Requires: DarkSHADER

rem Init
sync on : sync rate 60

rem Make camera one our new 3D scene camera
make camera 1 : color backdrop 1,rgb(255,64,0)

rem Load and apply fullscreen shader to scene camera (using DarkSHADER commands and file format)
load camera effect "Bloom.dbs",1,0 : set camera effect 1,1,1

rem Create a quad with quad shader for our main screen camera zero
make object plain 2000,2,2,1
load effect "quad.fx",2,0
set object effect 2000,2
null = make vector4(1)
set vector4 1,640,480,0,0
set effect constant vector 2,"ViewSize",1
null = delete vector4(1)
texture object 2000,0,1

rem Make white cube in 3D scene
make object cube 1,100 : set object light 1,0

rem Place scene camera
position camera 1,0,50,-200
point camera 1,0,0,0

rem Main loop
do
 `
 rem Rotate object
 yrotate object 1,a : inc a
 `
 rem Render scene camera (which produces our bloom)
 hide object 2000 : show object 1 : sync camera 1
 `
 rem User prompt
 center text screen width()/2,20,"FULLSCREEN BLOOM FROM DARK SHADER"
 `
 rem Render our main screen camera zero
 show object 2000 : hide object 1 : sync mask %01 : sync
 `
rem End loop
loop

@ Green Gandalf, I guessed one of them was an image flag, but my help doesn't give me any info. But am only using the original example as a guide. I cannot see anywhere in that code where image 1 is ever defined in any way. It makes camera 1, and it passes the effect it loads with the 1 flag, so it must be using image 1. Which has not been loaded or grabbed in the code.
So I am just as confused as ever.
Could you explain how the basic example is working please? That's not just aimed at green gandalf btw, anyone feel free to show off your knowledge, I won't mind

. It would help me a lot more knowing exactly what is happening, rather than what I think it's doing.

I have got a little further than before I posted in some areas. Such as one thing that has both pleased and annoyed me. If I use set display mode, it causes the black screen or old graphic showing in the corner bug. Delete it and use the editors screen size and the objects appear! At least the target plains anyway not the planets. I tried adding a line in the demo and black screen, so that's half my problem. I hope theres a way round that, but not sure at the moment.

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th Nov 2010 22:38

Link

Quote: "If I use set display mode, it causes the black screen or old graphic showing in the corner bug. "

Try adding reload display pointer immediately after the set display mode command.

I've attached a file which it seems you haven't seen.

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th Nov 2010 22:51

Link

Try the attached project. There was a silly error in the Dark Shader Help files at one point depending on which version of the quad.fx file you are using. I've marked the relevant lines in the dba code. You should be able to find the relevant line in your copy of quad.fx.

Back to top

Profile PM Email

DVader

22

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 15th Nov 2010 00:14 Edited at: 15th Nov 2010 01:33

Link

Reload display pointer worked a treat thanks. I certainly haven't seen a lot of those commands will come in useful! Not sure about the last post. Downloaded it and it works the same as the one I use, copied those lines over into my app you remmed about the bug and it does the same but shows a slight edge on the edges of the screen when the screen goes blank. Not had a look at the actual quad.fx file yet, but did copy the one you sent into my project instead of the original.

I am uploading a video at the moment to try to show the bug I have at the moment in action and will post a link when it is ready

I am sure it is something silly I am doing somehow.

http://www.youtube.com/watch?v=o93vVXAwP44

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

Duke E

17

Years of Service

User Offline

Joined: 10th Mar 2009

Location:

Posted: 15th Nov 2010 09:14

Link

Yeah there are some bugs in the DBPro code exporter and docs from DarkShader.

The "Set Effect Constant Vector" should be "Set Camera Effect Constant Vector" but there is a another error also

The ViewSize is a variable in the bloom.fx/dbs shader and assigned with a keyword not a variable (The terminology of keyword may be wrong, anyway it is automatically assigned a value).

InvViewSize is a variable in the quad.fx shader and this should be be set as 1.0/screensize (actually it seems unnecessary as the quad aligns the same if this is omitted).

Regards
Duke

Back to top

Profile PM

DVader

22

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 17th Nov 2010 20:30 Edited at: 20th Nov 2010 14:49

Link

I have been without broadband the past couple of days, so couldn't get back to this. I have finally solved it. I was originally using camera 0 for my space shift movement and (after adding the shader code), either moving camera 1 to match it or leaving camera 1 to view the quad. Now I am leaving camera 0 to view the quad and moving camera 1 around, and it worked sort of, it was hard to tell, as there seemed no real glowing edge around the sun for instance. I then changed the bloom shader to bond1's and hey presto it definitely works!

I include a pic and would like to thank everyone who gave me help and suggestions.
Edit - btw the suggestion above has no effect I get the same result with both versions with set camera effect or just set effect. Left it at camera anyway as it might be me but it seems a touch faster.

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Bloom shader.. help!