+\message{^^Jget/set box dimension^^J}
+
+\def\\{\hfill\break}
+\setbox12288=\hbox{%
+ \tate\ltjsetparameter{talbaselineshift=0pt}Htp}
+縦ボックス\hbox{\vrule\copy12288\vrule}寸法\quad
+\vbox{\hsize=80pt\yoko\noindent
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
+}
+\vbox{\hsize=80pt\tate\noindent
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
+}
+\ltjsetwd12288=100pt
+\setbox0=\hbox{\tate\ltjsetht12288=10pt}
+\vbox{\hsize=80pt\yoko\noindent
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
+}
+\vbox{\hsize=80pt\tate\noindent
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
+}
+
+
+
+\setbox12288=\hbox{%
+ \yoko\ltjsetparameter{yalbaselineshift=0pt}Htp}
+横ボックス\hbox{\vrule\copy12288\vrule}寸法\quad
+\vbox{\hsize=80pt\yoko\noindent
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
+}
+\vbox{\hsize=80pt\tate\noindent
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
+}
+\ltjsetwd12288=100pt
+\setbox0=\hbox{\tate\ltjsetht12288=10pt}
+\vbox{\hsize=80pt\yoko\noindent
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
+}
+\vbox{\hsize=80pt\tate\noindent
+ WD: \the\ltjgetwd12288, \\HT: \the\ltjgetht12288, \\DP: \the\ltjgetdp12288%
+}
+
+dimexpr でも使えるかな?\the \dimexpr2\ltjgetwd` +\ltjgetwd200+1pt\relax
+
+\vfill\eject
+
+\message{^^Jalign^^J}
+
+\parindent0pt
+\hrule width 40mm
+
+\hbox{\yoko\hsize40mm\baselineskip20pt 横水平
+\valign{A#\hfil&B#\hfil&C#\hfill\vrule\cr
+あいうえお&ABC&XYZ\cr
+abc&かきくけこ&xyz\cr}横水平}
+\moveright40mm\hbox{\vrule width 40mm height.4pt}
+
+\hbox{\tate\hsize40mm\baselineskip20pt 縦水平
+\valign{甲#\hfil&乙#\hfil&丙#\hfill\vrule\cr
+あいうえお&ABC&XYZ\cr
+abc&かきくけこ&xyz\cr}}%
+%\tracingonline\showboxdepth2\showboxbreadth1000\showlists}
+\moveright40mm\hbox{\vrule width 40mm height.4pt}
+
+\vfill\eject
+
+\vbox{\yoko\hsize40mm\baselineskip20pt 横垂直
+\halign{A#\hfil&B#\hfil&C#\hfill\vrule\cr
+あいうえお&ABC&XYZ\cr
+abc&かきくけこ&xyz\cr}}%
+\moveright40mm\hbox{\vrule width 40mm height.4pt}
+
+\vbox{\tate\baselineskip20pt 縦垂直
+\halign{甲#\hfil&乙#\hfil&丙#\hfill\vrule\cr
+あいうえお&ABC&XYZ\cr
+abc&かきくけこ&xyz\cr}}%
+\moveright40mm\hbox{\vrule width 40mm height.4pt}
+
+\vfill\eject
+
+\message{^^Jdir node^^J}
+\font\seventt=cmtt10 at 7pt
+\font\fivett=cmtt10 at 5pt
+
+\setbox0=\hbox{\yoko pF}
+\setbox1=\hbox{\tate\copy0}
+\fbox{\copy1}
+\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 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}
+
+\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}
+
+%% 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{\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}
+
+\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}
+\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{\yoko\ltjsetht0=30pt
+\hbox{\dtou\dimen0=\ltjgetht0}
+\the\ltjgetht0}% OK. 30pt
+
+\def\R{012345678901234567890123456789}
+\vbox{\tate\hsize=4\zw\R\R\R\R}
+
+
+%\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
+
+
+\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