2 %% Author: Victor V. Wagner <vitus@ice.ru>
3 %% Author: Artem V. Chuprina <ran@lpcs.math.msu.ru>
5 %% printing a labels for CD and Zip disk and cassette boxes
6 %% provides environments
8 %% ziplabel --- for IOMEGA ZIP disks
10 %% cassettelabel --- for cassettes
12 %% disklabelbackside, disklabeltwoside --- generic labels.
13 %% Set lengths \coverwidth, \coverheight and \coverdepth
14 %% appropriately before use.
16 %% \begin{disklabelbackside}[backside label]{left-or-both-side label}
17 %% Main label paragraph
18 %% \end{disklabelbackside}
19 %% makes ----------------------------------------
21 %% | | | Main label paragraph |
27 %% ----------------------------------------
28 %% Where BSL is a anticlockwise-rotated backside or both-side label,
29 %% LSL is a anticlockwise-rotated left-or-both-side label.
31 %% \begin{disklabeltwoside}[leftside label]{right-or-both-side label}
32 %% Main label paragraph
33 %% \end{disklabeltwoside}
34 %% makes ------------------------------------
36 %% | | Main label paragraph | |
42 %% ------------------------------------
43 %% Where LSL is a anticlockwise-rotated leftside or both-side label,
44 %% RSL is a anticlockwise-rotated right-or-both-side label.
46 %% BSL, LSL and RSL are read in LR mode, so they should be hboxes or one-line
47 %% text. Main label paragraph is read in paragraph mode.
49 %% Copyright (c) by Victor B. Wagner & Artem V. Chuprina 1998
52 \def\filedate{1998/10/04}
53 \ProvidesPackage{disklabel}[\filedate\space\fileversion\space Disk labelling]
54 \NeedsTeXFormat{LaTeX2e}
55 \RequirePackage{rotating}
57 \newlength{\coverwidth}
58 \newlength{\coverheight}
59 \newlength{\coverdepth}
60 \newlength{\coverbackside}
61 \newlength{\labelpagewidth}
62 \newlength{\covermargin}
63 \setlength{\covermargin}{4mm}
68 \oddsidemargin=-0.75in
70 \topmargin=-0.5in % Leave something for techical purposes
75 \def\disklabelbackside{\@ifnextchar[{\diskl@belbacksidenonequ@l}{\diskl@belbacksideequ@l}}
76 \def\diskl@belbacksideequ@l#1{\diskl@belbackside{#1}{#1}}
77 \def\diskl@belbacksidenonequ@l[#1]{\diskl@belbackside{#1}}
78 \def\diskl@belbackside#1#2{%
79 \labelpagewidth=\coverwidth%
80 \advance\labelpagewidth by -2\covermargin%
87 \hbox to \coverbackside
90 \hbox to \coverheight{\hfil#1\hfil}%
97 \hbox to \coverheight{\hfil#2\hfil}%
103 \hsize=\labelpagewidth%
104 \hspace{\covermargin}%
105 \vbox to \coverheight%
107 \vspace{\covermargin}
109 \def\enddisklabelbackside{
112 \hspace{\covermargin}%
120 \def\disklabeltwoside{\@ifnextchar[{\diskl@beltwosidenonequ@l}{\diskl@beltwosideequ@l}}
121 \def\diskl@beltwosideequ@l#1{\diskl@beltwoside{#1}{#1}}
122 \def\diskl@beltwosidenonequ@l[#1]{\diskl@beltwoside{#1}}
123 \def\diskl@beltwoside#1#2{%
124 \labelpagewidth=\coverwidth%
125 \advance\labelpagewidth by -2\covermargin%
135 \hbox to \coverheight{\hfil#1\hfil}%
138 \def\diskl@beltwoside@secondparameter{#2}%
142 \hsize=\labelpagewidth%
143 \hspace{\covermargin}%
144 \vbox to \coverheight%
146 \vspace{\covermargin}
148 \def\enddisklabeltwoside{
151 \hspace{\covermargin}%
157 \hbox to \coverheight{\hfil\diskl@beltwoside@secondparameter\hfil}%
167 \setlength{\coverwidth}{96mm}%
168 \setlength{\coverheight}{96mm}%
169 \setlength{\coverdepth}{7mm}%
170 \setlength{\coverbackside}{2cm}%
173 \def\endziplabel{\enddisklabelbackside}
176 \setlength{\coverwidth}{65mm}%
177 \setlength{\coverheight}{100mm}%
178 \setlength{\coverdepth}{13mm}%
179 \setlength{\coverbackside}{20mm}%
182 \def\endcassettelabel{\enddisklabelbackside}
185 \setlength{\coverwidth}{138mm}%
186 \setlength{\coverheight}{117mm}%
187 \setlength{\coverdepth}{6mm}%
188 \setlength{\coverbackside}{0cm}%
191 \def\endcdlabel{\enddisklabeltwoside}