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