%%%%%%% pTeX で日本語縦組3段を組版します.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%% 思考考慮 ;;;;; 縦組は, pTeXの持っている水平・垂直が逆になっています.
%%%%%%% ここでは(つまり), 90度回転しての組版結果として縦組版を取得しています.
\input colordvi.tex %%CMYK color model file.
%%% テキストサイズ範囲 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\hoffset-.5in
\voffset-.5in
\hsize=7.5in
\vsize=9.9in
%%% 和語font 縦組 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\font\twmin=tmin10 at 12pt
\font\twming=tgoth10 at 12pt
\font\ninemin=tmin8
\twmin %%% 日本語縦組デフォルトフォント, 12pt(明朝10pt--->拡大12pt)
%%% CM font %%%%
\font\ninerm=cmr9
\font\sevenrm=cmr7
\ninerm %%% 欧米語デフォルトフォント, cmr9pt
%%% 任意マクロ定義%%%%%%%%%
\def\br{\hfill\break}
\def\VSP{\vskip 20pt plus 0pt minus 0pt}
\def\Topline#1{\raise 2.6pt \hbox{---}{\ninemin #1}\raise 2.6pt \hbox{---}}
%%% ヘッダ・テキスト, 例;Web Poem Vol.1 2003
\headline{\ninerm\ninemin \Sepia{---Page~$\rm\number\count0$---
\hfill Web Poem Vol.1 2003\hskip 6pc}}
\footline{\hfill}%%% フッタ・テキストは空
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% ページbox//vbox to \vsize{\hbox to \hsize{//を\vsplitで三つに分割
%%% \unvboxでテキスト値参照後レジスタ値を空にし，loop....repart
%%% Naochan!.tex(dviout fo Windows 3.11 dviout/ptex/)参照．
%%% 3段組---縦組---：マクロ名\trio
\def\trio{%
  \loop\ifvbox0
    \vfill
    \vbox to \vsize{\baselineskip0mm \lineskiplimit0mm%
      \vss
      \hbox to \hsize{\hss%
    \vbox{\tate
      \hbox to 240mm{\hskip 10mm \setbox1=\vsplit0 to 138mm
                     \vtop to 138mm{\unvbox1}
                     \hskip -5mm \setbox1=\vsplit0 to 138mm
                     \vtop to 138mm{\unvbox1}
                     \hskip -5mm \setbox1=\vsplit0 to 138mm
                     \vtop to 138mm{\unvbox1}
                     \hss \hskip 10mm }}%
                 \hss}%
                \vss}%
    \vfill
    \eject
  \repeat
         }%
%%% 上記処理に関する指定パラメター %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\splittopskip=0pt%%    \vsplitで育成されるboxの最上部glue値は0ptとする．
\splitmaxdepth=0pt%%   \vsplitで育成されるboxの最大深さ値は0ptとする．
\tbaselineshift=2pt%%  縦組における欧文のベースライン値
\baselineskip=5mm plus .25mm%% -------------行間glueの値と＋値の許容．
\lineskiplimit=0pt%%           -------------値は0とする．
\lineskip=0pt%%                -------------値は0とする．
\leftskip=3zw%%        左マージンの2zw追加．
\parindent=0pt
\parskip=0pt
%%%% 記述；ページBoX open %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\setbox0=\vbox{\tate \hsize=81mm


           %% 詩文：記述



\vfill
}%% setbox0 vbox End ページBox終了．
\trio %%%%%%処理(\loop......\repeat)===setboxの内容を縦3段で組む
 %%%%%% 本文ページが作成され, setbox0の値が空になる.%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%% これで, 終了なら------>\byeで, 全終了.
%%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

   %%%%%% 次を開始するなら, 再度以下を行う
   %% \setbox0=\vbox{\tate \hsize=81mm
   %%
   %%     %% 詩文：記述
   %%
　%% \vfill
   %% }%% setbox0 vbox End ページBox終了.
   %% \trio %%%%%%処理(\loop......\repeat)===setboxの内容を縦3段で組む

 %%%% 全処理終了，Ascii-pTeXを閉じる．%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\bye
%%%%%%% End of ALL %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%