]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-0.0.23
authorfred <fred>
Fri, 17 Jan 1997 16:38:42 +0000 (16:38 +0000)
committerfred <fred>
Fri, 17 Jan 1997 16:38:42 +0000 (16:38 +0000)
input/kortjakje.ly [new file with mode: 0644]

diff --git a/input/kortjakje.ly b/input/kortjakje.ly
new file mode 100644 (file)
index 0000000..fa54120
--- /dev/null
@@ -0,0 +1,79 @@
+% "Ah, je vous dirai, maman" (Mozart)
+% 
+% bare bones version. (written down from memory :-)
+
+% the % is a comment.
+
+% declare music (which will be in *one* staff ) for the lead voice
+
+melodie = music {
+       $                       % switch Lilypond in note-mode
+       \octave {}              % set the default octave
+       % the default note duratino is 4
+       %%% theme
+       c c |                   % the '|' checks if there is a new measure here.
+       g g|
+       a a|
+
+       g2|     % g2 means a "g-1" pitched half-note 
+       f f|    e e|    d d|  c2
+       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
+                       )       % 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.
+
+       %%% 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
+       %%%% 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
+       }
+
+
+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
+       }
+}
+