Water Effect using a Matrix - dbpro

Author

Message

Bad Monkey

17

Years of Service

User Offline

Joined: 1st Jan 2007

Location:

Posted: 7th Apr 2007 05:13

Link

This is a water effect using a dbpro matrix, and the various commands.

Rem Project: Move Matrix
Rem Created: 4/2/2007 8:39:03 PM

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

sync on : sync rate 30 : autocam off
position camera 100,100,100

make matrix 1, 1000, 1000, 25, 25

dim waterLevel#(25,25)
dim waterRise(25,25)

createMatrix()

do
controlCamera(0, 15, 7)
setMatrix(1)
text 0,0,str$(get ground height(1,1,0))
sync
loop

function createMatrix()
for x = 0 TO 25
   for y = 0 TO 25
      set matrix height 1, x,y, rnd(3)
   next y
next x
update matrix 1
endfunction

function setMatrix(matrixNum)
riseVar# = .07
lowVar# = 0
highVar# = 3
for x = 0 TO 25
   for y = 0 TO 25
      if get matrix height(matrixNum,x,y) <= lowVar#
         waterRise(x,y) = 1
      endif
      if get matrix height(matrixNum,x,y) >= highVar#
         waterRise(x,y) = 0
      endif
      if waterRise(x,y) = 1
         waterLevel#(x,y) = get matrix height(matrixNum,x,y)
         newLevel# = riseVar#+waterLevel#(x,y)
         set matrix height matrixNum, x,y,newLevel#
         waterLevel#(x,y) = newLevel#
      endif
      if waterRise(x,y) = 0
         waterLevel#(x,y) = get matrix height(matrixNum,x,y)
         newLevel# = waterLevel#(x,y)-riseVar#
         set matrix height matrixNum, x,y,newLevel#
         waterLevel#(x,y) = newLevel#
      endif
   next y
next x
update matrix matrixNum
endfunction

function controlCamera(cameraNum, speed, turn)
   if upkey()= 1 THEN move camera cameraNum, speed
   if downkey() = 1 THEN move camera cameraNum, speed*-1
   if rightkey() = 1 THEN turn camera right cameraNum, turn
   if leftkey() = 1 THEN turn camera left cameraNum, turn
endfunction

+ Code Snippet

Rem Project: Move Matrix
Rem Created: 4/2/2007 8:39:03 PM

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

sync on : sync rate 30 : autocam off
position camera 100,100,100

make matrix 1, 1000, 1000, 25, 25

dim waterLevel#(25,25)
dim waterRise(25,25)

createMatrix()

do
controlCamera(0, 15, 7)
setMatrix(1)
text 0,0,str$(get ground height(1,1,0))
sync
loop

function createMatrix()
for x = 0 TO 25
   for y = 0 TO 25
      set matrix height 1, x,y, rnd(3)
   next y
next x
update matrix 1
endfunction

function setMatrix(matrixNum)
riseVar# = .07
lowVar# = 0
highVar# = 3
for x = 0 TO 25
   for y = 0 TO 25
      if get matrix height(matrixNum,x,y) <= lowVar#
         waterRise(x,y) = 1
      endif
      if get matrix height(matrixNum,x,y) >= highVar#
         waterRise(x,y) = 0
      endif
      if waterRise(x,y) = 1
         waterLevel#(x,y) = get matrix height(matrixNum,x,y)
         newLevel# = riseVar#+waterLevel#(x,y)
         set matrix height matrixNum, x,y,newLevel#
         waterLevel#(x,y) = newLevel#
      endif
      if waterRise(x,y) = 0
         waterLevel#(x,y) = get matrix height(matrixNum,x,y)
         newLevel# = waterLevel#(x,y)-riseVar#
         set matrix height matrixNum, x,y,newLevel#
         waterLevel#(x,y) = newLevel#
      endif
   next y
next x
update matrix matrixNum
endfunction

function controlCamera(cameraNum, speed, turn)
   if upkey()= 1 THEN move camera cameraNum, speed
   if downkey() = 1 THEN move camera cameraNum, speed*-1
   if rightkey() = 1 THEN turn camera right cameraNum, turn
   if leftkey() = 1 THEN turn camera left cameraNum, turn
