Sorry your browser is not supported!

` making a transparent plain in DBC
` 7-30-2008 LBFN
sync on : sync rate 60
backdrop on
hide mouse
ink rgb(255,0,0),0
create bitmap 1,128,128
box 0,0,127,127
ink rgb(0,0,0),0
circle 64,64,5
circle 64,64,20
get image 1,0,0,128,128
cls
` make rainbow image
ink rgb(255,0,0),0
box 0,0,31,127
ink rgb(255,255,0),0
box 32,0,63,127
ink rgb(0,0,225),0
box 64,0,95,127
ink rgb(255,128,64),0
box 96,0,127,127
get image 2,0,0,127,127
delete bitmap 1
set current bitmap 0
texture backdrop 2
make object plain 1,5,5
texture object 1,1
set object 1, 1, 0, 1
ink rgb(255,255,255),0
direction = 8
do
  x# = object position x(1) : y# = object position y(1) : z# = object position z(1)
  if direction = 4
    x#= x# - .1
    position object 1, x#, y#, z#
    if x#< -3.5 then direction = 8
  else
    x#= x# + .1
    position object 1, x#, y#, z#
    if x#> 3.5 then direction = 4
  endif
  sync
loop
show mouse
end