Sorry your browser is not supported!

Global ht as Dword
Global wt as Dword
dvd=100
Dim h(dvd,dvd) as Integer

Sync On: Sync Rate 60: Autocam Off
Set Camera Range 10,7000

Load Image "background3.jpg",1,1
Make Memblock From Image 1,1
wt=Memblock Dword(1,0)
ht=Memblock Dword(1,4)

Create Bitmap 1,wt,ht
Set Current Bitmap 1
Paste Image 1,0,0
For i# = 0.0 to dvd-1.0
   For j# = 0.0 to dvd-1.0
      x=(j#+1.0)/dvd*wt
      y=(i#+1.0)/dvd*ht
      i=i#:j=j#
      h(j,i)=(Rgbr(Point(x,y))+Rgbg(Point(x,y))+rgbb(Point(x,y)))/3
   Next j#
Next i#
Set Current Bitmap 0
Position Camera 1000,100,500

Make Matrix 1,10000,10000,dvd,dvd
SET MATRIX TEXTURE 1, 1, 0
Prepare Matrix Texture 1,1,dvd,dvd
t=1
For i=0 to dvd-1
   For j = 0 to dvd-1
      Set Matrix Tile 1,j,(dvd-1)-i,t
      Set Matrix Height 1,(dvd-1)-j,(dvd-1)-i,h(j,i)
      t=t+1
   Next j
Next i

Update Matrix 1
Sprite 1,1,1,1
Scale Sprite 1,25
Make Object Sphere 2,1,1,1
Hide Object 2
Make Object Box 3,20,20,40


f#=1
fs#=20

counter=0
height=0
Do
   Set Cursor 200,0:Print "Up/Down arrows to change speed: ";41-Int(fs#)
   fs#=fs#+downkey()*(fs#<(dvd-10))-upkey()*(fs#>2)
   fm#=10000.0/dvd/fs#
   f#=f#+1
   counter=counter+1
   If counter>5000
      if counter<7000
         height=height+2
      Else
         height=height-2
         if counter=9000 then counter=0
      Endif
   Endif
   If f#>fs#
      Shift Matrix Right 1
      f#=1
   Endif
   Update Matrix 1
   Position Object 2,5000.0-f#*fm#,300,5000
   Turn Object Right 2,.05
   Move Object 2,4000
   Position Object 3,Object Position X(2),Get Ground Height(1,Object Position X(2),Object Position Z(2))+10,Object Position Z(2)
   Point Object 3,Object Position X(3)-2,Get Ground Height(1,Object Position X(3)-2,Object Position Z(3))+10,Object Position Z(3)
   Move Object 2,400
   Position Camera Object Position X(2),Object Position Y(2)+height,Object Position Z(2)
   Point Camera Object Position X(3),100,Object Position Z(3)
   Sync
Loop

sync on : sync rate 0 : autocam off : randomize timer()
s=8 : r=8 : ms=2000 : md=64
for f=1 to s
   for g=1 to s
      ink rgb(rnd(255),rnd(255),rnd(255)),0
      box (g-1)*r,(f-1)*r,g*r,f*r
   next g
next f
get image 1,0,0,s*r,s*r,1
make matrix 1,ms,ms,md,md
prepare matrix texture 1,1,s,s
set matrix trim 1,0.1,0.1
for f=0 to md-1
   for g=0 to md-1
      set matrix tile 1,f,g,rnd((s*s)-1)+1
   next g
next f
position camera 0,400,-200
point camera 250,0,250
for f=0 to 10
   for g=0 to 10
      set matrix height 1,3+f,3+g,100
      set matrix height 1,20+f,20+g,-100
   next g
next f
update matrix 1
c=0
do
   if c=0 then d=rnd(3) : c=20
   dec c
   select d
      case 0 : shift matrix right 1 : endcase
      case 1 : shift matrix left 1 : endcase
      case 2 : shift matrix up 1 : endcase
      case 3 : shift matrix down 1 : endcase
   endselect
   update matrix 1
   paste image 1,0,0
   sync
loop

sync on : sync rate 60

cls rgb(255,255,255)
ink rgb(255,0,0),0
box 16,0,32,16
ink rgb(0,0,255),0
box 2,2,14,14
get image 1,0,0,32,16,1

make matrix 1,500,500,8,8
prepare matrix texture 1,1,2,1
set matrix trim 1,0.01,0.01

set matrix height 1,1,1,30
set matrix height 1,2,1,30
set matrix height 1,1,2,30
set matrix height 1,2,2,30
set matrix tile 1,1,1,2

update matrix 1
position camera 250,200,-250
pitch camera down 20

k=0
do
   if spacekey() and k=0
      shift matrix right 1
      update matrix 1
      k=1
   endif
   if k=1 and spacekey()=0 then k=0
   sync
loop

for f=0 to dvd : set matrix height 1,0,f,get matrix height(1,dvd,f) : next f