endfunction

Have fun!

Back to top

Profile PM

JosephB

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 7th Apr 2007 19:55 Edited at: 7th Apr 2007 20:57

Link

Nice. I tried to optimize the SetMatrix function a bit and provide for greater random starts for the x/y positions in the createMatrix function as follows:

Rem Project: Move Matrix
Rem Created: 4/2/2007 8:39:03 PM

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

sync on : sync rate 30 : autocam off
position camera 100,100,100

make matrix 1, 1000, 1000, 25, 25

Global riseVar# = .05
Global lowVar# = -2.0
Global highVar# = 2.0

dim waterLevel#(26,26)
dim waterRise(26,26)

createMatrix()

do
controlCamera(0, 15, 7)
setMatrix(1)
text 0,0,str$(get ground height(1,1,0))
sync
loop

function createMatrix()
for x = 0 TO 25
   for y = 0 TO 25
      set matrix height 1, x,y, rnd(4)-2
      rise=rnd(1)
        If rise=0
          WaterRise(x,y)=-1
        Else
          WaterRise(x,y)=1
        Endif
   next y
next x
update matrix 1
endfunction

function setMatrix(matrixNum)
for x = 0 TO 25
   for y = 0 TO 25
      heightnew#=get matrix height(matrixNum,x,y)
        if heightnew# <= lowVar# then waterRise(x,y) = 1
        if heightnew# >= highVar# then waterRise(x,y) = -1
      newLevel# = heightnew#+(riseVar#*waterRise(x,y))
      set matrix height matrixNum, x,y,newLevel#
   next y
next x
update matrix matrixNum
endfunction

function controlCamera(cameraNum, speed, turn)
   if upkey()= 1 THEN move camera cameraNum, speed
   if downkey() = 1 THEN move camera cameraNum, speed*-1
   if rightkey() = 1 THEN turn camera right cameraNum, turn
   if leftkey() = 1 THEN turn camera left cameraNum, turn
endfunction

+ Code Snippet

Rem Project: Move Matrix
Rem Created: 4/2/2007 8:39:03 PM

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

sync on : sync rate 30 : autocam off
position camera 100,100,100

make matrix 1, 1000, 1000, 25, 25

Global riseVar# = .05
Global lowVar# = -2.0
Global highVar# = 2.0

dim waterLevel#(26,26)
dim waterRise(26,26)

createMatrix()

do
controlCamera(0, 15, 7)
setMatrix(1)
text 0,0,str$(get ground height(1,1,0))
sync
loop

function createMatrix()
for x = 0 TO 25
   for y = 0 TO 25
      set matrix height 1, x,y, rnd(4)-2
      rise=rnd(1)
        If rise=0
          WaterRise(x,y)=-1
        Else
          WaterRise(x,y)=1
        Endif
   next y
next x
update matrix 1
endfunction

function setMatrix(matrixNum)
for x = 0 TO 25
   for y = 0 TO 25
      heightnew#=get matrix height(matrixNum,x,y)
        if heightnew# <= lowVar# then waterRise(x,y) = 1
        if heightnew# >= highVar# then waterRise(x,y) = -1
      newLevel# = heightnew#+(riseVar#*waterRise(x,y))
      set matrix height matrixNum, x,y,newLevel#
   next y
next x
update matrix matrixNum
endfunction

function controlCamera(cameraNum, speed, turn)
   if upkey()= 1 THEN move camera cameraNum, speed
   if downkey() = 1 THEN move camera cameraNum, speed*-1
   if rightkey() = 1 THEN turn camera right cameraNum, turn
   if leftkey() = 1 THEN turn camera left cameraNum, turn
endfunction

Others can probably do more, but I wanted to try a little.

Back to top

Profile PM Email

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 8th Apr 2007 00:56

Link

Cool. Here is my attempt. Click to start a wave.

set normalization on

create bitmap 1,64,64
for x=0 to 64
   for y=0 to 64
      ink rgb(0,rnd(128),128+rnd(128)),0
      dot x,y
   next y
next x
blur bitmap 1,4
get image 1,0,0,64,64
delete bitmap 1

