%% %% 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'.