% "shift" document style option for tate gumi.
%
% Copyright (C) by 1993, ASCII Corporation & Impress Corporation.
%

%
%  \shiftwidth{$B;f$NI}(B}
%
%  $B=PNO$r1&(B($B$+$i(B1in)$B$KB7$($k!#(B
%
%  $B$3$N%U%!%$%k$r%9%?%$%k%*%W%7%g%s$K;XDj$7$F!"%W%j%"%s%V%k$K=q$/(B
%

\newdimen\shift@pw

\def\shiftwidth#1{%
  \shift@pw=#1
  \ifydir
    \advance\shift@pw-\textwidth
  \else
    \advance\shift@pw-\textheight
  \fi
  \advance\shift@pw\oddsidemargin
  \advance\shift@pw-2in
  \advance\oddsidemargin\shift@pw
  \advance\evensidemargin\shift@pw
}
