Re: 横書きでページを2分割にするには

名前: .
日時: 2008-02-12 17:42:41
IPアドレス: 59.134.169.*

>>50927
とりあえず，こんなところでしょうか．
ただし，各ページの「問題部分」，「類題部分」が 1/2 ページを超えると
妙なことになります．
# 先に申しましたように今は深入りできませんのでこれで手を引きます．

\documentclass{jarticle}
\makeatletter
\newdimen\columnheight
\global\columnheight\textheight
\newdimen\savedtextheight
\global\savedtextheight\textheight
\def\@restore@textheight{\textheight\savedtextheight}
\def\@outputdblcol{%
   \if@firstcolumn
      \global\@firstcolumnfalse
      \global\setbox\@leftcolumn\box\@outputbox
   \else
      \global\@firstcolumntrue
      \setbox\@outputbox\vbox{%
         \vbox to\savedtextheight{%
            \vbox to\columnheight{\box\@leftcolumn \vss}%
            \vfil{\normalcolor\hrule \@height\columnseprule}\vfil
            \vbox to\columnheight{\box\@outputbox \vss}}}%
      \@combinedblfloats%%% この場合，あまり意味がありません
      \@outputpage
      \begingroup
      \@dblfloatplacement
      \@startdblcolumn
      \@whilesw\if@fcolmade\fi{\@outputpage \@startdblcolumn}%
      \endgroup
   \fi}
\def\onecolumn{%
   \clearpage
   \global\columnwidth\textwidth
   \global\hsize\columnwidth
   \global\linewidth\columnwidth
   \global\textheight\savedtextheight
   \global\columnheight\textheight
   \global\vsize\savedtextheight
   \global\@colht\savedtextheight
   \global\@twocolumnfalse
   \col@number\@ne
   \@floatplacement}
\def\twocolumn{%
   \clearpage
   \global\columnwidth\textwidth
   \global\hsize\columnwidth
   \global\linewidth\columnwidth
   \global\@twocolumntrue
   \global\@firstcolumntrue
   \dimen@\savedtextheight \advance\dimen@-\columnsep
   \divide\dimen@\tw@
   \global\textheight\dimen@ 
   \global\columnheight\textheight
   \global\vsize\textheight
   \global\@colht\textheight
   \col@number\tw@
   \@ifnextchar[\@topnewpage\@floatplacement}
\makeatother

\begin{document}
\twocolumn
例題
\newpage
類題
\newpage
例題\par\vspace{50pt}例題
\newpage
類題
\newpage \columnseprule=0.4pt
例題\par\vspace{50pt}例題\par\vspace{50pt}例題
\newpage
類題
\end{document}

この書き込みへの返事：