Sorry your browser is not supported!

sync on
sync rate 60
for i=1 to 500
make object triangle i,rnd(1),rnd(1),0,rnd(1),rnd(1),0,rnd(1),rnd(1),0
next i
color backdrop rgb(255,0,0)
set ambient light 100
move camera -60
do
for i=1 to 500
	z#=i
	`enable ONE of the two following xrotate statements!
	xrotate object i,wrapvalue(object angle x(i)+1.0)
	`xrotate object i,wrapvalue(object angle x(i)+((z#/100)-2.5))
	yrotate object i,wrapvalue(object angle y(i)+((z#/100)-2.5))
	zrotate object i,wrapvalue(object angle z(i)+((z#/100)-2.5))
	position object i,object position x(i),object position y(i),object position z(i)-0.05
	move object i,-0.3
next i
point camera object position x(1),object position y(1),object position z(1) : move camera 0.2
sync
loop

for i=1 to 500
make object triangle i,rnd(1),rnd(1),0,rnd(1),rnd(1),0,rnd(1),rnd(1),0
set object emissive i,RGB(255,255,0)
next i
color backdrop rgb(01,10,20)
set ambient light 10:hide light 0

r=rnd(255):g=rnd(255):b=rnd(255)
set object emissive i,RGB(r,g,g)

r=rnd(255):g=rnd(255):b=rnd(255)
set object emissive i,RGB(r,g,b)

sync on
sync rate 60
for i=1 to 500
make object triangle i,rnd(1),rnd(1),0,rnd(1),rnd(1),0,rnd(1),rnd(1),0
next i
color backdrop rgb(0,0,0)
set ambient light 0
hide light 0
move camera -60
do
for i=1 to 500
   z#=i
r=rnd(255):g=rnd(255):b=rnd(255)
set object emissive i,RGB(r,g,b)
   xrotate object i,wrapvalue(object angle x(i)+((z#/100)-2.5))
   yrotate object i,wrapvalue(object angle y(i)+((z#/100)-2.5))
   zrotate object i,wrapvalue(object angle z(i)+((z#/100)-2.5))
   position object i,object position x(i),object position y(i),object position z(i)-0.05
   move object i,-0.3
next i
point camera object position x(1),object position y(1),object position z(1) : move camera 0.2
sync
loop

sync on : sync rate 60 : dim array(500,4)
for i=1 to 500
   make object triangle i,rnd(5),rnd(5),0,rnd(5),rnd(5),0,rnd(5),rnd(5),0 : array(i,4)=rnd(1000)
next i
color backdrop rgb(0,0,0) : set ambient light 0 : hide light 0 : move camera -60
do
for i=1 to 500
   z#=i
   set object emissive i,RGB(array(i,1),array(i,2),array(i,3))
   xrotate object i,wrapvalue(object angle x(i)+((z#/100)-2.5))
   yrotate object i,wrapvalue(object angle y(i)+((z#/100)-2.5))
   zrotate object i,wrapvalue(object angle z(i)+((z#/100)-2.5))
   position object i,object position x(i),object position y(i),object position z(i)-0.05
   move object i,-0.4
   inc array(i,4)
   array(i,1)=122*sin(array(i,4))+122 : array(i,2)=122*sin(array(i,4)/2)+122 : array(i,3)=122*sin(array(i,4)/3)+122
next i
point camera object position x(1),object position y(1),object position z(1) : move camera 0.2
sync
loop

sync on : sync rate 60 : dim array(500,4)
for i=1 to 500
   make object triangle i,rnd(1),15,0,rnd(1),rnd(1),0,rnd(1),30,0 : array(i,4)=rnd(1000)
next i
color backdrop rgb(0,0,0) : set ambient light 0 : hide light 0 : move camera -60
do
for i=1 to 500
   z#=i
   set object emissive i,RGB(array(i,1),array(i,2),array(i,3))
   xrotate object i,wrapvalue(object angle x(i)+((z#/100)-2.5))
   yrotate object i,wrapvalue(object angle y(i)+((z#/100)-2.5))
   zrotate object i,wrapvalue(object angle z(i)+((z#/100)-2.5))
   position object i,object position x(i),object position y(i),object position z(i)-0.05
   move object i,-0.2
   inc array(i,4)
   array(i,1)=122*sin(array(i,4))+122 : array(i,2)=122*sin(array(i,4)/2)+122 : array(i,3)=122*sin(array(i,4)/3)+122
next i
point camera object position x(1),object position y(1),object position z(1) : move camera 0.2
sync
loop

if mousemovex() or mousemovey() or mousemovez() then end

sync on
sync rate 60
for i=1 to 500
make object triangle i,rnd(1),rnd(1),0,rnd(1),rnd(1),0,rnd(1),rnd(1),0
next i
color backdrop rgb(255,0,0)
set ambient light 100
move camera -60
do
for i=1 to 500
   z#=i
   xrotate object i,wrapvalue(object angle x(i)+1.0) `or xrotate object i,wrapvalue(object angle x(i)+((z#/100)-2.5)) and enable ONE of the two following xrotate statements!
   yrotate object i,wrapvalue(object angle y(i)+((z#/100)-2.5))
   zrotate object i,wrapvalue(object angle z(i)+((z#/100)-2.5))
   position object i,object position x(i),object position y(i),object position z(i)-0.05
   move object i,-0.3
next i
point camera object position x(1),object position y(1),object position z(1) : move camera 0.2
sync
loop´

if mousemovex()<>0 or mousemovey()<>0 or mousemovez()<>0 then end

objectcount = 500 : sync on : sync rate 60 : dim array(objectcount,4)
for i=1 to objectcount
   make object sphere i,rnd(1) : array(i,4)=i
next i
color backdrop rgb(0,0,0) : set ambient light 0 : hide light 0 : move camera -60 : hide mouse
do
for i=1 to objectcount
   z#=i
   set object emissive i,RGB(array(i,1),array(i,2),array(i,3))
   xrotate object i,wrapvalue(object angle x(i)+((z#/100)-1.50))
   yrotate object i,wrapvalue(object angle y(i)+((z#/100)-1.50))
   zrotate object i,wrapvalue(object angle z(i)+((z#/100)-1.50))
   position object i,object position x(i),object position y(i),object position z(i)
   move object i,-0.2 : inc array(i,4)
   array(i,1)=122*sin(array(i,4))+122 : array(i,2)=122*sin(array(i,4)/2)+122 : array(i,3)=122*sin(array(i,4)/3)+122
next i
point camera object position x(1),object position y(1),object position z(1)
sync
if mousemovex()<>0 or mousemovey()<>0 or mousemovez()<>0 then end
loop

`spheremapping 1 for true
spheremapping = 1 : cameradistance = 30 : objectcount = 500 : hide mouse : sync on : sync rate 60 : dim array(objectcount,4) : color backdrop rgb(0,0,0) : set ambient light 0
load image "C:\Program Files\Dark Basic Software\Dark Basic Professional\Media\Bitmaps\rusty.bmp",1
for i=1 to objectcount
   make object sphere i,rnd(2) : array(i,4)=i : if spheremapping = 1 then set sphere mapping on i,1
next i
do
for i=1 to objectcount
   z#=i
   set object emissive i,RGB(array(i,1),array(i,2),array(i,3))
   xrotate object i,wrapvalue(object angle x(i)+((z#/100)-1.50))
   yrotate object i,wrapvalue(object angle y(i)+((z#/100)-1.50))
   zrotate object i,wrapvalue(object angle z(i)+((z#/100)-1.50))
   position object i,object position x(i),object position y(i),object position z(i)
   move object i,-0.2 : inc array(i,4)
   array(i,1)=122*sin(array(i,4))+122 : array(i,2)=122*sin(array(i,4)/2)+122 : array(i,3)=122*sin(array(i,4)/3)+122
next i
point camera object position x(1),object position y(1),object position z(1)
position camera object position x(1) - cameradistance,object position y(1) - cameradistance,object position z(1) - cameradistance
sync : if mousemovex()<>0 or mousemovey()<>0 or mousemovez()<>0 then end
loop