Worley Noise - GameCreators Forum

Author

Message

puzzler2018

User Banned

Posted: 4th Mar 2019 18:49

Link

OK, we have Perlin Noise, Simplex Noise and just seen Worley Noise.

I shall try and implement this later in the year

Tier 1 Developer

Back to top

Profile

xtremi

6

Years of Service

User Offline

Joined: 26th Aug 2018

Location:

Posted: 4th Mar 2019 19:22

Link

So many cool things to do with noise, so little time to do it!

Back to top

Profile PM

janbo

16

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 6th Mar 2019 20:30 Edited at: 6th Mar 2019 20:31

Link

Looks a bit like animated Voronoi Tesselation moving the vertices of a Terrain

Guess what...It's a shader

But I like my Gerstner Waves more

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: 6th Mar 2019 20:40

Link

Quote: "Guess what...It's a shader"

Shaders def are a cool approach but to us mere mortals they are hard lol im still very much trying to learn from other shaders and most do my head in

PS your Gerstner waves are really cool and il def use them as I have purchased your shader pack but the prob I have with the shader pack as I think many
do if I just want to use one or two of the shaders some require the whole lot to be installed to be able to make use of them. I love the shaders that have
been kept separate in the pack as to me that makes them more useable. And I must admit I haven't studied the code to see how easy I can just use one
or two of the terrain based shaders as these seem to be my main issue. but on the whole the shader pack is very good and great value just hard to use

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: 6th Mar 2019 21:03

Link

A Parabolic effect on a terrain mesh it applies a sine curve on one axis just not so sure it will work too well for real time you should recognise some of the code

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

// show all errors
SetErrorMode(2)
#constant screenWidth=1024
#constant screenHeight=768
#constant mapX=1024
#constant mapY=50
#constant mapZ=512

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

type _heights
	meshposition
	height
    PointX
    PointZ
endtype

rem for sine cosine calculations
#constant centreX=5
#constant yPosition=1
#constant amplitude=150
//#constant speedX#=.1251
#constant WaveWidth=10
#constant frequency#=15

global TerrainImageID
global TerrainObjectID

TerrainImageID=createtexture(32,32, makecolor(0,200,0),155)
Image1=createtexture(512,512, makecolor(200,200,200),5)
//Image1=createtexture(512,512, makecolor(200,200,200),255) //creates like a grass over terrain

saveImage(image1,"height.png")
DeleteImage(image1):rem DeleteObject(mem)
 
// create the terrain object from a height map
TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
//TerrainObjectID=CreateObjectBox(mapX,1,mapZ)

SetObjectCollisionMode( TerrainObjectID, 1 ) //On needed for object raycasting
SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
SetObjectTransparency(TerrainObjectID,0)
TerrainMemblock= CreateMemblockFromObjectMesh(TerrainObjectID,1)

rem num=mapX*126
maxIndices=GetMemblockInt(terrainMemblock,0)
maxX=(SQRT(maxIndices))
Dim heights[maxIndices] as _heights
meshposition=0:num=0:pointX=0:pointZ=0
for num = 0 to maxIndices //max vertices
        pointX=pointX+1
        if pointX>maxX 
			pointX=1
			pointZ=PointZ+1
		endif
        // add to array
        heights[num].height=1
        heights[num].meshposition=meshposition
		heights[num].PointX=pointX   
        heights[num].PointZ=pointZ    
        
        inc meshposition
next num

//setupArray()  
//SetCameraRange(1,1,2000 ) 
SetCameraPosition(1, 805, 378, -41)
  
