input/toccata-fuga-E.ly

   1 \header{
   2 filename        toccata-fuga-E.ly
   3 title   toccata and fuga in E-major
   4 opus    BWV 566
   5         toccata         3 bar excerpt
   6         2nd fuga        transposed subject --- 4 bar excerpt
   7
   8 composers       Johann Sebastian Bach (1685-1750)
   9 enteredby       JCN
  10 copyright       public domain
  11
  12 }
  13
  14 %{
  15  Tested Features:
  16  purpose of this file is testing:
  17      * real-life collisions
  18      * multi-voice input --- splitting?
  19      * organ staff...
  20 %}
  21
  22
  23 \version "0.1.6";
  24
  25 toccata_commands = \melodic{
  26         \meter 4/4;
  27         \key fis cis gis dis; % E-major
  28 }
  29
  30 toccata_right = \melodic{
  31         \$toccata_commands
  32         % 13 -- how to type -- where to split -- this more neatly ?
  33         \octave c';
  34         \multi 2 <
  35                 { \stemup r4 dis'4 e'4.-. e'8( | \property Voice.hshift = 1 )e'4 [d'8 fis'8] \property Voice.hshift = 0 gis'4 [gis'8 fis'16 e'16] | fis'4~  [fis'8 e'16 dis'16] e'4 r8 e'8 }
  36                 { \stemup \property Voice.hshift = 1 r4 bis4 cis'4-. cis'4 | \property Voice.hshift = 0 a'4~  [a'16 gis'16 a'16 b'16] \property Voice.hshift = 1 dis'4 cis'4~  [cis'8 dis'16 a16] bis4 cis'4 r8 b8 }
  37                 { \stemdown r4 < gis4 fis4 dis4 > gis4-. gis4 | a4. cis'8 gis2 | fis4 gis4 gis4 r8 e8 }
  38         > |
  39         % 16
  40 }
  41
  42 toccata_left = \melodic{
  43         \$toccata_commands
  44         \octave c;
  45         \clef bass;
  46         % 13
  47         \multi 2 <
  48                 { \stemup bis2 cis'4-. cis'4~  [cis'8 a8 d'8 cis'8] [bis8 gis8] cis'4 | dis'2 cis'4 r8 cis'8 }
  49                 { \stemup \property Voice.hshift = 1 r4 gis4. gis8~  gis4 | \stemdown \property Voice.hshift = 0 a4. fis8 gis4. a8~  a4 gis4-. gis4 r8 gis8 }
  50                 { \stemdown r4 < dis4 fis4 > < cis4 e4 > }
  51         > |
  52         % 16
  53 }
  54
  55 toccata_pedal = \melodic{
  56         \$toccata_commands
  57         \octave c;
  58         \clef bass;
  59         % 13
  60         r4 'fis4-\ltoe 'e4.-\lheel e8-\rheel |
  61         % 14
  62         fis4.-\rtoe fis8-.-\rtoe fis4-\rtoe [e8-\ltoe a8-\rtoe] |
  63         % 15
  64         dis4-\ltoe gis4-\rtoe [cis8-\ltoe 'b8-\lheel 'a8-\rtoe 'gis8-\ltoe] |
  65         % 16
  66 }
  67
  68 fuga2_commands = \melodic{
  69         \meter 3/4;
  70         \key fis cis gis dis; % E-major
  71 }
  72
  73 fuga2_right = \melodic{
  74         \$fuga2_commands
  75         \clef violin;
  76         % 15
  77         \octave c';
  78         \multi 2 <
  79                 { \stemup [b8 fis8] b4 }
  80                 { \stemdown fis2 }
  81         >
  82         %{ this chord is usually set like this:
  83              |
  84             x||
  85              x||
  86               x|
  87            |x
  88            |
  89         %}
  90         \multi 2 <
  91                 { \stemup \property Voice.hshift = 0 e'4 }
  92                 { \stemup \property Voice.hshift = 1 cis'4 }
  93                 { \stemup \property Voice.hshift = 2 ais4 }
  94                 { \stemdown fis4 }
  95         > |
  96         % 16
  97         \multi 2 <
  98                 { \stemup dis'2 dis'4 | cis'2 cis'4 | b4~  [b8 cis'8 dis'8 e'8] }
  99                 { \stemup \property Voice.hshift = 1 [b8 fis8] b2~  [b8 a16 g16] a2 | a4 gis2 }
 100                 { \stemdown fis2.~  fis2.~  fis4 e2 }
 101         > |
 102         % 19
 103 }
 104
 105 fuga2_left = \melodic{
 106         \$fuga2_commands
 107         \octave c;
 108         \clef bass;
 109         % 15
 110         b2
 111         \multi 2 <
 112                 { \stemup ais4 | bes2. }
 113                 { \stemdown e4  | fis2 fis4 }
 114         >
 115         % 17
 116         cis'2 e'4 |
 117         % 18
 118         b4. b8 b4 |
 119 }
 120
 121 fuga2_pedal = \melodic{
 122         \$fuga2_commands
 123         \octave c;
 124         \clef bass;
 125         % 15
 126         dis4.-\ltoe e8-\rtoe cis4 |
 127         % 16
 128         'b4.-\lheel [c8-\ltoe dis8-\rtoe e8-\rheel] |
 129         % 17
 130         fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
 131         % 18
 132         dis4-\rtoe e4-\rheel 'e4-\ltoe |
 133 }
 134
 135 break = \melodic{
 136         %\meter 4/4;
 137         r1
 138 }
 139
 140 % these should be two separate scores...
 141 \score{
 142         \multi 1 <
 143                  \type Grandstaff  \multi 3 <
 144                    {\toccata_right     \break   \fuga2_right }
 145                    { \toccata_left  \break   \fuga2_left }
 146                 >
 147                 {  \toccata_pedal    \break   \fuga2_pedal }
 148         >
 149         \paper{}
 150         \midi{
 151                 \tempo 4 = 96;
 152         }
 153 }
 154