How to get water height?
Posted: Fri Jun 20, 2025 12:41 pm
Is there any way to detect the height of the water created with 'CreateWater(' to simulate floating objects?
I have modified the Water.pb example to include a few floating barrels; took me some time to get them floating with water friction when under water. I added physics bodies to the entities, and move the ground plane from -5 to -50. When you set the plane to 0 there will be water-less surfaces.
To make it more realistic I suggest you should look into the boat physics example somewhere in this forum. This can be taken as a base for further improvements.
You would to have a list/array of points on the entity to query for submersion; there's also Pick() and raycast functions that can detect water collisions with more precision perhaps. This could be used to apply forces and (counter-) impulses to simulate friction/water contact and submersion, buoyancy. Similarly you could simulate wind on a sail or flat surface, with a set of points on the entity surface to apply wind impulses.
Code: Select all
; ------------------------------------------------------------
;
; PureBasic - Water
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
; with rusty barrels added
;#################################################################################################################
#end_distance=1024*4
Procedure ColorBlend(color1.l, color2.l, blend.f)
Protected r.w,g.w,b.w,a.w
r= Red(color1) + (Red(color2) - Red(color1)) * blend
g=Green(color1) + (Green(color2) - Green(color1)) * blend
b= Blue(color1) + (Blue(color2) - Blue(color1)) * blend
a=Alpha(color1) + (Alpha(color2) - Alpha(color1)) * blend
ProcedureReturn RGBA(r,g,b,a)
EndProcedure
InitEngine3D():InitSprite():InitKeyboard():InitMouse()
ExamineDesktops():dx=DesktopWidth(0)*0.9:dy=DesktopHeight(0)*0.9
OpenWindow(0, 0,0, DesktopUnscaledX(dx),DesktopUnscaledY(dy), " Water - [PageUp][PageDown] Sun height [F12] Wireframe [Esc] quit",#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, dx, dy, 0, 0, 0)
Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Models", #PB_3DArchive_FileSystem)
Parse3DScripts()
CreateCamera(0, 0, 0, 100, 100):MoveCamera(0,0,5,0):CameraLookAt(0,2,5,10)
;sky
tx_sky=LoadTexture(#PB_Any,"sky.png")
SkyDome(TextureID(tx_sky),$cc6600,$0088ff,3,400,-0.5,0)
;ocean
tx_water=LoadTexture(#PB_Any,"waternormal.png")
tx_foam=LoadTexture(#PB_Any,"foam.png")
CreateWater(TextureID(tx_water),TextureID(tx_foam), $cc888800,$886666, #end_distance, 1.5,1.2,0.2,0.7)
;ground
tx_ground=LoadTexture(#PB_Any,"Dirt.jpg")
CreateMaterial(2,TextureID(tx_ground))
CreatePlane(2,#end_distance*2,#end_distance*2,16,16,#end_distance/64,#end_distance/64)
CreateEntity(2,MeshID(2),MaterialID(2),0,-50,0)
CreateEntityBody(2, #PB_Entity_StaticBody,100)
; barrel
tx_barrel=LoadTexture(#PB_Any,"RustyBarrel.png")
tx_rusty =LoadTexture(#PB_Any,"RustySteel.jpg")
CreateMaterial(3, TextureID(tx_barrel))
CreateMaterial(4, TextureID(tx_rusty))
LoadMesh(3,"Barrel.mesh")
For i.i = 1 To 100
CreateEntity(i+10, MeshID(3), MaterialID(3), Random(1000)-Random(1000),Random(1000,1),Random(1000)-Random(1000))
CreateEntityBody(i+10, #PB_Entity_CylinderBody, 1, 0.5, 0.5)
RotateEntity(i+10,Random(180)-Random(180),Random(180)-Random(180),Random(180)-Random(180))
Next
EnableWorldPhysics(1)
EnableWorldCollisions(1)
Procedure CameraUserControl(camera,speed.f=0.2,smooth.f=0.1,yfixed.f=1e10)
Static.f MouseX,Mousey,depx,depz,sdepx,sdepz
depx=-speed*(KeyboardPushed(#PB_Key_Left)-KeyboardPushed(#PB_Key_Right))
depz=-speed*(KeyboardPushed(#PB_Key_Down)-KeyboardPushed(#PB_Key_Up)-MouseWheel()*20)
MouseX = -MouseDeltaX() * 0.05
MouseY = -MouseDeltaY() * 0.05
RotateCamera(camera, MouseY, MouseX, 0, #PB_Relative)
sdepx+(depx-sdepx)*smooth
sdepz+(depz-sdepz)*smooth
MoveCamera (camera, sdepX, 0, -sdepz)
If yfixed<>1e10:MoveCamera(camera,CameraX(camera),yfixed,CameraZ(camera),#PB_Absolute):EndIf
EndProcedure
WorldGravity(0)
Define.f r=1,rr
Repeat
While WindowEvent():Wend
ExamineKeyboard()
ExamineMouse()
If KeyboardReleased(#PB_Key_F12):fdf=1-fdf:If fdf:CameraRenderMode(0,#PB_Camera_Wireframe):Else:CameraRenderMode(0,#PB_Camera_Textured):EndIf:EndIf
CameraUserControl(0,0.2,0.1)
; sun height
r+(KeyboardPushed(#PB_Key_PageUp)-KeyboardPushed(#PB_Key_PageDown))*0.004:If r<0:r=0:ElseIf r>1:r=1:EndIf:rr=Pow(r,0.25)
CreateLight(0,ColorBlend($0088ff,$ffffff,rr),20000, r*40000,20000)
AmbientColor($010101*Int(r*48+64))
Fog(ColorBlend($004488,$ffccaa,r),1,0,#end_distance)
For i=1 To 100
If EntityY(i+10)<0
EntityRenderMode(i+10,#PB_Entity_DisplaySkeleton)
EntityVelocity(i+10,0.99 * GetEntityAttribute(i+10, #PB_Entity_LinearVelocityX),0.99 * GetEntityAttribute(i+10, #PB_Entity_LinearVelocityY),0.99 * GetEntityAttribute(i+10, #PB_Entity_LinearVelocityZ))
ApplyEntityForce(i+10,0,5.4,0)
SetEntityMaterial(i+10,MaterialID(4))
Else
ApplyEntityForce(i+10,0,-9.8,0)
EntityRenderMode(i+10,#PB_Entity_CastShadow)
SetEntityMaterial(i+10,MaterialID(3))
EndIf
Next
RenderWorld()
FlipBuffers()
Until KeyboardReleased(#PB_Key_Escape) Or MouseButton(3)