steps = -1  
do
    checkCameraMovement()
      
    pointerState=GetRawMouseLeftState() 
	if GetRawMouseRightPressed()
		for i = 0 to maxIndices-1 //max vertices -1
			xWave#=Cos(heights[i].PointX)*(wavewidth/2)+centreX:xWave2#=Cos(heights[i].PointZ)*(wavewidth/2)+centreX
			yWave#=Sin(xWave#*frequency#)*(amplitude)+yposition:yWave2#=Sin(xWave2#*frequency#)*(amplitude)+yposition			
			SetMeshMemblockVertexPosition(TerrainMemblock,heights[i].meshposition,GetMeshMemblockVertexX(TerrainMemblock,i),GetMeshMemblockVertexY(TerrainMemblock,i)+(yWave#+ywave2#),GetMeshMemblockVertexZ(TerrainMemblock,i))
			rem used for the animation
			heights[i].pointX=heights[i].pointX+1
			if heights[i].pointX>maxX 
				heights[i].pointX=1
			endif
		next
		SetObjectMeshFromMemblock(TerrainObjectID,1,TerrainMemblock)         
	endif
    //endif
    // show some information
    Print( "FPS: " + str(ScreenFPS(),1) )
    Print( "Polygons: " + str(GetPolygonsDrawn()))
    print("vertices="+str(GetMemblockInt(terrainMemblock,0)))
    print("Arrows move camera")
    print("Click right mouse to apply sine curve")
    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 GetRawKeyState(65) then RotateCameraLocalY(1,1)
if GetRawKeyState(68) then RotateCameraLocalY(1,-1)
  
// if cameray#<(blocksizey*10) then cameray#=(blocksizey*10)
if GetRawKeyPressed(27) then end

endfunction

function resetTerrain (msblk as integer) 
  
    count = GetMemblockInt( msblk ,0 )
    for i = 0 to count  
        SetMeshMemblockVertexPosition(msblk,i,GetMeshMemblockVertexX(msblk,i),0,GetMeshMemblockVertexZ(msblk,i)) //make it flat
    next
    SetObjectMeshFromMemblock(TerrainObjectID,1,msblk)
Endfunction

// 102, 51, 0
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
    
function createtexture(sizex# as float, sizey# as float, color, density as integer)
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
        
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
        
    size=GetMemblockSize(memblockid)
    for offset=12 to size-4 step 4
          
        r=GetMemblockByte(memblockid, offset)
        g=GetMemblockByte(memblockid, offset+1)
        b=GetMemblockByte(memblockid, offset+2)
        a=GetMemblockByte(memblockid, offset+3)
                
            
        strength=random(1,density)
    
        SetMemblockByte (memblockid, offset, r-strength)
        SetMemblockByte (memblockid, offset+1, g-strength)
        SetMemblockByte (memblockid, offset+2, b-strength )
        SetMemblockByte (memblockid, offset+3, a-strength)
    next
    deleteimage (img)
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
endfunction img

+ Code Snippet

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

// show all errors
SetErrorMode(2)
#constant screenWidth=1024
#constant screenHeight=768
#constant mapX=1024
#constant mapY=50
#constant mapZ=512

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


type _heights
	meshposition
	height
    PointX
    PointZ
endtype

rem for sine cosine calculations
#constant centreX=5
#constant yPosition=1
#constant amplitude=150
//#constant speedX#=.1251
#constant WaveWidth=10
#constant frequency#=15



global TerrainImageID
global TerrainObjectID

TerrainImageID=createtexture(32,32, makecolor(0,200,0),155)
Image1=createtexture(512,512, makecolor(200,200,200),5)
//Image1=createtexture(512,512, makecolor(200,200,200),255) //creates like a grass over terrain

saveImage(image1,"height.png")
DeleteImage(image1):rem DeleteObject(mem)
 
// create the terrain object from a height map
TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
//TerrainObjectID=CreateObjectBox(mapX,1,mapZ)

SetObjectCollisionMode( TerrainObjectID, 1 ) //On needed for object raycasting
SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
SetObjectTransparency(TerrainObjectID,0)
TerrainMemblock= CreateMemblockFromObjectMesh(TerrainObjectID,1)

rem num=mapX*126
maxIndices=GetMemblockInt(terrainMemblock,0)
maxX=(SQRT(maxIndices))
Dim heights[maxIndices] as _heights
meshposition=0:num=0:pointX=0:pointZ=0
for num = 0 to maxIndices //max vertices
        pointX=pointX+1
        if pointX>maxX 
			pointX=1
			pointZ=PointZ+1
		endif
        // add to array
        heights[num].height=1
        heights[num].meshposition=meshposition
		heights[num].PointX=pointX   
        heights[num].PointZ=pointZ    
        
        inc meshposition
next num



//setupArray()  
//SetCameraRange(1,1,2000 ) 
SetCameraPosition(1, 805, 378, -41)
  
steps = -1  
do
    checkCameraMovement()
      
    pointerState=GetRawMouseLeftState() 
	if GetRawMouseRightPressed()
		for i = 0 to maxIndices-1 //max vertices -1
			xWave#=Cos(heights[i].PointX)*(wavewidth/2)+centreX:xWave2#=Cos(heights[i].PointZ)*(wavewidth/2)+centreX
			yWave#=Sin(xWave#*frequency#)*(amplitude)+yposition:yWave2#=Sin(xWave2#*frequency#)*(amplitude)+yposition			
			SetMeshMemblockVertexPosition(TerrainMemblock,heights[i].meshposition,GetMeshMemblockVertexX(TerrainMemblock,i),GetMeshMemblockVertexY(TerrainMemblock,i)+(yWave#+ywave2#),GetMeshMemblockVertexZ(TerrainMemblock,i))
			rem used for the animation
			heights[i].pointX=heights[i].pointX+1
			if heights[i].pointX>maxX 
				heights[i].pointX=1
			endif
		next
		SetObjectMeshFromMemblock(TerrainObjectID,1,TerrainMemblock)         
	endif
    //endif
    // show some information
    Print( "FPS: " + str(ScreenFPS(),1) )
    Print( "Polygons: " + str(GetPolygonsDrawn()))
    print("vertices="+str(GetMemblockInt(terrainMemblock,0)))
    print("Arrows move camera")
    print("Click right mouse to apply sine curve")
    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 GetRawKeyState(65) then RotateCameraLocalY(1,1)
if GetRawKeyState(68) then RotateCameraLocalY(1,-1)
  
// if cameray#<(blocksizey*10) then cameray#=(blocksizey*10)
if GetRawKeyPressed(27) then end

endfunction
  
  

  
function resetTerrain (msblk as integer) 
  
    count = GetMemblockInt( msblk ,0 )
    for i = 0 to count  
        SetMeshMemblockVertexPosition(msblk,i,GetMeshMemblockVertexX(msblk,i),0,GetMeshMemblockVertexZ(msblk,i)) //make it flat
    next
    SetObjectMeshFromMemblock(TerrainObjectID,1,msblk)
Endfunction

// 102, 51, 0
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
    
function createtexture(sizex# as float, sizey# as float, color, density as integer)
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
        
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
        
    size=GetMemblockSize(memblockid)
    for offset=12 to size-4 step 4
          
        r=GetMemblockByte(memblockid, offset)
        g=GetMemblockByte(memblockid, offset+1)
        b=GetMemblockByte(memblockid, offset+2)
        a=GetMemblockByte(memblockid, offset+3)
                
            
        strength=random(1,density)
    
        SetMemblockByte (memblockid, offset, r-strength)
        SetMemblockByte (memblockid, offset+1, g-strength)
        SetMemblockByte (memblockid, offset+2, b-strength )
        SetMemblockByte (memblockid, offset+3, a-strength)
    next
    deleteimage (img)
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
endfunction img

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 6th Mar 2019 21:09

Link

Wow - thanks all you guys for your inputs.. Shaders is definately not with me at the moment, but looks really looks awesome

and thanks Fubarpk for your little snippet, i have seen the parabolic snip before now, but does take a few seconds to implement new height fields on a mesh, so wouldnt be good for real time stuff.. A predefined terrain model perhaps.

Thanks for taking an interest...

Tier 1 Developer

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 6th Mar 2019 21:45

Link

Quote: "predefined terrain model perhaps."

that might work could perhaps use animation frames for a terrain

If that worked would make for a great terrain creator. Which really would just be an animating object wonder what the overheads for that would be like tho
curious to find out

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 6th Mar 2019 22:04 Edited at: 6th Mar 2019 22:04

Link

I did a perlin noise version somewhere which was quite fast in terrain changing

Let me know if you want me to dig that out - ive posted it a few times on many threads - but its based on traiangulated colours rather than textures

Tier 1 Developer

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 6th Mar 2019 22:25

Link

Just was thinking a sea effect could be done similar not so sure if perlin noise is the answer
as for the perlin noise based on triangulation you've posted, you post so much its hard to keep up so not sure if ive seen that one or not

I think an animated terrain ie object that was precalculated to do the wave effect might work well for low end machines, An animated
object in AppGameKit isn't that much larger than the object alone and im thinking the overheads mightn't be so bad and possible suitable to
older machines and possibly mobile devices. The problem being would have to create the animation and save as a format like .x. but the
time needed to create the animated sea isn't necessarily an issue. more how to create the .x format as .obj don't support animations.
A good animated sea could work well for sea born games and any land would have to be above of height of the sea object

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 6th Mar 2019 22:32

Link

Will have to think about animated objects more - i think it will still be the same rendering time

Here is the terrain I made with perlin

Press Space to make it move in just one direction at moment, but can be add more directions

Looks bloody crap really

// 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=20
 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, numberofcubes, inventorycubecount
 
 
global landsizex#=32
global landsizez#=32
 
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
 
 
NoiseInit()
 
setupskyandfog()
 
 
 
offsetx#=0:offsety#=0
 
//next
 
meshobject = buildlandscape(offsetx#,offsety#)
 
SetCameraRange(1,.01,10000)
 
//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/2
cameray#=1
cameraz#=landsizez#/2
 
SetRawMousePosition(1024/2,768/2)
do
     
     
    if GetRawKeyState(32)
        DeleteObject(meshobject)
        meshobject = buildlandscape(offsetx#, offsety#)
 
        inc offsetx#,.1
        inc offsety#,.1
    endif
     
     
//  RotateObjectLocalY(meshobject,.1)
    //RotateObjectLocalX(meshobject,.1)
    //RotateObjectLocalZ(meshobject,.1)
    movecamerawithmouse()
    if GetRawKeyPressed(38) then dec camerax#,.1
     
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    print (GetMemblockSize(memblock))
    Print( ScreenFPS() )
    Sync()
loop
 
 
function buildlandscape(offsetx#, offsety#)
     
    meshID.TriangleList.length=-1
    meshID.VertexList.length=-1
    // build triangle strip
    randomheight=3
    col=255
    scale#=1
    noiseterrain#=12.0 // 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 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,(y#+offsety#)/noiseterrain#)*col)
            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)
         
         
            AddVertex(meshID,((x#)*scale#)          ,noise2d((x#+offsetx#)/noiseterrain#,           (y#+offsety#)/noiseterrain#)        ,y# *scale#         ,0,1,0,   0,0, colvertice1) 
            AddVertex(meshID,((x#)+scale#)*scale#   ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,  ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice2)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,    ((y#+offsety#)/noiseterrain#))      ,y# *scale#             ,0,1,0,   0,0, colvertice3)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#,           (y#+offsety#)/noiseterrain#)        ,y# * scale#                ,0,1,0,   0,0, colvertice4)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#,           ((y#+offsety#)-1)/noiseterrain#)        ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice5)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,    ((y#+offsety#)-1)/noiseterrain#)        ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice6)
 
     
        next
    next
 
 
    DeleteObject(meshobject)
meshobject = CreateObjectFromMeshTest(meshID)
 
     
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<-100) 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>200) then colvertice1=MakeColor(255,255,255)
 
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 CreateObjectFromMeshTest(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,36) // 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
 
 
// ***************************************************************************************************
// 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)
/*
        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=20
 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, numberofcubes, inventorycubecount
 
 
global landsizex#=32
global landsizez#=32
 
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
 
 
NoiseInit()
 
setupskyandfog()
 
 
 
offsetx#=0:offsety#=0
 
//next
 
meshobject = buildlandscape(offsetx#,offsety#)
 
SetCameraRange(1,.01,10000)
 
//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/2
cameray#=1
cameraz#=landsizez#/2
 
SetRawMousePosition(1024/2,768/2)
do
     
     
    if GetRawKeyState(32)
        DeleteObject(meshobject)
        meshobject = buildlandscape(offsetx#, offsety#)
 
        inc offsetx#,.1
        inc offsety#,.1
    endif
     
     
//  RotateObjectLocalY(meshobject,.1)
    //RotateObjectLocalX(meshobject,.1)
    //RotateObjectLocalZ(meshobject,.1)
    movecamerawithmouse()
    if GetRawKeyPressed(38) then dec camerax#,.1
     
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    print (GetMemblockSize(memblock))
    Print( ScreenFPS() )
    Sync()
loop
 
 
function buildlandscape(offsetx#, offsety#)
     
    meshID.TriangleList.length=-1
    meshID.VertexList.length=-1
    // build triangle strip
    randomheight=3
    col=255
    scale#=1
    noiseterrain#=12.0 // 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 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,(y#+offsety#)/noiseterrain#)*col)
            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)
         
         
            AddVertex(meshID,((x#)*scale#)          ,noise2d((x#+offsetx#)/noiseterrain#,           (y#+offsety#)/noiseterrain#)        ,y# *scale#         ,0,1,0,   0,0, colvertice1) 
            AddVertex(meshID,((x#)+scale#)*scale#   ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,  ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice2)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,    ((y#+offsety#)/noiseterrain#))      ,y# *scale#             ,0,1,0,   0,0, colvertice3)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#,           (y#+offsety#)/noiseterrain#)        ,y# * scale#                ,0,1,0,   0,0, colvertice4)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#,           ((y#+offsety#)-1)/noiseterrain#)        ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice5)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,    ((y#+offsety#)-1)/noiseterrain#)        ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice6)
 
     
        next
    next
 
 
    DeleteObject(meshobject)
meshobject = CreateObjectFromMeshTest(meshID)
 
     
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<-100) 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>200) then colvertice1=MakeColor(255,255,255)
 
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 CreateObjectFromMeshTest(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,36) // 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
 
 
// ***************************************************************************************************
// 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)
/*
        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))
*/

Tier 1 Developer

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 6th Mar 2019 22:47

Link

Looks ok to me and works faster than thought I do recall it now
but not really an animated sea effect

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 6th Mar 2019 22:50 Edited at: 6th Mar 2019 22:54

Link

Cause that Perlin.. This topic is Worley noise and im interested to see what that algorithm gives us... Time is taken up at present with the coming Comp

Then will take look at this after 18th March if you like

My brain can accept so much before it blows...

Tier 1 Developer

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 7th Mar 2019 07:43

Link

If you download this file http://users.tpg.com.au/subarpk/SEA.blend and load into blender
you get a sea animation using Blenders ocean modifier. Easy enough to modify too but unfortunately
trying to export the animation doesnt come accross i think a plugin or something to export animated
objects that use modifier. but just thought it was worthy of this thread , im not sure if it uses worley or
not tho. But could be a possible solution to having an ocean like in the video of the first post. Will come
back to it later as im sure it can be exported to fbx or .x animated somehow

fubar

Back to top

Profile PM Email Website

janbo

16

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 7th Mar 2019 11:37 Edited at: 7th Mar 2019 11:44

Link

I realized that the Wiki entry for Worely Noise describes exactly what im doing in my shader, which isn't much...so thats done i guess

Do you want me to combine it with a terrain ?

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 7th Mar 2019 11:46

Link

Hi fubarpk and jambo. Thanks for all your best efforts a d will certainly have a look at all examples and see if I can do it too with what we know about Worley. Definateky worth a go at blender animations too to see if can get that going to see if it's fast in playing through the wavy animation

And most Definateky worth having a shot janbo to apply the shader to a terrain. That be wow factor to us cause wouldn't have a clue on how to do that...

But I certainly will be having a go at emthis too when I get the chance x

Tier 1 Developer

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 8th Mar 2019 00:38

Link

Jambo def is incredible with his shader knowledge ide like to see it combined with a terrain
especially if it has settings that you can change the roughness of the ocean etc

fubar

Back to top

Profile PM Email Website

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 8th Mar 2019 10:00

Link

The noise and movement functions are t the hard part, for an ocean like that the hard part (for me at least) are the normals.....not FIGURED OUT how to calc them realtime in a shader yet, so the movement would be there but lighting would be rubbish.

Back to top

Profile PM

janbo

16

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 9th Mar 2019 13:17 Edited at: 9th Mar 2019 13:21

Link

@Santman: Well then here is the normal calculation and the Voronoi Tesselation shader

+ Code Snippet

	// mediump vec3 dvx = vec3(1.0, 0.0, right-left);
	// mediump vec3 dvy = vec3(0.0, 1.0, bottom-top);
	// mediump vec3 normalmap = normalize(cross(dvx, dvy));

Get the neighboring heights (right,left,top,bottom) and this should spit out the normal.
One could take the center and right and top but that produces "sharper turns".

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Worley Noise