mutopia/E.Satie/gnossienne-4-autochange.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.4";
  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 PianoStaff \relative c <
 110       %\context Staff=upper <
 111       \context Staff=up <
 112         \global
 113         \context Voice=foo {
 114           \property Voice.verticalDirection = 1
 115           \property Voice.scriptVerticalDirection = 1
 116           \melody
 117         }
 118       >
 119       \context Staff=down <
 120         \global
 121         \clef bass;
 122         \accompany
 123       >
 124     >
 125   }
 126   \paper {
 127     gourlay_maxmeasures = 4.;
 128     indent = 8.\mm;
 129     textheight = 295.\mm;
 130
 131     slur_interstaff_slope_damping = 100.0;
 132     slur_interstaff_height_damping = 100.0;
 133
 134     \translator{
 135       \StaffContext
 136       % don't auto-generate bars: not a good idea: -> no breakpoints
 137       % barAuto = "0";
 138       % urg defaultBarType = "";
 139       defaultBarType = "empty";
 140       \remove "Time_signature_engraver";
 141
 142       slurVerticalDirection = 1;
 143       verticalDirection = -1;
 144       beamAutoEnd = #(make-moment 1 2)
 145     }
 146   }
 147   \midi {
 148     \tempo 4 = 54;
 149   }
 150 }