`Setam variabilele sa aratam modul de deformare a matritei
wid=1000
lng=1000
xseg=40
zseg=40
amp=100
freq=7
time=0
`coloram backdropul cu albastru
Color backdrop RGB(0,0,0)
`crream matrixul folosind variabilele de mai sus
Make matrix 1,wid,lng,xseg,zseg
`IPornim loopul
Sync on
Do
GoSub ControlTheWaves
`miscam camera in fuctie de sageti si o pozitionam
Control camera using arrowkeys 0,1,1
Position camera 0,camera position x(0),get ground height(1,camera position x(0),camera position z(0)),camera position z(0) `Optional nu e envoie sa puneti acest rand
Sync `dam refresh al ecran
Loop
`stabilim trecere timpului
Inc time,1
`avem grija ca wrapvalue sa fie de maxim 360 de greda
time=wrapvalue(time)
`Cough* inima codului care roduce valuri
For x=0 to xseg
For z=0 to zseg
y#=Cos((freq*x)+(time))*amp+Cos((freq*z)+(time))*amp
Set matrix height 1,x,z,y#
Next z
Next x
` facem update la matrix ca rezultatele sa fie vizibile
Update matrix 1
Return
