From 6df4a0e89d38e7a22ad58eff517a2787d3fcb1bd Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 13 Jan 2006 00:00:43 +0000 Subject: niceframe git-svn-id: svn://tug.org/texlive/trunk@1139 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/niceframe/niceframe.sty | 132 +++++++++++++++++++++ 1 file changed, 132 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/niceframe/niceframe.sty (limited to 'Master') diff --git a/Master/texmf-dist/tex/latex/niceframe/niceframe.sty b/Master/texmf-dist/tex/latex/niceframe/niceframe.sty new file mode 100644 index 00000000000..bdef91c0fb8 --- /dev/null +++ b/Master/texmf-dist/tex/latex/niceframe/niceframe.sty @@ -0,0 +1,132 @@ +%% +%% This is file `niceframe.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% niceframe.dtx (with options: `package') +%% +%% This file is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +%% +%% IMPORTANT NOTICE: +%% +%% Copyright (C) 1996 Marcus Ohlhaut (marcus_ohlhaut@m4.maus.de). +%% All rights reserved. +%% +%% Permission is granted to distribute verbatim copies of this file. +%% +%% No other permissions to copy or distribute this file in any form +%% are granted and in particular no permission to modify its contents. +%% +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% +\def\fileversion{1.1b} +\def\filedate{1996/10/20} +\NeedsTeXFormat{LaTeX2e}[1994/06/01] +\ProvidesPackage{niceframe}[\filedate\space v\fileversion\space niceframe package (MO)] +\typeout{Package: niceframe v\fileversion\space <\filedate> (Marcus Ohlhaut)} +\RequirePackage{calc} +\font\ding dingbat scaled 1200 +\newlength{\nicefr@mechar} +\settowidth{\nicefr@mechar}{\ding\char'141} +\newlength{\nicefr@mewidth} +\setlength{\nicefr@mewidth}{\hsize} +\newlength{\nicefr@meheight} +\setlength{\nicefr@meheight}{\vsize} +\newlength{\@ldhsize} +\setlength{\@ldhsize}{\hsize} +\newcommand{\upd@ublerulefill}{\xleaders\hbox to 10pt + {\hss\ding\char'142 \hss}\hfill} +\newcommand{\dnd@ublerulefill}{\xleaders\hbox to 10pt + {\hss\ding\char'147 \hss}\hfill} +\newcommand{\ltd@ublerulefill}{\xleaders\vbox to 10pt + {\vss\hbox{\ding\char'144}\vss}\vfill} +\newcommand{\rtd@ublerulefill}{\xleaders\vbox to 10pt + {\vss\hbox{\ding\char'145}\vss}\vfill} +\newcommand{\niceframe}[2][\textwidth]{{ + \setlength{\hsize}{#1 - 2\nicefr@mechar} + \setbox0=\vbox{#2} + \setlength{\nicefr@meheight}{\ht0 + \dp0} + \setlength{\nicefr@mewidth}{\wd0 + 2\nicefr@mechar} + \vbox{% + \hbox to\nicefr@mewidth{\ding\char'141\upd@ublerulefill\char'143} + \hbox to\nicefr@mewidth{\vbox to\nicefr@meheight{\ltd@ublerulefill} + \hss\raise\dp0\box0\hss + \vbox to\nicefr@meheight{\rtd@ublerulefill}} + \hbox to\nicefr@mewidth{\ding\char'146\dnd@ublerulefill\char'150} + } +}} +\newcommand{\curlyframe}[2][\textwidth]{{ + \setlength{\hsize}{#1 - 2\nicefr@mechar} + \setbox0=\vbox{#2} + \setlength{\nicefr@meheight}{\ht0 + \dp0} + \setlength{\nicefr@mewidth}{\wd0 + 2\nicefr@mechar} + \vbox{% + \hbox to\nicefr@mewidth{\ding\char'105\hfill\char'106} + \vskip-\baselineskip + \hbox to\nicefr@mewidth{\hss\raise\dp0\box0\hss} + \vskip-\baselineskip + \hbox to\nicefr@mewidth{\ding\char'110\hfill\char'107} + } +}} +\newcommand{\artdecoframe}[2][\textwidth]{{ + \setlength{\hsize}{#1 - 2\nicefr@mechar} + \setbox0=\vbox{#2} + \setlength{\nicefr@meheight}{\ht0 + \dp0} + \setlength{\nicefr@mewidth}{\wd0 + 2\nicefr@mechar} + \vbox{% + \hbox to\nicefr@mewidth{\ding\char'115\hfill\char'114} + \hbox to\nicefr@mewidth{\hss\raise\dp0\box0\hss} + \hbox to\nicefr@mewidth{\ding\char'112\hfill\char'113} + } +}} +\newcounter{times} +\newlength{\fr@mecharTT} +\newlength{\fr@mecharLL} +\newlength{\fr@mewidth} +\newlength{\fr@meheight} +\newcommand{\generalframe}[9]{{ + \settowidth{\fr@mecharTT}{#2} + \settoheight{\fr@mecharLL}{#4} + \setcounter{times}{1 * \ratio{\hsize}{\fr@mecharTT}} + \setlength{\fr@mewidth}{\fr@mecharTT * \value{times}} + \setlength{\hsize}{\fr@mewidth - 2\fr@mecharTT - 2\fboxsep} + \setbox0=\vbox{#9} + \setlength{\fr@meheight}{\ht0 + \dp0 + 2\fboxsep} + \setcounter{times}{1 * \ratio{\fr@meheight}{\fr@mecharLL}} + \setcounter{times}{\value{times} + 1} + \setlength{\fr@meheight}{\fr@mecharLL * \value{times}} + \newcommand{\up@fill}{\leaders\hbox{#2}\hfill} + \newcommand{\lt@fill}{\leaders\vbox{\hbox{#4}}\vfill} + \newcommand{\rt@fill}{\leaders\vbox{\hbox{#5}}\vfill} + \newcommand{\dn@fill}{\leaders\hbox{#7}\hfill} + \vbox{% + \hbox to\fr@mewidth{#1\up@fill#3}\nointerlineskip + \hbox to\fr@mewidth{\vbox to\fr@meheight{\lt@fill}% + \hfill% + \vbox to\fr@meheight{\vfill\box0\vfill}% + \hfill% + \vbox to\fr@meheight{\rt@fill}% + }\nointerlineskip + \hbox to\fr@mewidth{#6\dn@fill#8}\nointerlineskip + } +}} +\endinput +%% +%% End of file `niceframe.sty'. -- cgit v1.2.3