summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/calendar/hpplotsz.sty
blob: cb8e17f5a4ae2eec85782325aee27cae90c8b22a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
\NeedsTeXFormat{LaTeX2e}[1995/06/01]
\ProvidesPackage{hpplotsz}
          [1997/11/07 Custom page sizes with HP 6xx series plotters (Frank Bennett)]
\newlength\hps@templen
\newwrite\hps@pagesizeheader
\newcount\hps@orientation
\def\hps@@strip#1.#2\end{#1}
\def\hps@strip#1{\expandafter\hps@@strip\the#1\end}
\def\sethpplotsize{%
  \ifnum\hsize>\vsize\hps@orientation=3\else\hps@orientation=0\fi
  \immediate\openout\hps@pagesizeheader=./\jobname.hps
  \immediate\write\hps@pagesizeheader{%
    <</PageSize [\hps@strip\paperwidth\space\hps@strip\paperheight] /Orientation \the\hps@orientation>>setpagedevice}
  \immediate\closeout\hps@pagesizeheader}