-%#!luatex
+%#!luajittex
-%\directlua{luatexja_debug = 1}
+\directlua{luatexja_debug = 1}
\input luatexja.sty
%\input lua-visual-debug.sty
+
\catcode`\@=11
\newdimen\@tempdima
\newbox\@tempboxa
\def\H{\vrule width 2pt height 10pt depth 0pt%
\vrule width 4pt height 0pt depth 4pt}
-\message{^^JTATE, DTOU IN YOKO (HMODE))^^J}
+\message{^^JTATE, DTOU, UTOD IN YOKO (HMODE))^^J}
+\yoko
\hbox{\yoko
横水平\H\vrule\hbox{\yoko 横水平\H }\vrule かき◆
- \vrule\hbox{\tate 縦水平\H }◆おおおお\vrule
+ \vrule\hbox{\tate 縦水平\H }\message{HOGE}◆おおおお\vrule
\vbox{\yoko\hsize=30mm 横垂直\H ああああああああああ\hfill\H}かき◆%
\vrule
\vbox{\tate\hsize=30mm 縦垂直\H ああああああああああ\hfill\H}%
\vbox{\dtou\hsize=30mm 下垂直\H ああああああああああ\hfill\H}%
\vrule かき◆
}
+\hbox{\yoko\vrule
+ 横水平\H\vrule\hbox{\utod 上水平\H }\vrule ◆おおおお
+ \H\vrule
+ \vbox{\utod\hsize=30mm 上垂直\H ああああああああああ\hfill\H}%
+ \vrule かき◆
+}
+\hbox{\yoko
+ ああ\setbox0=\vtop{\yoko\hsize=30mm \ifhmode\message{H}\else\message{V}\fi 横垂直\H ああああああああああ\hfill\H}%
+% {\tracingonline1\showboxdepth2\showboxbreadth100\showbox0}%
+ かき◆\copy0 ◆
+}
+
\vfill\eject
-\message{^^JYOKO, DTOU IN TATE (HMODE)^^J}
+\message{^^JYOKO, DTOU, UTOD IN TATE (HMODE)^^J}
\leavevmode
\hbox{\tate
縦水平\H\vrule \hbox{\yoko 横水平\H }\vrule かき◆\vrule
縦水平\H\vrule\hbox{\dtou 下水平\H }\vrule ◆おおおお\H\vrule
\vbox{\dtou\hsize=30mm 下垂直\H ああああああああああ\hfill\H}%
\vrule\H ◆ああああ}
+\hbox{\tate
+縦水平\H\vrule\hbox{\utod 上水平\H }\vrule ◆おおおお\H\vrule
+\vbox{\utod\hsize=30mm 上垂直\H ああああああああああ\hfill\H}%
+\vrule\H ◆ああああ}
+
+\vfill\eject
+\message{^^JYOKO, TATE, DTOU,IN UTOD (HMODE)^^J}
+\leavevmode
+\hbox{\utod
+上水平\H\vrule \hbox{\yoko 横水平\H }\vrule かき◆\vrule
+\hbox{\tate 縦水平\H }\vrule◆おおおお\H\vrule
+\vbox{\yoko\hsize=30mm 横垂直\H ああああああああああ\hfill\H}\vrule
+かき◆\H\vrule
+\vbox{\tate\hsize=30mm 縦垂直\H ああああああああああ\hfill\H}\vrule
+◆ああああ}
+\hbox{\utod
+上水平\H\vrule\hbox{\dtou 下水平\H }\vrule ◆おおおお\H\vrule
+\vbox{\dtou\hsize=30mm 下垂直\H ああああああああああ\hfill\H}%
+\vrule\H ◆ああああ}
+\hbox{\utod
+上水平\H\vrule\hbox{\utod 上水平\H }\vrule ◆おおおお\H\vrule
+\vbox{\utod\hsize=30mm 上垂直\H ああああああああああ\hfill\H}%
+\vrule\H ◆ああああ}
\vfill\eject
-\message{^^JYOKO, TATE IN DTOU (HMODE)^^J}
+
+\message{^^JYOKO, TATE, UTOD IN DTOU (HMODE)^^J}
\leavevmode
\hbox{\dtou
下水平\H\vrule\hbox{\yoko 横水平\H }\vrule かき◆\H\vrule
下水平\H\vrule\hbox{\dtou 下水平\H }\vrule◆おおおお\vrule
\vbox{\dtou\hsize=30mm 下垂直\H ああああああああああ\hfill\H}%
\vrule ◆ああああ}
+\hbox{\dtou
+下水平\H\vrule\hbox{\utod 上水平\H }\vrule◆おおおお\vrule
+\vbox{\utod\hsize=30mm 上垂直\H ああああああああああ\hfill\H}%
+\vrule ◆ああああ}
\vfill\eject
これは,意味のないサンプルテキストです.\vrule
\hbox{\dtou 下水平\H }\vrule\H おおおお
これは,意味のないサンプルテキストです.
-\vrule\vbox{\dtou\hsize=50mm 縦垂直\H ああああああああああ%
+\vrule\vbox{\dtou\hsize=50mm 下垂直\H ああああああああああ%
あああああああああ\hfill\H}%
\vrule\H これは,意味のないサンプルテキストです.
}
これは,意味のないサンプルテキストです.\vrule
\hbox{\dtou 下水平\H }\vrule\H おおおお
これは,意味のないサンプルテキストです.
-\vrule\vbox{\dtou\hsize=50mm 縦垂直\H ああああああああああ%
+\vrule\vbox{\dtou\hsize=50mm 下垂直\H ああああああああああ%
あああああああああ\hfill\H}%
\vrule\H これは,意味のないサンプルテキストです.
}
これは,意味のないサンプルテキストです.\vrule
\hbox{\dtou 下水平\H }\vrule\H おおおお
これは,意味のないサンプルテキストです.
-\vrule\vbox{\dtou\hsize=50mm 縦垂直\H ああああああああああ%
+\vrule\vbox{\dtou\hsize=50mm 下垂直\H ああああああああああ%
あああああああああ\hfill\H}%
\vrule\H これは,意味のないサンプルテキストです.
}
+\vfill\eject
\vbox{\tate\hsize100mm
-\tfont\f=KozMinPr6N-Regular.otf:+vert;jfm=ujisv \f
+\tfont\f=KozMinPr6N-Regular.otf:-vert;jfm=ujisv \f
-\ltjsetparameter{yalbaselineshift=.25em}\baselineskip15pt
+\ltjsetparameter{yalbaselineshift=.25em}\baselineskip15pt\parindent\zw
\LaTeX の特徴として、テキストファイルであるソースコードを入力として処理することでDVIや
PDFなどの表示形式を出力として得ることが挙げられる。
変えることができるなど、文書内容データの再利用性が高い。一度スタイル設定を決めてしまえば、
あとは文書内容の記述に専念することができるという利点もある。論文などの投稿では、学術雑
誌のスタイルを記述したファイル(パッケージファイル)を Web からダウンロードして利用するこ
-とで、統一されたスタイルで論文xを投稿することができ、論文の投稿者と雑誌の編集者とのやり取り
+とで、統一されたスタイルで論文を投稿することができ、論文の投稿者と雑誌の編集者とのやり取り
を簡略化できる。Kile、TeXShop、TeXworks、EasyTeX、WinShell などの \TeX 用エ
ディタや、野鳥(やてふ、YaTeX)、TeXlipse、KaTeX(花鳥、かてふ)、祝鳥
(のりてふ)、M's TeX Helper 2など の\TeX 用テキストエディタマクロを兼用することに
よって、より効率的な文章作成が可能ともなる。またMapleやMathematicaなどでドキュメントを
作成し、\TeX 形式で出力することも可能である。
+\null\hfill
+(Wikipediaの「\LaTeX」の記事より.8/13現在)
+}
+
+\vbox{\tate\hsize100mm
+\tfont\f=KozMinPr6N-Regular.otf:jfm=ujisv \f
+
+\ltjsetparameter{yalbaselineshift=.25em}\baselineskip15pt\parindent\zw
+\LaTeX の特徴として、テキストファイルであるソースコードを入力として処理することでDVIや
+PDFなどの表示形式を出力として得ることが挙げられる。
+
+\LaTeX の最大の長所は、\TeX に由来する高品質で自由度の高い組版処理能力である。組版処理能力
+は一般向けの出版物の作成にも充分に耐えられるものであり、実際の出版例もある。
+中でも数式組版の品質が高い。さらに、数式専用の命令文(コマンド)が用意されているので、
+単純なソースコードで高品質な数式表示を得られる。そのため、数式を多く含む自然科学系や工学系
+の出版物などでは、\LaTeX 形式での投稿が標準的なフォーマットとされていることも多い。
+
+くわえて、ソースコードに詳細な設定を記述することで、文書のスタイル(表示形式、見栄え、たと
+えばレイアウトやフォントなど)を自在に調節できる。また、ソースコード上で文書内容・文書構造
+(章・節・段落や強調箇所など)と文書スタイルの設定との分離が可能である。そのため、同一文書
+内で終始一貫したスタイをル保つことができる。また、同じ文書内容でレイアウトやフォントだけを
+変えることができるなど、文書内容データの再利用性が高い。一度スタイル設定を決めてしまえば、
+あとは文書内容の記述に専念することができるという利点もある。論文などの投稿では、学術雑
+誌のスタイルを記述したファイル(パッケージファイル)を Web からダウンロードして利用するこ
+とで、統一されたスタイルで論文を投稿することができ、論文の投稿者と雑誌の編集者とのやり取り
+を簡略化できる。Kile、TeXShop、TeXworks、EasyTeX、WinShell などの \TeX 用エ
+ディタや、野鳥(やてふ、YaTeX)、TeXlipse、KaTeX(花鳥、かてふ)、祝鳥
+(のりてふ)、M's TeX Helper 2など の\TeX 用テキストエディタマクロを兼用することに
+よって、より効率的な文章作成が可能ともなる。またMapleやMathematicaなどでドキュメントを
+作成し、\TeX 形式で出力することも可能である。
+
+\null\hfill
+(Wikipediaの「\LaTeX」の記事より.8/13現在)
}
\message{^^Jget/set box dimension^^J}
\tate\ltjsetparameter{talbaselineshift=0pt}Htp}
縦ボックス\hbox{\vrule\copy12288\vrule}寸法\quad
\vbox{\hsize=80pt\yoko\noindent
- WD: \the\ltjgetwd{12288}, \\HT: \the\ltjgetht{12288}, \\DP: \the\ltjgetdp{12288}%
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
}
\vbox{\hsize=80pt\tate\noindent
- WD: \the\ltjgetwd{12288}, \\HT: \the\ltjgetht{12288}, \\DP: \the\ltjgetdp{12288}%
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
}
\ltjsetwd12288=100pt
\setbox0=\hbox{\tate\ltjsetht12288=10pt}
\vbox{\hsize=80pt\yoko\noindent
- WD: \the\ltjgetwd{12288}, \\HT: \the\ltjgetht{12288}, \\DP: \the\ltjgetdp{12288}%
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
}
\vbox{\hsize=80pt\tate\noindent
- WD: \the\ltjgetwd{12288}, \\HT: \the\ltjgetht{12288}, \\DP: \the\ltjgetdp{12288}%
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
}
\yoko\ltjsetparameter{yalbaselineshift=0pt}Htp}
横ボックス\hbox{\vrule\copy12288\vrule}寸法\quad
\vbox{\hsize=80pt\yoko\noindent
- WD: \the\ltjgetwd{12288}, \\HT: \the\ltjgetht{12288}, \\DP: \the\ltjgetdp{12288}%
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
}
\vbox{\hsize=80pt\tate\noindent
- WD: \the\ltjgetwd{12288}, \\HT: \the\ltjgetht{12288}, \\DP: \the\ltjgetdp{12288}%
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
}
\ltjsetwd12288=100pt
\setbox0=\hbox{\tate\ltjsetht12288=10pt}
\vbox{\hsize=80pt\yoko\noindent
- WD: \the\ltjgetwd{12288}, \\HT: \the\ltjgetht{12288}, \\DP: \the\ltjgetdp{12288}%
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
}
\vbox{\hsize=80pt\tate\noindent
- WD: \the\ltjgetwd{12288}, \\HT: \the\ltjgetht{12288}, \\DP: \the\ltjgetdp{12288}%
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
}
-dimexpr でも使えるかな?\the \dimexpr2\ltjgetwd{` }+\ltjgetwd{200}+1pt\relax
+dimexpr でも使えるかな?\the \dimexpr2\ltjgetwd` +\ltjgetwd200+1pt\relax
\vfill\eject
\message{^^Jdir node^^J}
\font\seventt=cmtt10 at 7pt
+\font\fivett=cmtt10 at 5pt
\setbox0=\hbox{\yoko pF}
-\setbox1=\hbox{\tate\box0}
+\setbox1=\hbox{\tate\copy0}
\fbox{\copy1}
-\unhcopy1\setbox1=\lastbox %% box1: dir_node
+\setbox1=\copy0
+{\obeylines\seventt\baselineskip=10pt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'lastbox> ', tex.print)}\par}
\setbox0=\hbox{\yoko \ltjsetwd1=50pt}
+{\obeylines\seventt\baselineskip=10pt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'dir node1> ', tex.print)}\par}
\setbox0=\hbox{\dtou \ltjsetwd1=2pt}
{\obeylines\seventt\baselineskip=10pt
-\directlua{luatexja.ext_show_node_list(tex.box[1], 'dir node> ', tex.print)}\par}
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'dir node2> ', tex.print)}\par}
\setbox0=\hbox{\yoko \ltjsetht1=30pt}
{\obeylines\seventt\baselineskip=10pt
{\obeylines\seventt\baselineskip=10pt
\directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Twd> ', tex.print)}\par}
+\setbox0=\hbox{\utod \ltjsetht1=50pt}
+{\obeylines\seventt\baselineskip=10pt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Uht> ', tex.print)}\par}
+
\setbox0=\hbox{\yoko \ltjsetht1=70pt}
{\obeylines\seventt\baselineskip=10pt
\directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Yht> ', tex.print)}\par}
{\obeylines\seventt
\directlua{luatexja.ext_show_node_list(tex.box[1], 'unwrapped> ', tex.print)}}
+\setbox0=\hbox{\utod \ltjsetht1=50pt}
+{\obeylines\seventt\baselineskip=10pt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Uht> ', tex.print)}\par}
+
\setbox0\hbox{\yoko a あ }\setbox1=\hbox{\tate\ltjsetht0=2pt}
\vbox{\yoko\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
\vbox{\tate\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
\vbox{\dtou\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+\vbox{\utod\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
%
\ltjsetwd0=40pt
+\setbox9\hbox{\utod \ltjsetdp0=10pt}
\vbox{\yoko\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
\vbox{\tate\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
\vbox{\dtou\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+\vbox{\utod\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+
+\vfill\eject
+\message{^^Jothers^^J}
+
p\kern-.15em\TeX\ bug (2011-02-24)
\setbox0=\hbox{\tate a}\fbox{\copy0}%
\hbox{\dtou\dimen0=\ltjgetht0}
\the\ltjgetht0}% OK. 30pt
+\def\R{012345678901234567890123456789}
+\vbox{\tate\hsize=4\zw\R\R\R\R}
-\end
+%\tracingall
+\def\showdir{\ifcase\ltjgetparameter{direction} %
+?\or D\or ?\or T\or Y\or ?\or ?\or?\or?\or?\or?\or U\fi}
+\showdir
+\hbox{\tate {\dtou 感じ\showdir}\showdir}
+\showdir
+
+
+\vbox{\tate\hsize=100mm
+日本語中に数式を打ってみる%
+$\ltjgetparameter{talbaselineshift}abc\hbox{にほんごABC\hbox{\tate たて\showdir}}\showdir$
+$$
+ \ltjgetparameter{talbaselineshift}abc\hbox{にほんごABC\hbox{\tate たて\showdir}}\showdir
+$$
+あいうえお}
+
+\vsize250mm
+\def\F#1{%
+\medskip
+\setbox0=\hbox{\csname #1\endcsname
+ \hbox{\yoko Y}\hbox{\tate T}\hbox{\dtou D}\hbox{\utod U}}
+{\obeylines\fivett\baselineskip=7pt
+\directlua{luatexja.ext_show_node_list(tex.box[0], 'hbox #1> ', tex.print)}\par}}
+
+\F{yoko}
+\F{tate}
+\F{dtou}
+\F{utod}
+
+\hbox{\inhibitglue\tate}
+\hbox{\ltjsetparameter{kanjiskip=0pt}\tate}
+
+\leavevmode\hbox{A}%
+\setbox0\hbox{}%
+\setbox1=\lastbox\the\wd1
+
+\leavevmode
+\hbox{\tate\tentmin ―(U+2015)と—(U+2014),「」あ}
+\hbox{\tate\tfont\g=IPAexMincho:-vert;jfm=ujisv\g%
+ ―(U+2015)と—(U+2014),「」あ}
+
+
+\end