Сначала вы должны обновить свою версию Ghostscript. 9.25 устарела и имеет уязвимости в безопасности.
Во-вторых, вам нужно просмотреть записи / Orientation и / PageSize в словаре устройства страницы. Не только это, но вы должны использовать PageSize, чтобы определить перевод, который вы используете для своей «корректировки». Если вы не находитесь в фиксированном рабочем процессе (и это кажется маловероятным, если вы получаете файлы со смешанной ориентацией), то не следует полагать, что носитель имеет формат A4.
Интерпретатор PDF Ghostscript просматривает MediaBox на каждой странице PDF файл и сбрасывает / PageSize в словаре устройства страницы, чтобы соответствовать MediaBox для страницы. Он (IIR C) никогда не установит / Orientation, если на странице PDF есть запись / Rotate, которая применяется к MediaBox и содержимому страницы.
Так что вам действительно нужно просто посмотреть на ширину и высоту запрошенного носителя, который задается массивом / PageSize в словаре устройства страницы.
Теперь, сказав это ....
Вы говорите, что «даже для страницы в ландшафтном режиме ширина меньше высоты '. Это кажется мне маловероятным, но в отсутствие примера трудно сказать. Кроме того, кому-то сложно давать какие-либо советы.
Я бы посоветовал вам загрузить пример где-нибудь и опубликовать здесь URL, чтобы мы могли посмотреть файл.
О и я действительно рекомендую, чтобы вы не отправляли выходной файл на стандартный вывод. Это может быть удобно для вас, но есть уже определенные функции устройства pdfwrite, которые просто не будут работать, если вы сделаете это (для них требуется, чтобы выходной файл был доступен для поиска), и в будущем может быть больше случаев.
[править]
Ваша проблема в порядке исполнения. Программа в script.ps запускается до интерпретации PDF-файла, затем интерпретируется PDF-файл.
Когда все, что делает ваша программа, это установка процедуры EndPage в словаре устройства страницы, который не проблема, изменения в словаре устройства страницы являются консервативными, они накапливаются, если не перезаписаны.
Так что тот факт, что в ходе интерпретации файла PDF происходят изменения в словаре устройства страницы, не имеет значения (если которые каким-то образом изменили процедуру EndPage).
Но во время работы вашей программы словарь устройства страницы / ключ PageSize имеет ассоциированное значение, которое представляет собой массив, содержащий размер по умолчанию *1032* media size (потому что ничего не произошло, чтобы изменить это еще). Запись PageSize не будет изменена, пока файл PDF не будет интерпретирован. Это означает, что независимо от того, какой размер носителя используется в вашем PDF-файле, ваша программа всегда будет возвращать размер носителя по умолчанию.
Вам необходимо знать фактический размер страницы во время выполнения процедуры EndPage. Поэтому вам нужно исследовать текущий PageSize как часть процедуры EndPage.
Что-то вроде:
<<
/EndPage
{
2 eq { pop false }
{
% Get the current page device dictionary and extract the PageSize
currentpagedevice /PageSize get
% Load the values from the array onto the stack
% and discard the array copy returned by the aload operator
aload pop
% If width < height (or equal, square page)
le {
% Handle a portrait page
} {
% Handle a landscape page
} ifelse
}ifelse
} bind
>> setpagedevice
Обратите внимание, что это позволяет избежать создания словарной записи для хранения ширина страницы и высота. Для этого есть несколько причин:
Во-первых, ширина и высота могут быть разными для каждой страницы (особенно в файле PDF).
Во-вторых, вы (в своей программе) не создаете Ваш собственный словарь для хранения этих пар ключ / значение, что означает, что вы используете любой словарь, активный в данный момент. Хотя это в некотором роде приемлемо, как вы это делаете в настоящее время, поскольку userdict будет активен в начале программы, вы не можете узнать, какой словарь находится над стеком словарей при вызове EndPage. Так что просто вставлять значения в любой словарь, который окажется верхним, небезопасно, в итоге вы можете перезаписать ключи с одинаковым именем, что приведет к непредсказуемым побочным эффектам. Аналогично (в соответствии с приведенной ниже ориентацией), если текущий словарь не содержит этих ключей, вы получите неопределенную ошибку. Так что сейчас тебе это удается благодаря удаче.
В-третьих, в PostScript обычно считается лучшей практикой использование стека для временного хранения, а не создание пар ключ / значение в словарях.
По двум последним причинам я настоятельно рекомендую вместо создания ключ с именем stringholder (как в настоящее время делает ваша программа) в любом словаре, который находится на вершине стека словаря в начале программы, и, предполагая, что он будет доступен во время процедуры EndPage, вместо этого вам следует просто создать временную строку вместо этого используйте 10 string.
Например:
/Times-Roman 9 selectfont
30 5 moveto
pagewidth
stringHolder cvs
show
станет:
/Times-Roman 9 selectfont
30 5 moveto
currentpagedevice /PageSize get 0 get
256 string cvs
show
10 цифр, возможно, немного мало, 256 должно быть достаточно для любого и строка будет собирать мусор, поэтому вы не будете терять память или что-то в этом роде.
Что касается ориентации; да, вы правы, и, как я уже говорил, интерпретатор PDF не устанавливает ориентацию в словаре устройства страницы. Если вы попытаетесь get ключ из словаря, который не содержит этот ключ, то вы получите неопределенную ошибку. Если вы не уверены, существует ли ключ в словаре, вам следует сначала проверить его с помощью оператора known.
[EDIT 2]
Как отмечено в комментариях ниже ... Это возможно проверить ориентацию CTM с помощью оператора transform и единичного вектора. Если одна или обе координаты, полученные в результате transform, являются отрицательными, то в CTM участвует вращение, и, изучая знак каждой координаты, мы можем определить, в каком квадранте заканчивается вращение.
Для целей флага / Rotate в PDF этого достаточно, поскольку его можно указывать только с шагом 90 градусов. Вот пример функции, которая определяет вращение, и простой фрагмент PostScript для его осуществления:
%!PS
/R {
1 1 transform
0 ge {
0 ge {
(no rotation\n) print
} {
(90 degree ccw rotation\n) print
} ifelse
} {
0 ge {
(270 ccw rotation\n) print
} {
(180 ccw rotation\n) print
} ifelse
} ifelse
} bind def
R
gsave
90 rotate R
grestore
gsave
180 rotate R
grestore
gsave
270 rotate R
grestore
gsave
360 rotate R
grestore
Можно использовать эту технику, чтобы решить, был ли повернут исходный файл, и затем выбрать иметь процедура EndPage ведет себя по-другому.