mceinleger

git-svn-id: svn://tug.org/texlive/trunk@1078 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 36 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/mceinleger/mceinleger.sty b/Master/texmf-dist/tex/latex/mceinleger/mceinleger.sty
new file mode 100644
index 00000000000..e751618410d
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/mceinleger/mceinleger.sty
@@ -0,0 +1,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'.