make matrix 1,100,100,50,50
prepare matrix texture 1,1,1,1
set matrix 1,1,0,1,2,1,1,1
ghost matrix on 1

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

sync on
sync rate 30

do

for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   if mouseclick()=1
      Grid(0,25,25).Height=-100.0
      Grid(0,25,25).Fixed=1
   endif
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height
            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            `Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            `Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif
         set matrix height 1,x,y,Grid(1,x,y).Height
      next y
   next x
   SetNormals()
   update matrix 1

sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

+ Code Snippet

set normalization on

create bitmap 1,64,64
for x=0 to 64
   for y=0 to 64
      ink rgb(0,rnd(128),128+rnd(128)),0
      dot x,y
   next y
next x
blur bitmap 1,4
get image 1,0,0,64,64
delete bitmap 1

make matrix 1,100,100,50,50
prepare matrix texture 1,1,1,1
set matrix 1,1,0,1,2,1,1,1
ghost matrix on 1

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

sync on
sync rate 30

do

   for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   if mouseclick()=1
      Grid(0,25,25).Height=-100.0
      Grid(0,25,25).Fixed=1
   endif
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height
            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            `Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            `Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif
         set matrix height 1,x,y,Grid(1,x,y).Height
      next y
   next x
   SetNormals()
   update matrix 1

   sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 8th Apr 2007 02:29

Link

Andrew, why are you so god-like?

FREE DBPRO MEDIA PACK

Back to top

Profile PM Email Website

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 8th Apr 2007 16:29

Link

Lol! Well thank you very much! Glad you liked it.

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 8th Apr 2007 21:59 Edited at: 9th Apr 2007 01:11

Link

@TEH_CODERER (Andrew): Oooooh fancy! I like the normals you tossed in there. Shiny

Back to top

Profile PM Email

Turoid

21

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 9th Apr 2007 00:24

Link

Andrew wins

I am awesome and always right.

Back to top

Profile PM

filya

18

Years of Service

User Offline

Joined: 23rd Aug 2006

Location: USA

Posted: 9th Apr 2007 09:23

Link

Quote: "Andrew, why are you so god-like?"

couldn't have phrased it better

He is seriously good at maths and coding...

-- game dev is fun...but taking up too much time --

Back to top

Profile PM Email Website

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 9th Apr 2007 11:32

Link

Lol! Thanks guys but I wasn't going for a competition. I was just hoping someone might find it useful or can possibly learn something from it. There isn't anything complex in there plus I realised I've left some redundant lines in there which I was using whilst messing around. Oops! However, something you can try, which I already have somewhere [*scans HDD without success*] , is to either make it rain and let that start off some ripples or too start off some points at high or low positions and then you can have a nice ocean effect going on.

Back to top

Profile PM Email

filya

18

Years of Service

User Offline

Joined: 23rd Aug 2006

Location: USA

Posted: 9th Apr 2007 23:16

Link

tried setting the waves in a resonance (nope...not through coding..I am hopeless with that!)

