From 06d8a853990bc8805744dad1be9b22ad29b87723 Mon Sep 17 00:00:00 2001
From: Matthew Hague <matthew.hague@rhul.ac.uk>
Date: Tue, 21 Nov 2023 15:52:01 +0000
Subject: [PATCH] Add slide up command

---
 lib/slide_helper.rb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/slide_helper.rb b/lib/slide_helper.rb
index fcc8d64..df237a8 100644
--- a/lib/slide_helper.rb
+++ b/lib/slide_helper.rb
@@ -214,6 +214,8 @@ module SlideHelper
                 output += impress_slide_left(args) + "\n"
             when '!SLIDE_DOWN'
                 output += impress_slide_down(args) + "\n"
+            when '!SLIDE_UP'
+                output += impress_slide_up(args) + "\n"
             when '!SLIDE_MOVE'
                 output += impress_slide_move(args) + "\n"
             when '!SLIDE_SCALE_LEFT'
@@ -306,6 +308,11 @@ module SlideHelper
         impress_make_slide(args)
     end
 
+    def impress_slide_up(args)
+        @@pos.y -= impress_vert_mov_unit()
+        impress_make_slide(args)
+    end
+
     def impress_slide_move(args)
         argv = args.split
         rx, ry = argv[0..1].map {|v| v.to_f}
-- 
GitLab