Sorry your browser is not supported!

hide mouse
sync on
sync rate 0

DIM heightmap(639)

create bitmap 1,640,480

Do
   mod=wrapvalue(mod+1)

   `calculate heights
   for x = 0 to 639
      heightmap(x)=240+sin(x+mod)*(sin(mod)*100)
   next x

   `draw landscape
   set current bitmap 1
   cls
   for x = 0 to 639
      line x,heightmap(x),x,479
   next x

   print "FPS: ";screen fps()
   print mod
   set current bitmap 0
   copy bitmap 1,0
   sync
Loop

set display mode 320,240,16

hide mouse
sync on
sync rate 0

DIM heightmap(319)

create bitmap 1,320,240
create bitmap 2,320,240

for x=0 to 239
    ink rgb(clamp(-1*x+255,0,255),clamp(.013*x^2-3.2*x+255,0,255),clamp(-3*x+255,0,255)),0
    line 0,x,319,x
next x

Do
    imod=wrapvalue(imod+1)
   `calculate heights
   for x = 0 to 319 step 2
      heightmap(x)=120+sin(x+imod)*(sin(imod)*90)
   next x

   `draw landscape
   set current bitmap 1
   cls
   copy bitmap 2,1
   
   ink rgb(0,128,255),0
   for x = 0 to 319 step 2
      line x,heightmap(x),x,0
      line x+1,heightmap(x),x+1,0
   next x
   
   ink 0,0
   print "FPS: ";screen fps()
   set current bitmap 0
   copy bitmap 1,0

   sync
Loop

function clamp(a as float,mn as float,mx as float)
if a<mn then a=mn
if a>mx then a=mx
endfunction a

hide mouse
sync on
sync rate 0

bw=320 : bh=240
create bitmap 1,bw,bh
DIM heightmap(bw)

red=rgb(255,0,0)
white=rgb(255,255,255)
blue=rgb(0,0,255)

Do
   mod=wrapvalue(mod+1)

   `calculate heights
   for x = 0 to bw
      heightmap(x)=(bh/2)+sin(x+mod)*(sin(mod)*80)
   next x

   `draw landscape
   set current bitmap 1
   cls
   ink blue,0
   for x = 0 to bw
      line x,bh-heightmap(x),x,bh-1
   next x

   l=leftkey():r=rightkey()
   px=px+r-l
   ink red,0
   circle px,bh-heightmap(px),10

   ink white,0
   print "FPS: ";screen fps()
   print mod
   set current bitmap 0
   copy bitmap 1,0,0,bw-1,bh-1, 0,0,0,639,479
   sync
Loop

set display mode 320,240,16

hide mouse
sync on
sync rate 30

DIM heightmap(319)
   `calculate heights
randomize timer()
temp=rnd(360)
   for x = 0 to 319
      heightmap(x)=120+sin(x+temp)*(sin(temp)*90)
   next x

create bitmap 1,320,240
create bitmap 2,320,240

set current bitmap 2
for x=0 to 239
    ink rgb(clamp(-1*x+255,0,255),clamp(.013*x^2-3.2*x+255,0,255),clamp(-3*x+255,0,255)),0
    line 0,x,319,x
next x

redrawTerrain()

playerx=160
playerxs#=0
playery=heightmap(playerx)-5
playerys#=0

ink 0,0

Do
    cls
    copy bitmap 1,0
    
    if rightkey() then playerxs#=playerxs#+.25
    if leftkey() then playerxs#=playerxs#-.25
    playerx=playerx+playerxs#
    playerxs#=playerxs#*.95
    if playerys#=0
        playery=heightmap(playerx)-5
        if upkey() then playerys#=-5
    else
        playery=playery+playerys#
        playerys#=playerys#+.51
        if playery>heightmap(playerx)-5 then playerys#=0
    endif

    circle playerx,playery,5
    
   
    print "FPS: ";screen fps()
   sync
Loop

function redrawTerrain()
   `draw landscape
   set current bitmap 1
   cls
   copy bitmap 2,1
   
   ink rgb(0,128,255),0
   for x = 0 to 319 step 2
      line x,heightmap(x),x,0
      line x+1,heightmap(x),x+1,0
   next x
   set current bitmap 0
endfunction

function clamp(a as float,mn as float,mx as float)
if a<mn then a=mn
if a>mx then a=mx
endfunction a

set display mode 320,240,16

hide mouse
sync on
sync rate 30

DIM heightmap(319)
   `calculate heights
randomize timer()
temp=rnd(360)
   for x = 0 to 319
      heightmap(x)=120+sin(x+temp)*(sin(temp)*90)
   next x

create bitmap 1,320,240
create bitmap 2,320,240

set current bitmap 2
for x=0 to 239
    r = clamp(x*-1+255.,0.,255.)*65536
    g = clamp(.013*x^2-3.2*x+255.,0.,255.)*256
    b = clamp(-3*x+255.,0.,255.)
    ink r+g+b,0
    line 0,x,319,x
next x

redrawTerrain()

playerx=160
playerxs#=0
playery=heightmap(playerx)-5
playerys#=0

ink 0,0

Do
    cls
    copy bitmap 1,0

    if rightkey() then playerxs#=playerxs#+.25
    if leftkey() then playerxs#=playerxs#-.25
    playerx=playerx+playerxs#
    playerxs#=playerxs#*.95
    if playerys#=0
        playery=heightmap(playerx)-5
        if upkey() then playerys#=-5
    else
        playery=playery+playerys#
        playerys#=playerys#+.51
        if playery>heightmap(playerx)-5 then playerys#=0
    endif

    circle playerx,playery,5


    print "FPS: ";screen fps()
   sync
Loop

function redrawTerrain()
   `draw landscape
   set current bitmap 1
   cls
   copy bitmap 2,1

   ink rgb(0,128,255),0
   for x = 0 to 319 step 2
      line x,heightmap(x),x,0
      line x+1,heightmap(x),x+1,0
   next x
   set current bitmap 0
endfunction

function clamp(a#,mn#,mx#)
   if a#<mn# then a#=mn#
   if a#>mx# then a#=mx#
   a=a#
endfunction a