input/standje.ly

   1 \header{
   2 filename =       "standchen.ly";
   3 title =  "St\"andchen (Serenade) \"Leise flehen meine Lieder\"";
   4 opus =   "D. 957 No. 4";
   5 composer =       "Franz Schubert (1797-1828)"
   6          "Text by Ludwig Rellstab (1799-1860)";
   7 enteredby =      "JCN";
   8 copyright =      "public domain";
   9 }
  10
  11 %{
  12  Tested Features: multivoice, accents, lyrics, chords, piano music,
  13 multiple \paper{}s in one \score
  14 %}
  15
  16 \version "0.1.7";
  17
  18 $vocal_verse1 = \melodic{
  19         \octave c';
  20         % ugh: treble/bass
  21 %       \clef treble;
  22         \clef violin;
  23         % ugh: '3' of plet should hang over middle note
  24         % ugh: barcheck fails if i write 'g8' below:
  25 %       [2/3 g8( )as]1/1 \plet 2/3; g8 \plet 1/1; c'4. g8 |
  26         % anyway, for typping this plet stuff sucks
  27         [2/3 g8( )as]1/1 \plet 2/3; g \plet 1/1; c'4. g8 |
  28         [2/3 f8( )g]1/1 \plet 2/3; f \plet 1/1; c'4 f8 r |
  29         g4.-> f8 [2/3 f( )es]1/1 \plet 2/3; d \plet 1/1; |
  30         es2 r4 |
  31         % ugh: a whole should be a measure
  32         %r1 |
  33         r2. |
  34         r2. |
  35         [2/3 g8( )as]1/1 \plet 2/3; g \plet 1/1; es'4. g8 |
  36         [2/3 f8( )g]1/1 \plet 2/3; f \plet 1/1; d'4. c'8 |
  37         bes4. as8 [2/3 as( )g]1/1 \plet 2/3; f \plet 1/1; |
  38         g2 r4 |
  39         r2. |
  40         r2. |
  41         g8. b16 es'4. d'8 |
  42         c'8. g16 es4. c8 |
  43         %  [as32\grace( bes32\grace] )
  44         [2/3 as8( )g]1/1 \plet 2/3; as \plet 1/1; c'4. as8 |
  45         g2. |
  46         %[f32\grace( g] )
  47         [2/3 f8( )e]1/1 \plet 2/3; f \plet 1/1; as4. f8 |
  48         es!2. |
  49         g8. b16 es'4. d'8 |
  50         c'8. g16 e4. c8 |
  51         % [a32\grace b] )
  52         [2/3 a!8( ) gis]1/1 \plet 2/3; a \plet 1/1; c'4. a8 |
  53         g!2. |
  54         [2/3 d'8\f cis']1/1 \plet 2/3; d \plet 1/1; f'4. b8 |
  55         c'2. |
  56         r2. |
  57         r2. |
  58 }
  59
  60 $lyric_verse1 = \lyric{
  61 % 5
  62         [2/3 Lei-4 se8 ]1/1 fleh-4. en8  |
  63         [2/3 mei-4 ne8 ]1/1 Lie-4 der8 _8 |
  64         Durch4. die8 [2/3 Nacht4 zu8 ]1/1  |
  65         dir;2 _4 |
  66         _4 _ _ |
  67         _ _ _ |
  68 % 11
  69         [2/3 In4 den8 ]1/1 stil-4. len8 |
  70         [2/3 Hainr4 her-8 ]1/1 nie-4. der,8 |
  71         Lieb4. chen,8 [2/3 komm4 zu8 ]1/1 |
  72         mir!2 _4 |
  73         _4 _ _  |
  74         _ _ _ |
  75 % 17
  76         Fl\"us-8. ternd16 schlan-4. ke8 |
  77         Wip-8. fel16 rau-4. schen8 |
  78         [2/3 In4 des8 ]1/1 Mon-4. des8 |
  79         Licht;2. |
  80         _4 _ _  |
  81         _4 _ _ |
  82 % 23
  83         Des8. Ver-16 r\"a-4. ters8 |
  84         feind-8. lich16 Lau-4. schen8 |
  85         [2/3 F\"urch-4 te,8 ]1/1 Hol-4. de,8 |
  86         nicht,2. |
  87         [2/3 f\"urch-4 te,8 ]1/1 Hol-4. de,8 |
  88         nicht.2. |
  89         _4 _ _
  90         _ _ _
  91 }
  92
  93 $treble_intro = \melodic{
  94         \octave c';
  95         \clef violin;
  96         % ugh: i'd like to type this!
  97         %r8 [<'g-. c-.> <c-. es-.> <'g-. c-.> <c-. es-.> <'g-. c-.>] |
  98         r8 <['g-. c-.> <c-. es-.> <'g-. c-.> <c-. es-.> <'g-. c-.]> |
  99         r8 <['as-. c-.> <c-. es-.> <'as-. c-.> <c-. es-.> <'as-. c-.]> |
 100         r8 <['as-. c-.> <c-. d-.> <'as-. c-.> <c-. d-.> <'as-. c-.]> |
 101         r8 <['g-. 'b-.> <'b-. d-.> <'g-. 'b-.> <'b-. d-.> <'g-. 'b-.]> |
 102
 103 }
 104
 105 $treble_verse1 = \melodic{
 106         \octave c';
 107         \clef violin;
 108         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 109         r8 <['f c> <c d> <'f c> <c d> <'f c]> |
 110         r8 <['f 'g b> <'g b d> <'f 'g b> <'g b d> <'f 'g b]> |
 111         r8 <['es 'g c> <'g c es> <'es 'g c> <'g c es> <'es 'g c]> |
 112         <g'4.( b> <)f'8 d'> <[2/3 f' d'> <es' c'> <d' b]1/1> |
 113         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 114         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 115         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 116         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 117         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 118         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 119         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 120         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 121         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 122         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 123         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 124         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 125         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 126         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 127         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 128         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 129         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 130         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 131         r8 <['g c> <c es> <'g c> <c es> <'g c]> |
 132 }
 133
 134 $bass_intro = \melodic{
 135         \octave c;
 136         \clef bass;
 137         <'c2 c> r4 |
 138         <''as2 'as> r4 |
 139         <''f2 'f> r4 |
 140         <''g2 g> r4 |
 141 }
 142
 143 $bass_verse1 = \melodic{
 144         \octave c;
 145         \clef bass;
 146         <'c2 c> r4 |
 147         <'c2 c> r4 |
 148         <'c2 c> r4 |
 149         <'c2 c> r4 |
 150         <'c2 c> r4 |
 151         <'c2 c> r4 |
 152         <'c2 c> r4 |
 153         <'c2 c> r4 |
 154         <'c2 c> r4 |
 155         <'c2 c> r4 |
 156         <'c2 c> r4 |
 157         <'c2 c> r4 |
 158         <'c2 c> r4 |
 159         <'c2 c> r4 |
 160         <'c2 c> r4 |
 161         <'c2 c> r4 |
 162         <'c2 c> r4 |
 163         <'c2 c> r4 |
 164         <'c2 c> r4 |
 165         <'c2 c> r4 |
 166         <'c2 c> r4 |
 167         <'c2 c> r4 |
 168         <'c2 c> r4 |
 169         <'c2 c> r4 |
 170 }
 171
 172
 173 global= \melodic {\meter 3/4; \key bes es as; }
 174
 175
 176 \score{
 177         \melodic<
 178                 \type Lyrics { \skip 4 * 12; \$lyric_verse1 }
 179                 \type Staff
 180                 { \skip 4 * 12; \$vocal_verse1 }
 181
 182                 % i want a (grand) staff!!!
 183
 184                 \type Grandstaff <
 185                         < { \$treble_intro \$treble_verse1 }
 186                           \global
 187                         >
 188                         < \global
 189                           { \$bass_intro \$bass_verse1 }
 190                         >
 191                 >
 192         >
 193         \paper{
 194                 % how does this work?
 195                 % previously we had the clear 'ideal whole note space' setting?
 196                 arithmetic_multiplier = 6.\pt;
 197                 % ugh: the *first* (intro) line may only have four measures...
 198                 gourlay_maxmeasures = 4.;
 199         }
 200 }
 201