Mercurial > hg > Members > masakoha > pm

annotate eclbkbox.sty @ 2:2bafedc31698

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