test/test51-vtest.tex

   1 %#!luatex
   2
   3 \input luatexja.sty
   4 %\input lua-visual-debug.sty
   5
   6 \catcode`\@=11
   7 \newdimen\@tempdima
   8 \newbox\@tempboxa
   9 \newdimen\fboxrule
  10 \newdimen\fboxsep
  11 \fboxrule=0.4pt\fboxsep=0pt
  12 \long\def\fbox#1{%
  13   \leavevmode
  14   \setbox\@tempboxa\hbox{\kern\fboxsep{#1}\kern\fboxsep}%
  15   \@frameb@x\relax}
  16 \def\@frameb@x#1{%
  17   \@tempdima\fboxrule
  18   \advance\@tempdima\fboxsep
  19   \advance\@tempdima\dp\@tempboxa
  20   \hbox{%
  21     \lower\@tempdima\hbox{%
  22       \vbox{%
  23         \hrule height\fboxrule
  24         \hbox{%
  25           \vrule width\fboxrule
  26           #1%
  27           \vbox{%
  28             \vskip\fboxsep
  29             \box\@tempboxa
  30             \vskip\fboxsep}%
  31           #1%
  32           \vrule width\fboxrule}%
  33         \hrule height\fboxrule}%
  34                           }%
  35         }%
  36 }
  37
  38 \hbox{\yoko
  39 横水平Hxy\hbox{\yoko 横水平Hxy}かき◆
  40 \hbox{\tate 縦水平Hxy}◆おおおお
  41 \vbox{\yoko\hsize=30mm 横垂直Hxyああああああああああ}かき◆
  42 \vbox{\tate\hsize=30mm  縦垂直Hxy\hfill ああ\break ああああああああ}◆ああああ
  43 }
  44 \vfill\eject
  45 \hbox{\tate
  46 縦水平Hxy\hbox{\yoko 横水平Hxy}かき◆
  47 \hbox{\tate 縦水平Hxy}◆おおおお
  48 \vbox{\yoko\hsize=30mm 横垂直Hxyああああああああああ}かき◆
  49 \vbox{\tate\hsize=30mm  縦垂直Hxy\hfill ああ\break ああああああああ}◆ああああ
  50 }
  51
  52 \vfill\eject
  53
  54
  55 \setbox0=\vbox{\yoko\hsize=100mm
  56 横垂直Hxy\hbox{\yoko 横水平Hxy}かき◆
  57 これは，意味のないサンプルテキストです．
  58 \hbox{\tate 縦水平Hxy}◆おおおお
  59 これは，意味のないサンプルテキストです．
  60 \vbox{\yoko\hsize=50mm 横垂直Hxyあああああああああああああああああああ}かき◆
  61 これは，意味のないサンプルテキストです．
  62 \vbox{\tate\hsize=50mm 縦垂直Hxyあああああああああああああああああああ}◆ああああ
  63 これは，意味のないサンプルテキスト\hbox{\tate 縦水平Hxy}◆おおおおです．
  64 }
  65 \copy0
  66 %{\showboxbreadth10000\showboxdepth10000
  67 %\showbox0}
  68
  69 \vfill\eject
  70 \vbox{\tate\hsize=100mm
  71 縦垂直Hxy\hbox{\yoko 横水平Hxy}かき◆
  72 これは，意味のないサンプルテキストです．
  73 \hbox{\tate 縦水平Hxy}◆おおおお
  74 これは，意味のないサンプルテキストです．
  75 \vbox{\yoko\hsize=50mm 横垂直Hxyあああああああああああああああああああ}かき◆
  76 これは，意味のないサンプルテキストです．
  77 \vbox{\tate\hsize=50mm  縦垂直Hxyあああああああああああああああああああ}◆ああああ
  78 これは，意味のないサンプルテキスト\hbox{\tate 縦水平Hxy}◆おおおお
  79 です．
  80 }
  81
  82 \end
  83