Terrain tiling shows borders

[PakzParticipant]

I had the idea to use terrains to tile with but somehow I got the effect that around each terrain there is a lighter border. Can anyone shed some light on this?

 

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Global mapsize:Int=32 Class MyWindow Extends Window Field _scene:Scene Field _camera:Camera Field _light:Light Field _material:Material Field _terrain:Model[,] Field map:Int[,] = New Int[10,10] Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags ) map[5,5] = 1 startgame() End Method Method OnRender( canvas:Canvas ) Override RequestRender() Fly( _camera,Self ) _scene.Render( canvas) If Keyboard.KeyReleased(Key.Space) Then startgame() canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 ) canvas.DrawText("Cursor up/down/left/right a/z and Left mouse button - space = new map.",0,20) End Method Method startgame() If _scene Then _scene.DestroyAllEntities() _scene = Scene.GetCurrent() 'create camera ' _camera=New Camera _camera.Near=1 _camera.Far=512 _camera.Move( 0,66,0 ) 'create light ' _light=New Light _light.RotateX( Pi/2 ) 'aim directional light 'down' - Pi/2=90 degrees. _material = New PbrMaterial( Color.Brown,1,0.5 ) _material.ScaleTextureMatrix( 32,32 ) _terrain = New Model[10,10] For Local y:Int=0 Until 10 For Local x:Int=0 Until 10 Local heightMap:= New Pixmap(mapsize,mapsize) heightMap = makeheightmap(1) '_terrain=New Terrain( heightMap,New Boxf( -mapsize,0,-mapsize,mapsize,64,mapsize ),_material ) _terrain[x,y]=Model.CreateTerrain( heightMap,New Boxf( -32,0,-32,32,32,32 ),_material ) _terrain[x,y].CastsShadow=False _terrain[x,y].Move(x*64,0,y*64) heightMap.Discard() Next Next End Method End ' ' Function makeheightmap:Pixmap(tile:Int) Local pm:Pixmap pm = New Pixmap(mapsize,mapsize) pm.Clear(Color.Black) For Local y:Int=0 Until mapsize For Local x:Int=0 Until mapsize pm.SetPixel(x,y,New Color(.5,.5,.5)) Next Next Return pm End Function ' Taken from the mojo3d test Function Fly( entity:Entity,view:View ) If Keyboard.KeyDown( Key.Up ) entity.RotateX( 1 ) Else If Keyboard.KeyDown( Key.Down ) entity.RotateX( -1 ) Endif If Keyboard.KeyDown( Key.Q ) entity.RotateZ( 1 ) Else If Keyboard.KeyDown( Key.W ) entity.RotateZ( -1 ) Endif If Keyboard.KeyDown( Key.Left ) entity.RotateY( 1,True ) Else If Keyboard.KeyDown( Key.Right ) entity.RotateY( -1,True ) Endif If Mouse.ButtonDown( MouseButton.Left ) If Mouse.X<view.Width/3 entity.RotateY( 1,True ) Else If Mouse.X>view.Width/3*2 entity.RotateY( -1,True ) Else entity.Move( New Vec3f( 0,0,.1 ) ) Endif Endif If Keyboard.KeyDown( Key.A ) entity.MoveZ( 1 ) '( New Vec3f( 0,0,.1 ) ) Else If Keyboard.KeyDown( Key.Z ) entity.MoveZ( -1 ) '( New Vec3f( 0,0,-.1 ) ) Endif End Function Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154

