latex-style-esdpx/xespdfreesize.sty

% Copyright 2006 Konstantin Korikov <lostclus@ua.fm>
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2003/12/01 or later.
%
% This work has the LPPL maintenance status "maintained".
% 
% This Current Maintainer of this work is Konstantin Korikov.
%
% This work consists of all files listed in manifest.txt.
%

% Пакет предоставляет возможность вставки листа
% почти любого размера (ограничения описаны в руководстве
% пользователя xespdx):


%
% This is automaticaly generated file, do not edit it.
%

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{xespdfreesize}[2020/03/20 v1.00 Inserting Free Size Sheets]

\RequirePackage{xespdstamp}
 
% переключение размера возможно только в pdflatex.
% Tем не менее, latex тоже сможет собрать такой документ, 
% но все большие страницы
% обрежет по размерам формата, установленного в documentclass
\RequirePackage{ifpdf}
\ifpdf{}
\else{\PackageWarningNoLine{xespdfreesize}
  {It's better to compile this document with pdflatex.\MessageBreak
  In DVI you will get only part of the inserted big sheet}}
\fi

% в xespdstamp для ускорения отрисовки рамки применен \savebox
% в нашем случае это неудобно, будем рисовать персонально
% на каждой странице
\newcommand{\XESPDdrawFrameFree}{%
  \put(\XESPDltu{\XESPDframeX},\XESPDltu{\XESPDframeY}){%
    \setlength{\unitlength}{1mm}%
  \begin{picture}(0,0)(0,0)
  \linethickness{\XESPDlineThick}
  \put(0,\XESPDltu{\XESPDframeH}){\line(1,0){\XESPDltu{\XESPDframeW}}}
  \put(0,0){\line(1,0){\XESPDltu{\XESPDframeW}}}
  \put(0,0){\line(0,1){\XESPDltu{\XESPDframeH}}}
  \put(\XESPDltu{\XESPDframeW},0){\line(0,1){\XESPDltu{\XESPDframeH}}}
  \end{picture}}}
  
% содержимое нестандартной графы 32 по умолчанию
\newcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDemptyFormatName}}

% определим нашу собственную нестандартную графу 32
\newcommand{\XESPDdrawColumnXXXIIfree}{%
  \setlength{\XESPD@tmpdima}{\XESPDframeX+\XESPDframeW-50mm}%
  \setlength{\XESPD@tmpdimb}{\XESPDframeY-3.7mm}%
  \put(\XESPDltu{\XESPD@tmpdima},\XESPDltu{\XESPD@tmpdimb}){%
    \makebox[50mm][r]{\XESPDfontIII\XESPDtheColumnXXXIIfree}}}

% Определим новый стиль. Подробнее про определение своих стилей
% можно прочитать в руководстве пользователя xespdx,
% или заглянуть в xespdstamp.sty,
% кусок оттуда был использован как основа для стиля freesize
\XESPDnewStyle{freesize}{8mm}
\@ifpackageloaded{xespdplain}{
  \XESPDputOnStyle{freesize}{pagenumber}{\XESPDdrawPlainPageNumber}}
{
  \XESPDputOnStyle{freesize}{frame}{\XESPDdrawFrameFree}
  \XESPDputOnStyle{freesize}{stamp}{\XESPDdrawStampIIa}
  \ifXESPD@enable@columns@xix
    \XESPDputOnStyle{freesize}{columnsxix}{\XESPDdrawColumnsXIX}
  \fi
  \ifXESPD@enable@column@xxvi
    \@ifclassloaded{xespdgraph}{% графа 26 нужна только для чертежей
      \XESPDputOnStyle{freesize}{columnxxvi}{\XESPDdrawColumnXXVI}}
  \fi
  \ifXESPD@enable@column@xxxii
    % наша новая графа 32
    \XESPDputOnStyle{freesize}{columnxxxii}{\XESPDdrawColumnXXXIIfree}
  \fi
  \ifXESPD@enable@column@xxxiii
    \XESPDputOnStyle{freesize}{columnxxxiii}{\XESPDdrawColumnXXXIII}
  \fi
  \ifXESPD@enable@column@xxxiv
    \XESPDputOnStyle{freesize}{columnxxxiv}{\XESPDdrawColumnXXXIV}
  \fi
  \ifXESPD@zonelabels%
    \XESPDputOnStyle{freesize}{zonelabels}{\XESPDdrawZoneLabelsI}
  \fi}

