akkorde.sty

   1 % Ein -*-latex-*- File
   2
   3 % Stellt die Befehle
   4 % \X{<Akkordname>}              \X{Dm}    \X{D7}
   5 % \Fis und \B                   \X{D\Fis} \X{D\B 7}
   6 % zur Verfügung.
   7 %
   8 % Es bietet sich an, zum Setzen des Liedes das song-Environment
   9 % zu benutzen. Die Akkorde werden einfach an der passenden Stelle in
  10 % den Text gesetzt. Weiterhin ist in der song-Umgebung ein
  11 % Seitenumbruch nur zwischen Absätzen (=Strophen) möglich.
  12 % Beispiel:
  13
  14 % \songtitle{Lied}
  15 % \begin{songinfo}
  16 % Dies ist ein Testlied,\\
  17 % Melodie: Keine\\
  18 % Text: Stony
  19 % \end{songinfo}
  20 %
  21 % \begin{song}
  22 %       Dies ist ein Te\X{Dm}stlied\\*
  23 %       hat ein p\X{A\B 7}aar Akkorde\\*
  24 %       zum T\X{F\Fis}esten u\X{B}nd so.
  25 %       \Xvspace[1cm]
  26 % \end{song}
  27
  28 % \Xvspace fügt einen vertikalen Abstand ein, der nur erscheint, wenn
  29 % die Akkorde eingeschaltet sind (um Strophen mit Akkorden besser vom
  30 % Rest abzusetzen). Default ist 0.5cm, aber es kann jeder beliebige
  31 % Wert als optionaler Parameter übergeben werden.
  32
  33 % Zwischen Akkorden an und aus umschalten: \Xon, \Xoff
  34
  35 % \renewcommand{\X}[1]{}       % Unterdr"uckung der Akkorde
  36
  37 \newcommand{\Fis}{\textsuperscript{\#}}
  38 \newcommand{\B}{\textsuperscript{b}}
  39
  40 \newcommand{\X}[1]{}
  41 \newcommand{\Xvspace}[1]{}
  42
  43 \newcommand{\Xon}{
  44   \renewcommand{\X}[1]{\raisebox{2.3ex}[4.5ex]{\makebox[0mm][l]{%
  45         \textsf{\small\bfseries ##1}}}}
  46   \renewcommand{\Xvspace}[1][0.5cm]{\vspace{##1}}
  47 }
  48
  49 \newcommand{\Xoff}{
  50   \renewcommand{\X}[1]{}
  51   \renewcommand{\Xvspace}[1]{}
  52 }
  53
  54 \Xon                          % Akkorde an!
  55
  56 \newenvironment{song}{
  57   \samepage
  58   \setlength{\parskip}{2mm plus 0mm minus 1mm}
  59   \setlength{\parindent}{0cm}
  60   }{}
  61
  62
  63
  64 \newcommand{\songtitle}[1]{\centerline{\huge\bfseries\sffamily #1}%
  65   \vspace{0.5cm}%
  66   \addtocontents{toc}{
  67     \noindent\hspace{1cm}#1\dotfill\arabic{page}\par}}
  68
  69 \newenvironment{songinfo}{
  70   \itshape
  71   \setlength{\parindent}{0pt}
  72   \setlength{\parskip}{2mm plus 0mm minus 1mm}
  73   \begin{flushleft}
  74   }
  75 { \end{flushleft} }
  76
  77
  78
  79 \newenvironment{changemargin}[2]{\begin{list}{}{
  80       \setlength{\topsep}{0pt}\setlength{\leftmargin}{0pt}
  81       \setlength{\rightmargin}{0pt}
  82       \setlength{\listparindent}{\parindent}
  83       \setlength{\itemindent}{\parindent}
  84       \addtolength{\leftmargin}{#1}\addtolength{\rightmargin}{#2}
  85       }\item\relax }{\end{list}}
  86
  87
  88
  89
  90
  91
  92
  93