Sorry your browser is not supported!

if keystate(2) = 0 then keylock2 = 0
    if keystate(2) and keylock2 = 0
        input "insert heightmap name: ",heightmap$
        destroy terrain 1
        make object terrain 1
        set terrain heightmap 1,heightmap$
        build terrain 1
        set object wireframe 1,1
        keylock2 = 1
    endif
endif

if spacekey()
  scale object 1,100,10,100
endif

make object terrain 1
set terrain heightmap 1, "heighmap.bmp"
set terrain scale 1, 5, 0.3, 5
set terrain split 1, 16
set terrain tiling 1, 8
set terrain light 1, 1, -0.25, 0, 1, 1, 1   , 0.5  ` luz - dirX, dirY, dirZ, rojo, verde, azul, intensidad
set terrain texture 1, 1, 2
build terrain 1

**************************************
     x
   x x x      five vertex rising up or down
     x
heigh#=get matrix height (1,ox,oz)
heigh1#=get matrix height (1,ox-1,oz)
heigh2#=get matrix height (1,ox+1,oz)
heigh3#=get matrix height (1,ox,oz-1)
heigh4#=get matrix height (1,ox,oz+1)

***************************************

autocam off
sync on
hide mouse

make matrix 1,100,100,20,20
ghost matrix on 1

`mouse reference
make object sphere 1000,0.1
make object sphere 1,3:color object 1,rgb(255,0,0)

position camera 50,40,-50
point camera 50,0,0

punto=1
px=150
py=50
position mouse px,py

do
if mousex()>px then inc px,5
if mousex()<px then dec px,5
if mousey()>py then inc py,5
if mousey()<py then dec py,5
if py>100 then py=100
if px>100 then px=100

position object 1000,px,0,100-py

ox=object position x(1000)/5
oz=object position z(1000)/5

if mouseclick()=1 then hg#=hg#+1
if mouseclick()=2 then hg#=hg#-1
if mouseclick()=0 then hg#=0

heigh#=get matrix height (1,ox,oz)

if mouseclick()
set matrix height 1,ox,oz,heigh#+hg#:sleep 200
update matrix 1
endif

position object 1,object position x(1000),heigh#,object position z(1000)

set cursor 5,5:print ox
print oz

sync
loop

//Resize an image from its size to any size

autocam off
sync on
`we load an image as bitmap
load bitmap "uvtex.bmp",1

`geting other image from bitmap to clipboard
get image 3,0,0,bitmap width(1),bitmap height(1),1

`now we create a second bitmap (in this case we reduce the image 40*40)
create bitmap 2,40,40

`we copy bitmap 1 and paste in bitmap 2
copy bitmap 1,0,0,bitmap width(1),bitmap height(1),2,0,0,40,40

`geting an image of 40*40
get image 1,0,0,40,40,1

`deleting both bitmaps
delete bitmap 1
delete bitmap 2

`we paste the copy to see the result
paste image 1,0,0

do
ink rgb(0,0,0),0
box 0,100,100,200
set cursor 0,110
ink rgb(255,255,255),0
print mousex()
print mousey()

paste image 3,155,0
sync
loop

if mousex()>px then inc px,5
if mousex()<px then dec px,5
if mousey()>py then inc py,5
if mousey()<py then dec py,5

autocam off
sync on
hide mouse

make matrix 1,100,100,20,20
ghost matrix on 1

`mouse reference
make object sphere 1000,0.1
make object sphere 1,3:color object 1,rgb(255,0,0)

position camera 50,40,-50
point camera 50,0,0

punto=1
px=150
py=50
position mouse px,py

do
control camera using arrowkeys 0,0.05,0.01    
    
if mousex()>px then inc px,5
if mousex()<px then dec px,5
if mousey()>py then inc py,5
if mousey()<py then dec py,5
if py>100 then py=100
if px>100 then px=100

position object 1000,px,0,100-py

ox=object position x(1000)/5
oz=object position z(1000)/5

if mouseclick()=1 then hg#=hg#+1
if mouseclick()=2 then hg#=hg#-1
if mouseclick()=0 then hg#=0

heigh#=get matrix height (1,ox,oz)

if mouseclick()
set matrix height 1,ox,oz,heigh#+hg#:sleep 200
update matrix 1
endif

position object 1,object position x(1000),heigh#,object position z(1000)

set cursor 5,5:print ox
print oz

sync
loop

remstart
With the command [b]pick object[/b], we can see if the mouse (or other object coordinates) are on coordinates x, z of an object such as a rectangular matrix .....

With command [b]get pick vector x()[/b] we get exactly the position x,z that we are into this object.
remend
ink rgb(170,170,0),0
box 0,0,20,20
ink rgb(0,80,0),0
box 2,2,19,19
get image 1,0,0,20,20,1
sync on

make object plain 1,20,20:texture object 1,1:scale object texture 1,20,20
position object 1,10,-0.1,10
xrotate object 1,90

make object sphere 2,0.5:color object 2,rgb(255,0,0)



position camera -5,15,-10
point camera 10,0,10
do
ink rgb(255,255,255),0
set cursor 0,5:print tempx+1
print tempz+1
position object 2,tempx,0,tempz

null=pick object (mousex(),mousey(),1,1)
tempx=get pick vector x()+camera position x()
tempz=get pick vector z()+camera position z()


control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1
position camera camera position x(),20,camera position z()

sync
loop