Just click everytime the wave center reaches a peak. The wave keeps getting bigger and bigger (till I can no longer see it's peak and then I mess up the clicks and it gets chaotic)

-- game dev is fun...but taking up too much time --

Back to top

Profile PM Email Website

TinTin

18

Years of Service

User Offline

Joined: 16th May 2006

Location: BORG Drone Ship - Being Assimilated near Roda Beta (28)

Posted: 10th Apr 2007 14:50

Link

I've Modified TEH_CODERER's example to produce a raindrop effect...
Change the

+ Code Snippet

If MouseClick()=1
 Grid(0,25,25).Height=-100.0
 Grid(0,25,25).Fixed=1
EndIf

To the following...

+ Code Snippet

 X=Rnd(48)+2
 Y=Rnd(48)+2
 Z=-(Rnd(2)+2)
 Grid(0,X,Y).Height=Z
 Grid(0,X,Y).Fixed=1
 Grid(0,X+1,Y).Height=Z
 Grid(0,X+1,Y).Fixed=1
 Grid(0,X,Y+1).Height=Z
 Grid(0,X,Y+1).Fixed=1
 Grid(0,X+1,Y+1).Height=Z
 Grid(0,X+1,Y+!).Fixed=1

I'm now wondering if it'd be possible to grab the output as an image with shadows etc. to texture a large plain as a false 3D effect...???

Cyberspace was becoming overcrowded and slummy so I decided to move. These nice chaps gave me a lift.

Back to top

Profile PM

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 10th Apr 2007 17:04 Edited at: 10th Apr 2007 17:04

Link

You mean like this?

Clicking:

set normalization on

create bitmap 1,64,64
box 0,0,64,64
blur bitmap 1,4
get image 1,0,0,64,64
delete bitmap 1

make matrix 1,80,60,50,50
prepare matrix texture 1,1,1,1

make camera 1
position camera 1,40,50,30
rotate camera 1,90,0,0
set camera to image 1,2,256,256

make object plain 1,50,50
texture object 1,2
position object 1,1000,1000,1000
rotate object 1,90,0,0

position camera 1000,1025,950
rotate camera 20,0,0

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

sync on
sync rate 30

do

for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   if mouseclick()=1
      Grid(0,25,25).Height=-100.0
      Grid(0,25,25).Fixed=1
   endif
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height
            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            `Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            `Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif
         set matrix height 1,x,y,Grid(1,x,y).Height
      next y
   next x
   SetNormals()
   update matrix 1

sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

+ Code Snippet

set normalization on

create bitmap 1,64,64
box 0,0,64,64
blur bitmap 1,4
get image 1,0,0,64,64
delete bitmap 1

make matrix 1,80,60,50,50
prepare matrix texture 1,1,1,1

make camera 1
position camera 1,40,50,30
rotate camera 1,90,0,0
set camera to image 1,2,256,256

make object plain 1,50,50
texture object 1,2
position object 1,1000,1000,1000
rotate object 1,90,0,0

position camera 1000,1025,950
rotate camera 20,0,0

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

sync on
sync rate 30

do

   for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   if mouseclick()=1
      Grid(0,25,25).Height=-100.0
      Grid(0,25,25).Fixed=1
   endif
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height
            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            `Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            `Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif
         set matrix height 1,x,y,Grid(1,x,y).Height
      next y
   next x
   SetNormals()
   update matrix 1

   sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

TinTin's rain version:

set normalization on

create bitmap 1,64,64
box 0,0,64,64
blur bitmap 1,4
get image 1,0,0,64,64
delete bitmap 1

make matrix 1,80,60,50,50
prepare matrix texture 1,1,1,1

make camera 1
position camera 1,40,50,30
rotate camera 1,90,0,0
set camera to image 1,2,256,256

make object plain 1,50,50
texture object 1,2
position object 1,1000,1000,1000
rotate object 1,90,0,0

position camera 1000,1025,950
rotate camera 20,0,0

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

sync on
sync rate 30

do

for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   X=Rnd(48)+2
   Y=Rnd(48)+2
   Z=-(Rnd(2)+2)
   Grid(0,X,Y).Height=Z
   Grid(0,X,Y).Fixed=1
   Grid(0,X+1,Y).Height=Z
   Grid(0,X+1,Y).Fixed=1
   Grid(0,X,Y+1).Height=Z
   Grid(0,X,Y+1).Fixed=1
   Grid(0,X+1,Y+1).Height=Z
   Grid(0,X+1,Y+1).Fixed=1
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height
            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            `Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            `Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif
         set matrix height 1,x,y,Grid(1,x,y).Height
      next y
   next x
   SetNormals()
   update matrix 1

sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

+ Code Snippet

set normalization on

create bitmap 1,64,64
box 0,0,64,64
blur bitmap 1,4
get image 1,0,0,64,64
delete bitmap 1

make matrix 1,80,60,50,50
prepare matrix texture 1,1,1,1

make camera 1
position camera 1,40,50,30
rotate camera 1,90,0,0
set camera to image 1,2,256,256

make object plain 1,50,50
texture object 1,2
position object 1,1000,1000,1000
rotate object 1,90,0,0

position camera 1000,1025,950
rotate camera 20,0,0

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

sync on
sync rate 30

do

   for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   X=Rnd(48)+2
   Y=Rnd(48)+2
   Z=-(Rnd(2)+2)
   Grid(0,X,Y).Height=Z
   Grid(0,X,Y).Fixed=1
   Grid(0,X+1,Y).Height=Z
   Grid(0,X+1,Y).Fixed=1
   Grid(0,X,Y+1).Height=Z
   Grid(0,X,Y+1).Fixed=1
   Grid(0,X+1,Y+1).Height=Z
   Grid(0,X+1,Y+1).Fixed=1
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height
            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            `Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            `Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif
         set matrix height 1,x,y,Grid(1,x,y).Height
      next y
   next x
   SetNormals()
   update matrix 1

   sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

Back to top

Profile PM Email

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 10th Apr 2007 17:20

Link

Sorry for double post but just had an idea.
Move the box with the mouse. This is an example of how you culd make the water ripple based on a character or characters wading in it.

set normalization on

create bitmap 1,64,64
ink rgb(128,196,255),0
box 0,0,64,64
blur bitmap 1,4
get image 1,0,0,64,64
delete bitmap 1

make matrix 1,80,60,50,50
prepare matrix texture 1,1,1,1

make camera 1
position camera 1,40,50,30
rotate camera 1,90,0,0
set camera to image 1,2,256,256

make object plain 1,50,50
texture object 1,2
position object 1,1000,1000,1000
rotate object 1,90,0,0

make object box 2,2,2,2

position camera 1000,1025,950
rotate camera 20,0,0

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

position light 0,40,50,-30
set light range 0,10000
color light 0,rgb(255,255,255)

sync on
sync rate 30

do

for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   px#=px#+mousemovex()
   pz#=pz#-mousemovey()
   if px#<0.0
      px#=0.0
   endif
   if px#>80.0
      px#=80.0
   endif
   if pz#<0.0
      pz#=0.0
   endif
   if pz#>60.0
      pz#=60.0
   endif
   position object 2,975+(50.0*(px#/80.0)),1001,975+(50.0*(pz#/60.0))
   X=50-(px#/(80.0/50.0))
   Y=(pz#/(60.0/50.0))
   Z=-4
   Grid(0,X,Y).Height=Z
   Grid(0,X,Y).Fixed=1
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height
            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            `Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            `Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif
         set matrix height 1,x,y,Grid(1,x,y).Height
      next y
   next x
   SetNormals()
   update matrix 1

sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

+ Code Snippet

set normalization on

create bitmap 1,64,64
ink rgb(128,196,255),0
box 0,0,64,64
blur bitmap 1,4
get image 1,0,0,64,64
delete bitmap 1

make matrix 1,80,60,50,50
prepare matrix texture 1,1,1,1

make camera 1
position camera 1,40,50,30
rotate camera 1,90,0,0
set camera to image 1,2,256,256

make object plain 1,50,50
texture object 1,2
position object 1,1000,1000,1000
rotate object 1,90,0,0

make object box 2,2,2,2

position camera 1000,1025,950
rotate camera 20,0,0

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

position light 0,40,50,-30
set light range 0,10000
color light 0,rgb(255,255,255)

sync on
sync rate 30

do

   for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   px#=px#+mousemovex()
   pz#=pz#-mousemovey()
   if px#<0.0
      px#=0.0
   endif
   if px#>80.0
      px#=80.0
   endif
   if pz#<0.0
      pz#=0.0
   endif
   if pz#>60.0
      pz#=60.0
   endif
   position object 2,975+(50.0*(px#/80.0)),1001,975+(50.0*(pz#/60.0))
   X=50-(px#/(80.0/50.0))
   Y=(pz#/(60.0/50.0))
   Z=-4
   Grid(0,X,Y).Height=Z
   Grid(0,X,Y).Fixed=1
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height
            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            `Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            `Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif
         set matrix height 1,x,y,Grid(1,x,y).Height
      next y
   next x
   SetNormals()
   update matrix 1

   sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

Back to top

Profile PM Email

Samuel

19

Years of Service

User Offline

Joined: 4th Sep 2005

Location: Pluto

Posted: 27th Apr 2007 01:04

Link

Sorry for "reviving" topic, but... i edited TEH_CODERER new code and i maked it more "cool"

set normalization on

make matrix 1,100,100,50,50

position camera 50,50,-50

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

position light 0,40,50,-30
set light range 0,10000
color light 0,rgb(255,255,255)

sync on
sync rate 30

do

for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   px#=px#-mousemovex()
   pz#=pz#-mousemovey()
   if px#<0.0
      px#=0.0
   endif
   if px#>80.0
      px#=80.0
   endif
   if pz#<0.0
      pz#=0.0
   endif
   if pz#>60.0
      pz#=60.0
   endif
   X=50-(px#/(80.0/50.0))
   Y=(pz#/(60.0/50.0))
   Z=10
   Grid(0,X,Y).Height=Z
   Grid(0,X,Y).Fixed=1
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height

Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif

set matrix height 1,x,y,Grid(1,x,y).Height

next y
      next x
   SetNormals()
   update matrix 1

sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

+ Code Snippet

set normalization on

make matrix 1,100,100,50,50

position camera 50,50,-50

type Vertices
   Height as float
   Fixed as integer
   Velocity as float
endtype
dim Grid(2,51,51) as Vertices

position light 0,40,50,-30
set light range 0,10000
color light 0,rgb(255,255,255)

sync on
sync rate 30

do

   for x=0 to 50
      for y=0 to 50
         Grid(0,x,y).Height=get matrix height(1,x,y)
      next y
   next x
   px#=px#-mousemovex()
   pz#=pz#-mousemovey()
   if px#<0.0
      px#=0.0
   endif
   if px#>80.0
      px#=80.0
   endif
   if pz#<0.0
      pz#=0.0
   endif
   if pz#>60.0
      pz#=60.0
   endif
   X=50-(px#/(80.0/50.0))
   Y=(pz#/(60.0/50.0))
   Z=10
   Grid(0,X,Y).Height=Z
   Grid(0,X,Y).Fixed=1
   for x=1 to 49
      for y=1 to 49
         if Grid(0,x,y).Fixed=0
            a#=Grid(0,x-1,y-1).Height
            b#=Grid(0,x-1,y).Height
            c#=Grid(0,x,y-1).Height
            d#=(Grid(0,x,y).Height+(Grid(0,x,y).Velocity*3.0))*3.0
            e#=Grid(0,x-1,y+1).Height
            f#=Grid(0,x+1,y-1).Height
            g#=Grid(0,x,y+1).Height
            h#=Grid(0,x+1,y).Height
            i#=Grid(0,x+1,y+1).Height

            Grid(1,x,y).Height=(a#+b#+c#+d#+e#+f#+g#+h#+i#)/11.0
            Grid(0,x,y).Velocity=(Grid(1,x,y).Height-Grid(0,x,y).Height)+(Grid(0,x,y).Velocity*0.18)
            if Grid(1,x,y).Height<-3.0
               inc Grid(0,x,y).Velocity,1.0
            endif
            if Grid(1,x,y).Height>3.0
               dec Grid(0,x,y).Velocity,1.0
            endif
            Grid(1,x,y).Height=Grid(1,x,y).Height+Grid(0,x,y).Velocity
            Grid(0,x,y).Velocity=curvevalue(0.0,Grid(0,x,y).Velocity,20.0)
         else
            Grid(1,x,y).Height=Grid(0,x,y).Height
            dec Grid(0,x,y).Fixed,1
         endif

         set matrix height 1,x,y,Grid(1,x,y).Height

      next y
      next x
   SetNormals()
   update matrix 1

   sync

loop

Function SetNormals()
For X=1 To 49
for Z=1 To 49
H8#=Get Matrix Height(1,X,Z-1)
H4#=Get Matrix Height(1,X-1,Z)
H#=Get Matrix Height(1,X,Z)
H2#=Get Matrix Height(1,X,Z)
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATanFull(DX#,DY#)
AX#=WrapValue(90-AX#)
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATanFull(DZ#,DY#)
AZ#=WrapValue(90-AZ#)
NX#=Sin(AX#)
NY#=Cos(AX#)
NZ#=Sin(AZ#)
Set Matrix Normal 1,X,Z,NX#,NX#,NZ#
Next Z
Next X
Update Matrix 1
EndFunction

I really, LOVED the original water code =D

Uh....

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / Water Effect using a Matrix - dbpro