Water Wave Physics 2d - GameCreators Forum

Author

Message

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 23rd Aug 2020 01:56 Edited at: 23rd Aug 2020 02:10

Link

i'm not seeing what i'm looking for in your function so, basic example of TMB (which, the goal is, to be independent of FrameRate())

// Project: TMB 
// Created: 2020-08-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TMB" )
SetWindowSize( 1080, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 720 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

Red = MakeColor(255,0,0)

FPSToggle = 1
MoveToggle = 1
This = CreateSprite(0)	:	SetSpriteSize(This,100,100)

StartLine# = 0.0 
SetSpritePosition(This,StartLine#,100.0)

MoveRate# = 100.0 `(Px/Sec)
FinishLine# = 500.0 `should take 5 seconds to travel 500px
LastTime# = Timer()
StartTime# = Timer()

do
	DrawLine(500,0,500,200,Red, Red)
	
    If GetPointerReleased() `Toggle SyncRate & Reset Sprite
		FPSToggle = -FPSToggle
		If FPSToggle = 1 then SetSyncRate(30,0) else SetSyncRate(60,0)
		SetSpritePosition(This,StartLine#,100)
		StartTime# = Timer()
		FinishFlag = 0
	Endif
	
	ThisStep# = (Timer()-LastTime#) 
	ThisX# = GetSpriteX(This)
	If ThisX# < FinishLine#
		SetSpritePosition(This, ThisX# + ThisStep#*MoveRate#, 100.0)
	ElseIf FinishFlag = 0
		EndTime# = Timer()
		FinishFlag = 1
		TotalTime# = EndTime#-StartTime#
	Endif
	
    Print( STR(ScreenFPS()) + " | " + STR(FPSToggle) )
    Print("LastFinishTime: " + STR(TotalTime#))
    LastTime# = Timer()
    Sync()
loop

+ Code Snippet

// Project: TMB 
// Created: 2020-08-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TMB" )
SetWindowSize( 1080, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 720 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

Red = MakeColor(255,0,0)

FPSToggle = 1
MoveToggle = 1
This = CreateSprite(0)	:	SetSpriteSize(This,100,100)

StartLine# = 0.0 
SetSpritePosition(This,StartLine#,100.0)

MoveRate# = 100.0 `(Px/Sec)
FinishLine# = 500.0 `should take 5 seconds to travel 500px
LastTime# = Timer()
StartTime# = Timer()


do
	DrawLine(500,0,500,200,Red, Red)
	
    If GetPointerReleased() `Toggle SyncRate & Reset Sprite
		FPSToggle = -FPSToggle
		If FPSToggle = 1 then SetSyncRate(30,0) else SetSyncRate(60,0)
		SetSpritePosition(This,StartLine#,100)
		StartTime# = Timer()
		FinishFlag = 0
	Endif
	
	ThisStep# = (Timer()-LastTime#) 
	ThisX# = GetSpriteX(This)
	If ThisX# < FinishLine#
		SetSpritePosition(This, ThisX# + ThisStep#*MoveRate#, 100.0)
	ElseIf FinishFlag = 0
		EndTime# = Timer()
		FinishFlag = 1
		TotalTime# = EndTime#-StartTime#
	Endif
	
    Print( STR(ScreenFPS()) + " | " + STR(FPSToggle) )
    Print("LastFinishTime: " + STR(TotalTime#))
    LastTime# = Timer()
    Sync()
loop

[My Itch.io Home] | [#LowRezJamAGK2020]
[AGK Resource Directory] | [TGC @ GitHub]
[CODE lang=AGK] Your Code Here [/CODE] | [VIDEO=youtube] VideoID [/VIDEO]

Back to top

Profile PM Website

brunuu

6

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 23rd Aug 2020 11:39 Edited at: 23rd Aug 2020 11:41

Link

yes, but implementing this here is difficult, I tried several things in different parts of the code but nothing seems to work

I tried everything to this point.

this is the code without modifications

// set window properties
SetWindowTitle( "Water" )
SetWindowSize( 1080, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 720 ) // 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

SetVSync(1)

SetClearColor(43, 178, 233)

global gTension as float = 0.05
global gDampening as float = 0.02
global gSpread  as float = 0.25

type tColumn
	targetHeight as float
	height as float
	speed as float
	id as integer
	x as float
endtype

columns as tColumn[]

//Actot
CreateSprite(1, 0)
SetSpriteSize(1, 70, 125)
SetSpriteOffset(1 , GetSpriteWidth(1)/2, GetSpriteHeight(1)/2)
setspritephysicsOn(1, 2)	
SetSpritePhysicsCanRotate(1, 0)
#constant    KEY_1            49
#constant    KEY_2            50

//Water
InitializeColumns(columns)

//Ground
CreateSprite(2, 0)
SetSpriteSize(2, 800, 180)
SetSpritePosition(2, columns[columns.length].x, 580)
setspritephysicsOn(2, 1)
SetSpriteColor(2, 0, 181, 0, 255)

do	
	
	x = GetSpriteXByOffset(1)
	y = GetSpriteYByOffset(1) + (GetSpriteHeight(1)/2)
	if GetSpriteHit(x, y) > 0 and GetSpriteHit(x, y) <> 1 and (y < 660 and y > 620)
		Splash(columns, x, y)
	endif

Print ( "Frame rate = " + str ( screenFPS ( ) ) )
	
	// A W D
	if GetRawKeyState(68)
		if not GetSpritePhysicsVelocityX(1) > 260
			SetSpritePhysicsVelocity(1, 250, GetSpritePhysicsVelocityY(1))
		endif
	elseif GetRawKeyState(65) 
		if not GetSpritePhysicsVelocityX(1) < -260
			SetSpritePhysicsVelocity(1, -250, GetSpritePhysicsVelocityY(1))
		endif
	endif
	if GetRawKeyPressed(87) 
		SetSpritePhysicsImpulse(1, 0, 0, 0, -650)
	endif
	
	// Change FPSs
	if GetRawKeyPressed(KEY_1)
		SetVSync(1)
	endif
	if GetRawKeyPressed(KEY_2)
		SetSyncRate(0, 1)
	endif
	
	SetSpritePosition(1, GetPointerX(), GetPointerY())
	
	CreateRipple(columns)
	
    Sync()
loop

function Splash(columns ref as tColumn[], x as integer, y as integer)
	i as integer
	id as integer
	
	for i = 0 to columns.length - 1
		if GetSpriteXByOffset(columns[i].id) > x
			exit
		endif
	next
	
	 columns[i-1].Speed = (y - columns[i].targetHeight)
	 columns[i].Speed = (y - columns[i].targetHeight) 
     columns[i+1].Speed = (y - columns[i].targetHeight) 
endfunction

function CreateRipple(columns ref as tColumn[])
	i as integer : j as integer
	for i=0 to columns.length
		UpdateColumn(columns[i])
	next
	
	lDeltas as float[] : lDeltas.length = columns.length
	rDeltas as float[] : rDeltas.length = columns.length
	
	// do some passes where columns pull on their neighbours
	for j = 0 to 7
		for i=0 to columns.length
			if i > 0
				lDeltas[i] = gSpread * (columns[i].height - columns[i - 1].height)
				inc columns[i - 1].Speed, lDeltas[i]
			endif
			if i < columns.Length
				rDeltas[i] = gSpread * (columns[i].Height - columns[i + 1].Height)
				inc columns[i + 1].Speed, rDeltas[i]
			endif
		next

for i = 0 to columns.length
			if i > 0 then inc columns[i - 1].Height, lDeltas[i]
			if i < columns.Length then inc columns[i + 1].Height, rDeltas[i]
		next
	next
endfunction

function UpdateColumn(column ref as tColumn)
	x as float
	x = column.targetHeight - column.height
	inc column.speed, gTension * x - column.speed * gDampening
	inc column.height, column.speed
	SetSpritePositionByOffset(column.id, GetSpriteXByOffset(column.id), column.height)
endfunction

function InitializeColumns(columns ref as tColumn[])
	i as integer
	c as tColumn
	s as float
	LoadImage(50, "waterTexture.png")
	s = GetVirtualWidth() / (GetVirtualWidth()/5 + 0.0)
	
	for i=0 to 150 //columns.length
		c.height = 620
		c.targetHeight = 620 		
		c.speed = 0
		c.x = (s * i)
		
		c.id = CreateSprite(0)
		SetSpriteSize(c.id, 5, 400)
		SetSpriteOffset(c.id,5,0)
		SetSpriteImage(c.id, 50)
		SetSpritePositionByOffset(c.id, c.x, 240)
		columns.insert(c)		
	next
endfunction

+ Code Snippet


// set window properties
SetWindowTitle( "Water" )
SetWindowSize( 1080, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 720 ) // 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


SetVSync(1)

SetClearColor(43, 178, 233)

global gTension as float = 0.05
global gDampening as float = 0.02
global gSpread  as float = 0.25

type tColumn
	targetHeight as float
	height as float
	speed as float
	id as integer
	x as float
endtype

columns as tColumn[]	

//Actot
CreateSprite(1, 0)
SetSpriteSize(1, 70, 125)
SetSpriteOffset(1 , GetSpriteWidth(1)/2, GetSpriteHeight(1)/2)
setspritephysicsOn(1, 2)	
SetSpritePhysicsCanRotate(1, 0)
#constant    KEY_1            49
#constant    KEY_2            50

//Water
InitializeColumns(columns)

//Ground
CreateSprite(2, 0)
SetSpriteSize(2, 800, 180)
SetSpritePosition(2, columns[columns.length].x, 580)
setspritephysicsOn(2, 1)
SetSpriteColor(2, 0, 181, 0, 255)

do	
	
	x = GetSpriteXByOffset(1)
	y = GetSpriteYByOffset(1) + (GetSpriteHeight(1)/2)
	if GetSpriteHit(x, y) > 0 and GetSpriteHit(x, y) <> 1 and (y < 660 and y > 620)
		Splash(columns, x, y)
	endif	

	Print ( "Frame rate = " + str ( screenFPS ( ) ) )
	
	// A W D
	if GetRawKeyState(68)
		if not GetSpritePhysicsVelocityX(1) > 260
			SetSpritePhysicsVelocity(1, 250, GetSpritePhysicsVelocityY(1))
		endif
	elseif GetRawKeyState(65) 
		if not GetSpritePhysicsVelocityX(1) < -260
			SetSpritePhysicsVelocity(1, -250, GetSpritePhysicsVelocityY(1))
		endif
	endif
	if GetRawKeyPressed(87) 
		SetSpritePhysicsImpulse(1, 0, 0, 0, -650)
	endif
	
	// Change FPSs
	if GetRawKeyPressed(KEY_1)
		SetVSync(1)
	endif
	if GetRawKeyPressed(KEY_2)
		SetSyncRate(0, 1)
	endif
	
	SetSpritePosition(1, GetPointerX(), GetPointerY())
	
	CreateRipple(columns)
	
    Sync()
loop

function Splash(columns ref as tColumn[], x as integer, y as integer)
	i as integer
	id as integer
	
	for i = 0 to columns.length - 1
		if GetSpriteXByOffset(columns[i].id) > x
			exit
		endif
	next
	
	 columns[i-1].Speed = (y - columns[i].targetHeight)
	 columns[i].Speed = (y - columns[i].targetHeight) 
     columns[i+1].Speed = (y - columns[i].targetHeight) 
endfunction

function CreateRipple(columns ref as tColumn[])
	i as integer : j as integer
	for i=0 to columns.length
		UpdateColumn(columns[i])
	next
	
	lDeltas as float[] : lDeltas.length = columns.length
	rDeltas as float[] : rDeltas.length = columns.length
	
	// do some passes where columns pull on their neighbours
	for j = 0 to 7
		for i=0 to columns.length
			if i > 0
				lDeltas[i] = gSpread * (columns[i].height - columns[i - 1].height)
				inc columns[i - 1].Speed, lDeltas[i]
			endif
			if i < columns.Length
				rDeltas[i] = gSpread * (columns[i].Height - columns[i + 1].Height)
				inc columns[i + 1].Speed, rDeltas[i]
			endif
		next

		for i = 0 to columns.length
			if i > 0 then inc columns[i - 1].Height, lDeltas[i]
			if i < columns.Length then inc columns[i + 1].Height, rDeltas[i]
		next
	next
endfunction


function UpdateColumn(column ref as tColumn)
	x as float
	x = column.targetHeight - column.height
	inc column.speed, gTension * x - column.speed * gDampening
	inc column.height, column.speed
	SetSpritePositionByOffset(column.id, GetSpriteXByOffset(column.id), column.height)
endfunction




function InitializeColumns(columns ref as tColumn[])
	i as integer
	c as tColumn
	s as float
	LoadImage(50, "waterTexture.png")
	s = GetVirtualWidth() / (GetVirtualWidth()/5 + 0.0)
	
	for i=0 to 150 //columns.length
		c.height = 620
		c.targetHeight = 620 		
		c.speed = 0
		c.x = (s * i)
		
		c.id = CreateSprite(0)
		SetSpriteSize(c.id, 5, 400)
		SetSpriteOffset(c.id,5,0)
		SetSpriteImage(c.id, 50)
		SetSpritePositionByOffset(c.id, c.x, 240)
		columns.insert(c)		
	next
endfunction

I tried to reduce the deltas according to the frame rate, but it didn't make any difference either

+ Code Snippet

if i > 0
				lDeltas[i] = gSpread * (columns[i].height - columns[i - 1].height)
				inc columns[i - 1].Speed, lDeltas[i]
			endif
			if i < columns.Length
				rDeltas[i] = gSpread * (columns[i].Height - columns[i + 1].Height)
				inc columns[i + 1].Speed, rDeltas[i]
			endif

Back to top

Profile PM

haliop787

4

Years of Service

User Offline

Joined: 22nd Mar 2020

Playing: With reality.

Posted: 26th Aug 2020 11:08

Link

+ Code Snippet

Funnction UpdateColumn(column ref as tColumn)
    x as float
    x = column.targetHeight - column.height
    inc column.speed, gTension * x - column.speed * gDampening
    inc column.height, column.speed * GetFrameTime() 
    SetSpritePositionByOffset(column.id, GetSpriteXByOffset(column.id), column.height)
endfunction

This is your original you can add really cool tweens to it as it is and not only save the visuals according to frame time but also.manipulate it with different stuff, as if the player is a bit bloody after getting a hit the water could change a bit reddish

So you can do this, just do not forget to updateAllTweens(getframetime()) at the main loop.

+ Code Snippet

function UpdateColumnNew(columns ref as tColumn)
    yOrg as float
    y as float
    yOrg = getSpriteYByOffset(column.id)
    y = column.targetHeight - column.height
    inc column.speed, gTension * y - column.speed * gDampening
    inc column.height, column.speed * GetFrameTime() 
   newTween = createTweenSprite(0.5)// change this as you like it is the duration.
SetTweenSpriteYByOffset(newTween,yOrg,y,tweenSmooth1()) // tween type coyld change and you can create a costume one...
   PlayTweenSprite(newTween,column.id,0.0)
endfunction

Hope this helps, now if the player is hit and a bit bloody
Simply Add setTweenSpriteColorRed/Blue/Green...

Before playing the tween, also maybe delete the tween or create it as global var before so it wont be reused but not deleted...

Nadav "Haliop" Rosenberg
Lets make the world great forever.

Back to top

Profile PM

brunuu

6

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 26th Aug 2020 16:00

Link

I like that idea a lot, I never found a use for tweens, nor did I have any idea that they could be used here

but something is not working well, I don't know what

SetErrorMode(2)

// set window properties
SetWindowTitle( "Water" )
SetWindowSize( 1080, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 720 ) // 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 newTween as integer 
newTween = createTweenSprite(0.5)

SetVSync(1)

SetClearColor(43, 178, 233)

global gTension as float = 0.05
global gDampening as float = 0.02
global gSpread  as float = 0.25

type tColumn
	targetHeight as float
	height as float
	speed as float
	id as integer
	x as float
endtype

columns as tColumn[]

//Actot
CreateSprite(1, 0)
SetSpriteSize(1, 70, 125)
SetSpriteOffset(1 , GetSpriteWidth(1)/2, GetSpriteHeight(1)/2)
setspritephysicsOn(1, 2)	
SetSpritePhysicsCanRotate(1, 0)
#constant    KEY_1            49
#constant    KEY_2            50

//Water
InitializeColumns(columns)

//Ground
CreateSprite(2, 0)
SetSpriteSize(2, 800, 180)
SetSpritePosition(2, columns[columns.length].x, 580)
setspritephysicsOn(2, 1)
SetSpriteColor(2, 0, 181, 0, 255)

do	
	
	x = GetSpriteXByOffset(1)
	y = GetSpriteYByOffset(1) + (GetSpriteHeight(1)/2)
	if GetSpriteHit(x, y) > 0 and GetSpriteHit(x, y) <> 1 and (y < 660 and y > 620)
		Splash(columns, x, y)
	endif

Print ( "Frame rate = " + str ( screenFPS ( ) ) )
	
	// A W D
	if GetRawKeyState(68)
		if not GetSpritePhysicsVelocityX(1) > 260
			SetSpritePhysicsVelocity(1, 250, GetSpritePhysicsVelocityY(1))
		endif
	elseif GetRawKeyState(65) 
		if not GetSpritePhysicsVelocityX(1) < -260
			SetSpritePhysicsVelocity(1, -250, GetSpritePhysicsVelocityY(1))
		endif
	endif
	if GetRawKeyPressed(87) 
		SetSpritePhysicsImpulse(1, 0, 0, 0, -650)
	endif
	
	// Change FPSs
	if GetRawKeyPressed(KEY_1)
		SetVSync(1)
	endif
	if GetRawKeyPressed(KEY_2)
		SetSyncRate(0, 1)
	endif
	
	SetSpritePosition(1, GetPointerX(), GetPointerY())
	
	CreateRipple(columns)
	UpdateAllTweens(GetFrameTime())
    Sync()
loop

function Splash(columns ref as tColumn[], x as integer, y as integer)
	i as integer
	id as integer
	
	for i = 0 to columns.length - 1
		if GetSpriteXByOffset(columns[i].id) > x
			exit
		endif
	next
	
	 columns[i-1].Speed = (y - columns[i].targetHeight)
	 columns[i].Speed = (y - columns[i].targetHeight) 
	 
     if columns.length > i+1
		columns[i+1].Speed = y - columns[i].targetHeight 
     endif
endfunction

function CreateRipple(columns ref as tColumn[])
	i as integer : j as integer
	for i=0 to columns.length
		UpdateColumn(columns[i])
	next
	
	lDeltas as float[] : lDeltas.length = columns.length
	rDeltas as float[] : rDeltas.length = columns.length
	
	// do some passes where columns pull on their neighbours
	for j = 0 to 7
		for i=0 to columns.length
			if i > 0
				lDeltas[i] = gSpread * (columns[i].height - columns[i - 1].height)
				inc columns[i - 1].Speed, lDeltas[i]
			endif
			if i < columns.Length
				rDeltas[i] = gSpread * (columns[i].Height - columns[i + 1].Height)
				inc columns[i + 1].Speed, rDeltas[i]
			endif
		next

for i = 0 to columns.length
			if i > 0 then inc columns[i - 1].Height, lDeltas[i]
			if i < columns.Length then inc columns[i + 1].Height, rDeltas[i]
		next
	next
endfunction

function UpdateColumn(column ref as tColumn)
	yOrg as float
    y as float
    yOrg = getSpriteYByOffset(column.id)
    y = column.targetHeight - column.height
    inc column.speed, gTension * y - column.speed * gDampening
    inc column.height, column.speed * GetFrameTime()
	SetTweenSpriteYByOffset(newTween, yOrg, y, tweenSmooth1()) // tween type coyld change and you can create a costume one...
    PlayTweenSprite(newTween, column.id, 0.0)
endfunction

function InitializeColumns(columns ref as tColumn[])
	i as integer
	c as tColumn
	s as float
	LoadImage(50, "waterTexture.png")
	s = GetVirtualWidth() / (GetVirtualWidth()/5 + 0.0)
	
	for i=0 to 150 //columns.length
		c.height = 620
		c.targetHeight = 620 		
		c.speed = 0
		c.x = (s * i)
		
		c.id = CreateSprite(0)
		SetSpriteSize(c.id, 5, 400)
		SetSpriteOffset(c.id,5,0)
		SetSpriteImage(c.id, 50)
		SetSpritePositionByOffset(c.id, c.x, 240)
		columns.insert(c)		
	next
endfunction

+ Code Snippet


SetErrorMode(2)

// set window properties
SetWindowTitle( "Water" )
SetWindowSize( 1080, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 720 ) // 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 newTween as integer 
newTween = createTweenSprite(0.5)

SetVSync(1)

SetClearColor(43, 178, 233)

global gTension as float = 0.05
global gDampening as float = 0.02
global gSpread  as float = 0.25

type tColumn
	targetHeight as float
	height as float
	speed as float
	id as integer
	x as float
endtype

columns as tColumn[]	

//Actot
CreateSprite(1, 0)
SetSpriteSize(1, 70, 125)
SetSpriteOffset(1 , GetSpriteWidth(1)/2, GetSpriteHeight(1)/2)
setspritephysicsOn(1, 2)	
SetSpritePhysicsCanRotate(1, 0)
#constant    KEY_1            49
#constant    KEY_2            50

//Water
InitializeColumns(columns)

//Ground
CreateSprite(2, 0)
SetSpriteSize(2, 800, 180)
SetSpritePosition(2, columns[columns.length].x, 580)
setspritephysicsOn(2, 1)
SetSpriteColor(2, 0, 181, 0, 255)

do	
	
	x = GetSpriteXByOffset(1)
	y = GetSpriteYByOffset(1) + (GetSpriteHeight(1)/2)
	if GetSpriteHit(x, y) > 0 and GetSpriteHit(x, y) <> 1 and (y < 660 and y > 620)
		Splash(columns, x, y)
	endif	

	Print ( "Frame rate = " + str ( screenFPS ( ) ) )
	
	// A W D
	if GetRawKeyState(68)
		if not GetSpritePhysicsVelocityX(1) > 260
			SetSpritePhysicsVelocity(1, 250, GetSpritePhysicsVelocityY(1))
		endif
	elseif GetRawKeyState(65) 
		if not GetSpritePhysicsVelocityX(1) < -260
			SetSpritePhysicsVelocity(1, -250, GetSpritePhysicsVelocityY(1))
		endif
	endif
	if GetRawKeyPressed(87) 
		SetSpritePhysicsImpulse(1, 0, 0, 0, -650)
	endif
	
	// Change FPSs
	if GetRawKeyPressed(KEY_1)
		SetVSync(1)
	endif
	if GetRawKeyPressed(KEY_2)
		SetSyncRate(0, 1)
	endif
	
	SetSpritePosition(1, GetPointerX(), GetPointerY())
	
	CreateRipple(columns)
	UpdateAllTweens(GetFrameTime())
    Sync()
loop

function Splash(columns ref as tColumn[], x as integer, y as integer)
	i as integer
	id as integer
	
	for i = 0 to columns.length - 1
		if GetSpriteXByOffset(columns[i].id) > x
			exit
		endif
	next
	
	 columns[i-1].Speed = (y - columns[i].targetHeight)
	 columns[i].Speed = (y - columns[i].targetHeight) 
	 
     if columns.length > i+1
		columns[i+1].Speed = y - columns[i].targetHeight 
     endif
endfunction

function CreateRipple(columns ref as tColumn[])
	i as integer : j as integer
	for i=0 to columns.length
		UpdateColumn(columns[i])
	next
	
	lDeltas as float[] : lDeltas.length = columns.length
	rDeltas as float[] : rDeltas.length = columns.length
	
	// do some passes where columns pull on their neighbours
	for j = 0 to 7
		for i=0 to columns.length
			if i > 0
				lDeltas[i] = gSpread * (columns[i].height - columns[i - 1].height)
				inc columns[i - 1].Speed, lDeltas[i]
			endif
			if i < columns.Length
				rDeltas[i] = gSpread * (columns[i].Height - columns[i + 1].Height)
				inc columns[i + 1].Speed, rDeltas[i]
			endif
		next

		for i = 0 to columns.length
			if i > 0 then inc columns[i - 1].Height, lDeltas[i]
			if i < columns.Length then inc columns[i + 1].Height, rDeltas[i]
		next
	next
endfunction


function UpdateColumn(column ref as tColumn)
	yOrg as float
    y as float
    yOrg = getSpriteYByOffset(column.id)
    y = column.targetHeight - column.height
    inc column.speed, gTension * y - column.speed * gDampening
    inc column.height, column.speed * GetFrameTime()
	SetTweenSpriteYByOffset(newTween, yOrg, y, tweenSmooth1()) // tween type coyld change and you can create a costume one...
    PlayTweenSprite(newTween, column.id, 0.0)
endfunction




function InitializeColumns(columns ref as tColumn[])
	i as integer
	c as tColumn
	s as float
	LoadImage(50, "waterTexture.png")
	s = GetVirtualWidth() / (GetVirtualWidth()/5 + 0.0)
	
	for i=0 to 150 //columns.length
		c.height = 620
		c.targetHeight = 620 		
		c.speed = 0
		c.x = (s * i)
		
		c.id = CreateSprite(0)
		SetSpriteSize(c.id, 5, 400)
		SetSpriteOffset(c.id,5,0)
		SetSpriteImage(c.id, 50)
		SetSpritePositionByOffset(c.id, c.x, 240)
		columns.insert(c)		
	next
endfunction

Back to top

Profile PM

haliop787

4

Years of Service

User Offline

Joined: 22nd Mar 2020

Playing: With reality.

Posted: 27th Aug 2020 07:48

Link

Hmm i dont really understand this picture, can you upload a vid or a gif ?

Nadav "Haliop" Rosenberg
Lets make the world great forever.

Back to top

Profile PM

brunuu

6

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 27th Aug 2020 12:54

Link

The water sprite gets stuck up there and does nothing else, but I managed to get around it.
By changing a few things here.

+ Code Snippet

function UpdateColumn(column ref as tColumn)
	yOrg as float
    y as float
    yOrg = getSpriteYByOffset(column.id)
    y = column.targetHeight - column.height
    inc column.speed, gTension * y - column.speed * gDampening
    inc column.height, column.speed * GetFrameTime() * 100
    newTween = createTweenSprite(0.5)
	SetTweenSpriteYByOffset(newTween, yOrg, column.height, tweenSmooth1()) // tween type coyld change and you can create a costume one...
    PlayTweenSprite(newTween, column.id, 0)
    //DeleteTween(newTween)
endfunction

But it still has the problem of accelerating with frame rate.

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / Water Wave Physics 2d