#Import "<std>" #Import "<mojo>" #Import "<mojo3d>"     Using std.. Using mojo.. Using mojo3d..   Global mapsize:Int=32     Class MyWindow Extends Window Field _scene:Scene   Field _camera:Camera Field _light:Light Field _material:Material Field _terrain:Model[,] Field map:Int[,] = New Int[10,10] Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=WindowFlags.Resizable )   Super.New( title,width,height,flags ) map[5,5] = 1 startgame()   End Method Method OnRender( canvas:Canvas ) Override RequestRender() Fly( _camera,Self ) _scene.Render( canvas) If Keyboard.KeyReleased(Key.Space) Then startgame() canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 ) canvas.DrawText("Cursor up/down/left/right a/z and Left mouse button - space = new map.",0,20) End Method   Method startgame() If _scene Then _scene.DestroyAllEntities()   _scene = Scene.GetCurrent() 'create camera ' _camera=New Camera _camera.Near=1 _camera.Far=512 _camera.Move( 0,66,0 ) 'create light ' _light=New Light _light.RotateX( Pi/2 ) 'aim directional light 'down' - Pi/2=90 degrees. _material = New PbrMaterial( Color.Brown,1,0.5 ) _material.ScaleTextureMatrix( 32,32 ) _terrain = New Model[10,10] For Local y:Int=0 Until 10 For Local x:Int=0 Until 10 Local heightMap:= New Pixmap(mapsize,mapsize) heightMap = makeheightmap(1) '_terrain=New Terrain( heightMap,New Boxf( -mapsize,0,-mapsize,mapsize,64,mapsize ),_material ) _terrain[x,y]=Model.CreateTerrain( heightMap,New Boxf( -32,0,-32,32,32,32 ),_material ) _terrain[x,y].CastsShadow=False _terrain[x,y].Move(x*64,0,y*64) heightMap.Discard() Next Next End Method End     ' ' Function makeheightmap:Pixmap(tile:Int) Local pm:Pixmap pm = New Pixmap(mapsize,mapsize) pm.Clear(Color.Black)   For Local y:Int=0 Until mapsize For Local x:Int=0 Until mapsize pm.SetPixel(x,y,New Color(.5,.5,.5)) Next Next Return pm End Function   ' Taken from the mojo3d test Function Fly( entity:Entity,view:View )   If Keyboard.KeyDown( Key.Up ) entity.RotateX( 1 ) Else If Keyboard.KeyDown( Key.Down ) entity.RotateX( -1 ) Endif If Keyboard.KeyDown( Key.Q ) entity.RotateZ( 1 ) Else If Keyboard.KeyDown( Key.W ) entity.RotateZ( -1 ) Endif If Keyboard.KeyDown( Key.Left ) entity.RotateY( 1,True ) Else If Keyboard.KeyDown( Key.Right ) entity.RotateY( -1,True ) Endif   If Mouse.ButtonDown( MouseButton.Left ) If Mouse.X<view.Width/3 entity.RotateY( 1,True ) Else If Mouse.X>view.Width/3*2 entity.RotateY( -1,True ) Else entity.Move( New Vec3f( 0,0,.1 ) ) Endif Endif If Keyboard.KeyDown( Key.A ) entity.MoveZ( 1 ) '( New Vec3f( 0,0,.1 ) ) Else If Keyboard.KeyDown( Key.Z ) entity.MoveZ( -1 ) '( New Vec3f( 0,0,-.1 ) ) Endif End Function     Function Main()   New AppInstance New MyWindow App.Run() End

 

I was thinking if I would have prefab terrains it would make scrolling and larger worlds easier.

Attachments:

1. 

   terrborder.jpg
   

[Mark SiblyKeymaster]

It looks like discontinuities at the edges of each terrain, perhaps the normals are being incorrectly generated here – will take a look at it.

But even if there is something up here, there will always be discontinuities at the edges I think (except in cases like this where terrains are totally flat) as the vertex normals wont be correctly generated at the edges as they aren’t actually connected to neighboring edge.

This is actually pretty close to how the original terrain that was in there last year worked though (except each tile was just an index buffer and they all shared the same mega vertex buffer) and I think I may resurrect it so hold tight and this may be built in soon!

[PakzParticipant]

Ok. I was just experimenting. I might just as wel just create tile meshes if terrains have those discontinues.

[Author]

Posts