add functionality to flip drawing horizontally

2025-08-12 22:25:16 +01:00
parent 55fe9b7605
commit 4a9b5947e7
9 changed files with 32 additions and 2 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -180,6 +180,10 @@ struct
      key = Input.KEY_M () andalso action = Input.PRESS () andalso mods = 0
    then
      Mailbox.send (mailbox, KEY_M)
+    else if
+      key = Input.KEY_F () andalso action = Input.PRESS () andalso mods = 0
+    then
+      Mailbox.send (mailbox, KEY_F)
    else
      ()