3D Terrain - GameCreators Forum

Author

Message

Pfaber1

6

Years of Service

User Offline

Joined: 7th Jan 2018

Location: England

Posted: 14th Jan 2019 10:25

Link

Hi everybody I've had AGK2 now for a year and written a couple of 2D games. I now wish to have a go at 3D . The problem is I have no idea how to create a 3D terrain . Could somebody please explain the procedure for doing this as I don't have a clue what's involved . Please help.

Back to top

Profile PM

puzzler2018

User Banned

Posted: 14th Jan 2019 10:31 Edited at: 14th Jan 2019 10:31

Link

Hi..

I have a thread called " my take on terrain"

But I don't have that link to hand at moment. But if you click my name and should see my threads

And I'm sure others will guide you too.

There is createobjectfromheightmap commands too.

I'll post the link a little later once I can get on here via the website instead of mobile

Back to top

Profile

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 14th Jan 2019 11:21

Link

AGK comes with a demo program in your projects folder. Its in the 3D/Terrain folder.

It shows an example of creating a 3D terrain from a simple 2D heightmap. This is worth looking at as a starting point

Back to top

Profile PM

Pfaber1

6

Years of Service

User Offline

Joined: 7th Jan 2018

Location: England

Posted: 14th Jan 2019 11:33

Link

Thanks for the input I'll go and take a look at the example . Thanks

Back to top

Profile PM

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 14th Jan 2019 19:32

Link

Also there's a nice example in the phone app of a character controller moving round on terrain. Dunno if this is also included in the other versions..

Back to top

Profile PM Email Website

PHeMoX

6

Years of Service

User Offline

Joined: 9th Jan 2018

Location:

Posted: 14th Jan 2019 21:55 Edited at: 14th Jan 2019 21:59

Link

Quote: " Dunno if this is also included in the other versions.."

Not sure, but I think those demos may be different. I do know there is a 'church with moving light and animated 3D model' example that has terrain in it. edit: Nevermind, the 3D/Terrain example is a different one, but great one indeed.

Honestly, the terrain itself isn't the hard part, you can generate a terrain from an image using something like :

+ Code Snippet

terrain = CreateObjectFromHeightMap("terrainimage.png",750.0,750,750.0,0,10)

Those values may be a bit large for what you're looking for.

