From 2119f612fb9b532faf83bd93c0d9129a2f69b4a5 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Fri, 17 Jan 1997 16:38:42 +0000
Subject: [PATCH] lilypond-0.0.23

---
 input/kortjakje.ly | 79 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100644 input/kortjakje.ly

diff --git a/input/kortjakje.ly b/input/kortjakje.ly
new file mode 100644
index 0000000000..fa54120b50
--- /dev/null
+++ b/input/kortjakje.ly
@@ -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
+	}
+}
+
-- 
2.39.5