%\iffalse (Meta-Kommentar)
% Eine Klasse zur Erstellung von Tibetischen Texten mit \TibTeX
% \fi
% \title{Eine \LaTeX2e~Klasse zur Erstellung tibetischer Texte mit \TibTeX}
% \author{Dieter J�ger}
% Version 0.1 - 10.11.2004
% Copyright 2004 by Dieter J�ger
% License: GPL
\ProvidesClass{pecha}[2004/11/10 v0.1 Tibetan Pecha document class]
\NeedsTeXFormat{LaTeX2e}
% Tibetan language package
\RequirePackage{ctib}
% This is needed to be able to do the margin texts
\RequirePackage{rotating}
% Set page dimensons
% All the page sizes from the standard classes
% But a5 or b5 may not be very usefull
\DeclareOption{a4pecha3}
{\setlength\paperwidth {297mm}
\setlength\paperheight {70mm}}
\DeclareOption{a4pecha2}
{\setlength\paperwidth {297mm}
\setlength\paperheight {140mm}}
\DeclareOption{a4paper}
{\setlength\paperwidth {297mm}%
\setlength\paperheight {210mm}}
\DeclareOption{a5pecha3}
{\setlength\paperwidth {210mm}%
\setlength\paperheight {47mm}}
\DeclareOption{a5pecha2}
{\setlength\paperwidth {210mm}%
\setlength\paperheight {74mm}}
\DeclareOption{a5paper}
{\setlength\paperwidth {210mm}%
\setlength\paperheight {148mm}}
\DeclareOption{b5pecha3}
{\setlength\paperwidth {250mm}%
\setlength\paperheight {49.3mm}}
\DeclareOption{b5pecha2}
{\setlength\paperwidth {250mm}%
\setlength\paperheight {74mm}}
\DeclareOption{b5pecha3}
{\setlength\paperwidth {250mm}%
\setlength\paperheight {58.67mm}}
\DeclareOption{b5pecha2}
{\setlength\paperwidth {250mm}%
\setlength\paperheight {88mm}}
\DeclareOption{b5paper}
{\setlength\paperwidth {250mm}%
\setlength\paperheight {176mm}}
\DeclareOption{letterpecha3}
{\setlength\paperwidth {11in}%
\setlength\paperheight {2.83in}}
\DeclareOption{letterpecha2}
{\setlength\paperwidth {11in}%
\setlength\paperheight {4.25in}}
\DeclareOption{letterpaper}
{\setlength\paperwidth {11in}%
\setlength\paperheight {8.5in}}
\DeclareOption{legalpecha3}
{\setlength\paperwidth {14in}%
\setlength\paperheight {2.83in}}
\DeclareOption{legalpecha2}
{\setlength\paperwidth {14in}%
\setlength\paperheight {4.25in}}
\DeclareOption{legalpaper}
{\setlength\paperwidth {14in}%
\setlength\paperheight {8.5in}}
\DeclareOption{executivepaper}
{\setlength\paperwidth {10.5in}%
\setlength\paperheight {2.42in}}
\DeclareOption{executivepaper}
{\setlength\paperwidth {10.5in}%
\setlength\paperheight {3.625in}}
\DeclareOption{executivepaper}
{\setlength\paperwidth {10.5in}%
\setlength\paperheight {7.25in}}
% This is from the book class
% May be changed in future ...
\newcommand\@ptsize{0}
\DeclareOption{8pt}{\renewcommand\@ptsize{8}}
\DeclareOption{9pt}{\renewcommand\@ptsize{9}}
\DeclareOption{10pt}{\renewcommand\@ptsize{0}}
\DeclareOption{11pt}{\renewcommand\@ptsize{1}}
\DeclareOption{12pt}{\renewcommand\@ptsize{2}}
\@lowpenalty 51
\@medpenalty 151
\@highpenalty 301
%\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
%\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
%\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
%\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
%\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
%\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
%\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
%\DeclareRobustCommand*\cal{\@fontswitch\relax\mathcal}
%\DeclareRobustCommand*\mit{\@fontswitch\relax\mathnormal}
% option "rotate", standard: do not do that
% If set the class will rotate the even pages by 180 degrees
\newif\if@pecharotate
\@pecharotatefalse
% standard page frame, using double lines
\def\@pageframe#1{\@doubleframe{#1}}
\newif\if@fsingle
\@fsinglefalse
\newif\if@ffancy
\@ffancyfalse
\newlength\@rulers
\DeclareOption{rotate}{\@pecharotatetrue}
\DeclareOption{fancyframe}{
\global\@fsingletrue\global\@ffancytrue
\global\def\@pageframe#1{\@fancyframe{#1}}
}
\DeclareOption{doubleframe}{\@fsinglefalse \global\@rulers=9.2pt \global\def\@pageframe#1{\@doubleframe{#1}}}
\DeclareOption{simplefram}{\global\@rulers=1.6pt \global\def\@pageframe#1{\@fsingletrue \@singleframe{#1}}}
% The pageheight can be adjusted a little bit
\newlength\pecha@pheight
\DeclareOption{narrowpage}{\setlength\pecha@pheight{26ex}}
\DeclareOption{mediumpage}{\setlength\pecha@pheight{28ex}}
\DeclareOption{widepage}{\setlength\pecha@pheight{33ex}}
\DeclareOption{extrawide}{\setlength\pecha@pheight{36ex}}
\newif\if@septitle
\@septitlefalse
\DeclareOption{septitle}{\global\@septitletrue}
\ExecuteOptions{doubleframe,letterpaper,10pt,mediumpage}
\ProcessOptions
\renewcommand{\baselinestretch}{0.7}
\ifnum\@ptsize < 3
\input{bk1\@ptsize.clo}
\setlength\lineskip{1\p@}
\setlength\normallineskip{1\p@}
% \renewcommand\baselinestretch{}
\setlength\parskip{0\p@ \@plus \p@}
\else
\input{size\@ptsize.clo}
\setlength\lineskip{\p@}
\setlength\normallineskip{\p@}
% \renewcommand\baselinestretch{}
\setlength\parskip{\p@}
\fi
\ifx\pdftexversion\undefined
\special{papersize=\the\paperwidth,\the\paperheight}
\special{! /landplus90 true store}
\else
\setlength\pdfpagewidth{\paperwidth}
\setlength\pdfpageheight{\paperheight}
\RequirePackage{times}
\fi
\setlength{\textheight}{\pecha@pheight}
\newlength{\@marginht}
\newlength{\@margindp}
\newlength{\@marginsep}
\newlength{\@pechadim}
\newlength{\@titledim}
\newlength{\@pechawidth}
\newlength{\@@textwidth} % speichert Textbreit f�r fancy
\newlength{\@titlewidth}
\newlength{\pechamargin}
\setlength{\pechamargin}{0.6in}
\newcounter{pechasheet}
\setcounter{pechasheet}{\@ne}
\@marginht 3ex
\@margindp 1ex
\@pechadim 6em % Abstand zu den R�ndern
\advance\@pechadim by \@rulers % Summe der dicke aller vertikalen Linien
\advance\@pechadim by 2\@marginht % H�he der Randboxen
\advance\@pechadim by 2\@margindp % Tiefe der Randboxen
\textwidth\paperwidth
\advance\textwidth by - 2\pechamargin % Abstand zu Papierrand, 0.6in beidseitig
\@pechawidth\textwidth
\@titledim 0.2\textwidth
\advance\textwidth by - \@pechadim
\@titlewidth\textwidth
\advance\@titlewidth by - \@titledim
\@@textwidth=\textwidth
\if@ffancy
\advance\textwidth by - 12em % fancy Rahmen haben breite R�nder
\fi
\headheight 0pt
\headsep 0pt
\marginparsep 0pt
\marginparwidth 0pt
\footskip 0pt
\marginparpush 0pt
\topmargin \paperheight
\advance\topmargin by - \textheight
\advance\topmargin by -0.5 \topmargin
\advance\topmargin by - 1.1in
%\advance\topmargin by - 1.2in
\oddsidemargin \paperwidth
\advance \oddsidemargin by - \@pechawidth
\advance \oddsidemargin by - 0.5 \oddsidemargin
%\advance \oddsidemargin by - 1in
\advance \oddsidemargin by - 1.5\pechamargin
\evensidemargin \oddsidemargin
\pagenumbering{arabic}
\sloppy
%\raggedright
\parindent=0pt
\parskip12pt
% Some dimensons I will need
\newbox\@pbox
\newbox\@obox
% Some usefull and simple macros
\newcommand{\tibsmall}[1]{{\footnotesize \begin{tib} #1\end{tib}}}
% Translate numerals from 1 to 99 into words
% numeraly >=100 stay as is
\def\tibnumeral#1{
\ifnum #1<100
\ifcase #1
% 1-10
\or gcig \or gnyis \or gsum \or bzhi \or lnga
\or drug \or bdun \or b-rgyad \or dgu
\or bcu
% 11-20
\or {bcu gcig} \or {bcu gnyis} \or {bcu gsum} \or {bcu bzhi} \or {bco lnga}
\or {bcu drug} \or {bcu bdun} \or {bco b-rgyad} \or {bcu dgu} \or {nyi zhu}
% 21 - 30
\or {nyi zhu tsa gcig} \or {nyi zhu tsa gnyis} \or {nyi zhu tsa gsum}
\or {nyi zhu tsa bzhi} \or {nyi zhu tse lnga} \or {nyi zhu tsa drug}
\or {nyi zhu tsa bdun} \or {nyi zhu tsa b-rgyad} \or {nyi zhu tsa dgu}
\or {gsum bcu}
% 31 - 40
\or {gsum bcu so gcig} \or {gsum bcu so gnyis} \or {gsum bcu so gsum}
\or {gsum bcu so bzhi} \or {gsum bcu so lnga} \or {gsum bcu so drug}
\or {gsum bcu so bdun} \or {gsum bcu so b-rgyad} \or {gsum bcu so dgu}
\or {bzhi bcu}
% 41 - 50
\or {bzhi bcu zhe gcig} \or {bzhi bcu zhe gnyis} \or {bzhi bcu zhe gsum}
\or {bzhi bcu zhe bzhi} \or {bzhi bcu zhe lnga} \or {bzhi bcu zhe drug}
\or {bzhi bcu zhe bdun} \or {bzhi bcu zhe b-rgyad} \or {bzhi bcu zhe dgu}
\or {lnga bcu}
% 51 - 60
\or {lnga bcu nga gcig} \or {lnga bcu nga gnyis} \or {lnga bcu nga gsum}
\or {lnga bcu nga bzhi} \or {lnga bcu nge lnga} \or {lnga bcu nga drug}
\or {lnga bcu nga bdun} \or {lnga bcu nga b-rgyad} \or {lnga bcu nga dgu}
\or {drug bcu}
% 61 - 70
\or {drug bcu re gcig} \or {drug bcu re gnyis} \or {drug bcu re gsum}
\or {drug bcu re bzhi} \or {drug bcu re lnga} \or {drug bcu re drug}
\or {drug bcu re bdun} \or {drug bcu re b-rgyad} \or {drug bcu re dgu}
\or {bdun bcu}
% 71 - 80
\or {bdun bcu don gcig} \or {bdun bcu don gnyis} \or {bdun bcu don gsum}
\or {bdun bcu don bzhi} \or {bdun bcu don lnga} \or {bdun bcu don drug}
\or {bdun bcu don bdun} \or {bdun bcu don b-rgyad} \or {bdun bcu don dgu}
\or {b-rgyad bcu}
% 81 -90
\or {b-rgyad bcu rgya gcig} \or {b-rgyad bcu rgya gnyis}
\or {b-rgyad bcu rgya gsum}
\or {b-rgyad bcu rgya bzhi} \or {b-rgyad bcu rgya lnga}
\or {b-rgyad bcu rgya drug}
\or {b-rgyad bcu rgya bdun} \or {b-rgyad bcu rgya b-rgyad}
\or {b-rgyad bcu rgya dgu}
\or {dgu bcu}
% 91 - 99
\or {dgu bcu go gcig} \or {dgu bcu go gnyis} \or {dgu bcu go gsum}
\or {dgu bcu go bzhi} \or {dgu bcu go lnga} \or {dgu bcu go drug}
\or {dgu bcu go bdun} \or {dgu bcu go b-rgyad} \or {dgu bcu go dgu}
\fi
\else
#1
\fi
}
% Makros to create the right and left margin texts
\def\@oleft{}
\def\@@oleft{}
\def\@eleft{}
\def\@eright{}
\def\@oright{}
\def\@oddright{}
\def\@evenright{}
\def\@evenleft{}
\def\@oddleft{}
\def\@theleft{}
\def\@theright{}
\newcommand{\oddleft}[2]{\global\def\@oleft{#1}\global\def\@@oleft{#2}}
\newcommand{\oddright}[1]{\global\def\@oright{#1}}
\newcommand{\evenleft}[1]{\global\def\@eleft{#1}}
\newcommand{\evenright}[1]{\global\def\@eright{#1}}
% Print a title page (default: none)
\newif\if@pechatitle
\@pechatitlefalse
% Title page (similar to book.cls)
\def\title#1{\gdef\@title{#1}}
\def\@title{\@latex@error{No \noexpand\title given}\@ehc}
% vertical double line
\def\@doubleruler{\vrule\kern1.5pt\vrule}
% ignore standard chapter marks
\newcommand{\paragraph}[1]{}
\newcommand{\subparagraph}[1]{}
\newcommand{\section}[1]{\medskip}
\newcommand{\subsection}[1]{}
\newcommand{\subsubsection}[1]{}
\newcommand{\chapter}[1]{\bigskip}
\newcommand{\part}[1]{\bigskip}
\newcommand{\newsheet}{\clearpage\ifodd\c@page\else
\hbox{}\newpage\fi}
% Titlepage environment
\newenvironment{titlepage}{%
\newsheet
\setcounter{page}\@ne
}%
{%
\if@septitle
\newsheet
\setcounter{page}\@ne
\setcounter{pechasheet}{\@ne}
\else
\newpage
\fi
}
% Print a title page with the typical frame
\newcommand{\maketitle}
{
\global\@pechatitletrue
\setbox\@pbox\hbox{\parbox{\@titlewidth}{\begin{center}\@title\par\end{center}}}
% Beautify short titles
%\ifdim\ht\@pbox < 2.5ex \ht\@pbox=2.5ex \dp\@pbox=1.25ex\fi
% Calculate offsets to center the title page
\setlength\@tempdima{\textwidth}
\advance\@tempdima by - 12pt
\advance\@tempdima by - 10em
\advance\@tempdima by - \wd\@pbox
\advance\@tempdima by - 0.5\@tempdima
\ifdim\@tempdima < 0em \setlength\@tempdima{0em}\fi
\setlength\@tempdimb{\textheight}
\advance\@tempdimb - 4pt
\advance\@tempdimb - 5em
\advance\@tempdimb by - \ht\@pbox
\advance\@tempdimb by - \dp\@pbox
\advance\@tempdimb by - 0.5 \@tempdimb
\ifdim\@tempdimb < 0em \setlength\@tempdimb{0em}\fi
\begin{titlepage}
\hbox{
\kern\@tempdima
\vbox{%
\kern\@tempdimb
\hrule
\hbox{%
\vrule\kern1.5pt
\vbox{\kern1.5pt\hrule
\hbox{\vrule
\if@septitle
\kern2em
\else
\pecha@numtitle
\fi
\vbox{\kern2.5em\hrule
\hbox{\vrule\kern1.5pt
\vbox{\kern1.5pt\hrule
\hbox{\vrule\kern4em\@doubleruler\kern2em\@doubleruler
\kern1em\box\@pbox\kern1ex
\@doubleruler\kern2em\@doubleruler\kern4em\vrule
}
\hrule\kern1.5pt}\kern1.5pt\vrule
}\hrule\kern2.5em
}\kern2.5em\vrule
}\hrule\kern1.5pt
}\kern1.5pt\vrule
}\hrule\vfill
}\hfill
}
\end{titlepage}
}
% print sheet number on title page
\def\pecha@numtitle{
\setlength{\@tempdimc}{\textheight}
\advance \@tempdimc by - 2\@tempdimb
\advance \@tempdimc by - 1em
\if@septitle
\else
\setbox\@obox\hbox{
\hbox to \@tempdimc{
\scriptsize\tib\@oleft~\hss\tib\tibnumeral{\thepechasheet}\hss\@@oleft
}}
\ht\@obox=\@marginht
\dp\@obox=\@margindp
\kern\dp\@obox
\begin{turn}{-90}
\kern-\@tempdimc\kern-0.8em\box\@obox
\end{turn}
\fi
}
\def\pecha@titlepage#1{
\box#1
\global\@pechatitlefalse
}
% The left "header" on odd pages
\def\@oddleft{%
\setbox\@pbox\hbox{
\hbox to \textheight{
\scriptsize\tib\@oleft\hss\tib\tibnumeral{\thepechasheet}\hss\@@oleft
}}
\ht\@pbox=\@marginht
\dp\@pbox=\@margindp
\begin{turn}{-90}
\kern-\textheight\kern-1em\box\@pbox
\end{turn}
}
% the left "header" on even pages
\def\@evenleft{%
\setbox\@pbox\hbox{
\hskip-\textheight\kern-1em\hbox to \textheight{
\scriptsize\tib\hss\@eleft\hss
}
}
\ht\@pbox=\@marginht
\dp\@pbox=\@margindp
\begin{turn}{-90}
\box\@pbox
\end{turn}
}
% The right "header" on odd pages
\def\@oddright{%
\setbox\@pbox\hbox{
\hbox to \textheight{
\footnotesize\hss\kern1em\@oright\hss}}
\ht\@pbox=\@marginht
\dp\@pbox=\@margindp
\begin{turn}{90}
\box\@pbox
\end{turn}
}
% The right "header" on even pages
\def\@evenright{%
\setbox\@pbox\hbox{
\hbox to \textheight
{\footnotesize\hss\kern1em\@eright\hss}}
\ht\@pbox=\@marginht
\dp\@pbox=\@margindp
\begin{turn}{90}
\box\@pbox
\end{turn}
}
% The left "header" on odd pages
\def\@oddfancy{
\setbox\@pbox\hbox{
\hbox to \textheight{
\footnotesize\tib\@oleft\hss\tibnumeral{\thepechasheet}\hss\@@oleft
}}
\ht\@pbox=\@marginht
\dp\@pbox=\@margindp
\begin{turn}{-90}
\hskip-\textheight\kern-1em\box\@pbox
\end{turn}
}
% the left "header" on even pages
\def\@evenfancy{
\setbox\@pbox\hbox{
\hskip-\textheight\kern-1em\hbox to \textheight{
\footnotesize\tib\hss\@eleft\hss\
}
}
\ht\@pbox=\@marginht
\dp\@pbox=\@margindp
\begin{turn}{-90}
\box\@pbox
\end{turn}
}
% section{Die Ausgabefunktionen}
% Um die Pecha-typischen Textrahmen zu erzeugen, wurde die
% LaTeX Ausgaberoutine umgeschrieben.
% Kopf- und Fu�zeilen machen bei Pechas keinen Sinn,
% deshalb werden sie ausgelassen.
% Daf�r �bernehmen die linken und rechten R�nder
% eine �hnliche Funktion.
%
% Klassenoptionen:
% Seiten k�nnen derzeit in drei unterschiedlichen
% Stilen ausgegeben werden:
% Mit folgenden Klassenoptionen kann die Ausgabe
% beeinflu�t werden:
% doubleframe
% Wird von dieser Klasse als Standardrahmen verwendet.
% Der Textrahmen besteht aus einer Doppellinie.
% singleframe
% Entspricht eher dem originalen tibetischen Stil:
% Der Text wird von einem einfachen Textrahmen umgeben.
% fancyframe
% Diese Option kann mit einer der vorangehenden Optionen
% kombiniert werden. Sie bewirkt, da� die ersten drei
% Seiten von einem besonderen Rahmen umgeben werden.
% Die restlichen Seiten werden mit doppeltem oder
% einfachen Rahmen ausgegeben.
%
% Die Seiten werden mit Hilfe des geometry-Pakets korrekt
% auf die Mitte des Blattes positioniert.
% Auch der linke Offset f�r die Buchbindung
% mu� wieder abgezogen werden, damit die Seiten
% auf Vor- und R�ckseite gleich positioniert werden.
%
% Das Paket "rotating" wird benutzt, um die
% Randzeilen hochkant darzustellen.
% Au�erdem erm�glicht die Klassenoption "rotate" es,
% jede gerade Seite um 180 Grad gedreht darzustellen,
% was beim Ausdruck auf Duplexdruckern hilfreich sein kann.
% |@doubleframe|
% Dieses Makro erzeugt einen pechatypischen Doppelrahmen
% um die Textbox in Argument #1
\def\@doubleframe#1{
\hbox{\vrule %left outer line
\vbox{\hrule\kern1.5pt % top outer line
\hbox{\kern1.5pt\vrule % left inner line
\vbox{\hrule % top inner line
\hbox{
\vbox{
\hbox{
\@theleft % left box content
\@doubleruler\kern0.5em % left box inner margin
\vbox{
\kern1.5ex
\box#1
\kern1.5ex
}
%\kern0.5em
\@doubleruler % right box inner margin
\@theright}
} % right box content
}\hrule % right inner line
}\vrule\kern1.5pt % lower inner line
}\kern1.5pt\hrule % right outer line
}\vrule % lower outer line
}
}
% |@singleframe|
% Dieses Makro erzeugt einen pechatypischen einfachen Rahmen
% um die Textbox in Argument #1
\def\@singleframe#1{
\hbox{\vrule
\vbox{\hrule
\hbox{
\vbox{
\hbox{
\@theleft
\vrule\kern0.5em
\vbox{
\kern1.5ex
\box#1
\kern1.5ex
}
%\kern0.5em
\vrule
\@theright}}
}\hrule
}\vrule
}
}
% |@fancyframe|
% Dieses Makro erzeugt einen pechatypischen Rahmen
% um die Textbox in Argument #1.
% Hier wird auf den ersten ein besonderer Rahmen erstellt,
% alle folgenden Seiten werden je nach Option (simple,fancy oder
% standard,fancy) in einem einfachen oder einem doppelten Rahmen
% ausgegeben.
\def\@fancyframe#1{
% \ifnum\thepage > 2
% \global\@ffancyfalse
% \if@fsingle
% \global\def\@pageframe{\@singleframe#1}
% \else
% \global\def\@pageframe{\@doubleframe#1}
% \fi
% \global\addtolength\textwidth{-12em}
% \global\addtolength\linewidth{-12em}
% \fi
\hbox{\vrule
\vbox{\hrule\kern1.5pt
\hbox{\kern1.5pt\vrule
\vbox{\hrule\kern2em
\hbox{
\ifodd\c@page
\@oddfancy
\else
\@evenfancy
\fi
\vrule
\vbox{\hrule\kern1.5pt
\hbox{\kern1.5pt
\vrule
\vbox{
\hrule
\hbox{
\kern4em\@doubleruler\kern2em\@doubleruler\kern0.5em
\vbox{
%\kern0.5em
\box#1}
\@doubleruler\kern2em\@doubleruler\kern4em
}
\hrule
}\vrule\kern1.5pt
}\kern1.5pt\hrule
}\vrule\kern2em
}\kern2em\hrule
}\vrule\kern1.5pt
}\kern1.5pt\hrule
}\vrule
}
}
% |pecha@outputpage|
% Das ist die neu geschriebene Ausgaberoutine
% Derzeit kann sie folgendes:
% Ausgabe einer Titelseite (mu� beim Pecha von hier aus geschehen)
% Ausgabe einer einfachen Textseite mit beliebigem Inhalt im
% Pecha-Doppelrahmen
% Ausgabe der linken Randzeilen im Pecha-Stil
% Ausgabe von rechten Randzeilen, voreingestellt
% auf die Seitennummer. Man kann geradseitige und
% ungeradseitige rechte k�nnen mit den Makros
% |\oddright| und |\evenright| unabh�ngig von einander
% eingestellt werden.
\def\@outputpage{\pecha@outputpage}
\def\pecha@outputpage{%
\begingroup
\let\protect\noexpand
\set@typeset@protect % otherwise fonts cannot be changed here
\reset@font
\normalsize
\normalsfcodes
\@parboxrestore
% a hack for empty pages: These need to be framed properly
\ifodd\count\z@
\let\@themargin\oddsidemargin
\else
\let\@themargin\evensidemargin
\fi
\setbox\@outputbox\vbox{\hfil\box\@outputbox\hfil}
\if@pechatitle
\setbox\@outputbox\hbox{\pecha@titlepage{\@outputbox}}
\else
\ifodd\c@page
\let\@theleft\@oddleft
\let\@theright\@oddright
\setbox\@outputbox\hbox{\@pageframe{\@outputbox}}
\else
\let\@theleft\@evenleft
\let\@theright\@evenright
\if@pecharotate
\setbox\@outputbox\hbox{%
%\hskip3pt %I don't know why I do need this!
\begin{turn}{180}
\@pageframe{\@outputbox}
\end{turn}
}
\else
\setbox\@outputbox\hbox{\@pageframe{\@outputbox}}
\fi
\stepcounter{pechasheet}
\fi
\fi
\shipout\vbox{%
\let\label\@gobble
\let\index\@gobble
\let\glossary\@gobble
\baselineskip \footskip
\@begindvi
\vskip \topmargin
\moveright\@themargin
\box\@outputbox
}
\set@typeset@protect
\endgroup
\stepcounter{page}%
}
\endinput