PureBasic Forums - English

Posted: **Wed Dec 03, 2025 7:36 pm**

Another interesting for my code with the help of AI

EnableExplicit

#Width  = 800
#Height = 400

; --- PHYSICS PARAMETERS ---
#Segments = 200                  ; number of water points
#Stiffness = 0.025               ; main spring stiffness
#Spread = 0.25                   ; lateral propagation
#Damping = 0.025                 ; wave damping
#RestHeight = #Height / 2        ; water rest height

Dim Height.f(#Segments)          ; current height
Dim Velocity.f(#Segments)        ; vertical speed
Dim LeftDelta.f(#Segments)
Dim RightDelta.f(#Segments)

Define i, x, mx.f, my.f
Define dx.f, dy.f
Define event

; Function to draw the circle cursor
Procedure DrawCircleCursor()
  Shared mx.f 
  Shared my.f
  Protected r = 8  ; cursor radius
  
  mx = MouseX()
  my = MouseY()

  ; Draw a transparent light-blue circle
  ;Circle(mx, my, r, RGBA(0, 180, 255, 180))
  
  ; White border for visibility
  Circle(mx, my, r, RGBA(255, 255, 255, 200))
EndProcedure


InitSprite()
InitMouse()
InitKeyboard()

If OpenWindow(0, 0, 0, #Width, #Height, "2D Water Fluid", #PB_Window_ScreenCentered)
  If OpenWindowedScreen(WindowID(0), 0, 0, #Width, #Height)
    
    ; Initialization
    For i = 0 To #Segments
      Height(i) = #RestHeight
    Next

    ; --- Main loop ---
    Repeat
      
      event = WindowEvent()

      ; --- CLICK INTERACTION ---
      If ExamineMouse()
        If MouseButton(#PB_MouseButton_Left)
          
          Define idx = mx * #Segments / #Width
          If idx >= 0 And idx <= #Segments
            Velocity(idx) - 12      ; vertical splash impact
          EndIf
        EndIf
      EndIf

      ; --- PHYSICS : MAIN SPRING ---
      For i = 0 To #Segments
        dy = #RestHeight - Height(i)
        Velocity(i) + dy * #Stiffness
        Velocity(i) * (1 - #Damping)
        Height(i) + Velocity(i)
      Next

      ; --- PHYSICS : LATERAL PROPAGATION ---
      For i = 0 To #Segments - 1
        LeftDelta(i)  = #Spread * (Height(i) - Height(i+1))
        Velocity(i+1) + LeftDelta(i)

        RightDelta(i) = #Spread * (Height(i+1) - Height(i))
        Velocity(i)   + RightDelta(i)
      Next

      ; --- DRAWING ---
      StartDrawing(ScreenOutput())
      Box(0, 0, #Width, #Height, RGB(0, 0, 50)) ; dark blue background

      ; Water color
      Define blue = RGB(0, 140, 255)

      ; Convert segments → screen
      For i = 0 To #Segments-2
        x  = i * #Width / #Segments
        dx = (i+1) * #Width / #Segments
        
        LineXY(x, Height(i), dx, Height(i+1), blue)
        
        ; Fill under the water surface
        LineXY(x, Height(i), x, #Height, RGB(0, 60, 120))
        LineXY(dx, Height(i+1), dx, #Height, RGB(0, 60, 120))
      Next
      
      ; --- Custom circle cursor ---
      DrawCircleCursor()

      StopDrawing()
      FlipBuffers()
      
      ExamineKeyboard()
      
      
    Until event = #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)
     
  EndIf
EndIf

The cursor is too way slow, i have put the float but i can make more fast, not precise though....

Posted: **Wed Dec 03, 2025 7:37 pm**

Click to left to change for water on line

Posted: **Wed Dec 03, 2025 7:44 pm**

change to that :

Code: Select all

  mx = MouseX()*5.0
  my = MouseY()*5.0

Maybe it is more near to realtime

Posted: **Wed Dec 03, 2025 7:47 pm**

Thanks for sharing, it's cool.

One important thing though: please process all the events at the beginning of the loop when using screens. (it will be instantly realtime, the pending events causes the delay for the mouse.)

Code: Select all

Repeat :Until Not WindowEvent()

Posted: **Wed Dec 03, 2025 8:30 pm**

miso wrote: Wed Dec 03, 2025 7:47 pm Thanks for sharing, it's cool.

One important thing though: please process all the events at the beginning of the loop when using screens. (it will be instantly realtime, the pending events causes the delay for the mouse.)
Code: Select all
Repeat :Until Not WindowEvent()

Thanks for the tip miso! I changed threedslider code to see what you are talking about:

Code: Select all

EnableExplicit

#Width  = 800
#Height = 400

; --- PHYSICS PARAMETERS ---
#Segments = 200                  ; number of water points
#Stiffness = 0.025               ; main spring stiffness
#Spread = 0.25                   ; lateral propagation
#Damping = 0.025                 ; wave damping
#RestHeight = #Height / 2        ; water rest height

Dim Height.f(#Segments)          ; current height
Dim Velocity.f(#Segments)        ; vertical speed
Dim LeftDelta.f(#Segments)
Dim RightDelta.f(#Segments)

Define i, x, mx.f, my.f
Define dx.f, dy.f
Define event
Define Exit = #False

; Function to draw the circle cursor
Procedure DrawCircleCursor()
  Shared mx.f 
  Shared my.f
  Protected r = 8  ; cursor radius
  
  mx = MouseX()
  my = MouseY()
  
  ; Draw a transparent light-blue circle
  ;Circle(mx, my, r, RGBA(0, 180, 255, 180))
  
  ; White border for visibility
  Circle(mx, my, r, RGBA(255, 255, 255, 200))
EndProcedure


InitSprite()
InitMouse()
InitKeyboard()

If OpenWindow(0, 0, 0, #Width, #Height, "2D Water Fluid", #PB_Window_ScreenCentered)
  If OpenWindowedScreen(WindowID(0), 0, 0, #Width, #Height)
    
    ; Initialization
    For i = 0 To #Segments
      Height(i) = #RestHeight
    Next
    
    ; --- Main loop ---
    Repeat
      
      ;process all events here before the logic loop
      While #True
        event = WindowEvent()
        If event = 0
          Break
        EndIf
        
        If event = #PB_Event_CloseWindow
          Exit = #True
          Break
        EndIf
        
        
      Wend
      
      
      
      
      ; --- CLICK INTERACTION ---
      If ExamineMouse()
        If MouseButton(#PB_MouseButton_Left)
          
          Define idx = mx * #Segments / #Width
          If idx >= 0 And idx <= #Segments
            Velocity(idx) - 12      ; vertical splash impact
          EndIf
        EndIf
      EndIf
      
      ; --- PHYSICS : MAIN SPRING ---
      For i = 0 To #Segments
        dy = #RestHeight - Height(i)
        Velocity(i) + dy * #Stiffness
        Velocity(i) * (1 - #Damping)
        Height(i) + Velocity(i)
      Next
      
      ; --- PHYSICS : LATERAL PROPAGATION ---
      For i = 0 To #Segments - 1
        LeftDelta(i)  = #Spread * (Height(i) - Height(i+1))
        Velocity(i+1) + LeftDelta(i)
        
        RightDelta(i) = #Spread * (Height(i+1) - Height(i))
        Velocity(i)   + RightDelta(i)
      Next
      
      ; --- DRAWING ---
      StartDrawing(ScreenOutput())
      Box(0, 0, #Width, #Height, RGB(0, 0, 50)) ; dark blue background
      
      ; Water color
      Define blue = RGB(0, 140, 255)
      
      ; Convert segments → screen
      For i = 0 To #Segments-2
        x  = i * #Width / #Segments
        dx = (i+1) * #Width / #Segments
        
        LineXY(x, Height(i), dx, Height(i+1), blue)
        
        ; Fill under the water surface
        LineXY(x, Height(i), x, #Height, RGB(0, 60, 120))
        LineXY(dx, Height(i+1), dx, #Height, RGB(0, 60, 120))
      Next
      
      ; --- Custom circle cursor ---
      DrawCircleCursor()
      
      StopDrawing()
      FlipBuffers()
      
      ExamineKeyboard()
      
      
    Until Exit = #True Or KeyboardPushed(#PB_Key_Escape)
    
  EndIf
EndIf

And the mouse handling works now! Now it willbe easier to implement mouse input on games and interactive applications!

PureBasic Forums - English

2D water fluid

2D water fluid

Re: 2D water fluid

Re: 2D water fluid

Re: 2D water fluid

Re: 2D water fluid