mutopia/J.S.Bach/preludes.tex

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