Mercurial > hg > Members > masakoha > masa

annotate 14/homework/morals/4-21/eclbkbox.sty @ 84:cbf5b8a64520

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add homework
author Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
date Thu, 24 Apr 2014 03:38:27 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
84
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 % eclbkbox.sty by Hideki Isozaki, 1992
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 % Date: May 28, 1993
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 \newbox\bk@bxb
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 \newbox\bk@bxa
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 \newif\if@bkcont
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 \newif\ifbkcount
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 \newcount\bk@lcnt
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 \def\breakboxskip{2pt}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 \def\breakboxparindent{1.8em}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 \def\breakbox{\vskip\breakboxskip\relax
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 \setbox\bk@bxb\vbox\bgroup
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 \advance\linewidth -2\fboxrule
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 \advance\linewidth -2\fboxsep
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 \hsize\linewidth\@parboxrestore
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 \parindent\breakboxparindent\relax}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 % \@tempdimb: amount of vertical skip
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 % between the first line (\bk@bxa) and the rest (\bk@bxb)
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 \def\bk@split{%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 \@tempdimb\ht\bk@bxb % height of original box
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 \advance\@tempdimb\dp\bk@bxb
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 \setbox\bk@bxa\vsplit\bk@bxb to\z@ % split it
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 \setbox\bk@bxa\vbox{\unvbox\bk@bxa}% recover height & depth of \bk@bxa
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 \setbox\@tempboxa\vbox{\copy\bk@bxa\copy\bk@bxb}% naive concatenation
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 \advance\@tempdimb-\ht\@tempboxa
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 \advance\@tempdimb-\dp\@tempboxa}% gap between two boxes
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 % \@tempdima: height of the first line (\bk@bxa) + fboxsep
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 \def\bk@addfsepht{%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 \setbox\bk@bxa\vbox{\vskip\fboxsep\box\bk@bxa}}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 \def\bk@addskipht{%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 \setbox\bk@bxa\vbox{\vskip\@tempdimb\box\bk@bxa}}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 % \@tempdima: depth of the first line (\bk@bxa) + fboxsep
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 \def\bk@addfsepdp{%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 \@tempdima\dp\bk@bxa
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 \advance\@tempdima\fboxsep
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 \dp\bk@bxa\@tempdima}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 % \@tempdima: depth of the first line (\bk@bxa) + vertical skip
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 \def\bk@addskipdp{%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 \@tempdima\dp\bk@bxa
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 \advance\@tempdima\@tempdimb
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 \dp\bk@bxa\@tempdima}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 \def\bk@line{%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 \hbox to \linewidth{\ifbkcount\smash{\llap{\the\bk@lcnt\ }}\fi
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 \vrule \@width\fboxrule\hskip\fboxsep
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 \box\bk@bxa\hfil
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 \hskip\fboxsep\vrule \@width\fboxrule}}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
56
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 \def\endbreakbox{\egroup
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 \ifhmode\par\fi{\noindent\bk@lcnt\@ne
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 \@bkconttrue\baselineskip\z@\lineskiplimit\z@
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 \lineskip\z@\vfuzz\maxdimen
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 \bk@split\bk@addfsepht\bk@addskipdp
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 \ifvoid\bk@bxb % Only one line
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 \def\bk@fstln{\bk@addfsepdp
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 \vbox{\hrule\@height\fboxrule\bk@line\hrule\@height\fboxrule}}%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 \else % More than one line
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 \def\bk@fstln{\vbox{\hrule\@height\fboxrule\bk@line}\hfil
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 \advance\bk@lcnt\@ne
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 \loop
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 \bk@split\bk@addskipdp\leavevmode
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 \ifvoid\bk@bxb % The last line
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 \@bkcontfalse\bk@addfsepdp
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 \vtop{\bk@line\hrule\@height\fboxrule}%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 \else % 2,...,(n-1)
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 \bk@line
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 \fi
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 \hfil\advance\bk@lcnt\@ne
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 \if@bkcont\repeat}%
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 \fi
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 \leavevmode\bk@fstln\par}\vskip\breakboxskip\relax}
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
80
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 \bkcountfalse
cbf5b8a64520 add homework
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
82