tex/titledefs.tex

   1 %
   2 % ideally, we should create a LaTeX/TeX class
   3 % for setting music in different sizes.
   4 %
   5 % Version 0.1
   6 %
   7 \input lilyponddefs
   8 \def\EndLilyPondOutput{\endinput}
   9 %
  10 \def\thetitle{}
  11 \def\thesubtitle{}
  12 \def\thecomposer{}
  13 \def\thearranger{}
  14 \def\theinstrument{}
  15 \def\theopus{}
  16 \def\thepiece{}
  17 \def\themetre{}
  18 \def\thepoet{}
  19 %
  20 % duh.  LaTeX has a \title too.
  21 \renewcommand*{\title}[1]{\def\thetitle{#1}}
  22 \newcommand*{\subtitle}[1]{\def\thesubtitle{#1}}
  23 \newcommand*{\composer}[1]{\def\thecomposer{#1}}
  24 \newcommand*{\arranger}[1]{\def\thearranger{#1}}
  25 \newcommand*{\instrument}[1]{\def\theinstrument{#1}}
  26 \newcommand*{\opus}[1]{\def\theopus{#1}}
  27 \newcommand*{\piece}[1]{\def\thepiece{#1}}
  28 \newcommand*{\metre}[1]{\def\themetre{#1}}
  29 \newcommand*{\poet}[1]{\def\thepoet{#1}}
  30 %
  31 \newcommand*{\mudelatitle}[1]{\def\thetitle{#1}}
  32 \newcommand*{\mudelasubtitle}[1]{\def\thesubtitle{#1}}
  33 \newcommand*{\mudelacomposer}[1]{\def\thecomposer{#1}}
  34 \newcommand*{\mudelaarranger}[1]{\def\thearranger{#1}}
  35 \newcommand*{\mudelainstrument}[1]{\def\theinstrument{#1}}
  36 \newcommand*{\mudelaopus}[1]{\def\theopus{#1}}
  37 \newcommand*{\mudelapiece}[1]{\def\thepiece{#1}}
  38 \newcommand*{\mudelametre}[1]{\def\themetre{#1}}
  39 \newcommand*{\mudelapoet}[1]{\def\thepoet{#1}}
  40 %
  41 %
  42 \def\mudelanull{}%
  43 %
  44 \def\makelilytitle{%
  45   \begin{center}
  46         \bfseries
  47         \ifx\mudelanull\thetitle\else\sethuge{\thetitle}\\ \fi
  48         \ifx\mudelanull\thesubtitle\else\setLarge{\thesubtitle}\\ \fi
  49   \end{center}
  50   \bigskip
  51   % urg
  52   \edef\saveparskip{\parskip}\parskip-5mm
  53   \begin{minipage}[t]{0.45\textwidth}
  54         \ifx\mudelanull\thepoet\else\settext{\thepoet}\\ \fi
  55         \ifx\mudelanull\themetre\else\settext{\themetre}\\ \fi
  56   \end{minipage}\hspace*{\fill}
  57   \begin{minipage}[t]{0.45\textwidth}
  58       \begin{flushright}
  59           \ifx\mudelanull\thecomposer\else\setlarge{\normalfont\scshape\thecomposer}\\ \fi
  60           \ifx\mudelanull\theopus\else\settext{\theopus}\\ \fi
  61           \ifx\mudelanull\thearranger\else\settext{\thearranger}\\ \fi
  62         \end{flushright}%
  63   \end{minipage}\par
  64   \parskip\saveparskip
  65   {\center\setlarge{\theinstrument}\par}
  66   {\flushleft\setLarge{\normalfont\scshape\thepiece}}
  67   \leavevmode
  68 }
  69 \def\makelilypiecetitle
  70 {
  71   \bigskip
  72   {\flushright\settext{\theopus}\par}
  73   {\flushleft\setLarge{\normalfont\scshape\thepiece}}
  74 }
  75 \endinput
  76