From e3d6b283c57e9765f3525de67410bc1f48cf2598 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Tue, 5 Jan 2021 17:23:47 -0500
Subject: [PATCH] Fix setpagedevice for landscape mode.

---
 src/rem2ps.c   | 6 +++++-
 tests/test.cmp | 4 ++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/rem2ps.c b/src/rem2ps.c
index 0fc1531a..332ff3db 100644
--- a/src/rem2ps.c
+++ b/src/rem2ps.c
@@ -590,7 +590,11 @@ void WriteProlog(void)
     printf("%%%%Pages: (atend)\n");
     printf("%%%%Orientation: %s\n", PortraitMode ? "Portrait" : "Landscape");
     printf("%%%%EndComments\n");
-    printf("<< /PageSize [%d %d] >> setpagedevice\n", x, y);
+    if (PortraitMode) {
+        printf("<< /PageSize [%d %d] >> setpagedevice\n", x, y);
+    } else {
+        printf("<< /PageSize [%d %d] >> setpagedevice\n", y, x);
+    }
 
     for (i=0; PSProlog1[i]; i++) puts(PSProlog1[i]);
     if (!MondayFirst)
diff --git a/tests/test.cmp b/tests/test.cmp
index 84665bc3..71941e57 100644
--- a/tests/test.cmp
+++ b/tests/test.cmp
@@ -4392,7 +4392,7 @@ No reminders.
 %%Pages: (atend)
 %%Orientation: Landscape
 %%EndComments
-<< /PageSize [792 612] >> setpagedevice
+<< /PageSize [612 792] >> setpagedevice
 % This file was produced by Remind and Rem2PS, written by
 % Dianne Skoll.
 % Remind and Rem2PS are Copyright 1992-2020 Dianne Skoll.
@@ -5496,7 +5496,7 @@ showpage
 %%Pages: (atend)
 %%Orientation: Landscape
 %%EndComments
-<< /PageSize [792 612] >> setpagedevice
+<< /PageSize [612 792] >> setpagedevice
 % This file was produced by Remind and Rem2PS, written by
 % Dianne Skoll.
 % Remind and Rem2PS are Copyright 1992-2020 Dianne Skoll.