Perlin Map 3D

[Dzandaa]

Hi everybody,

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


B->

[Boleeman]

DZandaa, this 3D version is amazing.

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

A real masterpiece.

[Dzandaa]

Hi,

Thank you Eddie,

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

B->

[dergen]

Excellent !

 

[Boleeman]

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]

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]

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

[Dzandaa]

Hi Eddie,

There is a version with Sliders.

Have a nice day.

B->

[DomingoGP]

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]

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]

You are welcome 

(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]

Hi,

Thank you Domingo

Here is a version with the arcball and some cleaning.

B->

[Lulu]

Very nice demo, thanks for all you three 

[circular]

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][+][-]

1. uses BGRAGradientScanner;
2. ...
3. procedure TTerrainPerlinForm.DrawPerlin();
4. var
5.   ...
6.   grad: TBGRAMultiGradient;
7. begin
8. ...
9.   grad := TBGRAMultiGradient.Create([BGRA(255,255,255,128), BGRA(1,1,1,192), BGRAPixelTransparent], grPad);
10.   PictureElev.GradientFill(0, 0, MapSize, MapSize, grad, gtRadial,
11.     PointF(MapSize/2+0.5, MapSize/2+0.5), PointF(MapSize/6+0.5, MapSize/2+0.5), dmLinearBlend);
12.   grad.Free;
13. end;
14.  

Warm regards