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.1.52";
  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   r2 r r
  30   r2 r r
  31   r4 a'8--(\< a--  a-- a-- c-- \!b-- a--\> gis f \!e
  32   es8 \grace b( ))c r4 r2 r
  33   r2 r r
  34   r4 a'8--(\< a--  a-- a-- c-- \!b-- a--\> gis f \!e
  35   es8 \grace b( ))c r4 r2 r
  36   r4 g16( a bes a  g a bes a g a bes a g a bes a g fis es fis
  37   )d4 \grace fis8()gis4 ~ gis8 r r4 r2
  38   r4 g16( a bes a  g a bes a g a bes a g a bes a g fis es fis
  39   )d4 \grace fis8()gis4 ~ gis8 r r4 r2
  40   \grace a8()f4 ~ f8 r r2 r
  41   r2 r4 a8( b c d c b \grace b8()e \grace a,())g r4 r2 r
  42   r2 r4 a8( b c d c b  a b c d c b a b c d c b
  43   \grace b8()e \grace a,())g r4 r2 r
  44   a2( \grace e'8()f4 ~ )f8 r r2
  45   r2 r r
  46   fis,4( \grace dis8<)cis4 ais> r2 r
  47   \grace b'8()a \grace b()a r4 r2 r
  48   r4 a'8--(\< a--  a-- a-- c-- \!b--  a--\> gis f \!e
  49   es8 \grace b())c r4 r2 r
  50   d,4( \grace fis8()gis4 ~ )gis8 r r4 r2
  51   f4 ~ f8 r r2 r
  52   f'8( g a b a g f g a b a g
  53   \grace f8()g \grace d)e r4 r2 r
  54   f8( g a b a g f g a b a g
  55   \grace f8()g8 \grace d())e r4 r2 r
  56   a,2( \grace e'8() f4 ~ )f8 r r2
  57   r2 r r
  58   fis,4( \grace dis8<)cis4 ais> r2 r
  59   <e1 g b e> ~ <e g b e>
  60 }
  61
  62 basloopje = \notes\relative c{
  63 %  d,8( a' d f a \translator Staff=treble d f d \translator Staff=bass a f d )a
  64   d,8( a' d f a d f d a f d )a
  65 }
  66
  67 accompany = \notes \relative c{
  68   % snapnie, hoevaak relative c heeft ze nodig?
  69   \notes\relative c \basloopje
  70   \notes\relative c \basloopje
  71   \notes\relative c \basloopje
  72   \transpose bes \notes\relative c{ \basloopje }
  73   \transpose bes \notes\relative c{ \basloopje }
  74   \notes\relative c \basloopje
  75   \transpose bes \notes\relative c{ \basloopje }
  76   \transpose bes \notes\relative c{ \basloopje }
  77   \transpose a \notes\relative c{ \basloopje }
  78   \transpose bes \notes\relative c{ \basloopje }
  79   \transpose a \notes\relative c{ \basloopje }
  80   \notes\relative c \basloopje
  81   \notes\relative c \basloopje
  82   % huh? d'
  83   \transpose d' \notes\relative c{ \basloopje }
  84   \notes\relative c \basloopje
  85   \notes\relative c \basloopje
  86   \transpose d' \notes\relative c{ \basloopje }
  87   \notes\relative c \basloopje
  88   \notes\relative c \basloopje
  89   \transpose e' \notes\relative c{ \basloopje }
  90   \notes\relative c \basloopje
  91   \notes\relative c \basloopje
  92   \transpose bes \notes\relative c{ \basloopje }
  93   \transpose a \notes\relative c{ \basloopje }
  94   \notes\relative c \basloopje
  95   \notes\relative c \basloopje
  96   \transpose d' \notes\relative c{ \basloopje }
  97   \notes\relative c \basloopje
  98   \transpose d' \notes\relative c{ \basloopje }
  99   \notes\relative c \basloopje
 100   \notes\relative c \basloopje
 101   \transpose e' \notes\relative c{ \basloopje }
 102   < e1 b' e> ~ < e b' e>
 103 }
 104
 105
 106 \score{
 107   \notes{
 108     \context AutoSwitchGrandStaff \relative c <
 109       \global
 110       \context Staff=upper {
 111         \context Voice=foo
 112         \property Voice.verticalDirection = 1
 113         \property Voice.scriptVerticalDirection = 1
 114         \melody
 115         }
 116       \context AutoSwitchContext \accompany
 117       >
 118   }
 119   \paper {
 120     gourlay_maxmeasures = 4.;
 121     indent = 8.\mm;
 122     textheight = 295.\mm;
 123
 124     % no slur damping
 125     slur_slope_damping = 100.0;
 126
 127     \translator{
 128       \StaffContext
 129       % don't auto-generate bars: not a good idea: -> no breakpoints
 130       % barAuto = "0";
 131       % urg defaultBarType = "";
 132       defaultBarType = "empty";
 133       \remove "Time_signature_engraver";
 134     }
 135     \translator{
 136       \GraceContext
 137       \remove "Local_key_engraver";
 138     }
 139     \translator {
 140       \ScoreContext
 141       \accepts AutoSwitchGrandStaff;
 142       }
 143     \translator{
 144       \type "Engraver_group_engraver";
 145       \name AutoSwitchGrandStaff;
 146       \consists "Span_bar_engraver";
 147       \consists "Vertical_align_engraver";
 148       \consists "Piano_bar_engraver";
 149       \consistsend "Axis_group_engraver";
 150       minVerticalAlign = 2.*\staffheight;
 151       maxVerticalAlign = 2.*\staffheight;
 152       switcherName = "Voice";
 153       acceptorName = "Thread";
 154       staffContextName = "Staff";
 155
 156       \accepts "AutoSwitchContext";
 157       \accepts "Staff";
 158       slurVerticalDirection = 1;
 159       verticalDirection = -1;
 160       beamAutoEnd = "1/2";
 161       }
 162     \translator {
 163       \type "Engraver_group_engraver";
 164       \name "AutoSwitchContext";
 165       \consists "Staff_switching_translator";
 166       }
 167     }
 168   \midi {
 169     \tempo 4 = 54;
 170   }
 171 }