mutopia/E.Satie/gnossienne-4.ly

   1 \header {
   2   filename =    "gnossienne-4.ly";
   3   title =       "Gnossienne";
   4   subtitle =    "4";
   5   source =      "";
   6   composer =    "Erik Satie (1866-1925)";
   7   enteredby =   "jcn";
   8   copyright =   "Public Domain";
   9 }
  10
  11 %{
  12  Tested Features: cross staff auto beams and slurs, grace notes, no bars
  13 %}
  14
  15 \version "1.3.5";
  16
  17 \include "nederlands.ly"
  18
  19 global = \notes {
  20   \key a \minor;
  21   \time 6/4;
  22   \skip 1.*34;
  23 %  \bar ".|";
  24 }
  25
  26 melody = \notes\relative c''{
  27   \clef violin;
  28   \property Voice.verticalDirection = 1
  29   \property Voice.graceFraction = "1/4"
  30   r2 r r
  31   r2 r r
  32   r4 a'8--(\< a--  a-- a-- c-- \!b-- a--\> gis f \!e
  33   es8 \grace b( ))c r4 r2 r
  34   r2 r r
  35   r4 a'8--(\< a--  a-- a-- c-- \!b-- a--\> gis f \!e
  36   es8 \grace b( ))c r4 r2 r
  37   r4 g16( a bes a  g a bes a g a bes a g a bes a g fis es fis
  38   )d4 \grace fis8()gis4 ~ gis8 r r4 r2
  39   r4 g16( a bes a  g a bes a g a bes a g a bes a g fis es fis
  40   )d4 \grace fis8()gis4 ~ gis8 r r4 r2
  41   \grace a8()f4 ~ f8 r r2 r
  42   r2 r4 a8( b c d c b \grace b8()e \grace a,())g r4 r2 r
  43   r2 r4 a8( b c d c b  a b c d c b a b c d c b
  44   \grace b8()e \grace a,())g r4 r2 r
  45   a2( \grace e'8()f4 ~ )f8 r r2
  46   r2 r r
  47   fis,4( \grace dis8<)cis4 ais> r2 r
  48   \grace b'8()a \grace b()a r4 r2 r
  49   r4 a'8--(\< a--  a-- a-- c-- \!b--  a--\> gis f \!e
  50   es8 \grace b())c r4 r2 r
  51   d,4( \grace fis8()gis4 ~ )gis8 r r4 r2
  52   f4 ~ f8 r r2 r
  53   f'8( g a b a g f g a b a g
  54   \grace f8()g \grace d)e r4 r2 r
  55   f8( g a b a g f g a b a g
  56   \grace f8()g8 \grace d())e r4 r2 r
  57   a,2( \grace e'8() f4 ~ )f8 r r2
  58   r2 r r
  59   fis,4( \grace dis8<)cis4 ais> r2 r
  60   <e1 g b e> ~ <e g b e>
  61 }
  62
  63 basloopje = \notes\relative c{
  64 %  d,8( a' d f a \translator Staff=treble d f d \translator Staff=bass a f d )a
  65   d,8( a' d f a d f d a f d )a
  66 }
  67
  68 accompany = \notes \relative c{
  69   % snapnie, hoevaak relative c heeft ze nodig?
  70   \notes\relative c \basloopje
  71   \notes\relative c \basloopje
  72   \notes\relative c \basloopje
  73   \transpose bes \notes\relative c{ \basloopje }
  74   \transpose bes \notes\relative c{ \basloopje }
  75   \notes\relative c \basloopje
  76   \transpose bes \notes\relative c{ \basloopje }
  77   \transpose bes \notes\relative c{ \basloopje }
  78   \transpose a \notes\relative c{ \basloopje }
  79   \transpose bes \notes\relative c{ \basloopje }
  80   \transpose a \notes\relative c{ \basloopje }
  81   \notes\relative c \basloopje
  82   \notes\relative c \basloopje
  83   % huh? d'
  84   \transpose d' \notes\relative c{ \basloopje }
  85   \notes\relative c \basloopje
  86   \notes\relative c \basloopje
  87   \transpose d' \notes\relative c{ \basloopje }
  88   \notes\relative c \basloopje
  89   \notes\relative c \basloopje
  90   \transpose e' \notes\relative c{ \basloopje }
  91   \notes\relative c \basloopje
  92   \notes\relative c \basloopje
  93   \transpose bes \notes\relative c{ \basloopje }
  94   \transpose a \notes\relative c{ \basloopje }
  95   \notes\relative c \basloopje
  96   \notes\relative c \basloopje
  97   \transpose d' \notes\relative c{ \basloopje }
  98   \notes\relative c \basloopje
  99   \transpose d' \notes\relative c{ \basloopje }
 100   \notes\relative c \basloopje
 101   \notes\relative c \basloopje
 102   \transpose e' \notes\relative c{ \basloopje }
 103   < e1 b' e> ~ < e b' e>
 104 }
 105
 106
 107 \score{
 108   \notes{
 109     \context AutoSwitchGrandStaff \relative c <
 110       \context Staff=upper <
 111         \global
 112         \context Voice=foo{
 113           \property Voice.verticalDirection = 1
 114           \property Voice.scriptVerticalDirection = 1
 115           \melody
 116         }
 117       >
 118       \context AutoSwitchContext <
 119         \global
 120         \accompany
 121       >
 122     >
 123   }
 124   \paper {
 125     gourlay_maxmeasures = 4.;
 126     indent = 8.\mm;
 127     textheight = 295.\mm;
 128
 129     % no slur damping
 130     slur_slope_damping = 100.0;
 131
 132     \translator{
 133       \StaffContext
 134       % don't auto-generate bars: not a good idea: -> no breakpoints
 135       % barAuto = "0";
 136       % urg defaultBarType = "";
 137       defaultBarType = "empty";
 138       \remove "Time_signature_engraver";
 139     }
 140     \translator{
 141       \GraceContext
 142       \remove "Local_key_engraver";
 143     }
 144     \translator {
 145       \ScoreContext
 146       \accepts "AutoSwitchGrandStaff";
 147     }
 148     \translator{
 149       \type "Engraver_group_engraver";
 150       \name AutoSwitchGrandStaff;
 151       \consists "Span_bar_engraver";
 152       \consists "Vertical_align_engraver";
 153       \consists "Piano_bar_engraver";
 154       \consistsend "Axis_group_engraver";
 155       minVerticalAlign = 2.*\staffheight;
 156       maxVerticalAlign = 2.*\staffheight;
 157       switcherName = "Voice";
 158       acceptorName = "Thread";
 159       staffContextName = "Staff";
 160
 161       \accepts "AutoSwitchContext";
 162       \accepts "Staff";
 163       slurVerticalDirection = 1;
 164       verticalDirection = -1;
 165       beamAutoEnd  = #(make-moment 1 2)
 166     }
 167     \translator {
 168       \type "Engraver_group_engraver";
 169       \name AutoSwitchContext;
 170       \consists "Staff_switching_translator";
 171     }
 172   }
 173   \midi {
 174     \tempo 4 = 54;
 175     \translator {
 176       \ScoreContext
 177       \accepts "AutoSwitchGrandStaff";
 178     }
 179     \translator {
 180       \type "Performer_group_performer";
 181       \name AutoSwitchGrandStaff;
 182       \accepts "AutoSwitchContext";
 183       \accepts "Staff";
 184     }
 185     \translator {
 186       \type "Staff_performer";
 187       \name AutoSwitchContext;
 188       \accepts "Voice";
 189       \consists "Key_performer";
 190       \consists "Time_signature_performer";
 191     }
 192   }
 193 }