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.59";
  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   \notes\relative c \basloopje
  67   \notes\relative c \basloopje
  68   \notes\relative c \basloopje
  69   \transpose bes \notes\relative c{ \basloopje }
  70   \transpose bes \notes\relative c{ \basloopje }
  71   \notes\relative c \basloopje
  72   \transpose bes \notes\relative c{ \basloopje }
  73   \transpose bes \notes\relative c{ \basloopje }
  74   \transpose a \notes\relative c{ \basloopje }
  75   \transpose bes \notes\relative c{ \basloopje }
  76   \transpose a \notes\relative c{ \basloopje }
  77   \notes\relative c \basloopje
  78   \notes\relative c \basloopje
  79   % huh? d'
  80   \transpose d' \notes\relative c{ \basloopje }
  81   \notes\relative c \basloopje
  82   \notes\relative c \basloopje
  83   \transpose d' \notes\relative c{ \basloopje }
  84   \notes\relative c \basloopje
  85   \notes\relative c \basloopje
  86   \transpose e' \notes\relative c{ \basloopje }
  87   \notes\relative c \basloopje
  88   \notes\relative c \basloopje
  89   \transpose bes \notes\relative c{ \basloopje }
  90   \transpose a \notes\relative c{ \basloopje }
  91   \notes\relative c \basloopje
  92   \notes\relative c \basloopje
  93   \transpose d' \notes\relative c{ \basloopje }
  94   \notes\relative c \basloopje
  95   \transpose d' \notes\relative c{ \basloopje }
  96   \notes\relative c \basloopje
  97   \notes\relative c \basloopje
  98   \transpose e' \notes\relative c{ \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                         \property Voice.verticalDirection = #1
 108                         \property Voice.scriptVerticalDirection = #1
 109                         \melody
 110                         }
 111                 >
 112                 \context Staff=down <
 113                         \global
 114                         \clef bass;
 115                         \autochange Staff \accompany
 116                 >
 117         >
 118
 119         \paper {
 120                 gourlay_maxmeasures = 4.;
 121                 indent = 8.\mm;
 122                 textheight = 295.\mm;
 123
 124                 % ugly is beautiful
 125                 slur_beautiful = 5.0;
 126
 127                 \translator{
 128                         \StaffContext
 129                         % don't auto-generate bars: not a good idea: -> no breakpoints
 130                         % barAuto = #f
 131                         defaultBarType = #""
 132                         \remove "Time_signature_engraver";
 133
 134                         slurVerticalDirection = #1
 135                         verticalDirection = #-1
 136                         beamAutoEnd = #(make-moment 1 2)
 137                 }
 138         }
 139         \midi {
 140                 \tempo 4 = 54;
 141         }
 142 }
 143