From: Helmut_Kindler@s2.maus.de (Helmut Kindler)
Newsgroups: de.comp.tex
Subject: Re: Cassetten-Label Drucken
Date: 15 Oct 92 00:55:00 GMT
Article-I.D.: S2.A2889
Organization: MausNet
X-Gateway: MausGate/News 1.14

> ich suche eine Software, mit welcher man komfortabel
> Audio-Cassetten-Label erstellen und ausgeben kann.
> Nett waere ein entsprechendes TeX-Programm, da es so
> wohl rechnerunabhaengig ist.

Ich habe ein paar Makros, die Labels mit Hilfe von LaTeX setzten.
Die Kommentare muessten ausreichen um mit den Makros umgehen zu koennen.

Helmut Kindler        GNAV@DS0RUS1I.BITNET
Chamissostr. 4        GNAV@ibmvm.rus.uni-stuttgart.de
7000 Stuttgart 1      helmut@ifswps1.fertigungstechnik.uni-stuttgart.de
                      Helmut_Kindler@bl.maus.de
                      Helmut_Kindler@s2.maus.de

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                          %
% cass.tex      (c) 1990 Helmut Kindler                        17.12.1990  %
%                                                                          %
% Befehle zur Layout-Erstellung von Cassetten-Labeln                       %
%                                                                          %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                          %
% Aufruf: \input cass                                                      %
%         man braucht danach kein '\documentstyle'                         %
%                                                                          %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                          %
% Neue Befehle:                                                            %
%                                                                          %
% \cass {}{}{}{}     Erzeugt ein Cassettenlabel. Die erste Klammer ergibt  %
%                    die Stirnseite (s.u.), die beiden naechsten Klammern   %
%                    sind die Texte fuer die 1. und 2. Seite. Die letzte    %
%                    Klammer wird ins rechte untere Eck gesetzt und ist    %
%                    fuer Strings wie "dolby C" gedacht.                    %
% \cassno {}{}{}{}{} wie \cass, nur wird in der 1.Klammer eine maximal     %
%                    3-stellige, fortlaufende Nummer eingesetzt. Dabei     %
%                    muessen die einzelnen Ziffern mit "\\" getrennt werden. %
%                    (Beispiel: {1\\2\\3})                                 %
%                    Die restlichen Klammern werden analog zu \cass ausge- %
%                    fuellt.                                                %
%                                                                          %
%                                                                          %
% Hilfsbefehle fuer die Stirnseite:                                         %
%                                                                          %
% \titel  {}{}{}{}   Hilfsmakro fuer die Stirnseite. Klammern in folgender  %
%                    Reihenfolge ausfuellen:                                %
%                    TitelA UntertitelA TitelB UntertitelB                 %
% \titelc  {}{}{}    wie \titel, allerdings gibt es nur einen Titel.       %
% \titelC  {}{}{}    wie \titelc, aber anderes Layout.                     %
% \titelcc {}{}      wie \titelc, allerdings gibt es nur einen Untertitel. %
% \titelT  {}        wie \titelcc, es gibt jedoch keinen Untertitel.       %
%                                                                          %
%                                                                          %
% Befehle, die intern benutzt werden, aber auch extern aufrufbar sind:     %
%                                                                          %
% \CassLabel {}      wie \cass, jedoch wird nur die Stirnseite erstellt    %
% \CassLabelNo {}{}  wie \cassno, jedoch wird nur die Stirnseite erstellt  %
% \CassText {}{}{}   wie \cass, jedoch wird keine Stirnseite erstellt      %
%                                                                          %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                          %
% Ein fertiges Label sieht also so aus:                                    %
%                                                                          %
%   \cassno {1\\2\\3}                % Oder einfach \cass                  %
%     { \titel {TA} {UA} {TB} {UB} } % Oder ein anderer "\titelxxx"-Befehl %
%     { Lied 1\\                                                           %
%       Lied 2\\                                                           %
%       ...                                                                %
%       Lied x                       % Die "\\" hier wirklich weglassen    %
%       }                            % Sonst erhaelt man eine Warnung!      %
%     { ... }                                                              %
%     { dolby C }                    % Oder was sonst gefaellt              %
%                                                                          %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                          %
% Dieses File darf frei weitergegeben werden, solange der Copyright-       %
% Vermerk in der 3.Zeile nicht entfernt wird.                              %
% Verbesserungsvorschlaege sind jederzeit willkommen.                       %
%                                                                          %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\documentstyle [german] {article}
\pagestyle {empty}
\parindent0pt            % kein Absatzeinzug
\parskip0pt              % Kein Absatzabstand
\topmargin0pt            % Kein oberer Rand
\headheight0pt           % Kein Kopf
\headsep0pt              % Auch kein Kopfabstand
\footheight0pt           % Kein Fuss
\footskip0pt             % Auch kein Fussabstand
\topskip0pt              % Kein Abstand vom Textbeginn
\evensidemargin2.4668mm       % Linker Rand Xmm
\oddsidemargin2.4668mm        % Auch auf ungeraden Seiten
\textwidth204mm          % Textbreite
\voffset-0.5in           % Druckbeginn 0,5 Zoll von oben
\hoffset-0.9in           % Druckbeginn 0,1 Zoll von links
\textheight260mm         % Texthoehe

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                         %
% Hauptmakros zum Erstellen der Labels (Benutzermakros)                   %
%                                                                         %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Komplettes Label                                                        %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\cass} [4]                         %
{   \unitlength1mm                              % normales Label
    \begin {picture}(100,79.5)                  %
        \put (-1,66.5) {\CassLabel {#1}}        % Titel
        \put (-1,0) {\CassText {#2} {#3} {#4}}  % Texte
    \end {picture}                              %
}

\newcommand {\cassno} [5]                       %
{   \unitlength1mm                              % nummeriertes Label
    \begin {picture}(100,79.5)                  %
        \put (-1,66.5) {\CassLabelNo {#1} {#2}} % Titel
        \put (-1,0) {\CassText {#3} {#4} {#5}}  % Texte
    \end {picture}                              %
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Stirnseite                                                              %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\CassLabel} [1]                    %
{   \unitlength1mm                              % normales Label
    \begin {picture}(100,13)                    %
        \put (0,0)                              %
        {   \framebox (101,12){}                % Titel
        }                                       %
        \put (1,5.5)                            %
        {   \begin {minipage} {99mm}            %
                #1%                             %
            \end {minipage}                     %
        }
    \end {picture}
}

\newcommand {\CassLabelNo} [2]                  %
{   \unitlength1mm                              % nummeriertes Label
    \begin {picture}(100,13)                    %
        \put (97,0)                             %
        {   \framebox (4,12)                    % Nummer
            {\large\shortstack{#1}}             %
        }
        \put (0,0)                              %
        {   \framebox (96,12){}                 % Titel
        }                                       %
        \put (1,5.5)                            %
        {   \begin {minipage} {94mm}            %
                #2%                             %
            \end {minipage}                     %
        }
    \end {picture}
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Text                                                                    %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\CassText} [3]
{   \unitlength1mm
    \begin {picture}(100,65)
        \put (0,0)   {\CassRahmen}          % Text Seite A
        \put (0,64)  {\CassSpalte {#1}}     %
        \put (51,0)  {\CassRahmen}          % Text Seite B
        \put (51,64) {\CassSpalte {#2}}     %
        \put (100,2)                        %
        {   \makebox (0,0) [br] {#3}        % dolby X
        }                                   %
    \end {picture}
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Makros zur Gestaltung vom Text                                          %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\CassRahmen}
{   \framebox (50,65) [tl] {}}

\newcommand {\CassSpalte} [1]
{   \makebox (0,0) [tl]
    {   \begin {minipage} [t] {48mm}
            #1%
        \end {minipage}
    }
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                         %
% Hier ein paar Hilfsmakros fuer die Stirnseite (Benutzermakros)           %
%                                                                         %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\titel} [4]            %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{   \huge  #1 \hfill \huge  #3\\    %Titel A             Titel B%
    \small #2 \hfill \small #4}     %Untertitel A   Untertitel B%
                                    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\titelc} [3]           %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{   \centerline {\huge  #1}         %           Titel           %
    \small #2 \hfill \small #3}     %Untertitel A   Untertitel B%
                                    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\titelC} [3]           %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{   \small #2 \hfill \Huge  #1%     %Untert.A   TITEL   Untert.B%
    \hfill \small #3}               %%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\titelcc} [2]          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{   \centerline {\huge  #1}         %           Titel           %
    \centerline {\small #2}}        %         Untertitel        %
                                    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand {\titelT} [1]           %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{   \centerline {\Huge  #1}}        %           Titel           %
                                    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%