File: infram.tex

package info (click to toggle)
texlive-lang 2007.dfsg.4-1%2Blenny1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 94,112 kB
  • ctags: 540
  • sloc: perl: 3,052; sh: 882; lisp: 485; makefile: 377; awk: 180; ruby: 177; sed: 138; xml: 57; ansic: 46; cs: 2
file content (11 lines) | stat: -rw-r--r-- 538 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
 
%% u/zycie: \infram <gr.ramki> <odl.od ramki> {tre/s/c (materia/l pionowy)}
%% usage:   \infram <thickness> <distance> {contents (vertical stuff)}
\newdimen\frth \newdimen\frdi
\long\def\infram{\vbox\bgroup \afterassignment\inframa \frth = }
\def\inframa{\afterassignment\inframb \frdi = }
\long\def\inframb#1{\hrule height\frth
               \hbox{\vrule width\frth
                     \kern\frdi \vbox{\kern\frdi#1\kern\frdi}\kern\frdi
                     \vrule width\frth}
                     \hrule height\frth\egroup}
\endinput