%%%%%%% pTeX で日本語縦組3段を組版します.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%% 思考考慮 ;;;;; 縦組は, pTeXの持っている水平・垂直が逆になっています.
%%%%%%% つまり, 90度回転しての組版結果として縦組版を取得しています.
%%%%%%% *** !! Running should to use "pdfptex.bat" !! ***
%% -----pdfptex.bat--------
%% @echo off
%% ptex -synctex=1 -jobname="%~n1" -kanji=utf8 -guess-input-enc %1 && dvipdfmx "%~n1"
%%%%%%% save !! --- to usr\local\bin64\ ---
%%%%%%% running >pdfptex name.tex[Enter] %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 2007/12/13 Yukio Yoshida
%% input file CMYK color model.
\input colordvi.tex
%%% テキストサイズ範囲 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\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}%%%%属性を継続して改行, \par=段落の終了(行を段落と見れば改行)
\def\VSP{\vskip 20pt plus 0pt minus 0pt}%%%20ptの伸縮しない空白(水平;縦組モード)
\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
%%%% 本文部分.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 例えば;
%%{\twming\Blue{夜雨音色\kern -4pt(やしゅうねいろ)}}\par
%%\vskip 16pt plus 0pt minus 0pt
%%          \Blue{夜に落つ涙の雨音は\br
%%          愛しい人の悲しい涙音\br
%%          男の部屋へと叩く鈴音\br
%%          ....................\br
%%\VSP
%%          夜に落つ涙の雨音は\br
%%          .....................\br
%%          男と女が情を分る哭音}\br
%%\hbox{\hskip 6pc\Blue{2000/ End draft.}}\par
%%
%%     TeXt文章の改ページは自動改ページ(system処理に委ねる)ですが,
%%     意識的に改ページ実行コード記述はweb詩篇のソースコードを開いて
%%     参照してください, 偶数?奇数?でのページ開始等々.
%%
\vfill
%%%% 本文記述;ページBoX end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}%% setbox0 vbox End ページBox終了.
\trio%%%%%% マクロページ処理(\loop......\repeat) setboxの内容を縦3段で組む
%%%%%% 本文ページが作成され, setbox0の値が空になる.%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%% これで, 部が終了なら------>\byeで, 全終了.
%%%%%% 次の部を開始するなら, 再度
%%\setbox0=\vbox{\tate \hsize=81mm%% 行う
%%
%%
%%\vfill
%%} setbox0 vbox End ページBox終了.
%%\trio%% 同じくページ処理
%%%% 全処理終了,Ascii-pTeXを閉じる.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\bye
%%%%%%% End of ALL %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%