From 9f1e7d5b7f00b09872e632d69771898ed3e812ab Mon Sep 17 00:00:00 2001
From: Matthew Hague <matthew.hague@rhul.ac.uk>
Date: Mon, 11 Oct 2021 15:11:07 +0100
Subject: [PATCH] Add SLIDE_RIGHT

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

diff --git a/lib/slide_helper.rb b/lib/slide_helper.rb
index 801a1f2..a0ac656 100644
--- a/lib/slide_helper.rb
+++ b/lib/slide_helper.rb
@@ -21,6 +21,7 @@
 # SLIDE_SCALE_LEFT allows the distance left to be scaled (e.g. half
 # normal distance)
 #
+# !SLIDE_RIGHT args
 # !SLIDE_LEFT args
 # !SLIDE_DOWN args
 # !SLIDE_SCALE_LEFT .5 args
@@ -199,6 +200,8 @@ module SlideHelper
                 output += impress_scale_relative(args) + "\n"
             when '!SLIDE_HERE'
                 output += impress_make_slide(args) + "\n"
+            when '!SLIDE_RIGHT'
+                output += impress_slide_right(args) + "\n"
             when '!SLIDE_LEFT'
                 output += impress_slide_left(args) + "\n"
             when '!SLIDE_DOWN'
@@ -277,6 +280,11 @@ module SlideHelper
         ""
     end
 
+    def impress_slide_right(args)
+        @@pos.x -= impress_horiz_mov_unit()
+        impress_make_slide(args)
+    end
+
     def impress_slide_left(args)
         @@pos.x += impress_horiz_mov_unit()
         impress_make_slide(args)
-- 
GitLab