% вспомогательные счетчики для записей в лог
\newcounter{XESPD@free@sizepagebegin}
\newcounter{XESPD@free@sizepageend}

% теперь самое сложное - сам переключатель
\newcommand{\XESPDfreeSize}[3]{%
  \@ifundefined{XESPD@no@specii@sizes}{}{\XESPD@no@specii@sizes}% для нормальной работы с плазовой спецификацией
  \XESPDclearDoublePage%
  \setcounter{XESPD@free@sizepagebegin}{\value{page}}% запомним текущую страницу
  \pdfpagewidth=#1%
  \pdfpageheight=#2%
  \setlength{\XESPD@origin@y}{#2-1in}%
  \setlength{\XESPDframeW}{\pdfpagewidth-\XESPD@margin@si-\XESPD@margin@so}%
  \setlength{\XESPDframeH}{\pdfpageheight-\XESPD@margin@t-\XESPD@margin@b}%
  \XESPDstyle{freesize}%
  \expandafter{#3}%
  % зафиксируем факт вставки листа в \jobname.log
  \XESPDclearDoublePage%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDemptyFormatName}}% сброс графы 32
  \setcounter{XESPD@free@sizepageend}{\value{page}}%
  \addtocounter{XESPD@free@sizepageend}{-1}%
  \ifthenelse{\value{XESPD@free@sizepagebegin}<\value{XESPD@free@sizepageend}}% латех начал новую страницу
    {\immediate\write0{xespdfreesize: sheet(s) with size (#1 x #2) inserted 
      at page(s) \noexpand[\arabic{XESPD@free@sizepagebegin}%
      -\arabic{XESPD@free@sizepageend}\noexpand]}}
    {\immediate\write0{xespdfreesize: sheet(s) with size (#1 x #2) inserted 
      at page(s) \noexpand[\arabic{XESPD@free@sizepageend}\noexpand]}}
  % теперь вернем всё как было до нас
  \setlength{\XESPD@origin@y}{\paperheight-1in}%
  \pdfpageheight=\paperheight%
  \pdfpagewidth=\paperwidth%
  \setlength{\XESPDframeW}{\paperwidth-\XESPD@margin@si-\XESPD@margin@so}%
  \setlength{\XESPDframeH}{\paperheight-\XESPD@margin@t-\XESPD@margin@b}%
  \XESPDstyle{\XESPD@default@style@other}%
  \newpage%
}


% Определим несколько готовых к употреблению форматов
\newcommand{\XESPDlandscapeAIV}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa4FormatName}}%
  \XESPDfreeSize{297mm}{210mm}{#1}}

\newcommand{\XESPDportraitAIV}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa4FormatName}}%
  \XESPDfreeSize{210mm}{297mm}{#1}}

\newcommand{\XESPDlandscapeAIII}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa3FormatName}}%
  \XESPDfreeSize{420mm}{297mm}{#1}}

\newcommand{\XESPDportraitAIII}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa3FormatName}}%
  \XESPDfreeSize{297mm}{420mm}{#1}}

\newcommand{\XESPDlandscapeAII}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa2FormatName}}%
  \XESPDfreeSize{594mm}{420mm}{#1}}

\newcommand{\XESPDportraitAII}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa2FormatName}}%
  \XESPDfreeSize{420mm}{594mm}{#1}}

\newcommand{\XESPDlandscapeAI}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa1FormatName}}%
  \XESPDfreeSize{841mm}{594mm}{#1}}

\newcommand{\XESPDportraitAI}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa1FormatName}}%
  \XESPDfreeSize{594mm}{841mm}{#1}}

\newcommand{\XESPDlandscapeAZERO}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa0FormatName}}%
  \XESPDfreeSize{1189mm}{841mm}{#1}}

\newcommand{\XESPDportraitAZERO}[1]{%
  \renewcommand\XESPDtheColumnXXXIIfree{\@nameuse{XESPDa0FormatName}}%
  \XESPDfreeSize{841mm}{1189mm}{#1}}
  
\newcommand{\XESPDlandscapeBanner}[1]{%
  % Пятиметровое полотно для подшивки гармошкой в обычную папку А4.
  % Просто для демонстрации
  \XESPDfreeSize{5000mm}{297mm}{#1}}