Check this out! My new way of landscapeing. I call it the pyramid algorythm.

[ScottieB]

; PROJECT : Test01
; AUTHOR  : 
; CREATED : 10/28/2009
; EDITED  : 10/28/2009
; ---------------------------------------------------------------------

dim buffer#(800)

randomize timer()

for iteration = 1 to 500

size = rnd(40) + 1

x1 = rnd(800-size)
x2 = x1 + size

for pyramid = size to 0 step -1   
for index = x1 to x2   

buffer#(index) = buffer#(index) + 1

if buffer#(index) > 255 then buffer#(index) = 255

next index

x1 = x1 + 1
x2 = x2 - 1

next pyramid
next iteration

rem c1# = buffer#(x) / 255
rem c2 = 255 * c1#

x1 = 0
x2 = 1

for x = 0 to 799 - 1
   
y1 = 299 - buffer#(x1)
y2 = 299 - buffer#(x2)

line x1,y1,x2,y2

x1 = x1 + 1
x2 = x2 + 1

next x

waitkey

[monkeybot]

nice and wiggly.

[Adaz]

No output (black screen). What does it do? (PB 1.64j2)

[kevin]

Tried adding a  SYNC prior to the waitkey.