input/toccata-fuga-E.ly

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