Sorry your browser is not supported!

set display mode 256,256,32
sync on
sync rate 0

make object cube 1,10
position object 1,-3,0,0
color object 1,rgb(255,0,0)
make object cube 2,10
position object 2,3,0,0
color object 2,rgb(0,255,0)

set camera to image 0,1,256,256

sprite 1,256,256,1
 size sprite 1,256,256

do
 rotate object 1,object angle x(1)+0.1,object angle y(1)+0.1,object angle z(1)
 rotate object 2,object angle x(2)-0.1,object angle y(2),object angle z(2)-0.1
 if spacekey()=1
  set sprite alpha 1,255
  paste sprite 1,0,0
  set sprite alpha 1,128
  paste sprite 1,1,0
  paste sprite 1,-1,0
  paste sprite 1,0,1
  paste sprite 1,0,-1
  set sprite alpha 1,64
  paste sprite 1,2,0
  paste sprite 1,-2,0
  paste sprite 1,0,2
  paste sprite 1,0,-2
  set sprite alpha 1,32
  paste sprite 1,3,0
  paste sprite 1,-3,0
  paste sprite 1,0,3
  paste sprite 1,0,-3
  set sprite alpha 1,16
  paste sprite 1,4,0
  paste sprite 1,-4,0
  paste sprite 1,0,4
  paste sprite 1,0,-4
  set sprite alpha 1,8
  paste sprite 1,5,0
  paste sprite 1,-5,0
  paste sprite 1,0,5
  paste sprite 1,0,-5
  set sprite alpha 1,4
  paste sprite 1,6,0
  paste sprite 1,-6,0
  paste sprite 1,0,6
  paste sprite 1,0,-6
  set sprite alpha 1,2
  paste sprite 1,7,0
  paste sprite 1,-7,0
  paste sprite 1,0,7
  paste sprite 1,0,-7
 else
  set sprite alpha 1,255
  paste sprite 1,0,0
 endif
 text 0,0,str$(screen fps())
 sync
loop

set display mode 800,600,32
hide mouse
autocam off
sync on
sync rate 60

ALPHA=50
set camera to image 0,1,512,512

sprite 1,0,0,1
 set sprite 1,0,1
 set sprite alpha 1,ALPHA
 size sprite 1,800,600

make object sphere 1,50
 position object 1,0,0,200
 xrotate object 1,90
 color object 1,rgb(0,255,0)

make object box 2,2000,1,2000
 position object 2,0,0,1000
 xrotate object 2,90

do
 move object 1,mousemovey()
 move object right 1,mousemovex()
 move object 2,downkey()-upkey()
 move object right 2,rightkey()-leftkey()
 sync
loop

#include "SpriteBlur.dba"

set display mode 256,256,32
sync on : sync rate 0
set window on

make object cube 1,10
position object 1,-3,0,0
color object 1,rgb(255,0,0)
make object cube 2,10
position object 2,3,0,0
color object 2,rgb(0,255,0)

blur#=1
gosub InitiateScreenEffectBlur



do
   rotate object 1,object angle x(1)+0.1,object angle y(1)+0.1,object angle z(1)
   rotate object 2,object angle x(2)-0.1,object angle y(2),object angle z(2)-0.1

   ScreenEffectBlur(blur#)

   text 0,0,"FPS: "+str$(screen fps())
   if keypressed=0 then inc blur#,0.5*(rightkey()-leftkey()) : keypressed=1
   if rightkey()=0 and leftkey()=0 then keypressed=0
   if blur#<0 then blur#=0
   text 0,10,"Blur passes: "+str$(blur#)
   sync
loop

`=======================================================================================================
`Get free image function
function FreeImage()
   repeat
      inc i
      if image exist(i)=0 then found=1
   until found
endfunction i
`=======================================================================================================
`Get free sprite function
function FreeSprite()
   repeat
      inc i
      if sprite exist(i)=0 then found=1
   until found
endfunction i

InitiateScreenEffectBlur:
   Type ScreenEffectBlurType
      Image as integer
      MaxVis as integer
      SpriteNum as integer
   EndType

   global ScreenEffectBlur as ScreenEffectBlurType
   ScreenEffectBlur.MaxVis = 128

   ScreenEffectBlur.Image = FreeImage()
   set camera to image 0,ScreenEffectBlur.Image,screen width(),screen height()
   ScreenEffectBlur.SpriteNum = FreeSprite()
   sprite ScreenEffectBlur.SpriteNum,0,0,ScreenEffectBlur.Image
   hide sprite ScreenEffectBlur.SpriteNum
return

function ScreenEffectBlur( Blur# )
   if Blur#>=1
      if sprite visible(ScreenEffectBlur.SpriteNum)=0 then show sprite ScreenEffectBlur.SpriteNum
      for t=1 to Blur#
        set sprite alpha ScreenEffectBlur.SpriteNum,int(255/t)
        paste sprite ScreenEffectBlur.SpriteNum,0,0
        set sprite alpha ScreenEffectBlur.SpriteNum,int(ScreenEffectBlur.MaxVis/t)
        paste sprite ScreenEffectBlur.SpriteNum,t,0
        paste sprite ScreenEffectBlur.SpriteNum,-1*t,0
        paste sprite ScreenEffectBlur.SpriteNum,0,t
        paste sprite ScreenEffectBlur.SpriteNum,0,-1*t
      next t
   else
      if sprite visible(ScreenEffectBlur.SpriteNum)=1 then hide sprite ScreenEffectBlur.SpriteNum
   endif
endfunction