From 202dac1dad3d86960af49d38eff0c690bf932a2c Mon Sep 17 00:00:00 2001 From: Mikkel Thestrup Date: Thu, 25 Dec 2025 15:26:43 +0100 Subject: Feat(CircleThatMoves): Added horizontal movement --- app/Example/CircleThatMoves.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'app/Example/CircleThatMoves.hs') diff --git a/app/Example/CircleThatMoves.hs b/app/Example/CircleThatMoves.hs index 9d9aa8b..d173a3d 100644 --- a/app/Example/CircleThatMoves.hs +++ b/app/Example/CircleThatMoves.hs @@ -16,4 +16,12 @@ circSprite = NewSprite ( OnTargetReached s (\cl -> SetTarget s (nextCell D cl) (Pure ())) $ Pure () ) + $ OnKeyEvent (Char 'a') + ( OnTargetReached s + (\cl -> SetTarget s (nextCell L cl) (Pure ())) + $ Pure () ) + $ OnKeyEvent (Char 'd') + ( OnTargetReached s + (\cl -> SetTarget s (nextCell R cl) (Pure ())) + $ Pure () ) $ Pure ()) -- cgit v1.2.3-70-g09d2