\def\fileversion{v0.91}
\def\filedate{92/03/11}
%%
%% Style option `portrait' for the `seminar' document style.
%% For use with LaTeX v2.09
%%
%% For an explanation of what this style option does, see the
%% User's Guide of seminar.sty.
%%
%% COPYRIGHT 1992, by Timothy Van Zandt, tvz@Princeton.EDU
%%   
%% Copying of part or all of any file in the seminar.sty package
%% is allowed under the following conditions only:
%% (1) You may freely distribute unchanged copies of the files. Please
%%     include the documentation when you do so.
%% (2) You may modify a renamed copy of any file, but only for personal
%%     use or use within an organization.
%% (3) You may copy fragments from the files, for personal use or for use
%%     in a macro package for distribution, as long as credit is given
%%     where credit is due.
%%.
%% You are NOT ALLOWED to take money for the distribution or use of
%% these files or modified versions or fragments thereof, except for
%% a nominal charge for copying etc.
%%
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%
%%
\ifx\portrait@loaded\relax\endinput\else\let\portrait@loaded\relax\fi
\typeout{Style option: `portrait' for doc style `seminar.sty'
  \fileversion \space\space <\filedate>  (tvz)}
%%
%% Change the slide rotation:
\def\l@rotation{\slide@rotation}
\def\p@rotation{none}
%%
%% In the |slides| format, we just have to switch the |\textheight| and |\textwidth| dimensions and have the document print in portrait mode.
\ifslides
  \@tempdima\textwidth
  \textwidth\textheight
  \textheight\@tempdima
  \landscapefalse
\fi
%%
%% article format is more complex.
\ifarticle
	\slidestyle{plainbottom}
	\overlaystyle{plainbottom}
	\landscapetrue
	\twocolumn
	\sloppy
	\topmargin 0pt
	\headheight 15pt
	\headsep 25pt
	\footskip 30pt
	\footheight 15pt
	\textwidth\paperheight
	\advance\textwidth by -2in
	\textheight\paperwidth
	\advance\textheight by -2in
	\advance\textheight by -70pt
	\leftmargini 2em
	\leftmarginv .5em
	\leftmarginvi .5em
	\columnsep  40pt
	\oddsidemargin \z@ 
	\evensidemargin \z@
	\marginparwidth \z@ 
	\marginparsep \z@ 
	\ifslidesonly
		\def\output@slide{%
			\vbox to \textheight{%
				\vss
				\hbox to\columnwidth{\hss\box\emb@slidebox\hss}%
				\vss}\newpage}%
	\else
		\ifnotes
			\def\fps@fslide{p}
			\def\ftype@fslide{32}
			\def\fslide{\@float{fslide}}
			\let\endfslide\end@float
			\def\output@slide{\begin{fslide}
				\centerline{\box\emb@slidebox}\end{fslide}}
		\fi
  \fi
\fi
%%
%% \twoup needs to be redefined:
\ifslides
  \def\@twoup[#1]{%
		\@tempcnta=\the@slidesmag\relax
		\@tempcntb=\@tempcnta
		\advance\@tempcntb by #1\relax
		\advance\@tempcntb by -3\relax
		\ifnum\@tempcntb>-6\relax
      \input{2up.tex}%
		  \source{\@magstep\@tempcnta}{\paperwidth}{\paperheight}%
			\advance\@tempcnta by -3
      \target{\@magstep\@tempcnta}{\paperheight}{\paperwidth}%
			\landscapetrue
		\else
		  \@seminarerr{Slides magnification is too low for
			  \string\twoup\space to handle}\@eha
    \fi}
\else
	\def\@twoup[#1]{%
		\@tempcnta=\the@articlemag\relax
		\@tempcntb=\@tempcnta
		\advance\@tempcntb by #1\relax
		\advance\@tempcntb by -1\relax
		\ifnum\@tempcntb>-6\relax
      \input{2up.tex}%
		  \source{\@magstep\@tempcnta}{\paperheight}{\paperwidth}%
			\advance\@tempcnta by -1
      \target{\@magstep\@tempcnta}{\paperwidth}{\paperheight}%
      \targetlayout{topbottom}%
 			\landscapefalse
		\else
		  \@seminarerr{Article magnification is too low for
			  \string\twoup\space to handle}\@eha
    \fi}
\fi
%%
\endinput
