X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=test%2Ftest51-vtest.tex;h=4b030a22f53df1f3e0213d858fd2a5d815463718;hb=55a3d0259d58f0ced648662986e92fc94c08f1f4;hp=79935215a26318c0799ad3077c0ef172f878cc70;hpb=2f800c33dacec1e80b0271b5ee7b2e5c816f63b7;p=luatex-ja%2Fluatexja.git

diff --git a/test/test51-vtest.tex b/test/test51-vtest.tex
index 7993521..4b030a2 100644
--- a/test/test51-vtest.tex
+++ b/test/test51-vtest.tex
@@ -49,7 +49,7 @@
 \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 かき◆
@@ -65,15 +65,21 @@
   \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}%
+%  {\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
@@ -86,10 +92,34 @@
 縦水平\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
@@ -103,6 +133,10 @@
 下水平\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
@@ -177,7 +211,7 @@
 \vfill\eject
 
 \vbox{\tate\hsize100mm
-\tfont\f=KozMinPr6N-Regular.otf:+vert;jfm=ujisv \f
+\tfont\f=KozMinPr6N-Regular.otf:jfm=ujisv \f
 
 \ltjsetparameter{yalbaselineshift=.25em}\baselineskip15pt\parindent\zw
 \LaTeX の特徴として、テキストファイルであるソースコードを入力として処理することでDVIや
@@ -203,6 +237,10 @@ PDFなどの表示形式を出力として得ることが挙げられる。
 よって、より効率的な文章作成が可能ともなる。またMapleやMathematicaなどでドキュメントを
 作成し、\TeX 形式で出力することも可能である。
 
+\null\hfill
+（Wikipediaの「\LaTeX」の記事より．8/13現在）
+
+左⇦⇧⇩⇨⬅⬆⬇➡右
 }
 
 \message{^^Jget/set box dimension^^J}
@@ -212,18 +250,18 @@ PDFなどの表示形式を出力として得ることが挙げられる。
   \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%
 }
 
 
@@ -232,21 +270,21 @@ PDFなどの表示形式を出力として得ることが挙げられる。
   \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
 
@@ -286,11 +324,12 @@ abc&かきくけこ&xyz\cr}}%
 
 \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
+\setbox1=\copy0
 {\obeylines\seventt\baselineskip=10pt
 \directlua{luatexja.ext_show_node_list(tex.box[1], 'lastbox>   ', tex.print)}\par}
 \setbox0=\hbox{\yoko \ltjsetwd1=50pt}
@@ -304,12 +343,14 @@ abc&かきくけこ&xyz\cr}}%
 {\obeylines\seventt\baselineskip=10pt
 \directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Yht> ', tex.print)}\par}
 
-\message{HOGE}
-\setbox0=\hbox{\tate \ltjsetwd1=50pt\immediate\message{PIYO}}
-
-{\obeylines\seventt\baselineskip=10pt\message{HOGE}\hbox{a}\message{HOGE}
+\setbox0=\hbox{\tate \ltjsetwd1=50pt}
+{\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}
@@ -320,6 +361,10 @@ abc&かきくけこ&xyz\cr}}%
 {\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}
@@ -328,11 +373,18 @@ abc&かきくけこ&xyz\cr}}%
 \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}%
@@ -342,10 +394,83 @@ p\kern-.15em\TeX\ bug (2011-02-24)
 
 \def\R{０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９}
 \vbox{\tate\hsize=4\zw\R\R\R\R}
-ABCDE
+
 
 %\tracingall
-\hbox{\tate {\dtou 感じ\ifddir D\fi\iftdir T\fi}\ifddir D\fi\iftdir T\fi}
+\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
 
-\end
 
+\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
+
+
+\vfill\eject
+
+\def\TEST#1{%
+  \tfont\A={#1;jfm=ujisv}
+  \noindent\vbox{\tate\hsize=200mm\A\parindent0pt
+    {\tentt #1}\par
+    あ，いーう．え「お」”か”左←↑→↓下
+  }\
+}
+
+\TEST{IPAexMincho:}
+\TEST{hgrkk.ttc:}
+\TEST{hgrkk.ttc:script=kana}
+\TEST{hgrkk.ttc:script=kana;language=jan}
+\TEST{hgrkk.ttc:script=hani}
+\TEST{KozMinPr6N-Regular.otf:}
+\TEST{KozMinPr6N-Regular.otf:script=kana}
+\TEST{KozMinPr6N-Regular.otf:script=kana;language=jan}
+\TEST{KozMinPr6N-Regular.otf:script=hani}
+
+\def\X#1#2#3{%
+漢字\hbox{#1◆あい#2えお◆}漢字
+\raise10pt\hbox{#1◆あい#2えお◆}漢字
+\lower10pt\hbox{#1◆あい#2えお◆}漢字#3
+漢字\hbox{\hbox{#1◆あい#2えお◆}}漢字
+\raise10pt\hbox{\hbox{#1◆あい#2えお◆}}漢字
+\lower10pt\hbox{\hbox{#1◆あい#2えお◆}}漢字#3
+漢字\vbox{\hsize80pt#1\vrule◆あい#2えお◆\hfil\vrule}漢字
+\raise10pt\vbox{\hsize80pt#1\noindent\vrule◆あい#2えお◆\hfil\vrule}漢字
+\lower10pt\vbox{\hsize80pt#1\vrule◆あい#2えお◆\hfil\vrule}漢字
+}
+
+\vfil\eject
+\vbox{\yoko
+\X\yoko Y{\hfil\break}\par\X\tate T{}\par\X\dtou D{}\par
+\X\utod U{}}
+
+\vbox{\tate
+\X\yoko Y{}\par\X\tate T{\hfil\break}\par\X\dtou D{\hfil\break}\par
+\X\utod U{\hfil\break}}
+\end