summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/mceinleger/mceinleger.sty
blob: e751618410df4f1459478d664a4c01efba8fd1c7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
%% Vorlage für Musikkassetten-Einleger
%% Autor: Florian Benischke, Wien 2002
%% Copyright (C) 2002 Florian Benischke. All
%% rights reserved. Permission is granted to to customize the
%% declarations in this file to serve the needs of your installation.
%% However, no permission is granted to distribute a modified version of
%% this file under its original name.
%%
%% Anmerkung: Benötigt zusätzlich das Package 'rotating.sty' !

\def\RInfo{2002/07/07, v1.0}
%% File: mceinleger.sty Copyright (C) 2002
\ProvidesPackage{mceinleger}[\RInfo\space Einleger und Hüllen für
Musikkassetten]
\NeedsTeXFormat{LaTeX2e}

\setlength{\unitlength}{1.0cm}
\newcommand{\huelle}[4]{%
  \begin{picture}(15.0,15.0)
  \put(1.0,1.0){\framebox(2.5,10.2){\begin{turn}{270}#1\end{turn}}}
  \put(3.5,1.0){\framebox(1.3,10.2){\begin{turn}{270}#2\end{turn}}}
  \put(4.8,1.0){\framebox(6.4,10.2)[#4]{\parbox{6.4cm}{\begin{center}#3\end{center}}}}
  \end{picture}
}

\newcommand{\einleger}[6]{%
  \begin{picture}(15.0,15.0)
  \put(1.0,1.0){\framebox(2.5,10.2){\begin{turn}{270}#1\end{turn}}}
  \put(3.5,1.0){\framebox(1.3,10.2){\begin{turn}{270}#2\end{turn}}}
  \put(4.8,1.0){\framebox(6.4,10.2)[#4]{\parbox{6.4cm}{\begin{center}#3\end{center}}}}
  \put(11.2,1.0){\framebox(6.4,10.2)[#6]{\parbox{6.4cm}{\begin{center}#5\end{center}}}}
  \end{picture}
}

%%
%% End of file `mceinleger.sty'.