Fix setpagedevice for landscape mode.

This commit is contained in:
Dianne Skoll
2021-01-05 17:23:47 -05:00
parent 2e3ed09039
commit e3d6b283c5
2 changed files with 7 additions and 3 deletions

View File

@@ -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)

View File

@@ -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.