forum.boolean.name - Ланшафт

Я немного подумал!

Решил что лучше использовать modify terrain
и вот что я начал делать:

Короче команду for x=0 to 32 я как-то (вроде) что-то перебираю!
А как мне сделать бугорки (впадины)? (ну то есть опять старый добрый ландшафт!)

Код:

Graphics3D 640,480,16,2

Const UPS=60

camera=CreateCamera()

PositionEntity camera,0,5,0



ter=CreateTerrain(32)

For x=0 To 32

 For y=0 To 32

Next

 Next

 

light=CreateLight()

RotateEntity light,90,0,0

period=1000/UPS

time=MilliSecs()-period

Repeat

 Repeat

  elapsed=MilliSecs()-time

 Until elapsed

 ticks=elapsed/period

 tween#=Float(elapsed Mod period)/Float(period)

 

 For k=1 To ticks

  time=time+period 

  If KeyHit(1) End

  UpdateWorld 

 Next

 

 RenderWorld tween

 Flip

 Camera_Look(camera)

 Camera_Free_Fly(camera)

Forever

Function Camera_Look(cam,speedx#=2,speedy#=2,dang=-89,upang=89)

 mxs=MouseXSpeed()

 mys=MouseYSpeed()

 xrot#=EntityPitch(cam)

 yrot#=EntityYaw(cam)

 If(xrot#<upang)And(mys>0)Then xrot#=xrot#+speedx#*mys/10  

 If(xrot#>upang)And(mys>0)Then xrot#=upang 

 If(xrot#>dang)And(mys<0)Then xrot#=xrot#+speedx#*mys/10 

 If(xrot#<dang)And(mys<0)Then xrot#=dang  

 yrot=yrot-speedy#*mxs/10 

 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

 RotateEntity cam,xrot,yrot,0

End Function

Function Camera_Free_Fly(Obj,mf#=.5,mb#=.5,ml#=.5,mr#=.5)

 If MouseDown(1) Then MoveEntity Obj,  0 ,0, mf#;W

 If MouseDown(2) Then MoveEntity Obj,  0 ,0,-mb#;S 

 If KeyDown(30) Then MoveEntity Obj,-ml#,0,  0 ;A

 If KeyDown(32) Then MoveEntity Obj, mr#,0,  0 ;D

End Function