Sorry your browser is not supported!

Rem Smooth Matrix function
rem By ReD_eYe

sync on
sync rate 50

remstart Smooth_matrix function!

matnum=matrix number you want to smooth
tilex=number of tiles on x axis on that matrix(can be used to only smooth a small area
tilez=see above but for the z axis
times=the number of time you want to smooth the matrix(a value of 0 causes no smoothing)

remend

make matrix 1,1000,1000,100,100

randomize matrix 1,200
update matrix 1

do

center text 320,0,"Press Spacebar to Smooth Matrix"
center text 320,20,"This Matrix has been smoothed> "+str$(t)+" times"

control camera using arrowkeys 0,10,2
position camera camera position x(),250,camera position z()
if spacekey()=1 and press=0 then smooth_matrix(1,100,100,1) : press=1 : inc t

if spacekey()=0 then press=0

sync
loop

function smooth_matrix(matnum,tilex,tilez,times)
for multiple=1 to times
for x=1 to tilex-1
for z=1 to tilez-1
a=get matrix height(matnum,x-1,z+1)
b=get matrix height(matnum,x,z+1)
c=get matrix height(matnum,x+1,z+1)
d=get matrix height(matnum,x+1,z)
e=get matrix height(matnum,x+1,z-1)
f=get matrix height(matnum,x,z-1)
g=get matrix height(matnum,x-1,z-1)
h=get matrix height(matnum,x-1,z)
total=a+b+c+d+e+f+g+h
av#=total/8
set matrix height matnum,x,z,av#
next z
next x
next multiple

for x=0 to tilex
set matrix height matnum,x,0,get matrix height(matnum,x,1)
next x

for x=0 to tilex
set matrix height matnum,x,tilez,get matrix height(matnum,x,tilez-1)
next x

for z=0 to tilez
set matrix height matnum,0,z,get matrix height(matnum,1,z)
next z

for z=0 to tilez
set matrix height matnum,tilex,z,get matrix height(matnum,tilex-1,z)
next z

update matrix matnum
endfunction

sync on
sync rate 0
make object sphere 2,1
make object sphere 1,10
color object 2,RGB(255,0,0)

make object cone 3,10
position object 3,40,0,40

make object box 4,8,8,8
xrotate object 4,45
position object 4,25,0,25

make object box 5,8,8,8
xrotate object 5,30
zrotate object 5,30
position object 5,20,0,17

make object sphere 6,11
position object 6,11,0,11

position object 1,0,0,0
make matrix 1,70,70,70,70

x=0
z=0
y=0

sync
do

if object collision(2,0)>0
set matrix height 1,x,z,y
y=y+1
position object 2,x,y,z
endif

if object collision(2,0)=0
x=x+1
y=0
position object 2,x,y,z
endif

if x>69
x=0
z=z+1
endif

if z>69
update matrix 1
goto done
endif

`sync
loop

done:
do

if spacekey()=1
for i=1 to 6
hide object i
next i

else

for i=1 to 6
show object i
next i
endif
`get mouse input
mx#=mousemovex()*0.5
my#=mousemovey()*0.5
`rotations wrapped to 360 from mouse, stuff rotx n y
rotx#=wrapvalue(rotx#+mx#)
roty#=wrapvalue(roty#+my#)
`limit axis on mouse y
if roty#<=270 and roty#>180 then roty#=270
if roty#>=90 and roty#<180 then roty#=90
`interpolate mouse
acx#=curveangle(rotx#,acx#,4)
acy#=curveangle(roty#,acy#,4)
acz#=curveangle(rotz#,acz#,4)
rotate camera acy#,acx#,acz#

if mouseclick()=1 then move camera 1
if mouseclick()=2 then move camera -1
sync
loop