flabels

git-svn-id: svn://tug.org/texlive/trunk@918 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 209 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/flabels/flabels.sty b/Master/texmf-dist/tex/latex/flabels/flabels.sty
new file mode 100644
index 00000000000..bf201fb3721
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/flabels/flabels.sty
@@ -0,0 +1,209 @@
+%%
+%% This is file `flabels.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% flabels.dtx  (with options: `package')
+%% 
+%% Copyright (C) 1997,1999 Volker B"orchers
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN
+%% archives in directory macros/latex/base/lppl.txt; either
+%% version 1 of the License, or any later version.
+%% 
+%% File: flabels.dtx
+%% Copyright (C) 1997,1999 Volker B"orchers
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN
+%% archives in directory macros/latex/base/lppl.txt; either
+%% version 1 of the License, or any later version.
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{flabels}
+[1999/05/19 v1.0 Macros for file/binder labels]
+%% Package `flabels' to use with LaTeX2e
+\newif\ifl@itz \l@itztrue
+\DeclareOption{leitz}{\l@itztrue
+ \newcount\cnt@auxlinedistance \cnt@auxlinedistance=30
+ \newcounter{numberauxlines}\setcounter{numberauxlines}{4}
+ \def\hole@diameter{29}
+ \def\hole@radius{14.5}
+ \def\y@center@hole{-26.5}
+ \def\ylowercompany{-68}
+ \def\yuppercompany{160}
+ \def\companylabelheight{17}
+ \def\f@lll@belheight{285}}
+\newif\iff@llheight \f@llheightfalse
+\DeclareOption{fullheight}{\f@llheighttrue}
+\newif\ifn@rrow \n@rrowfalse
+\DeclareOption{narrow}{\n@rrowtrue}
+\newif\ifcolorl@bel \colorl@belfalse
+\DeclareOption{color}{\colorl@beltrue}
+\DeclareOption{a4paper}{\paperheight 297mm\paperwidth 210mm}
+\newif\ifbe@nice \be@nicefalse
+\DeclareOption{nice}{\be@nicetrue}
+\newif\ifno@hole \no@holefalse
+\DeclareOption{nohole}{\no@holetrue}
+\DeclareOption*{\PackageWarning{flabels}{%
+    Unknown option `\CurrentOption' (Known option:\MessageBreak
+    `fullheight', `narrow', `color', `nohole', `a4paper', `nice')}}
+\ExecuteOptions{leitz}
+\ProcessOptions\relax
+\setlength{\unitlength}{1mm}
+\def\C@nvertToCount#1#2{#1=#2 \divide #1 by 186468}
+\newcount\cnt@paperheight
+\C@nvertToCount\cnt@paperheight\paperheight
+\newcount\cnt@pictvoffset
+\newcount\tmp@count
+\newdimen\tmp@dim
+\ifbe@nice\relax
+\else
+ \textheight\paperheight
+ \topmargin -1in
+ \oddsidemargin 0mm
+ \evensidemargin 0mm
+ \marginparwidth 0mm
+ \marginparsep 0mm
+ \headheight0mm
+ \headsep0mm
+\fi
+\newdimen\extr@topmargin \extr@topmargin=0mm
+\def\extratopmargin#1{\extr@topmargin=#1
+  \advance\extr@topmargin by -1in
+  \topmargin\extr@topmargin}
+\def\auxlinedistance#1{\tmp@dim=#1
+ \C@nvertToCount\cnt@auxlinedistance\tmp@dim}
+\newdimen\labeltextmargin \labeltextmargin=3mm
+\newdimen\l@beltextwidth
+\newdimen\hspaceinterlabel \hspaceinterlabel=0mm
+ \newcount\label@textheight
+\def\full@height#1{%
+ \ifl@itz
+  \ifnum #1=0
+    \f@llheightfalse
+    \def\l@belheight{190}
+    \def\l@belbase{0}
+  \else
+    \f@llheighttrue
+    \def\l@belheight{\f@lll@belheight}
+    \def\l@belbase{-90}
+  \fi
+ \fi
+ \cnt@pictvoffset=\cnt@paperheight
+ \advance\cnt@pictvoffset by -\f@lll@belheight
+ \divide\cnt@pictvoffset by 2
+ \advance\cnt@pictvoffset by \l@belbase
+}
+\iff@llheight
+ \full@height1
+\else
+ \full@height0
+\fi
+\def\n@rrow#1{%
+ \ifl@itz
+  \ifnum #1=0
+    \n@rrowfalse
+    \def\l@belwidth{60}
+    \def\halfl@belwidth{30}
+  \else
+    \n@rrowtrue
+    \def\l@belwidth{37}
+    \def\halfl@belwidth{18.5}
+  \fi
+ \fi
+}
+\ifn@rrow
+ \n@rrow1
+\else
+ \n@rrow0
+\fi
+\ifcolorl@bel
+ \RequirePackage{color}
+ \def\setbgcompany#1{\def\c@lorc@mpany@bg{#1}}
+ \def\setfgcompany#1{\def\c@lorc@mpany@fg{#1}}
+ \def\setbglabel#1{\def\c@lorl@bel@bg{#1}}
+ \def\setfglabel#1{\def\c@lorl@bel@fg{#1}}
+ \ifl@itz
+  \setbgcompany{black}
+  \setfgcompany{green}
+  \setbglabel{yellow}
+  \setfglabel{black}
+ \fi
+\fi
+\ifl@itz
+ \def\c@mpany{\huge LEITZ}
+\fi
+\newsavebox{\c@mpanyl@bel}
+\def\rem@kecompanyl@bel{%
+ \ifcolorl@bel
+  \protect\savebox{\c@mpanyl@bel}{%
+   \fboxsep0pt\protect\colorbox{\c@lorc@mpany@bg}{%
+    \protect\makebox(\l@belwidth,\companylabelheight){%
+     \color{\c@lorc@mpany@fg}\c@mpany}}}%
+ \else
+  \thicklines\protect\savebox{\c@mpanyl@bel}{%
+   \protect\framebox(\l@belwidth,\companylabelheight){\c@mpany}}%
+ \fi
+}
+\newsavebox{\theh@le}
+\savebox{\theh@le}{%
+ \ifl@itz
+  \begin{picture}(\hole@diameter,\hole@diameter)(\hole@radius,\hole@radius)
+   \linethickness{0.01pt}
+   \put(0,\hole@radius){\line(1,0){\hole@diameter}}
+   \put(\hole@radius,0){\line(0,1){\hole@diameter}}
+  \end{picture}%
+ \fi
+}
+\def\l@beloutline{
+ \fboxsep0.5mm
+ \ifcolorl@bel
+  \put(-1,\l@belbase){%
+   \colorbox{\c@lorl@bel@bg}{\makebox(\l@belwidth,\l@belheight){\relax}}}
+ \fi
+ \linethickness{0.01pt}
+ \multiput(0,\l@belbase)(\l@belwidth,0){2}{\line(0,1){\l@belheight}}
+ \multiput(0,\l@belbase)(0,\l@belheight){2}{\line(1,0){\l@belwidth}}
+ \thinlines
+ \put(0,\yuppercompany){\usebox{\c@mpanyl@bel}}
+ \iff@llheight
+  \ifno@hole\relax\else
+   \put(\halfl@belwidth,\y@center@hole){\usebox{\theh@le}}
+  \fi
+  \put(0,\ylowercompany){\usebox{\c@mpanyl@bel}}
+ \fi
+}
+\def\narrowlabels{\n@rrow1}
+\def\widelabels{\n@rrow0}
+\def\fullheight{\full@height1}
+\def\normalheight{\full@height0}
+\def\company#1{\def\c@mpany{#1}}
+\def\emptylabel#1{%
+ \rem@kecompanyl@bel
+ \tmp@count=#1\loop
+ \begin{picture}(\l@belwidth,\l@belheight)(0,\cnt@pictvoffset)
+  \l@beloutline
+  \multiput(0,\cnt@auxlinedistance)(0,\cnt@auxlinedistance){%
+   \value{numberauxlines}}{\line(1,0){\l@belwidth}}
+ \end{picture}
+ \hspace{\hspaceinterlabel}
+ \advance\tmp@count by -1
+ \ifnum\tmp@count>0\repeat
+}
+\def\labeltext#1{%
+ \rem@kecompanyl@bel
+ \l@beltextwidth=\l@belwidth mm
+ \advance\l@beltextwidth by -2\labeltextmargin
+ \C@nvertToCount{\label@textheight}{-\labeltextmargin}
+ \advance\label@textheight by \yuppercompany
+ \begin{picture}(\l@belwidth,\l@belheight)(0,\cnt@pictvoffset)
+  \l@beloutline
+  \put(0,0){\protect\makebox(\l@belwidth,\label@textheight)[t]{%
+     \parbox{\l@beltextwidth}{%
+        \ifcolorl@bel\textcolor{\c@lorl@bel@fg}{#1}\else #1\fi}}}
+ \end{picture}
+ \hspace{\hspaceinterlabel}%
+}
+\endinput
+%%
+%% End of file `flabels.sty'.