[luatex] CJK vertical typesetting

[Dohyun Kim]

There's some weird problem regarding RTT direction:

\pagedir RTT \bodydir RTT \pardir RTT \textdir RTT
\pdfpagewidth=297mm \pdfpageheight=210mm
%%% two column output from The TeXbook
\newdimen\fullhsize
\fullhsize=6.5in \hsize=3.2in
\def\fullline{\hbox to\fullhsize}
\let\lr=L \newbox\leftcolumn
\output={\if L\lr
    \global\setbox\leftcolumn=\columnbox \global\let\lr=R
  \else \doubleformat \global\let\lr=L\fi
  \ifnum\outputpenalty>-20000 \else\dosupereject\fi}
\def\doubleformat{\shipout\vbox{\makeheadline
    \fullline{\box\leftcolumn\hfil\columnbox}
    \hsize\fullhsize\makefootline}
  \advancepageno}
\def\columnbox{\leftline{\pagebody}}
\input knuth\par
\input knuth\par
\input knuth\par
\input knuth\par
\input knuth\par
\input knuth\par
\input knuth\par
\input knuth\par
\bye

The main body of the document has its place in too far right position.
What is the best way to get rid of this issue?

-- 
Dohyun Kim
College of Law, Dongguk University
Seoul, Republic of Korea