Hi.
I've been learning to program for about two months... It is not really a landscape editor i suppose, I mean, it wont save anything your doing and let you use it later (although it COULD do this with some modification) it's more just something to play with when your bored.
For soem reason the code button did not work, so here it is.
remstart
load bitmap "grass10.bmp",1
get image 1,0,0,256,256
delete bitmap 1
remend
rem make matrices
make matrix 1,1000.0,1000.0,25,25
position matrix 1,2,2,2
remstart
rem Prepare matrix with a texture cut into a 2x2 texture grid
prepare matrix texture 1,1,2,2
rem Fill matrix with first texture tile
fill matrix 1,0.0,1
for x=0 to 10
for y=0 to 10
if rnd(2)=0 then set matrix tile 1,x,y,2
set matrix tile 1,0,y,3
set matrix tile 1,10,y,3
set matrix tile 1,x,0,3
set matrix tile 1,x,10,3
set matrix tile 1,x,5,4
set matrix tile 1,x,5,4
next y
next x
update matrix 1
remend
rem make sculptor tool
sync on
make object sphere 1,10
color object 1,rgb(170,1,1)
DO
rem Position camera
cpx# = object Position X(1)
cpz# = object Position Z(1)
cpy# = get ground height(1,cpx#,cpz#) + 30
set camera to follow cpx#,cpy#,cpz#,c_angle#,190,100,1,1
Rem move within the matrix
if leftkey() = 1 then lateral# = wrapvalue(lateral# - 3.0)
if rightkey() = 1 then lateral# = wrapvalue(lateral# + 3.0)
if upkey() = 1 then move object 1,13
if downkey() = 1 then move object 1,-13
yrotate object 1,lateral#
if leftkey() = 1 then c_angle# = c_angle# - 3
if rightkey() = 1 then c_angle# = c_angle# + 3
mpx# = object position x(1)/40
mpz# = object position z(1)/40
rem sculpt tool denting
if shiftkey() = 1 then hv# = hv# - 10
if returnkey() = 1 then hv# = hv# + 10
if spacekey() = 1 then height# = height# - hv#
if upkey() = 1 or downkey() = 1 then inc h#
if h# = 3 then h# = 0
if h# = 2 then height# = 0
if spacekey() = 1 then set matrix height 1,mpx#,mpz#,height#
If controlkey() = 1 then height# = height# + hv#
if upkey() = 1 or downkey() = 1 then inc h#
if h# = 3 then h# = 0
if h# = 2 then height# = 0
if controlkey() = 1 then set matrix height 1,mpx#,mpz#,height#
update matrix 1
sync
LOOP
aticper
I'm not paranoid. Stop thinking that I'm paranoid!