%%%%%%% 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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%