From 8cedcf005c3b816c6bfa714751a3955dfd01f8ec Mon Sep 17 00:00:00 2001 From: rexim Date: Fri, 15 Mar 2024 02:12:09 +0700 Subject: Add square easing to Interpolate_Positions --- game.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/game.adb b/game.adb index 7e827e7..bcf0fff 100644 --- a/game.adb +++ b/game.adb @@ -675,7 +675,7 @@ procedure Game is Prev_Position: constant Vector2 := To_Vector2(IPrev_Position)*Cell_Size; Curr_Position: constant Vector2 := To_Vector2(IPosition)*Cell_Size; begin - return Prev_Position + (Curr_Position - Prev_Position)*C_Float(1.0 - T); + return Prev_Position + (Curr_Position - Prev_Position)*C_Float(1.0 - T*T); end; Space_Down: Boolean := False; -- cgit v1.2.3