TheGameCreators - CodeBase - Smooth Matrix Function

Category: Matrix

Version: 1.0

Information

Uploaded: 1st Sep 2003 12:45

Modified: 1st Jan 1970 01:00

Author: ReD_eYe

Summary

A small program which shows how to use the smooth_matrix function i made after readed DAVID89's description of how to do it.

Full Description

See short Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Smooth Matrix function

Rem By ReD_eYe(and inspired by David89)

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

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

Download

Please login to download

Comments

No comments yet.

Author Name:	ReD_eYe
CodeBase Entries:	2

CodeBase - Smooth Matrix Function

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments