Perlin Map 3D
lazarus / 39-Graphics

----------------------------------------------------------------------
Dzandaa · 2026-01-21 16:04

Hi everybody,

Here is a 3D version of my Perlin Map With BGRABitmap and OpenGl.


B->

----------------------------------------------------------------------
Boleeman · 2026-01-21 23:04

DZandaa, this 3D version is amazing.

I like how you can flip it over and explore the other side.

A real masterpiece.

----------------------------------------------------------------------
Dzandaa · 2026-01-22 10:03

Hi,

Thank you Eddie,

An amelioration would be a reflective plane with water patterns at the
sea level.

B->

----------------------------------------------------------------------
dergen · 2026-01-22 13:20

Excellent !

----------------------------------------------------------------------
Boleeman · 2026-01-22 16:47

Hey DZandaa,

Not sure if you could add this feature but it would be nice to have a
rotation control of the plane.

I could flip the plane easily but found it difficult to rotate
(could it be done with a slider or somehow modify mouse behavior?)

----------------------------------------------------------------------
Boleeman · 2026-01-24 00:21

Found an interesting read:


Making maps with noise functions
https://www.redblobgames.com/maps/terrain-from-noise/


Also a CSharp Planet renderer using simplex noise displacement on a
tesselated icosahedron
https://github.com/JcBernack/simplex-sphere

----------------------------------------------------------------------
Okoba · 2026-01-24 09:13

That is cool. You should show this to @circular.

----------------------------------------------------------------------
Dzandaa · 2026-01-24 11:30

Hi Eddie,

There is a version with Sliders.

Have a nice day.

B->

----------------------------------------------------------------------
DomingoGP · 2026-01-24 11:51

Hi all, I have been  playing a little with Your demo and added an
arcBall to handle rotations
dragging the mouse.

PS: I don't  have tested Your last version.

Regards
Domingo.

----------------------------------------------------------------------
Boleeman · 2026-01-24 13:38

Thank you DZandaa for adding the sliders. Also zooming in with the
mouse wheel shows heaps of detail. I maximized the form size while
doing the zoom (looks like DZandaa adjusted the TMemo placement when
maximizing the form). Ah, DZandaa added a picture of the ArcBall near
exit button (just swa it now in the update from Reply #11).

Also thanks DomingoGP for adding the rotation and RIGHT click/drag
(Ah so you don't see the arc ball but you get full movement, scaling
and rotation, nice, in some other programs the arc ball pops up when
rotating but its probably better not seeing one as it gives full view
of the graphics).


Love how you can also zoom in and out. DZaanda the program is
excellent. Also with DomingoGP's addition we also have good movement.

Many thanks to both for the nice additions. Love seeing 3D graphics.

----------------------------------------------------------------------
DomingoGP · 2026-01-24 17:13

You are welcome 
Quote from: Boleeman on January 24, 2026, 02:38:54 pm(for some reason
I don't see the arc ball but I get full movement, scaling and
rotation).
There is nothing to see here, the arcball only processes the mouse
activity to rotate the scene, it is not a visual component.

----------------------------------------------------------------------
Dzandaa · 2026-01-24 17:20

Hi,

Thank you Domingo

Here is a version with the arcball and some cleaning.

B->

----------------------------------------------------------------------
Lulu · 2026-01-24 18:45

Very nice demo, thanks for all you three

----------------------------------------------------------------------
circular · 2026-02-02 07:09

That's very beautiful indeed. Thanks for sharing!

Dzandaa, you mentionned you wished to add an island in the middle. You
can do that by drawing a radial gradient on the elevation map:

Code: Delphi  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
BGRAGradientScanner;...procedure TTerrainPerlinForm.DrawPerlin();var 
...  grad: TBGRAMultiGradient;begin...  grad :=
TBGRAMultiGradient.Create([BGRA(255,255,255,128), BGRA(1,1,1,192),
BGRAPixelTransparent], grPad);  PictureElev.GradientFill(0, 0,
MapSize, MapSize, grad, gtRadial,    PointF(MapSize/2+0.5,
MapSize/2+0.5), PointF(MapSize/6+0.5, MapSize/2+0.5), dmLinearBlend); 
grad.Free; end; 
Warm regards