release: 0.0.49

[lilypond.git] / input / kortjakje.ly

diff --git a/input/kortjakje.ly b/input/kortjakje.ly
index ba78402109039db5fb9255e604e916af95ca9024..47624c49361821a71ee0911d5aea53eb1a08d61b 100644 (file)
--- a/input/kortjakje.ly
+++ b/input/kortjakje.ly
@@ -7,11 +7,13 @@
 %
 % copyright: None
 %
-% declare music (which will be in *one* staff ) for the lead voice
+% declare melody (which will be in *one* staff ) for the lead voice
 
-melodie = music {
-       $                       % switch Lilypond in note-mode
-       \octave {}              % set the default octave
+melodie = \melodic 
+                               % switch Lilypond in note-mode
+       \clef\violin
+       \meter{ 2/4 ;
+       \octave  c ;            % set the default octave
        % the default note duratino is 4
        %%% theme
        c c |                   % the '|' checks if there is a new measure here.
@@ -23,60 +25,35 @@ melodie = music {
        g g|    f f|    e e|    d d|    g g|    f f|    e e|    d d|
        %%% var 1
          c r8 c8               % r8 means an 8th rest.
-                 (|            % start a slur
-                               % NOTE: the slurstart should be directly after the note
+                 (|            % \start a slur
+                               % NOTE: the slur\start should be directly after the note
                        )       % end a slur.
                          g r8 g8 (|    ) a r8 a8 (|    ) g r4 
          f r8 f8 (|    ) e4 r8 e8 (    |) d4 r8 d8 (|  ) c4 r4 
-$}
+}
 
                                % more of this.
-begeleiding =
-$
-       \music {                % as you can see, the $ sign obliges 
-                               % you to precede keyword by a backslash: \
-       \octave { ` }           % default octave: 1 below the first octave.
+begeleiding = \melodic 
+       \clef "bass"
+       \meter{ 2/4 ;
+       \octave  c ;            % default octave: 1 below the first octave.
 
        %%% theme
-       `c                      % ` means one octave lower.
-                               % Similarly: ' means one higher.
-          c    e c     f c     e c     d `b    c `a    `f `g   `c2
-       \octave { ` }
-       e `g    d `g    c `g    `b `g   e `g    d `g    c `g    `b `g
+       'c                      % ' before note means one octave lower.
+                               % Similarly: ' after means one higher.
+          c    e c     f c     e c     d 'b    c 'a    'f 'g   'c2
+       \octave  'c ;
+       e 'g    d 'g    c 'g    'b 'g   e 'g    d 'g    c 'g    'b 'g
        %%%% var 1
        r8 e8() c       r8 e8() c       r8 f8()c        r8 e8()c
-       r8 d8()`b       r8 c8()`a       r8 `a8()`f      r8 `e8()`c
-}$
-
-
-% create a staff named bstaf
-bstaf = staff {
-       melodic
-       music { begeleiding }   % use the declared music
-               commands {      % commands with Staff-wide impact.
-                       clef "bass"     % bass-clef
-               }
-       }
-
-% another one
-vstaf = staff {
-       melodic
-               music { melodie }
-               commands { clef "violin" }
-                               % default clef is violin clef
-       }
-
+       r8 d8()'b       r8 c8()'a       r8 'a8()'f      r8 'e8()'c
+}
 
-score {
-       staff { vstaf }
-       staff { bstaf }
-       paper {
-               unitspace 2.5cm % a whole note takes 2.5 cm ideally.
-       }
-       commands {
-               meter 2* 4      % a 2/4 meter.
-               skip 33:0       % skip 32 measures, and generate the bars
-%              meter 6 8       % another meter
+\score{
+       \staff{ melodicregs melodie }
+       \staff{ melodicregs begeleiding }
+       \paper{
+               \unitspace 2.5\cm       % a whole note takes 2.5 \cm ideally.
        }
 }