mutopia/E.Satie/gnossienne-4.ly

   1 \header {
   2   filename =    "gnossienne-4.ly";
   3   title =       "Gnossienne";
   4   subtitle =    "4";
   5   composer =    "Erik Satie (1866-1925)";
   6   enteredby =   "jcn";
   7   copyright =   "Public Domain";
   8 }
   9
  10 %{
  11  Tested Features: cross staff auto beams and slurs, grace notes, no bars
  12 %}
  13
  14 \version "1.3.117";
  15
  16 global =  \notes {
  17         \key a \minor;
  18         \time 6/4;
  19         \skip 1.*34;
  20         \bar "|.";
  21 }
  22
  23 melody =  \notes\relative c''{
  24   \clef violin;
  25   \property Voice.verticalDirection = #1
  26   \property Voice.graceFraction = #(make-moment 1 4)
  27   r2 r r
  28   r2 r r
  29   r4 a'8--(\< a--  a-- a-- c-- \!b-- a--\> gis f \!e
  30   es8 \grace b( ))c r4 r2 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   r4 g16( a bes a  g a bes a g a bes a g a bes a g fis es fis
  35   )d4 \grace fis8()gis4 ~ gis8 r r4 r2
  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   \grace a8()f4 ~ f8 r r2 r
  39   r2 r4 a8( b c d c b \grace b8()e \grace a,())g r4 r2 r
  40   r2 r4 a8( b c d c b  a b c d c b a b c d c b
  41   \grace b8()e \grace a,())g r4 r2 r
  42   a2( \grace e'8()f4 ~ )f8 r r2
  43   r2 r r
  44   fis,4( \grace dis8<)cis4 ais> r2 r
  45   \grace b'8()a \grace b()a r4 r2 r
  46   r4 a'8--(\< a--  a-- a-- c-- \!b--  a--\> gis f \!e
  47   es8 \grace b())c r4 r2 r
  48   d,4( \grace fis8()gis4 ~ )gis8 r r4 r2
  49   f4 ~ f8 r r2 r
  50   f'8( g a b a g f g a b a g
  51   \grace f8()g \grace d)e r4 r2 r
  52   f8( g a b a g f g a b a g
  53   \grace f8()g8 \grace d())e r4 r2 r
  54   a,2( \grace e'8() f4 ~ )f8 r r2
  55   r2 r r
  56   fis,4( \grace dis8<)cis4 ais> r2 r
  57   <e1*6/4 g b e> ~ <e g b e>
  58 }
  59
  60 basloopje =  \notes\relative c{
  61   d,8( a' d f a d f d a f d )a
  62 }
  63
  64 accompany =  \notes \relative c {
  65   % snapnie, hoevaak relative c heeft ze nodig?
  66  \basloopje
  67  \basloopje
  68  \basloopje
  69   \transpose bes  \basloopje
  70   \transpose bes  \basloopje
  71    \basloopje
  72   \transpose bes  \basloopje
  73   \transpose bes  \basloopje
  74   \transpose a  \basloopje
  75   \transpose bes  \basloopje
  76   \transpose a  \basloopje
  77  \basloopje
  78  \basloopje
  79   % huh? d'
  80   \transpose d'  \basloopje
  81  \basloopje
  82  \basloopje
  83   \transpose d'  \basloopje
  84  \basloopje
  85  \basloopje
  86   \transpose e'  \basloopje
  87  \basloopje
  88  \basloopje
  89   \transpose bes  \basloopje
  90   \transpose a  \basloopje
  91  \basloopje
  92  \basloopje
  93   \transpose d'  \basloopje
  94  \basloopje
  95   \transpose d'  \basloopje
  96  \basloopje
  97  \basloopje
  98   \transpose e'  \basloopje
  99   < e1*6/4 b' e> ~ < e b' e>
 100 }
 101
 102 \score{
 103         \notes \context PianoStaff <
 104                 \context Staff=up <
 105                         \global
 106                         \context Voice=foo {
 107                         \stemUp
 108                         \property Voice.Script \override #'direction = #1
 109
 110                         \melody
 111                         }
 112                 >
 113                 \context Staff=down <
 114                         \global
 115                         \clef bass;
 116                         \autochange Staff \context Voice \accompany
 117                 >
 118         >
 119
 120         \paper {
 121                 gourlay_maxmeasures = 4.;
 122                 indent = 8.\mm;
 123                 textheight = 295.\mm;
 124
 125                 % ugly is beautiful
 126                 slur_beautiful = 5.0;
 127
 128                 \translator{
 129                         \StaffContext
 130                         % don't auto-generate bars: not a good idea: -> no breakpoints
 131                         % barAuto = #f
 132                         defaultBarType = #""
 133                         \remove "Time_signature_engraver";
 134
 135                         slurVerticalDirection = #1
 136                         verticalDirection = #-1
 137                         autoBeamSettings \override #'(end * * * *) = #(make-moment 1 2)
 138                 }
 139         }
 140         \midi {
 141                 \tempo 4 = 54;
 142         }
 143 }
 144