It seems that the code is missing, sorry about that.
For some reason, i could not log in as JVI
, so i had to make another profile.
I try again now, and just to be on the safe side, here is the code in the message too:
set display mode 1024,768,16:sync on:hide mouse
autocam off:randomize timer()
backdrop on:color backdrop 0
create bitmap 1,256,256
for y=0 to 15:for x=0 to 15:t=16*y+x
ink rgb(t,t,255),0:box 16*x,16*y,16*x+15,16*y+15:next x:next y
get image 1,0,0,255,255:set current bitmap 0
make matrix 1,100,100,70,70:prepare matrix texture 1,1,16,16
dim mh#(70,70)
dim x#(3):dim z#(3):dim dx#(3):dim dz#(3)
dim ca#(3):dim cc#(3):dim cf#(3):dim cs#(3)
for n=1 to 3
x#(n)=rnd(40)+15:z#(n)=rnd(40)+15
dx#(n)=rnd(90)+10:dx#(n)=dx#(n)/100:if rnd(100)>50 then dx#(n)=0-dx#(n)
dz#(n)=rnd(90)+10:dz#(n)=dz#(n)/100:if rnd(100)>50 then dz#(n)=0-dz#(n)
ca#(n)=rnd(360):cc#(n)=rnd(30)+5:cc#(n)=cc#(n)/100
cf#(n)=rnd(30)+10:cs#(n)=0.01
next n
set matrix wireframe off 1
do
for n=1 to 3
h#=x#(n)+dx#(n):if h#>70 or h#<0
dx#(n)=0-dx#(n):cc#(n)=rnd(30)+5:cc#(n)=cc#(n)/100
endif
h#=z#(n)+dz#(n):if h#>70 or h#<0
dz#(n)=0-dz#(n):cc#(n)=rnd(30)+5:cc#(n)=cc#(n)/100
endif
x#(n)=x#(n)+dx#(n):z#(n)=z#(n)+dz#(n)
ca#(n)=wrapvalue(ca#(n)-cc#(n))
cf#(n)=cf#(n)+cs#(n):if cf#(n)>40 or cf#(n)<10 then cs#(n)=0-cs#(n)
next n
max#=0:min#=100
for z1=0 to 70
for x1=0 to 70
y#=0:h#=0:for n=1 to 3
d#=sqrt((x#(n)-x1)^2+(z#(n)-z1)^2)
h#=h#+d#/100
a1#=wrapvalue(cf#(n)*(ca#(n)+d#))
y#=y#+sin(a1#)*2+2
next n
mh#(x1,z1)=y#/2+10/h#
if mh#(x1,z1)>max# then max#=mh#(x1,z1)
if mh#(x1,z1)<min# then min#=mh#(x1,z1)
next x1
next z1
f#=255/(max#-min#)
for z1=0 to 70
for x1=0 to 70
set matrix height 1,x1,z1,mh#(x1,z1)-min#
t#=f#*(mh#(x1,z1)-min#):if t#>255 then t#=255
if x1<=69 and z1<=69 then set matrix tile 1,x1,z1,t#
next x1
next z1
update matrix 1:cam#=wrapvalue(cam#+0.5)
position camera 80*sin(cam#)+50,50,80*cos(cam#)+50
point camera 50,0,50:sync
loop
The last word in this sentence is wrong
