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 beams and slurs, grace notes, no bars
  13 %}
  14
  15 \version "1.0.19";
  16
  17 \include "nederlands.ly"
  18
  19 global = \notes {
  20   \key a \minor;
  21   \time 6/4;
  22 %  \cadenza 1;
  23   \skip 1.*34;
  24   \bar ".|";
  25 }
  26
  27 upper = \context Staff=treble \notes\relative c''{
  28   \clef violin;
  29   \stemup
  30   \context Voice=one
  31   r2 r r
  32   r2 r r
  33   r4 [a'8--(\< a--] [a-- a-- c-- \!b--] [a--\> gis f \!e]
  34   % grace hack
  35   < { [es8 )c] } \context Voice=x { \stemup s8*1/2 \tiny b8*1/2 ~ } > r4 r2 r
  36   r2 r r
  37   r4 [a'8--(\< a--] [a-- a-- c-- \!b--] [a--\> gis f \!e]
  38   < { [es8 )c] } \context Voice=x { \stemup s8*1/2 \tiny b8*1/2 ~ } > r4 r2 r
  39   r4 [g16( a bes a] [g a bes a g a bes a] [g a bes a g fis es fis]
  40   )d4 \tiny fis8*1/2 ~ \normalsize gis4*3/4 ~ gis8 r r4 r2
  41   r4 [g16( a bes a] [g a bes a g a bes a] [g a bes a g fis es fis]
  42   )d4 \tiny fis8*1/2 ~ \normalsize gis4*3/4 ~ gis8 r r4 r2
  43   \tiny a8*1/2 ~ \normalsize f4*3/4 ~ f8 r r2 r
  44   r2 r4 [a8( b][c d c b] \tiny b8*1/2 ~ \normalsize
  45   < { [e8*1/2 )g,8] } \context Voice=x { \stemup s8*1/4 \tiny a8*1/2 ~ } > r4 r2 r
  46   r2 r4 [a8( b][c d c b] [a b c d][c b a b][c d c b]
  47   \tiny b8*1/2 ~ \normalsize
  48   < { [e8*1/2 )g,8] } \context Voice=x { \stemup s8*1/4 \tiny a8*1/2 ~ } > r4 r2 r
  49   a2( \tiny e'8*1/2 ~ \normalsize f4*3/4 ~ )f8 r r2
  50   r2 r r
  51   fis,4( \tiny dis8*1/2 \normalsize <)cis4*3/4 ais> r2 r
  52   \tiny b'8*1/2 ~ \normalsize
  53   < { [a8*1/2 a8] } \context Voice=x { \stemup s8*1/4 \tiny b8*1/2 ~ } > r4 r2 r
  54   r4 [a'8--(\< a--] [a-- a-- c-- \!b--] [a--\> gis f \!e]
  55   < { [es8 )c] } \context Voice=x { \stemup s8*1/2 \tiny b8*1/2 ~ } > r4 r2 r
  56   d,4( \tiny fis8*1/2 ~ \normalsize gis4*3/4 ~ )gis8 r r4 r2
  57   f4 ~ f8 r r2 r
  58   [f'8( g a b][a g f g][a b a g]
  59   \tiny f8*1/2 ~ \normalsize
  60   < { [g8*1/2 )e8] } \context Voice=x { \stemup s8*1/4 \tiny d8*1/2 ~ } > r4 r2 r
  61   [f8( g a b][a g f g][a b a g]
  62   \tiny f8*1/2 ~ \normalsize
  63   < { [g8*1/2 )e8] } \context Voice=x { \stemup s8*1/4 \tiny d8*1/2 ~ } > r4 r2 r
  64   a,2( \tiny e'8*1/2 ~ \normalsize f4*3/4 ~ )f8 r r2
  65   r2 r r
  66   fis,4( \tiny dis8*1/2 \normalsize <)cis4*3/4 ais> r2 r
  67   <e1 g b e> ~ <e g b e>
  68 }
  69
  70 basloopje = \notes\relative c{
  71   d,8( a' d f a d f d a f d )a
  72 }
  73
  74 bassbeam = \notes{
  75   [s2] [s8 \translator Staff=treble s s s] [\translator Staff=bass s2]
  76 %   [s2] [s2] [s2]
  77 }
  78
  79 lower = \context Voice=two \notes \relative c{
  80   \stemdown
  81   \property Staff.slurydirection = 1
  82
  83   % snapnie, hoevaak relative c heeft ze nodig?
  84   < \notes\relative c \basloopje \bassbeam >
  85   < \notes\relative c \basloopje \bassbeam >
  86   < \notes\relative c \basloopje \bassbeam >
  87   < \transpose bes \notes\relative c{ \basloopje } \bassbeam >
  88   < \transpose bes \notes\relative c{ \basloopje } \bassbeam >
  89   < \notes\relative c \basloopje \bassbeam >
  90   < \transpose bes \notes\relative c{ \basloopje } \bassbeam >
  91   < \transpose bes \notes\relative c{ \basloopje } \bassbeam >
  92   < \transpose a \notes\relative c{ \basloopje } \bassbeam >
  93   < \transpose bes \notes\relative c{ \basloopje } \bassbeam >
  94   < \transpose a \notes\relative c{ \basloopje } \bassbeam >
  95   < \notes\relative c \basloopje \bassbeam >
  96   < \notes\relative c \basloopje \bassbeam >
  97   % huh? d'
  98   < \transpose d' \notes\relative c{ \basloopje } \bassbeam >
  99   < \notes\relative c \basloopje \bassbeam >
 100   < \notes\relative c \basloopje \bassbeam >
 101   < \transpose d' \notes\relative c{ \basloopje } \bassbeam >
 102   < \notes\relative c \basloopje \bassbeam >
 103   < \notes\relative c \basloopje \bassbeam >
 104   < \transpose e' \notes\relative c{ \basloopje } \bassbeam >
 105   < \notes\relative c \basloopje \bassbeam >
 106   < \notes\relative c \basloopje \bassbeam >
 107   < \transpose bes \notes\relative c{ \basloopje } \bassbeam >
 108   < \transpose a \notes\relative c{ \basloopje } \bassbeam >
 109   < \notes\relative c \basloopje \bassbeam >
 110   < \notes\relative c \basloopje \bassbeam >
 111   < \transpose d' \notes\relative c{ \basloopje } \bassbeam >
 112   < \notes\relative c \basloopje \bassbeam >
 113   < \transpose d' \notes\relative c{ \basloopje } \bassbeam >
 114   < \notes\relative c \basloopje \bassbeam >
 115   < \notes\relative c \basloopje \bassbeam >
 116   < \transpose e' \notes\relative c{ \basloopje } \bassbeam >
 117   < e1 b' e> ~ < e b' e>
 118 }
 119
 120 \score {
 121     \context GrandStaff <
 122       \context Staff = treble <
 123         \global
 124         \upper
 125       >
 126       \context Staff = bass <
 127         \global
 128         \clef bass;
 129         \lower
 130       >
 131     >
 132
 133   \paper {
 134     gourlay_maxmeasures = 4.;
 135     indent = 8.\mm;
 136     textheight = 295.\mm;
 137
 138     % no slur damping
 139     slur_slope_damping = 100.0;
 140
 141     \translator{ \OrchestralScoreContext }
 142     \translator{
 143       \GrandStaffContext
 144       minVerticalAlign = 3.0*\staffheight;
 145       maxVerticalAlign = 3.0*\staffheight;
 146     }
 147     \translator{
 148       \StaffContext
 149       % don't auto-generate bars: not a good idea: -> no breakpoints
 150       % barAuto = "0";
 151       % urg defaultBarType = "";
 152       defaultBarType = "empty";
 153       \remove "Time_signature_engraver";
 154     }
 155   }
 156   \midi {
 157     \tempo 4 = 54;
 158   }
 159 }
 160