diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:55:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:55:48 +0000 |
commit | f28605c5c01965e88211c489ccf79bc85059c7cc (patch) | |
tree | 0fb756cbeb082293038691e87b0974241e732ff2 /Master/texmf-dist/tex | |
parent | 23bdb0b5bdf3022398bbfdc812eaef99707ab537 (diff) |
flabels
git-svn-id: svn://tug.org/texlive/trunk@918 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/flabels/flabels.sty | 209 |
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'. |