The hard part is deciding how you want to do collision detection, use the physics engine or use your own collision detection stuff (there's a specific command to get the terrainheightmap height called GetObjectHeightMapHeight(objid,x,z) , but you could also trace it yourself etc. ). I personally found it tricky to maintain good performance, but am still learning that part of AGK2.

Back to top

Profile PM

Pfaber1

6

Years of Service

User Offline

Joined: 7th Jan 2018

Location: England

Posted: 15th Jan 2019 11:29

Link

Right got to start somewhere . Could somebody please explain what is and how to make a 2D height map. Could I make one with mtpaint which is what I used to do my 2D stuff.

Back to top

Profile PM

Pfaber1

6

Years of Service

User Offline

Joined: 7th Jan 2018

Location: England

Posted: 15th Jan 2019 11:57

Link

Well it seems I need a height map generator anybody know where I can find one for free .

Back to top

Profile PM

puzzler2018

User Banned

Posted: 15th Jan 2019 12:29 Edited at: 15th Jan 2019 12:31

Link

I'm not really sure of any. I'll have a look later for you

I'll create some code to create a gray scale map for you too if that helps. But at work at moment

Back to top

Profile

puzzler2018

User Banned

Posted: 15th Jan 2019 12:39

Link

here is my terrain from that thread, to help get you started - it has 2D perlin noise mapping too for you - Bonus!!!

// Project: codingtrain-terrain 
// Created: 2018-08-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "codingtrain-terrain" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global perlinheight=100
 type _perlinmap
    r,g, b, a, x, y
    level
    texture
    noise
endtype
#constant perlinw = 512 //power of 2
#constant perlinh = 512 //power of 2
#constant perlinz = 0
global perlinmap as _perlinmap[perlinw,perlinh,perlinz]
global perlinx, perlinzz
global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#,cameray#,cameraz#,memblock, noiseterrain#,offsetx#,offsety#,meshobject
 
 
global landsizex#=300
global landsizez#=300
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
 
 
blocksimage = LoadImage("test.png")
NoiseInit()
 
setupskyandfog()
 
 
 
offsetx#=0:offsety#=0
 
//next
 
meshobject = buildlandscape(offsetx#,offsety#)
//SetObjectImage(meshobject,blocksimage,0)
//SetImageMagFilter(blocksimage,0)
//SetImageMinFilter(blocksimage,0)
//SetObjectUVScale(meshobject,0,2,2)
 
 
SetCameraRange(1,.01,10000)
 
//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/2
cameray#=2
cameraz#=landsizez#/2
playerspeed#=.005
SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
// these work the landscape rolling - everytime move the player - it moves the camera
// and increases/decreases these values too.
// if they hit past the rebuildstep variable the landscape gets rebuilt and repositioned back to the origin
// of the players starting point - but the landscapes vertcies and colours get changed depending on 
/// the map location
rebuildx#=0
rebuildy#=0
rebuildstep=8
SetRawMousePosition(1024/2,768/2)
do
     
     
    if GetRawKeyState(32)
        DeleteObject(meshobject)
        meshobject = buildlandscape(offsetx#, offsety#)
 
        inc offsetx#,1
        inc offsety#,1
    endif
     
     
    //cameray#=getlandposition(landsizex#/2,landsizez#/2)+1
//  cameray#=1
     
     
//  RotateObjectLocalY(meshobject,.1)
    //RotateObjectLocalX(meshobject,.1)
    //RotateObjectLocalZ(meshobject,.1)
    movecamerawithmouse()
    if GetRawKeyState(38) 
 
        dec offsety#,playerspeed#
        dec rebuildy#,playerspeed#
        //dec cameraz#,playerspeed#
        // set vertices for the landscape
//      setverticesandcolor()
    endif
 
    if GetRawKeyState(40) 
 
        inc offsety#,playerspeed#
        inc rebuildy#,playerspeed#
    //  inc cameraz#,playerspeed#
        // set vertices for the landscape
//      setverticesandcolor()
    endif
 
    if GetRawKeyState(37) then rotateCameraLocalY( 1, -playerspeed#*5 )
    if GetRawKeyState(39) then  rotateCameraLocalY( 1, playerspeed#*5 )
             
    if GetRawKeyState(38) then  MoveCameraLocalZ(1, playerspeed#)
    if GetRawKeyState(40) then  MoveCameraLocalZ(1,-playerspeed#)
     
 
    if GetRawKeyState(39) 
 
        dec offsetx#,playerspeed#
        dec rebuildx#,playerspeed#
//      dec camerax#,playerspeed#
 
        // set vertices for the landscape
//      setverticesandcolor()
    endif
   
        if GetRawKeyState(87)
             
            inc cameray#,playerspeed#
    endif
    print(GetRawLastKey())
        if GetRawKeyState(83)
             
            dec cameray#,playerspeed#
    endif
     
    if GetRawKeyState(37) 
 
        inc offsetx#,playerspeed#
        inc rebuildx#,playerspeed#
        //inc camerax#,playerspeed#
 
        // set vertices for the landscape
//      setverticesandcolor()
    endif
 
 
    if (rebuildx#>rebuildstep)
        rebuildx#=0
        meshobject = buildlandscape(offsetx#, offsety#)
    endif
 
    if (rebuildx#<-rebuildstep)
        rebuildx#=0
        meshobject = buildlandscape(offsetx#, offsety#)
    endif
 
    if (rebuildy#>rebuildstep)
        rebuildy#=0
        meshobject = buildlandscape(offsetx#, offsety#)
    endif
    if (rebuildy#<-rebuildstep)
        rebuildy#=0
        meshobject = buildlandscape(offsetx#, offsety#)
    endif
     
     
 
    print (GetMemblockSize(memblock))
    print (GetMemblockInt(memblock,0))
    Print( ScreenFPS() )
    Sync()
loop
 
 
function setverticesandcolor()
    col=255
    scale#=1
 
    col=255
    scale#=1
    noiseterrain#=100 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
    for i=1 to 600-1 // get num of vertices
        SetMeshMemblockVertexPosition(memblock,i,GetMeshMemblockVertexX(memblock,i)+.01,GetMeshMemblockVertexY(memblock,i)+.01,GetMeshMemblockVertexZ(memblock,i)+.001)
//      SetMeshMemblockVertexPosition(memblock,i,0,0,0)
        SetMeshMemblockVertexColor(memblock,i,GetMeshMemblockVertexRed(memblock,i),GetMeshMemblockVertexGreen(memblock,i),GetMeshMemblockVertexBlue(memblock,i),255)
 
    next
    SetObjectMeshFromMemblock(meshobject,1,memblock)
 
 
endfunction
function getlandposition(x#,y#)
     
    ret = noise2d((x#+offsetx#)/noiseterrain#,          (y#+offsety#)/noiseterrain#)+1
endfunction ret
 
function buildlandscape(offsetx#, offsety#)
    DeleteObject(meshobject)
     
    meshID.TriangleList.length=-1
    meshID.VertexList.length=-1
    // build triangle strip
    randomheight=3
    col=255
    scale#=1
     
    uvx#=1/15
    uvy#=1/11
    print(uvx#)
    print(uvy#)
    perlinheight=random(70,100)
     
    noiseterrain#=12 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
    for x#=1 to landsizex#
        for y#=1 to landsizez#
 
            //noise = 255.0*noise2d(x/120.0,y/120.0)
            colvertice1 = MakeColor(0,noise2d((x#+offsetx#)/noiseterrain#       ,(y#+offsety#)/noiseterrain#)*col,0)
            colvertice2 = checkcolorlevels(noise2d(((x#+offsetx#)+1)/noiseterrain#  ,((y#+offsety#)-1)/noiseterrain#)*col)
            colvertice3 = checkcolorlevels(noise2d(((x#+offsetx#)+1)/noiseterrain#  ,(y#+offsety#)/noiseterrain#)*col)
            colvertice4 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,(y#+offsety#)/noiseterrain#)*col)
            colvertice5 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,((y#+offsety#)-1)/noiseterrain#)*col)
            colvertice6 = checkcolorlevels(Noise2D(((x#+offsetx#)+1)/noiseterrain#  ,((y#+offsety#)-1)/noiseterrain#)*col)
        r#=0
            AddVertex(meshID,((x#)*scale#)          ,noise2d((x#+offsetx#)/noiseterrain#+r#,            (y#+offsety#)/noiseterrain#)        ,y# *scale#         ,0,1,0                  ,   0       ,0, colvertice1) 
            AddVertex(meshID,((x#)+scale#)*scale#   ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#+r#,   ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0      ,   0.066667/2,0.090909/2, colvertice1)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#+r#, ((y#+offsety#)/noiseterrain#))      ,y# *scale#             ,0,1,0              ,   0.066667/2,0, colvertice1)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#+r#,            (y#+offsety#)/noiseterrain#)        ,y# * scale#                ,0,1,0          ,   0,0, colvertice1)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#+r#,            ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0      ,   0,0.090909/2, colvertice1)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#+r#, ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0      ,   0.066667/2,0.090909/2, colvertice1)
 
     
        next
    next
 
 
    meshobject = CreateObjectFromMeshWithColor(meshID)
//  meshobject = CreateObjectFromMeshWithUVTexturing(meshID)
    SetObjectPosition(meshobject,0,0,0)
    camerax#=landsizex#/2
    cameraz#=landsizez#/2
     
endfunction meshobject
function checkcolorlevels(formula)
        //formula = abs(formula)
        if (formula<=0) then colvertice1=MakeColor(46,139,87)
        if (formula>-50) then colvertice1=MakeColor(100,100,0) // sand
        if (formula<-300) then colvertice1=MakeColor(0,0,70) // water
 
        if (formula>0) then colvertice1=MakeColor(0,100,0) //
        if (formula>100) then colvertice1=MakeColor(0,200,0)
        if (formula>400) then colvertice1=MakeColor(0,255,0)
 
endfunction colvertice1
 
function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.0
   
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
   
endfunction
 
 
function setupskyandfog()
    // setup a skybox
   SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
    SetCameraRange(1,0.1,10000)
     
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
     
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
     
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
     
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
     
     
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
     
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
     
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
     
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
     
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
     
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
         
    s = (xin + yin) * PN3DF2
    xs = xin + s
     
    i = floor(xs)
    ys = yin + s
     
    j = floor(ys)
    t = (i + j) * PN3DG2
     
    x0 = xin - (i - t)
    y0 = yin - (j - t)
     
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
     
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
     
    i = i && 255
    j = j && 255
     
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
     
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
     
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
     
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
     
endfunction  perlinheight * (n0 + n1 + n2)
/*
        AddVertex(meshID,x# *scale#     ,noise2d(x#,y#)*randomheight        ,y# *scale#         ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#)*col,0))
        AddVertex(meshID,(x#+scale#)*scale# ,noise2d(x#+scale#,y#-scale#)*randomheight  ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,noise2d(x#+1,y#-1)*col,0))
        AddVertex(meshID,(x#+scale#)*scale#     ,noise2d(x#+scale#,y#)*randomheight     ,y# *scale#             ,0,1,0,   0,0, MakeColor(0,noise2d(x#+1,y#)*col,0))
         
         
        AddVertex(meshID,x#*scale#      ,noise2d(x#,y#)*randomheight        ,y# * scale#                ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#)*col,0))
        AddVertex(meshID,x#*scale#      ,noise2d(x#,y#-1)*randomheight      ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#-1)*col,0))
        AddVertex(meshID,(x#+scale#)*scale#     ,noise2d(x#+scale#,y#-scale#)*randomheight  ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,Noise2D(x#+1,y#-1)*col,0))
*/

+ Code Snippet

// Project: codingtrain-terrain 
// Created: 2018-08-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "codingtrain-terrain" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global perlinheight=100
 type _perlinmap
    r,g, b, a, x, y
    level
    texture
    noise
endtype
#constant perlinw = 512 //power of 2
#constant perlinh = 512 //power of 2
#constant perlinz = 0
global perlinmap as _perlinmap[perlinw,perlinh,perlinz]
global perlinx, perlinzz
global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#,cameray#,cameraz#,memblock, noiseterrain#,offsetx#,offsety#,meshobject
 
 
global landsizex#=300
global landsizez#=300
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
 
 
blocksimage = LoadImage("test.png")
NoiseInit()
 
setupskyandfog()
 
 
 
offsetx#=0:offsety#=0
 
//next
 
meshobject = buildlandscape(offsetx#,offsety#)
//SetObjectImage(meshobject,blocksimage,0)
//SetImageMagFilter(blocksimage,0)
//SetImageMinFilter(blocksimage,0)
//SetObjectUVScale(meshobject,0,2,2)
 
 
SetCameraRange(1,.01,10000)
 
//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/2
cameray#=2
cameraz#=landsizez#/2
playerspeed#=.005
SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
// these work the landscape rolling - everytime move the player - it moves the camera
// and increases/decreases these values too.
// if they hit past the rebuildstep variable the landscape gets rebuilt and repositioned back to the origin
// of the players starting point - but the landscapes vertcies and colours get changed depending on 
/// the map location
rebuildx#=0
rebuildy#=0
rebuildstep=8
SetRawMousePosition(1024/2,768/2)
do
     
     
    if GetRawKeyState(32)
        DeleteObject(meshobject)
        meshobject = buildlandscape(offsetx#, offsety#)
 
        inc offsetx#,1
        inc offsety#,1
    endif
     
     
    //cameray#=getlandposition(landsizex#/2,landsizez#/2)+1
//  cameray#=1
     
     
//  RotateObjectLocalY(meshobject,.1)
    //RotateObjectLocalX(meshobject,.1)
    //RotateObjectLocalZ(meshobject,.1)
    movecamerawithmouse()
    if GetRawKeyState(38) 
 
        dec offsety#,playerspeed#
        dec rebuildy#,playerspeed#
        //dec cameraz#,playerspeed#
        // set vertices for the landscape
//      setverticesandcolor()
    endif
 
    if GetRawKeyState(40) 
 
        inc offsety#,playerspeed#
        inc rebuildy#,playerspeed#
    //  inc cameraz#,playerspeed#
        // set vertices for the landscape
//      setverticesandcolor()
    endif
 
    if GetRawKeyState(37) then rotateCameraLocalY( 1, -playerspeed#*5 )
    if GetRawKeyState(39) then  rotateCameraLocalY( 1, playerspeed#*5 )
             
    if GetRawKeyState(38) then  MoveCameraLocalZ(1, playerspeed#)
    if GetRawKeyState(40) then  MoveCameraLocalZ(1,-playerspeed#)
     
 
    if GetRawKeyState(39) 
 
        dec offsetx#,playerspeed#
        dec rebuildx#,playerspeed#
//      dec camerax#,playerspeed#
 
        // set vertices for the landscape
//      setverticesandcolor()
    endif
   
        if GetRawKeyState(87)
             
            inc cameray#,playerspeed#
    endif
    print(GetRawLastKey())
        if GetRawKeyState(83)
             
            dec cameray#,playerspeed#
    endif
     
    if GetRawKeyState(37) 
 
        inc offsetx#,playerspeed#
        inc rebuildx#,playerspeed#
        //inc camerax#,playerspeed#
 
        // set vertices for the landscape
//      setverticesandcolor()
    endif
 
 
    if (rebuildx#>rebuildstep)
        rebuildx#=0
        meshobject = buildlandscape(offsetx#, offsety#)
    endif
 
    if (rebuildx#<-rebuildstep)
        rebuildx#=0
        meshobject = buildlandscape(offsetx#, offsety#)
    endif
 
    if (rebuildy#>rebuildstep)
        rebuildy#=0
        meshobject = buildlandscape(offsetx#, offsety#)
    endif
    if (rebuildy#<-rebuildstep)
        rebuildy#=0
        meshobject = buildlandscape(offsetx#, offsety#)
    endif
     
     
 
    print (GetMemblockSize(memblock))
    print (GetMemblockInt(memblock,0))
    Print( ScreenFPS() )
    Sync()
loop
 
 
function setverticesandcolor()
    col=255
    scale#=1
 
    col=255
    scale#=1
    noiseterrain#=100 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
    for i=1 to 600-1 // get num of vertices
        SetMeshMemblockVertexPosition(memblock,i,GetMeshMemblockVertexX(memblock,i)+.01,GetMeshMemblockVertexY(memblock,i)+.01,GetMeshMemblockVertexZ(memblock,i)+.001)
//      SetMeshMemblockVertexPosition(memblock,i,0,0,0)
        SetMeshMemblockVertexColor(memblock,i,GetMeshMemblockVertexRed(memblock,i),GetMeshMemblockVertexGreen(memblock,i),GetMeshMemblockVertexBlue(memblock,i),255)
 
    next
    SetObjectMeshFromMemblock(meshobject,1,memblock)
 
 
endfunction
function getlandposition(x#,y#)
     
    ret = noise2d((x#+offsetx#)/noiseterrain#,          (y#+offsety#)/noiseterrain#)+1
endfunction ret
 
function buildlandscape(offsetx#, offsety#)
    DeleteObject(meshobject)
     
    meshID.TriangleList.length=-1
    meshID.VertexList.length=-1
    // build triangle strip
    randomheight=3
    col=255
    scale#=1
     
    uvx#=1/15
    uvy#=1/11
    print(uvx#)
    print(uvy#)
    perlinheight=random(70,100)
     
    noiseterrain#=12 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
    for x#=1 to landsizex#
        for y#=1 to landsizez#
 
            //noise = 255.0*noise2d(x/120.0,y/120.0)
            colvertice1 = MakeColor(0,noise2d((x#+offsetx#)/noiseterrain#       ,(y#+offsety#)/noiseterrain#)*col,0)
            colvertice2 = checkcolorlevels(noise2d(((x#+offsetx#)+1)/noiseterrain#  ,((y#+offsety#)-1)/noiseterrain#)*col)
            colvertice3 = checkcolorlevels(noise2d(((x#+offsetx#)+1)/noiseterrain#  ,(y#+offsety#)/noiseterrain#)*col)
            colvertice4 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,(y#+offsety#)/noiseterrain#)*col)
            colvertice5 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,((y#+offsety#)-1)/noiseterrain#)*col)
            colvertice6 = checkcolorlevels(Noise2D(((x#+offsetx#)+1)/noiseterrain#  ,((y#+offsety#)-1)/noiseterrain#)*col)
        r#=0
            AddVertex(meshID,((x#)*scale#)          ,noise2d((x#+offsetx#)/noiseterrain#+r#,            (y#+offsety#)/noiseterrain#)        ,y# *scale#         ,0,1,0                  ,   0       ,0, colvertice1) 
            AddVertex(meshID,((x#)+scale#)*scale#   ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#+r#,   ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0      ,   0.066667/2,0.090909/2, colvertice1)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#+r#, ((y#+offsety#)/noiseterrain#))      ,y# *scale#             ,0,1,0              ,   0.066667/2,0, colvertice1)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#+r#,            (y#+offsety#)/noiseterrain#)        ,y# * scale#                ,0,1,0          ,   0,0, colvertice1)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#+r#,            ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0      ,   0,0.090909/2, colvertice1)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#+r#, ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0      ,   0.066667/2,0.090909/2, colvertice1)
 
     
        next
    next
 
 
    meshobject = CreateObjectFromMeshWithColor(meshID)
//  meshobject = CreateObjectFromMeshWithUVTexturing(meshID)
    SetObjectPosition(meshobject,0,0,0)
    camerax#=landsizex#/2
    cameraz#=landsizez#/2
     
endfunction meshobject
function checkcolorlevels(formula)
        //formula = abs(formula)
        if (formula<=0) then colvertice1=MakeColor(46,139,87)
        if (formula>-50) then colvertice1=MakeColor(100,100,0) // sand
        if (formula<-300) then colvertice1=MakeColor(0,0,70) // water
 
        if (formula>0) then colvertice1=MakeColor(0,100,0) //
        if (formula>100) then colvertice1=MakeColor(0,200,0)
        if (formula>400) then colvertice1=MakeColor(0,255,0)
 
endfunction colvertice1
 
function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.0
   
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
   
endfunction
 
 
function setupskyandfog()
    // setup a skybox
   SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
    SetCameraRange(1,0.1,10000)
     
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
     
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
     
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
     
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
     
     
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
     
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
     
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
     
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
     
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
     
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
         
    s = (xin + yin) * PN3DF2
    xs = xin + s
     
    i = floor(xs)
    ys = yin + s
     
    j = floor(ys)
    t = (i + j) * PN3DG2
     
    x0 = xin - (i - t)
    y0 = yin - (j - t)
     
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
     
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
     
    i = i && 255
    j = j && 255
     
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
     
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
     
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
     
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
     
endfunction  perlinheight * (n0 + n1 + n2)
/*
        AddVertex(meshID,x# *scale#     ,noise2d(x#,y#)*randomheight        ,y# *scale#         ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#)*col,0))
        AddVertex(meshID,(x#+scale#)*scale# ,noise2d(x#+scale#,y#-scale#)*randomheight  ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,noise2d(x#+1,y#-1)*col,0))
        AddVertex(meshID,(x#+scale#)*scale#     ,noise2d(x#+scale#,y#)*randomheight     ,y# *scale#             ,0,1,0,   0,0, MakeColor(0,noise2d(x#+1,y#)*col,0))
         
         
        AddVertex(meshID,x#*scale#      ,noise2d(x#,y#)*randomheight        ,y# * scale#                ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#)*col,0))
        AddVertex(meshID,x#*scale#      ,noise2d(x#,y#-1)*randomheight      ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#-1)*col,0))
        AddVertex(meshID,(x#+scale#)*scale#     ,noise2d(x#+scale#,y#-scale#)*randomheight  ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,Noise2D(x#+1,y#-1)*col,0))
*/

Happy AppGameKit Coding...

Back to top

Profile

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 15th Jan 2019 14:00 Edited at: 15th Jan 2019 14:02

Link

Quote: "Right got to start somewhere . Could somebody please explain what is and how to make a 2D height map. Could I make one with mtpaint which is what I used to do my 2D stuff."

ANY image can be used as a heightmap so you could use any image editing software ....mtpaint, photoshop, paint shop pro, MS Paint......, whatever you like really. Just save it as a png or jpg.

Black pixels will be the lowest land, grey will be middle height and white will be the highest points on the landscape created. Actually, only the red channel is used so a red image (with varying brightneses of red) is all you really need.

Try any 256x256 pixel image in the CreateObjectFromHeightmap() function and you will get some terrain. Its really very easy.

Back to top

Profile PM

Pfaber1

6

Years of Service

User Offline

Joined: 7th Jan 2018

Location: England

Posted: 15th Jan 2019 14:53

Link

I found an app called world machine I am thinking this looks useful but not cheap for the commercial version. 119 dollars for indie developer . Got the free basic version to have a look at . I'm beginning to get how it's done now. sort of .

Back to top

Profile PM

PHeMoX

6

Years of Service

User Offline

Joined: 9th Jan 2018

Location:

Posted: 15th Jan 2019 17:03

Link

I probably would invest in a good digital painting application instead to be honest (something like Asesprite or something similarly decent, doesn't have to be pixel art focused). Not saying World Machine is bad, but one should ask themselves the question whether the 'world machine' result would match whatever game you intend to make. In other words, if the terrain has super realistic textures, then so does everything else in how it has to match that. I'd say more 'stylized' terrains or stuff you've drawn yourself would work better most of the time.

Back to top

Profile PM

Golelorn

8

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 15th Jan 2019 19:23 Edited at: 15th Jan 2019 19:26

Link

I second what Bengismo said.

This video is from a heightmap I created in GIMP, and saved at 2048X2048. I don't think that size is useable on mobile, though, so you won't get the level of detail.

You can also create land using Blender. Create a plane get to about a million vertices(less if you don't care about jagged edges), and start sculpting. You can save that as a 3d object or create a height map in blender.

Another option is using Cities Skyline editor. You can create terrain, and save it has a height map. I found this to be rather bland, but it is very quick.

Supposedly, you can get height maps from https://terrain.party/ I haven't had much luck, though.

edit: wanted to add you can also use unity and export the raw height map and use CreateObjectFromRawHeightMap

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 16th Jan 2019 08:28 Edited at: 16th Jan 2019 08:53

Link

Quote: "I need a height map generator anybody know where I can find one for free . "

This one is quite easy to use
https://directory.fsf.org/wiki/Height_Map_Generator
or you could do it with AppGameKit requires an image called "height.png" any image to start with that is PNG 8-bit greyscale or RGB,
if it is RGB then only the red channel is read. 16-bit greyscale support may be added in future. (taken from the agk help file on height maps)
and from memory I think the images have to be a power of 2 ie 256*256 ,512*512,1024*1024

//3D Modifying a mesh height by modifying texture and re loading

// Project: coordinate 
// Created: 2018-04-06

// show all errors
SetErrorMode(2)
#constant screenWidth=1024
#constant screenHeight=768
#constant perlinw = 200
#constant perlinh = 200
#constant perlinz = 200  
#constant mapX=2048
#constant mapY=100
#constant mapZ=1024

SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
SetScissor(0,0,0,0)
SetCameraRange( 1, 0.1, 900000 )
SetGlobal3DDepth(10000)

type _heights
	meshposition
	height
endtype
global heights as _heights[]

global TerrainImageID
  
// start perlin map data
NoiseInit()
TerrainImageID=generatePerlinImages()
mapsprite = CreateSprite(TerrainImageID)
SetSpriteSize(mapsprite,100,100)
SetSpritePosition(mapsprite,screenWidth-100,0)
HeightMapTextureMemblock = CreateMemblockFromImage(TerrainImageID)
HeightMapTextureWidthMemblock = GetMemblockInt(HeightMapTextureMemblock, 0)
HeightMapTextureHeightMemblock = GetMemblockInt(HeightMapTextureMemblock, 4)
TerrainImageID =CreateImageFromMemblock(HeightMapTextureMemblock)
  
  
//the following three lines only used if not updating on fly
//createBlankTexture(heightImage,200,200,makecolor(0,0,0))
HeightImage=loadImage("height.png")
HeightImageMemblock=CreateMemblockFromImage(HeightImage)
HeightImageWidthMemblock=GetMemblockInt(HeightImageMemblock, 0)
HeightImageHeightMemblock=GetMemblockInt(HeightImageMemblock, 4)
  
Local TerrainObjectID
  
// create the terrain object from a height map
TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
SetObjectCollisionMode( TerrainObjectID, 1 ) //On needed for object raycasting
SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
SetObjectTransparency(TerrainObjectID,0)
//TerrainMemblock=CreateMemblockFromObjectMesh(TerrainObjectID,1)

//SetCameraRange(1,1,2000 ) 
SetCameraPosition(1, 805, 378, -41)
  
  
do
    checkCameraMovement()
      
    if GetPointerState()=1
  
        pointer_x = GetPointerX()
        pointer_y = GetPointerY()
        //pointer_y2 =screenHeight-GetPointerY()
    // get the x, y and z unit vectors based on the pointer position
        unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
        unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
        unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)
  
        // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# - GetCameraZ(1)
  
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# - GetCameraZ(1)

// determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
        Print ("objhit=" + str(object_hit))
          
        if object_hit = TerrainObjectID
            xPixel# = GetObjectRayCastX(0)
 			yPixel# = GetObjectRayCastZ(0) 
            for y = -5 to 5 step 1
                for x = -5 to 5 step 1
                    writePixelMemblock(HeightImageMemblock,HeightImageWidthMemblock,HeightImageHeightMemblock,xPixel#+x,yPixel#+y,1,1,1,255)     
                next x      
            next y
			DeleteImage(HeightImage)
			HeightImage=CreateImageFromMemblock(HeightImageMemblock)
			saveImage(HeightImage,"height.png")
			DeleteObject(TerrainObjectID)
			TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
			SetObjectCollisionMode( TerrainObjectID, 1 )
			SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
		endif
    endif
    sync()      
loop
  
  
function checkCameraMovement()
  
if GetRawKeyState(37) then MoveCameraLocalX(1,-5) //Left
if GetRawKeyState(39) then MoveCameraLocalX(1,5) //Right
if GetRawKeyState(38) then MoveCameraLocalZ(1,5) //Forward
if GetRawKeyState(40) then MoveCameraLocalZ(1,-5) //Backward
if GetRawKeyState(87) then MoveCameraLocalY(1,-5) //87 W
if GetRawKeyState(83) then MoveCameraLocalY(1,5) //87 S

if GetRawKeyPressed(27) then end

endfunction
  
  
  
function writePixelMemblock(memblockId as integer,memblockWidth,memblockHeight,x as integer,y as integer,R as integer, G as integer, B as integer, A as integer)
    if (mapX/perlinw)>1 and (mapZ/perlinz)>1
        x=x/(mapX/perlinw):y=y/(mapZ/perlinz)
    else 
        x=x/perlinw:y=y/perlinz
    endif
         
    if x<0 then exitfunction
    if y<0 then exitfunction
    R =R+ GetMemblockByte(memblockId,12+(x*4)+((memblockHeight-y)*4*memblockWidth))
    G =G+ GetMemblockByte(memblockId,13+(x*4)+((memblockHeight-y)*4*memblockWidth))
    B =B+ GetMemblockByte(memblockId,14+(x*4)+((memblockHeight-y)*4*memblockWidth))
    A =A+ GetMemblockByte(memblockId,15+(x*4)+((memblockHeight-y)*4*memblockWidth))
      
    if R>255 then R=255
    if G>255 then G=255
    if B>255 then B=255
    if A>255 then A=255
      
    SetMemblockByte(memblockId,12+(x*4)+((memblockHeight-y)*4*memblockWidth),R) // Write Red 
    SetMemblockByte(memblockId,13+(x*4)+((memblockHeight-y)*4*memblockWidth),G) // Write Green 
    SetMemblockByte(memblockId,14+(x*4)+((memblockHeight-y)*4*memblockWidth),B) // Write Blue 
    SetMemblockByte(memblockId,15+(x*4)+((memblockHeight-y)*4*memblockWidth),A) // Write Alpha full opaque (255)
      
endfunction
  
   
function generatePerlinImages()
// Generate image from memblock
  
size = perlinw * perlinh * 4 + 12
mem = CreateMemblock(size) //the colour texture image
SetMemblockInt(mem,0,perlinw)
SetMemblockInt(mem,4,perlinh)
SetMemblockInt(mem,8,32)
mem2 = CreateMemblock(size) //the black and white height image
SetMemblockInt(mem2,0,perlinw)
SetMemblockInt(mem2,4,perlinh)
SetMemblockInt(mem2,8,32)
     
offset as integer = 12
a as float, b as float
a = 5.0
b = 2.0
     
meshposition=0
for y = 0 to perlinh - 1
    for x = 0 to perlinw - 1
        a = a + 0.0001
        b = b + 0.002
             
        // Try out these two noise methods
        //noise = 255.0*Noise2D(x/10.0,y/10.0)
        noise = 255.0*Noise2D(x/255.0,y/255.0)
             
        noise = abs(noise)
		
		// add to array
		height as _heights
		height.meshposition=meshposition
		height.height = noise
		heights.insert(height)
		// end of adding to array
		
		inc meshposition
        //clouds
        if noise>255
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
            
     
         //greenary
        if noise>100 and noise<=255
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //sand
        if noise>50 and noise<=100  
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        // water
        if noise<=50 
            SetMemblockByte(mem, offset, noise/2)
            SetMemblockByte(mem, offset+1, 0)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //mem2 is the black and white image
        SetMemblockByte(mem2, offset, noise)
        SetMemblockByte(mem2, offset+1, noise)
        SetMemblockByte(mem2, offset+2, noise)
        SetMemblockByte(mem2, offset+3, 255)
        offset = offset + 4
    next
next
     
map=CreateImageFromMemblock(mem)
heightImg=CreateImageFromMemblock(mem2)
saveImage(heightImg,"height.png")
DeleteObject(mem):DeleteObject(mem2)
endfunction map
  
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
    
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
    
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
    
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
    
    
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
    
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
    
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
    
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
    
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
    
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
        
    s = (xin + yin) * PN3DF2
    xs = xin + s
    i = floor(xs)
    ys = yin + s
    j = floor(ys)
    t = (i + j) * PN3DG2
    x0 = xin - (i - t)
    y0 = yin - (j - t)
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
    i = i && 255
    j = j && 255
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif  
endfunction  70.0 * (n0 + n1 + n2)

function createBlankTexture(ImgId as integer,sizex as integer, sizey as integer, color)
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    drawbox(0,0,sizex-1, sizey-1, color, color,color,color, 0)
    Render()
    //img = getimage(0,0,sizex, sizey)
    getimage(ImgId,0,0,sizex, sizey)
    Swap()
    saveImage(imgId,"height.png")
 endfunction

+ Code Snippet

 
//3D Modifying a mesh height by modifying texture and re loading

// Project: coordinate 
// Created: 2018-04-06

// show all errors
SetErrorMode(2)
#constant screenWidth=1024
#constant screenHeight=768
#constant perlinw = 200
#constant perlinh = 200
#constant perlinz = 200  
#constant mapX=2048
#constant mapY=100
#constant mapZ=1024

  
SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
SetScissor(0,0,0,0)
SetCameraRange( 1, 0.1, 900000 )
SetGlobal3DDepth(10000)

type _heights
	meshposition
	height
endtype
global heights as _heights[]

global TerrainImageID
  
// start perlin map data
NoiseInit()
TerrainImageID=generatePerlinImages()
mapsprite = CreateSprite(TerrainImageID)
SetSpriteSize(mapsprite,100,100)
SetSpritePosition(mapsprite,screenWidth-100,0)
HeightMapTextureMemblock = CreateMemblockFromImage(TerrainImageID)
HeightMapTextureWidthMemblock = GetMemblockInt(HeightMapTextureMemblock, 0)
HeightMapTextureHeightMemblock = GetMemblockInt(HeightMapTextureMemblock, 4)
TerrainImageID =CreateImageFromMemblock(HeightMapTextureMemblock)
  
  
//the following three lines only used if not updating on fly
//createBlankTexture(heightImage,200,200,makecolor(0,0,0))
HeightImage=loadImage("height.png")
HeightImageMemblock=CreateMemblockFromImage(HeightImage)
HeightImageWidthMemblock=GetMemblockInt(HeightImageMemblock, 0)
HeightImageHeightMemblock=GetMemblockInt(HeightImageMemblock, 4)
  
Local TerrainObjectID
  
// create the terrain object from a height map
TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
SetObjectCollisionMode( TerrainObjectID, 1 ) //On needed for object raycasting
SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
SetObjectTransparency(TerrainObjectID,0)
//TerrainMemblock=CreateMemblockFromObjectMesh(TerrainObjectID,1)

//SetCameraRange(1,1,2000 ) 
SetCameraPosition(1, 805, 378, -41)
  
  
do
    checkCameraMovement()
      
    if GetPointerState()=1
  
        pointer_x = GetPointerX()
        pointer_y = GetPointerY()
        //pointer_y2 =screenHeight-GetPointerY()
    // get the x, y and z unit vectors based on the pointer position
        unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
        unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
        unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)
  
        // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# - GetCameraZ(1)
  
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# - GetCameraZ(1)
  

        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
        Print ("objhit=" + str(object_hit))
          
        if object_hit = TerrainObjectID
            xPixel# = GetObjectRayCastX(0)
 			yPixel# = GetObjectRayCastZ(0) 
            for y = -5 to 5 step 1
                for x = -5 to 5 step 1
                    writePixelMemblock(HeightImageMemblock,HeightImageWidthMemblock,HeightImageHeightMemblock,xPixel#+x,yPixel#+y,1,1,1,255)     
                next x      
            next y
			DeleteImage(HeightImage)
			HeightImage=CreateImageFromMemblock(HeightImageMemblock)
			saveImage(HeightImage,"height.png")
			DeleteObject(TerrainObjectID)
			TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
			SetObjectCollisionMode( TerrainObjectID, 1 )
			SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
		endif
    endif
    sync()      
loop
  
  
function checkCameraMovement()
  
if GetRawKeyState(37) then MoveCameraLocalX(1,-5) //Left
if GetRawKeyState(39) then MoveCameraLocalX(1,5) //Right
if GetRawKeyState(38) then MoveCameraLocalZ(1,5) //Forward
if GetRawKeyState(40) then MoveCameraLocalZ(1,-5) //Backward
if GetRawKeyState(87) then MoveCameraLocalY(1,-5) //87 W
if GetRawKeyState(83) then MoveCameraLocalY(1,5) //87 S

if GetRawKeyPressed(27) then end

endfunction
  
  
  
function writePixelMemblock(memblockId as integer,memblockWidth,memblockHeight,x as integer,y as integer,R as integer, G as integer, B as integer, A as integer)
    if (mapX/perlinw)>1 and (mapZ/perlinz)>1
        x=x/(mapX/perlinw):y=y/(mapZ/perlinz)
    else 
        x=x/perlinw:y=y/perlinz
    endif
         
    if x<0 then exitfunction
    if y<0 then exitfunction
    R =R+ GetMemblockByte(memblockId,12+(x*4)+((memblockHeight-y)*4*memblockWidth))
    G =G+ GetMemblockByte(memblockId,13+(x*4)+((memblockHeight-y)*4*memblockWidth))
    B =B+ GetMemblockByte(memblockId,14+(x*4)+((memblockHeight-y)*4*memblockWidth))
    A =A+ GetMemblockByte(memblockId,15+(x*4)+((memblockHeight-y)*4*memblockWidth))
      
    if R>255 then R=255
    if G>255 then G=255
    if B>255 then B=255
    if A>255 then A=255
      
    SetMemblockByte(memblockId,12+(x*4)+((memblockHeight-y)*4*memblockWidth),R) // Write Red 
    SetMemblockByte(memblockId,13+(x*4)+((memblockHeight-y)*4*memblockWidth),G) // Write Green 
    SetMemblockByte(memblockId,14+(x*4)+((memblockHeight-y)*4*memblockWidth),B) // Write Blue 
    SetMemblockByte(memblockId,15+(x*4)+((memblockHeight-y)*4*memblockWidth),A) // Write Alpha full opaque (255)
      
endfunction
  
   
function generatePerlinImages()
// Generate image from memblock
  
size = perlinw * perlinh * 4 + 12
mem = CreateMemblock(size) //the colour texture image
SetMemblockInt(mem,0,perlinw)
SetMemblockInt(mem,4,perlinh)
SetMemblockInt(mem,8,32)
mem2 = CreateMemblock(size) //the black and white height image
SetMemblockInt(mem2,0,perlinw)
SetMemblockInt(mem2,4,perlinh)
SetMemblockInt(mem2,8,32)
     
offset as integer = 12
a as float, b as float
a = 5.0
b = 2.0
     
meshposition=0
for y = 0 to perlinh - 1
    for x = 0 to perlinw - 1
        a = a + 0.0001
        b = b + 0.002
             
        // Try out these two noise methods
        //noise = 255.0*Noise2D(x/10.0,y/10.0)
        noise = 255.0*Noise2D(x/255.0,y/255.0)
             
        noise = abs(noise)
		
		// add to array
		height as _heights
		height.meshposition=meshposition
		height.height = noise
		heights.insert(height)
		// end of adding to array
		
		inc meshposition
        //clouds
        if noise>255
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
            
     
         //greenary
        if noise>100 and noise<=255
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //sand
        if noise>50 and noise<=100  
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        // water
        if noise<=50 
            SetMemblockByte(mem, offset, noise/2)
            SetMemblockByte(mem, offset+1, 0)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //mem2 is the black and white image
        SetMemblockByte(mem2, offset, noise)
        SetMemblockByte(mem2, offset+1, noise)
        SetMemblockByte(mem2, offset+2, noise)
        SetMemblockByte(mem2, offset+3, 255)
        offset = offset + 4
    next
next
     
map=CreateImageFromMemblock(mem)
heightImg=CreateImageFromMemblock(mem2)
saveImage(heightImg,"height.png")
DeleteObject(mem):DeleteObject(mem2)
endfunction map
  
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
    
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
    
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
    
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
    
    
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
    
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
    
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
    
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
    
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
    
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
        
    s = (xin + yin) * PN3DF2
    xs = xin + s
    i = floor(xs)
    ys = yin + s
    j = floor(ys)
    t = (i + j) * PN3DG2
    x0 = xin - (i - t)
    y0 = yin - (j - t)
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
    i = i && 255
    j = j && 255
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif  
endfunction  70.0 * (n0 + n1 + n2)

function createBlankTexture(ImgId as integer,sizex as integer, sizey as integer, color)
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    drawbox(0,0,sizex-1, sizey-1, color, color,color,color, 0)
    Render()
    //img = getimage(0,0,sizex, sizey)
    getimage(ImgId,0,0,sizex, sizey)
    Swap()
    saveImage(imgId,"height.png")
 endfunction

the saved image can generally be found at c:\users\your name\AppData\local\AGKApps\name of this program
the above code draws an image suitable for a heightmap but allows you to see the changes as it does it
but personally the first option is better once you have an understanding how height maps work and is far quicker
to create them. Also many height map generators including free ones allow you to import proper height data
such as I could get the actual height data of Australia and place it into the height map generator to create a true
to scale height map of Australia (hahaha I live there) which really would only make a png image that I could then
import into AGK

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 16th Jan 2019 09:00

Link

and if you want to see pics of what can be done with real terrain data please
visit this old DBPro link and check out the pics of a game I worked on back then
https://forum.thegamecreators.com/thread/98449 The same can
be done with AppGameKit and height maps just haven't used real terrain data with AGK
yet

fubar

Back to top

Profile PM Email Website

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 16th Jan 2019 15:06 Edited at: 16th Jan 2019 16:58

Link

Personally I like these:
EarthSculptor

Above one I used in for Blitz3d to create a pretty large terrain with mountains and valleys, then saved the grayscale heightmap of 4096x4096 and accompanying large texture and added to that a detail texture with relief for looking better at close up near camera views.

Screenshots of what I used in Blitz3d, but in AppGameKit shouldn't be much different. Just to show that by simple means you can create some nice, albeit crude, terrain.
Note: the free demo version has a terrain heightmap image size limit of 256, which I circumvented somehow by stitching multiple heightmaps together and then scaled up to 4096 in a paint program( I think I used paint.net for that), This of course has some disadvantage as not seeing the map on screen as-is. So the pro version is recommended

(*the first one looks bit blurry for had to blow it up from a screenshot I saved low res)

~~TerreSculptor~~.
~~This one actually appears to have a free(standard version) which looks promising.~~
[EDIT: this is more a terrain generator than editor afaics, so not what I'd prefer for has too little control. No manual tools for elevation and such, just a bunch of procedural generators and filters to create a nice looking random terrain]

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Jan 2019 20:29 Edited at: 16th Jan 2019 20:53

Link

Quote: "Well it seems I need a height map generator anybody know where I can find one for free ."

A heightmap could be made with any painting programm as being mentioned . We could do something as rudimentary as this ..

// Project: heightmap 
// Created: 2019-01-16

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "heightmap" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

wt=makecolor(255,255,255)
r=makecolor(255,0,0)
gg=makecolor(100,100,100)
DrawEllipse(50,50,40,40,wt,wt,1)
getimage(1,0,0,100,100)
bk=makecolor(0,0,0)
DrawEllipse(50,50,40,40,bk,bk,1)
getimage(2,0,0,100,100)
spt=0
do
drawbox(0,0,1024,300,gg,gg,gg,gg,1)	
drawbox(0,600,1024,768,gg,gg,gg,gg,1)
drawbox(0,300,300,600,gg,gg,gg,gg,1)
drawbox(600,300,1024,600,gg,gg,gg,gg,1)
drawbox(300,300,600,600,r,r,r,r,0)
	
 x#=getpointerx()
 y#=getpointery()
 
if GetRawMouseLeftState()
	inc spt
	createsprite(spt,1)
	setspriteposition(spt,x#-20,y#-20)
	SetSpriteColorAlpha(spt,10)
endif

if GetRawMouserightState()
	inc spt
	createsprite(spt,2)
	setspriteposition(spt,x#-20,y#-20)
	SetSpriteColorAlpha(spt,5)
endif

if ( GetRawKeyState( 32 ) ) 
	render()
	getimage(5,301,301,299,299)
	saveimage(5 ,"raw:d:media\heightmap.png")
    deleteimage( 5)
    goto crea
endif

Print("Left  Mouse   paint White")
   Print("Right Mouse   paint Black")
   print("Spacebar save heightmap")
   
    Sync()
loop
crea:
for i= 1 to 5000
	if GetSpriteExists(i) then deletesprite(i)
next

CreateObjectFromHeightMap(1000,"heightmap.png",500,30,500,1,1)

setcameraposition(1,100,100,100)
createpointlight(1,100,70,100,600,255,255,0)
SetSunActive(0)
SetAmbientColor(10,10,10)
do
	gosub camara
	sync()
	loop
camara:
movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)

if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

+ Code Snippet

// Project: heightmap 
// Created: 2019-01-16

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "heightmap" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

wt=makecolor(255,255,255)
r=makecolor(255,0,0)
gg=makecolor(100,100,100)
DrawEllipse(50,50,40,40,wt,wt,1)
getimage(1,0,0,100,100)
bk=makecolor(0,0,0)
DrawEllipse(50,50,40,40,bk,bk,1)
getimage(2,0,0,100,100)
spt=0
do
drawbox(0,0,1024,300,gg,gg,gg,gg,1)	
drawbox(0,600,1024,768,gg,gg,gg,gg,1)
drawbox(0,300,300,600,gg,gg,gg,gg,1)
drawbox(600,300,1024,600,gg,gg,gg,gg,1)
drawbox(300,300,600,600,r,r,r,r,0)
	
 x#=getpointerx()
 y#=getpointery()
 
if GetRawMouseLeftState()
	inc spt
	createsprite(spt,1)
	setspriteposition(spt,x#-20,y#-20)
	SetSpriteColorAlpha(spt,10)
endif

if GetRawMouserightState()
	inc spt
	createsprite(spt,2)
	setspriteposition(spt,x#-20,y#-20)
	SetSpriteColorAlpha(spt,5)
endif

if ( GetRawKeyState( 32 ) ) 
	render()
	getimage(5,301,301,299,299)
	saveimage(5 ,"raw:d:media\heightmap.png")
    deleteimage( 5)
    goto crea
endif


   Print("Left  Mouse   paint White")
   Print("Right Mouse   paint Black")
   print("Spacebar save heightmap")
   
    Sync()
loop
crea:
for i= 1 to 5000
	if GetSpriteExists(i) then deletesprite(i)
next



CreateObjectFromHeightMap(1000,"heightmap.png",500,30,500,1,1)

setcameraposition(1,100,100,100)
createpointlight(1,100,70,100,600,255,255,0)
SetSunActive(0)
SetAmbientColor(10,10,10)
do
	gosub camara
	sync()
	loop
camara:
movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

We can add some more brushes .

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 18th Jan 2019 14:10 Edited at: 18th Jan 2019 14:11

Link

@chafari
Could be my PC and didn't update to very latest AppGameKit version yet, but it appears to create the heightmap png, then doesn't display the heightmap itself, instead it just exits.
While from the code I got the impression it was your intention to do so.

BTW: Overal I'm fairly impressed by your coding skills, but a bit surprised by your usage of Goto, Gosub & Return, which you are free to use of course, but are considered legacy BASIC and may lead to the infamous spaghetti code. Therefor a bit out of fashion these days(not that that matters much

). Dunno if you're familiar with(perhaps you are and have your reasons), but most people favor "Function functionName ( optionalParameters) .. Endfunction optionalreturnvariable", which has the benefit of being easily portable into other parts of your code.

Other than that pretty good stuff you keep throwing out of your sleeves like nothing.

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 18th Jan 2019 16:47

Link

Quote: "Could be my PC and didn't update to very latest AppGameKit version yet, but it appears to create the heightmap png, then doesn't display the heightmap itself, instead it just exits."

What I try here is just create an image to be use as a heightmap . I save the image as heightmap.png .

Quote: " a bit surprised by your usage of Goto, Gosub & Return"

You have seen in some of my codes the goto command, but I normally never use it unless I know that I will never go back . In this little example I just put goto because I know that the user only will be able to see the final result .

I have in my old codes all kinda function that can be use in any code with just a little change . My coding skills are not to much in Agk ....I'm just translating some of my old codes from Dbpro and Freebasic . I've been a bit busy this week and have not coded at all but I'm coming soon

I'm not a grumpy grandpa

Back to top

Profile PM Email

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 18th Jan 2019 18:14 Edited at: 19th Jan 2019 11:15

Link

Can't wait to see your next marvels, for your have shown some really nifty stuff at quite a good pace.(I certainly can't do it at that rate).
Keep it up.

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Jan 2019 16:47

Link

My take

// Project: terrainimg 
// Created: 2019-01-19

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "terrainimg" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global angx#,angy#,startx#,starty#

twidth=1024
terrainimg = createheightmap(twidth,twidth)
SaveImage(terrainimg,"test.png")

hm = CreateObjectFromHeightMap("test.png",twidth,40,twidth,1,0)

SetObjectColor(hm, 100,100,100,255)

startx#=screenwidth/2
starty#=screenheight/2
do
    
    if GetRawKeyState(87) then MoveCameraLocalY(1,1)
    if GetRawKeyState(83) then MoveCameraLocalY(1,-1)

if GetRawKeyState(37) then MoveCameraLocalX(1,1)
    if GetRawKeyState(39) then MoveCameraLocalX(1,-1)

if GetRawKeyState(38) then MoveCameraLocalZ(1,1)
    if GetRawKeyState(40) then MoveCameraLocalZ(1,-1)
    
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop

function movecamera()
	fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
	
endfunction

function generateheightterrain(img,texture,sizex,sizey)
	imgmesh = CreateMemblockFromImage(img)
	width = GetMemblockInt(imgmesh,0)
	size = GetMemblockSize(imgmesh)

for x=0 to sizex-1
		for z=0 to sizey-1
			offset=12 + ((z * width * 4) + x * 4 ) 
			r= GetMemblockByte(imgmesh, offset)
			g= GetMemblockByte(imgmesh, offset+1)
			b= GetMemblockByte(imgmesh, offset+2)
			a= GetMemblockByte(imgmesh, offset+3)
			h = g/20
			if h>1
				cube = CreateObjectBox(1,1,1)
				SetObjectPosition(cube,x,h,z)
				SetObjectImage(cube,texture,0)
			endif
		next
	next

endfunction

function createheightmap(sizex,sizey)

swap()

for a=0 to 1000
		rx=random(0,sizex)
		ry=random(0,sizey)
		DrawEllipse(rx,ry,random(10,50),random(10,50),MakeColor(0,0,0),MakeColor(255,255,255),1)
	next
	render()
	img = GetImage(0,0,sizex+1,sizey+1)
	sync()
	sleep(1000)
endfunction img

+ Code Snippet


// Project: terrainimg 
// Created: 2019-01-19

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "terrainimg" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global angx#,angy#,startx#,starty#

twidth=1024
terrainimg = createheightmap(twidth,twidth)
SaveImage(terrainimg,"test.png")

hm = CreateObjectFromHeightMap("test.png",twidth,40,twidth,1,0)

SetObjectColor(hm, 100,100,100,255)

startx#=screenwidth/2
starty#=screenheight/2
do
    
    if GetRawKeyState(87) then MoveCameraLocalY(1,1)
    if GetRawKeyState(83) then MoveCameraLocalY(1,-1)

    if GetRawKeyState(37) then MoveCameraLocalX(1,1)
    if GetRawKeyState(39) then MoveCameraLocalX(1,-1)

    if GetRawKeyState(38) then MoveCameraLocalZ(1,1)
    if GetRawKeyState(40) then MoveCameraLocalZ(1,-1)
    
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop

function movecamera()
	fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
	
endfunction

function generateheightterrain(img,texture,sizex,sizey)
	imgmesh = CreateMemblockFromImage(img)
	width = GetMemblockInt(imgmesh,0)
	size = GetMemblockSize(imgmesh)
	

	for x=0 to sizex-1
		for z=0 to sizey-1
			offset=12 + ((z * width * 4) + x * 4 ) 
			r= GetMemblockByte(imgmesh, offset)
			g= GetMemblockByte(imgmesh, offset+1)
			b= GetMemblockByte(imgmesh, offset+2)
			a= GetMemblockByte(imgmesh, offset+3)
			h = g/20
			if h>1
				cube = CreateObjectBox(1,1,1)
				SetObjectPosition(cube,x,h,z)
				SetObjectImage(cube,texture,0)
			endif
		next
	next	
	

endfunction

function createheightmap(sizex,sizey)

	swap()

	for a=0 to 1000
		rx=random(0,sizex)
		ry=random(0,sizey)
		DrawEllipse(rx,ry,random(10,50),random(10,50),MakeColor(0,0,0),MakeColor(255,255,255),1)
	next
	render()
	img = GetImage(0,0,sizex+1,sizey+1)
	sync()
	sleep(1000)
endfunction img

Not as glamorous as everyone elses though

Back to top

Profile

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 20th Jan 2019 11:16 Edited at: 20th Jan 2019 11:19

Link

Thanks guys for your comments.

Quote: "
Not as glamorous as everyone elses though
"

That remember me Toscana spas lol

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

sprcoll

12

Years of Service

User Offline

Joined: 26th Aug 2012

Location:

Posted: 21st Jan 2019 18:22

Link

Hello,
you can take a look to the L3DT-Editor. There you can create a nice looking map in an easy way. The L3dt has a lot of export formats. Look at http://www.bundysoft.com/docs/doku.php?id=l3dt:formats:support and https://www.youtube.com/results?search_query=l3dt.

Back to top

Profile PM

Pfaber1

6

Years of Service

User Offline

Joined: 7th Jan 2018

Location: England

Posted: 24th Jan 2019 13:36

Link

Thanks guys for all the help. I have just produced my first working piece of terrain using create object from height map . Now the ball is really rolling thanks you very much.

Back to top

Profile PM

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 24th Jan 2019 21:01 Edited at: 24th Jan 2019 21:05

Link

Hope was of any help.
Even though I personally fancy the interface of EarthSculptor, apparently L3DT is planning to go Freeware and author will supply a key for the Pro version for 6 months.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / 3D Terrain

Attachments

Attachments