TheGameCreators - CodeBase - Synthesis Project (matrix landscape)

Return to the CodeBase listing

Category: Matrix

Version: 1.0

Information

Uploaded: 3rd Aug 2005 08:47

Modified: 3rd Aug 2005 08:53

Author: NeX the Fairly Fast Ferret

Summary

Very cool landscape generator.

Full Description

Very cool landscape generator. Just add some dummy media and run!<br /> Thanks to somebody on the forums for the shadowing code!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: synthesis

Rem Created: 02/08/2005 20:02:50

Rem ***** Main Source File *****

randomize timer() : set camera range 1,10240

sync rate 10 : sync on

load image "rock.bmp",1

load image "sky.bmp",2,1

load image "water.bmp",4,1

make object sphere 2,-10240,90,90 : texture object 2,2 : scale object texture 2,1,1 : set object light 2,0 : scale object 2,100,25,100 : set object fog 2,0

make object plain 3,10240,10240 : position object 3,512,32,512 : rotate object 3,270,0,0 : set reflection shading on 3 : ghost object on 3,1

make object plain 4,10240,10240 : position object 4,512,32.2,512 : rotate object 4,270,0,0 : ghost object on 4,1 : texture object 4,4 : scale object texture 4,40,40

make object plain 5,10240,10240 : position object 5,512,32.1,512 : rotate object 5,270,0,0 : ghost object on 5 : texture object 5,4 : scale object texture 5,50,50

make matrix 1,1024,1024,256,256

control camera using arrowkeys 0,0.25,1

prepare matrix texture 1,1,16,16

for mountains=1 to rnd(16)+32

size = 4+rnd(60)

xbase = rnd(128)+64

ybase = rnd(128)+64

for angle = 0 to 3600

for distance = 1 to size

set matrix height 1,xbase + sin(angle*0.1)*distance,ybase + cos(angle*0.1)*distance,get matrix height(1,xbase + sin(angle*0.1)*distance,ybase + cos(angle*0.1)*distance)+0.15

next distance

next angle

update matrix 1

sync

next mountains

for passes = 0 to (rnd(8)+1)

for x=1 to 255

for y=1 to 255

set matrix height 1,x,y,((get matrix height(1,x-1,y)+get matrix height(1,x+1,y)+get matrix height(1,x,y-1)+get matrix height(1,x-1,y+1))/4)+rnd(25)*0.1

set matrix tile 1,x,y,1+rnd(255)

next y

if int(x/16)*16 = x

update matrix 1

sync

endif

next x

next passes

set normalization on

For Z =0 To 255

For X = 0 To 255

`         Make Vectors

r=Make Vector3(1)

r=Make Vector3(2)

r=Make Vector3(3)

tw#=2.5 : ` need to adjust according to "look"  - heavy/light shadows 0-15

`Make two vectors at each vertex in same plane

AX# = X: AZ# = Z:AY# = Get matrix Height(1, AX#, AZ#)

dzx#=((Get matrix Height(1, AX#, AZ#))- (Get matrix Height(1, AX#+1, AZ#)))

dzy#=((Get matrix Height(1, AX#, AZ#))- (Get matrix Height(1, AX#, AZ#+1)))

` Set vectors  - based on your axis, might need to change (-) signs

Set Vector3 1, -tw#,dzx#,0

Set Vector3 2, 0,-dzy#,tw#

` Get cross product of 2 vertex vectors - gives the normal

Cross Product Vector3 3,1,2

`Pull out x,y,z of Normal

nx#=x vector3(3)

ny#=y vector3(3)

nz#=z vector3(3)

set matrix normal 1, x,z,nx#,ny#,nz#

Next X

Next Z

update matrix 1

scroll object texture 4,0.001,0.002

scroll object texture 5,-0.001,0.002

control camera using arrowkeys 0,2.5,1

text 0,0,str$(screen fps())

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	NeX the Fairly Fast Ferret
CodeBase Entries:	1

CodeBase - Synthesis Project (matrix landscape)

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments