X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=test%2Ftest51-vtest.tex;h=21b50d3a4f956559c746ce783b69048d4d97ec98;hb=7be19581cb8f6277d000c9f6fc65c22abeb89942;hp=77ba553bb1e76a32336f9a8acabe78f125fdc7e7;hpb=72dd4273df6e03d84f45bb73e10c827d5742e0bd;p=luatex-ja%2Fluatexja.git

diff --git a/test/test51-vtest.tex b/test/test51-vtest.tex
index 77ba553..21b50d3 100644
--- a/test/test51-vtest.tex
+++ b/test/test51-vtest.tex
@@ -1,9 +1,10 @@
-%#!luatex
+%#!luajittex
 
 \directlua{luatexja_debug = 1}
 \input luatexja.sty
 %\input lua-visual-debug.sty
 
+
 \catcode`\@=11
 \newdimen\@tempdima
 \newbox\@tempboxa
@@ -43,57 +44,142 @@
         \kern-.15em%
         \TeX}
 
-\tentgt
+\tentgt\hfuzz10000pt\relax\vfuzz10000pt
+
+\def\H{\vrule width 2pt height 10pt depth 0pt%
+\vrule width 4pt height 0pt depth 4pt}
 
+\message{^^JTATE, DTOU IN YOKO (HMODE))^^J}
+\yoko
 \hbox{\yoko
-横水平Hxy\hbox{\yoko 横水平Hxy}かき◆
-\hbox{\tate 縦水平Hxy}◆おおおお
-\vbox{\yoko\hsize=30mm 横垂直Hxyああああああああああ}かき◆
-\vbox{\tate\hsize=30mm  縦垂直Hxy\hfill ああ\break ああああああああ}◆ああああ
+  横水平\H\vrule\hbox{\yoko 横水平\H }\vrule かき◆
+  \vrule\hbox{\tate 縦水平\H }\message{HOGE}◆おおおお\vrule
+  \vbox{\yoko\hsize=30mm 横垂直\H ああああああああああ\hfill\H}かき◆%
+  \vrule
+  \vbox{\tate\hsize=30mm 縦垂直\H ああああああああああ\hfill\H}%
+  \vrule ◆ああああ
 }
+\hbox{\yoko\vrule
+  横水平\H\vrule\hbox{\dtou 下水平\H }\vrule ◆おおおお
+  \H\vrule
+  \vbox{\dtou\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}
+\leavevmode
 \hbox{\tate
-縦水平Hxy\hbox{\yoko 横水平Hxy}かき◆
-\hbox{\tate 縦水平Hxy}◆おおおお
-\vbox{\yoko\hsize=30mm 横垂直Hxyああああああああああ}かき◆
-\vbox{\tate\hsize=30mm  縦垂直Hxy\hfill ああ\break ああああああああ}◆ああああ}
+縦水平\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{\tate
+縦水平\H\vrule\hbox{\dtou 下水平\H }\vrule ◆おおおお\H\vrule
+\vbox{\dtou\hsize=30mm 下垂直\H ああああああああああ\hfill\H}%
+\vrule\H ◆ああああ}
+
+\vfill\eject
+
+\message{^^JYOKO, TATE IN DTOU (HMODE)^^J}
+\leavevmode
+\hbox{\dtou
+下水平\H\vrule\hbox{\yoko 横水平\H }\vrule かき◆\H\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{\dtou
+下水平\H\vrule\hbox{\dtou 下水平\H }\vrule◆おおおお\vrule
+\vbox{\dtou\hsize=30mm 下垂直\H ああああああああああ\hfill\H}%
+\vrule ◆ああああ}
 
 
 \vfill\eject
 
 
+\message{^^JTATE, DTOU IN YOKO (VMODE)^^J}
 \setbox0=\vbox{\yoko\hsize=100mm
-横垂直Hxy\hbox{\yoko 横水平Hxy}かき◆
-これは，意味のないサンプルテキストです．
-\hbox{\tate 縦水平Hxy}◆おおおお
+横垂直\H\vrule \hbox{\yoko 横水平\H }\vrule\H かき◆
 これは，意味のないサンプルテキストです．
-\vbox{\yoko\hsize=50mm 横垂直Hxyあああああああああああああああああああ}かき◆
+\vrule\hbox{\tate 縦水平\H }\vrule\H おおおお
+これは，意味のないサンプルテキストです．\vrule
+\vbox{\yoko\hsize=50mm 横垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H かき◆
+これは，意味のないサンプルテキストです．\vrule
+\vbox{\tate\hsize=50mm 縦垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H ◆ああああ
+これは，意味のないサンプルテキストです．\vrule
+\hbox{\dtou 下水平\H }\vrule\H おおおお
 これは，意味のないサンプルテキストです．
-\vbox{\tate\hsize=50mm 縦垂直Hxyあああああああああああああああああああ}◆ああああ
-これは，意味のないサンプルテキスト\hbox{\tate 縦水平Hxy}◆おおおおです．
+\vrule\vbox{\dtou\hsize=50mm 下垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H これは，意味のないサンプルテキストです．
 }
 \copy0
-%{\showboxbreadth10000\showboxdepth10000
-%\showbox0}
-
 \vfill\eject
+
+\message{^^JYOKO, DTOU IN TATE (VMODE)^^J}
 \vbox{\tate\hsize=100mm
-◆◆◆Hxy\hbox{\yoko 横水平Hxy}かき◆
+縦垂直\H\vrule\hbox{\yoko 横水平\H }\vrule\H かき◆
 これは，意味のないサンプルテキストです．
-\hbox{\tate 縦水平Hxy}◆おおおお
+\vrule\hbox{\tate 縦水平\H }\vrule\H おおおお
+これは，意味のないサンプルテキストです．\vrule
+\vbox{\yoko\hsize=50mm 横垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H かき◆
+これは，意味のないサンプルテキストです．\vrule
+\vbox{\tate\hsize=50mm 縦垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H ◆ああああ
+これは，意味のないサンプルテキストです．\vrule
+\hbox{\dtou 下水平\H }\vrule\H おおおお
 これは，意味のないサンプルテキストです．
-\vbox{\yoko\hsize=50mm 横垂直Hxyあああああああああああああああああああ}かき◆
+\vrule\vbox{\dtou\hsize=50mm 下垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H これは，意味のないサンプルテキストです．
+}
+\vfill\eject
+
+\message{^^JYOKO, TATE IN DTOU (VMODE)^^J}
+\vbox{\dtou\hsize=100mm
+下垂直\H\vrule\hbox{\yoko 横水平\H }\vrule\H かき◆
+これは，意味のないサンプルテキストです．
+\vrule\hbox{\tate 縦水平\H }\vrule\H おおおお
+これは，意味のないサンプルテキストです．\vrule
+\vbox{\yoko\hsize=50mm 横垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H かき◆
+これは，意味のないサンプルテキストです．\vrule
+\vbox{\tate\hsize=50mm 縦垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H ◆ああああ
+これは，意味のないサンプルテキストです．\vrule
+\hbox{\dtou 下水平\H }\vrule\H おおおお
 これは，意味のないサンプルテキストです．
-\vbox{\tate\hsize=50mm  縦垂直Hxyあああああああああああああああああああ}◆ああああ
-これは，意味のないサンプルテキスト\hbox{\tate 縦水平Hxy}◆おおおお
-です．
+\vrule\vbox{\dtou\hsize=50mm 下垂直\H ああああああああああ%
+  あああああああああ\hfill\H}%
+\vrule\H これは，意味のないサンプルテキストです．
 }
 
+\vfill\eject
 
 \vbox{\tate\hsize100mm
 \tfont\f=KozMinPr6N-Regular.otf:+vert;jfm=ujisv \f
 
-\ltjsetparameter{yalbaselineshift=.25em}\baselineskip15pt
+\ltjsetparameter{yalbaselineshift=.25em}\baselineskip15pt\parindent\zw
 \LaTeX の特徴として、テキストファイルであるソースコードを入力として処理することでDVIや
 PDFなどの表示形式を出力として得ることが挙げられる。
 
@@ -110,7 +196,7 @@ PDFなどの表示形式を出力として得ることが挙げられる。
 変えることができるなど、文書内容データの再利用性が高い。一度スタイル設定を決めてしまえば、
 あとは文書内容の記述に専念することができるという利点もある。論文などの投稿では、学術雑
 誌のスタイルを記述したファイル（パッケージファイル）を Web からダウンロードして利用するこ
-とで、統一されたスタイルで論文xを投稿することができ、論文の投稿者と雑誌の編集者とのやり取り
+とで、統一されたスタイルで論文を投稿することができ、論文の投稿者と雑誌の編集者とのやり取り
 を簡略化できる。Kile、TeXShop、TeXworks、EasyTeX、WinShell などの \TeX 用エ
 ディタや、野鳥（やてふ、YaTeX）、TeXlipse、KaTeX（花鳥、かてふ）、祝鳥
 （のりてふ）、M's TeX Helper 2など の\TeX 用テキストエディタマクロを兼用することに
@@ -199,22 +285,68 @@ abc&かきくけこ&xyz\cr}}%
 \vfill\eject
 
 \message{^^Jdir node^^J}
-
-\setbox0=\hbox{\tate ABCD}
-\setbox1=\hbox{\yoko\box0}
-\unhcopy1
-\setbox1=\lastbox %% box1: dir_node
-\dp1=100pt
-\setbox2=\hbox{\tate \copy1}%% unwrap
-
-{\obeylines\tentt
-\directlua{luatexja.ext_show_node_list(tex.box[2], 'A> ', tex.print)}}
-
-\setbox2=\hbox{\tate \unhbox2\global\setbox1=\lastbox}%% unwrap
-{\obeylines\tentt
-\directlua{luatexja.ext_show_node_list(tex.box[1], 'B> ', tex.print)}}
-
-\the\ltjgetdp{1}
-
+\font\seventt=cmtt10 at 7pt
+
+\setbox0=\hbox{\yoko pF}
+\setbox1=\hbox{\tate\box0}
+\fbox{\copy1}
+\unhcopy1\setbox1=\lastbox
+{\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 node2> ', tex.print)}\par}
+
+\setbox0=\hbox{\yoko \ltjsetht1=30pt}
+{\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}
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Twd> ', 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}
+
+%% unwrap
+\setbox2=\hbox{\yoko \copy1}
+\setbox2=\hbox{\yoko \unhbox2\global\setbox1=\lastbox}
+{\obeylines\seventt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'unwrapped> ', tex.print)}}
+
+
+
+\setbox0\hbox{\yoko a あ }\setbox1=\hbox{\tate\ltjsetht0=2pt}
+
+\fbox{\copy0}
+\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}
+%
+\ltjsetwd0=40pt
+\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}
+
+p\kern-.15em\TeX\ bug (2011-02-24)
+\setbox0=\hbox{\tate a}\fbox{\copy0}%
+\hbox{\yoko\ltjsetht0=30pt
+\hbox{\dtou\dimen0=\ltjgetht0}
+\the\ltjgetht0}% OK. 30pt
+
+\def\R{０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９}
+\vbox{\tate\hsize=4\zw\R\R\R\R}
+ABCDE
+
+%\tracingall
+\def\showdir{\ifcase\ltjgetparameter{direction} ?\or D\or ?\or T\or Y\fi}
+\showdir
+\hbox{\tate {\dtou 感じ\showdir}\showdir}
+\showdir
 \end
-