Re: 単語カードの作成

名前: しっぽ愛好家
日時: 2004-07-13 18:20:44
IPアドレス: 211.4.121.*

>>30304
失礼しました．
\@one@side@of@one@card，\@output@card@data の定義を下記のものに
取り換えると，どうでしょうか．
また，\@init@card@data の定義中に \global を補う必要がある，
という点はご指摘の通りです．ご面倒をお掛けしまして申し訳ありません．

\count@\z@
\@whilenum10>\count@\do{%
   \advance\count@\@ne
   \expandafter\newbox\csname @card@box@\the\count@ H\endcsname
   \expandafter\newbox\csname @card@box@\the\count@ T\endcsname}
\def\@output@card@data{%
   \count@\z@
   \@whilenum10>\count@\do{%
      \advance\count@\@ne
      \@construct@card@contents}%
   \@cards@seprule.4\p@
   \vbox to\textheight{%
      \hbox{\box\@nameuse{@card@box@1H}\@cards@hsep\box\@nameuse{@card@box@2H}}%
      \@cards@vsep
      \hbox{\box\@nameuse{@card@box@3H}\@cards@hsep\box\@nameuse{@card@box@4H}}%
      \@cards@vsep
      \hbox{\box\@nameuse{@card@box@5H}\@cards@hsep\box\@nameuse{@card@box@6H}}%
      \@cards@vsep
      \hbox{\box\@nameuse{@card@box@7H}\@cards@hsep\box\@nameuse{@card@box@8H}}%
      \@cards@vsep
      \hbox{\box\@nameuse{@card@box@9H}\@cards@hsep\box\@nameuse{@card@box@10H}}%
      \vss}%
   \newpage
   \@cards@seprule\z@ %%% 裏面には切り取り線は出力しない
   \vbox to\textheight{%
      \hbox{\box\@nameuse{@card@box@2T}\@cards@hsep\box\@nameuse{@card@box@1T}}%
      \@cards@vsep
      \hbox{\box\@nameuse{@card@box@4T}\@cards@hsep\box\@nameuse{@card@box@3T}}%
      \@cards@vsep
      \hbox{\box\@nameuse{@card@box@6T}\@cards@hsep\box\@nameuse{@card@box@5T}}%
      \@cards@vsep
      \hbox{\box\@nameuse{@card@box@8T}\@cards@hsep\box\@nameuse{@card@box@7T}}%
      \@cards@vsep
      \hbox{\box\@nameuse{@card@box@10T}\@cards@hsep\box\@nameuse{@card@box@9T}}%
      \vss}%
  \newpage}
\def\@one@side@of@one@card#1{%
   \hbox to \CardWidth{%
      \@tempdima\CardPadding \advance\@tempdima\CardSideMargin
      \dimen@\CardWidth \advance\dimen@-\@tempdima
      \advance\dimen@-\CardPadding
      \if@tempswa \hskip\@tempdima \else \hss \fi
      \vbox to\CardHeight{%
         \vskip\CardPadding
         \vtop{\hsize\dimen@ \@parboxrestore
            \@nameuse{@card@#1}}%
         \vss}%
      \if@tempswa \hss \else \hskip\@tempdima \fi}}
\def\@construct@card@contents{%
   \begingroup
   \def\@elt##1{\noexpand\setcounter{##1}{\number\the\csname c@##1\endcsname}}%
   \xdef\@restore@counters{\cl@@ckpt}%
   \endgroup
   \@tempswatrue
   \setbox\csname @card@box@\the\count@ H\endcsname
      \@one@side@of@one@card{\the\count@ H}%
   \@restore@counters
   \@tempswafalse
   \setbox\csname @card@box@\the\count@ T\endcsname
      \@one@side@of@one@card{\the\count@ T}}
%%% 結局こういう処理にするのなら，個々の Card 環境の処理の際に
%%% 各カードの表・裏のそれぞれの記述の組版結果をボックスに保存するように
%%% した方が簡明だったかもしれません．

%%% ちなみに，\cl@@ckpt を用いた処理の部分は，各種の LaTeX カウンタの
%%% 値の保存・復元の処理です．

この書き込みへの返事：