mutopia/J.S.Bach/scsii-menuetto.ly

   1 \header{
   2 filename =       "scsii-menuetto.ly";
   3 title =  "Cello Suite II";
   4 subtitle = "Part V";
   5 instrument = "Menuetto I";              % duh
   6 description =    "Cello suite transcribed for Viola";
   7 source =         "?";
   8 opus =   "BWV 1008 no. 5";
   9 composer =       "Johann Sebastian Bach(1685-1750)";
  10 enteredby =      "JCN";
  11 copyright =      "public domain";
  12 }
  13
  14 %{
  15  Tested Features:breaking algorithm, chords, multivoice, accents
  16 %}
  17
  18 \version "0.1.8";
  19
  20 %% Stuff from MPP version
  21 % \lefttitle{Menuetto}
  22 % \tempo{Moderato}
  23 % \metron{4=120}
  24 %
  25 % \key\F                % \key is F( f-major )
  26 %
  27 % \slope{30}            % Fool MusiXTeX into 30 / 10 steeper beam
  28 %               % because piece is set very tightly
  29
  30 IImenuetto = \melodic{
  31 %       \property Voice.beamslopedamping = \infinity
  32         \clef"alto";
  33         \property Staff.instrument = cello
  34         \meter 3/4;
  35         \key bes;
  36         \octave c';
  37
  38         \duration 8;
  39                 < a2 f2 d2 \f > bes4-.  |
  40 %%2
  41         \textstyle "finger";            % ugh.
  42
  43         \multi 2 <
  44                 { \stemup; [ bes8^"1"( )a8 bes8-. g8-. ] a4-.^"4" }
  45
  46                 { \stemdown; < e8_"2" c8_"4" > }
  47         > |
  48         \stemboth;
  49 %%3
  50 %       \property Voice.beamslopedamping = \normal
  51         < d4 'bes4-. > g4-. [ f8-. e8-. ] |
  52 %       \property Voice.beamslopedamping = \infinity
  53 %%4
  54         \multi 2 <
  55                 { \stemup; [ f8( e8 )d8 cis8-. 'b8-. 'a8-. ] }
  56                 { \stemdown; 'a }
  57         > |
  58         \stemboth;
  59 %%5
  60         < a2 f2 d2 > bes!4-. |
  61 %%6
  62         \multi 2 <
  63                 { \stemup; [ bes8 a8 bes8-. g8-. ] }
  64                 { \stemdown; e8 }
  65         >
  66         \stemboth;
  67         c'!4-. |
  68 %%7
  69         < a4-. f4>
  70         < d'4-.-\upbow f4 'bes4 >
  71         < e'4-.-\downbow g4 'g4 > |
  72 %%8
  73         < cis'2.-\upbow e2. 'a2. >
  74         \bar ":|:";
  75 %%9
  76         \clef "violin";
  77         < e'2 a2 \f >
  78 %       \property Voice.beamslopedamping = \normal
  79         [ d'8( e'16 )f'16 ] |
  80 %       \property Voice.beamslopedamping = \infinity
  81 %%10
  82         \multi 2 <
  83                 { \stemup; [ e'8( d' cis'_"2" )e' a( )g8 ] }
  84                 { \stemdown; g8 }
  85         > |
  86         \stemboth;
  87 %%11
  88         \multi 2 <
  89                 { \stemup; a4( )d'4 cis'4-. }
  90                 { \stemdown; f2 e4 }
  91         > |
  92         \stemboth;
  93 %%12
  94         \multi 2 <
  95                 { \stemup; [ g'8^"4"( f' e' )f' d'^"3"( ) c' ] }
  96                 { \stemdown; d8 }
  97         > |
  98         \stemboth;
  99 %%13
 100         \clef "alto";
 101         \multi 2 <
 102
 103                 { \stemup; bes2 c'4 }
 104                 { \stemdown; g4( )f4 e4 }% ugh
 105         > |
 106         \stemboth;
 107 %%14
 108         \multi 2 <
 109                 { \stemup; [ a8 g8 a8 f8 ] }
 110                 { \stemdown; f8 }
 111         >
 112         \stemboth;
 113         < d'4-\upbow e4 'bes4 > |
 114 %%15
 115         < c'4-\downbow f4 'a4 > [ bes8( )a8 g8 a8 ] |
 116 %%16
 117         [ f( e8 )f a8-. g8-. bes8-. ] |
 118 %%17
 119         < a2^"0"^\trill fis2_"3" > bes4 |
 120 %%18
 121         \multi 2 <
 122                 { \stemup; [ c'8( )bes8 c' a8 ] }
 123                 { \stemdown; es8 }
 124         >
 125         \stemboth;
 126         fis4^\trill |
 127 %%19
 128         < d'4-\downbow g4 'bes4 > < c'4-\upbow g4 c4 > < [ bes8 d8 > a8 ] |
 129 %%20
 130         \multi 2 <
 131                 { \stemup; [ c'8( bes8 a8 )bes g( )bes8 ] }
 132                 { \stemdown; < d8  g8  > }
 133         > |
 134         \stemboth;
 135 %%21
 136         \multi 2 <
 137                 { \stemup; d'4( )cis'4 d'4 }
 138                 { \stemdown; g2 f4 }
 139         > |
 140         \stemboth;
 141 %%22
 142         \multi 2 <
 143                 { \stemup; [ g8( )f8 g8 e8 ] f4 }
 144                 { \stemdown; cis8 d4 }
 145         > |
 146         \stemboth;
 147 %%23
 148 %       \property Voice.beamslopedamping = \normal
 149         [ 'g8 g8 ] < e4.^\trill 'a4. > d8-\upbow |
 150 %       \property Voice.beamslopedamping = \infinity
 151 %%24
 152         \textstyle "roman";             % ugh
 153         < d2.^"fine" 'a2. 'd2._"3 mins.">
 154         \bar ":|";
 155 }
 156
 157 \score{
 158         \melodic{
 159                 \IImenuetto
 160         }
 161         \paper{
 162                 linewidth= 150.0\mm;
 163                 % how does this work?
 164                 % why does space not have dim?
 165                 arithmetic_basicspace = 3.2;
 166                 % how can multiplier have dim?
 167                 arithmetic_mulitplier = 9.\pt;
 168                 \output "scsii-menuetto.out";
 169         }
 170         \midi{
 171                 \tempo 4 = 120;
 172                 \output "scsii-menuetto.midi";
 173         }
 174 }