mutopia/J.S.Bach/preludes.tex

   1 \documentclass{article}         %UGH
   2 \usepackage{a4}
   3
   4 % UGH UGH
   5 \advance\oddsidemargin-30mm
   6 \evensidemargin\oddsidemargin
   7 % ugh, centre
   8 \advance\textwidth60mm
   9 \advance\topmargin-20mm
  10 \addtolength{\textheight}{40mm}
  11 \footskip5mm
  12
  13 \usepackage{fancyheadings}
  14 \lhead{}
  15 \rhead{}
  16 \chead{}
  17 \lfoot{}
  18 \cfoot{\ifnum\thepage=1{\hfill\LilyIdString}\fi}
  19 \rfoot{\ifnum\thepage>1{\hfill\thepage\hfill}\fi}
  20
  21 \headrulewidth0mm
  22 \pagestyle{fancy}
  23 \thispagestyle{fancy}
  24
  25 \input titledefs
  26 \input lilyponddefs
  27 \def\interscoreline{\vskip2mm}
  28 %ugh
  29 \staffheight=20pt
  30
  31 \font\numfont=feta-nummer10 scaled \magstep2
  32 \def\piece#1#2#3{%
  33 %  \hbox to0pt{\vbox to\staffheight{\vss}}
  34 %  \nopagebreak
  35   \vbox to 0pt{\large\bf#3\vss}
  36   \nopagebreak
  37   \vbox to0pt{\vbox to4.5\staffheight{\vss\numfont#1}\vss}
  38   \nopagebreak
  39   \input#2%
  40 }
  41
  42 \begin{document}
  43
  44 \title{DOUZE PETITS PR\'ELUDES\\
  45         TWAALF KLEINE PRELUDI\"EN}
  46 \composer{J.S.\ Bach (1685-1750)}
  47
  48 \makelilytitle
  49 \kern-\staffheight
  50
  51 \piece{1}{preludes-1}{Moderato}
  52 \piece{2}{preludes-2}{Moderato}
  53 \newpage
  54 \piece{3}{preludes-3}{Semplice e non troppo legato}
  55 \newpage
  56 \piece{4}{preludes-4}{Allegretto}
  57 \newpage
  58 \piece{5}{preludes-5}{Moderato}
  59 \newpage
  60 \piece{6}{preludes-6}{Andante espressivo}
  61
  62 \end{document}
  63