From: fred <fred>
Date: Tue, 17 Dec 1996 10:05:15 +0000 (+0000)
Subject: lilypond-0.0.17
X-Git-Tag: release/1.5.59~6568
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7fe2dffba8dcc94cac074db26707fddb45505919;p=lilypond.git

lilypond-0.0.17
---

diff --git a/kortjakje.ly b/kortjakje.ly
index 392bd19678..f5e6d08139 100644
--- a/kortjakje.ly
+++ b/kortjakje.ly
@@ -2,19 +2,39 @@
 % 
 % bare bones version. (written down from memory :-)
 
-melodie = music {$\octave {}
+% 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 g g	a a	g2	f f	e e	d d  c2
+	  c c 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 (	) g r8 g8 (	) a r8 a8 (	) g r4 
+	  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
 $}
 
-begeleiding = $\music {
-	\octave { ` }
+				% 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 c	e c	f c	e c	d `b	c `a	`f `g	`c2
+	`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
@@ -23,16 +43,21 @@ begeleiding = $\music {
 }$
 
 
+% create a staff named bstaf
 bstaf = staff {
 	melodic
-	music { begeleiding }
-		commands {
-			clef bass
+	music { begeleiding }	% use the declared music
+		commands {	% commands with Staff-wide impact.
+			clef bass	% bass-clef
+
 		}
 	}
+
+% another one
 vstaf = staff {
 	melodic
 		music { melodie }
+				% default clef is violin clef
 	}
 
 
@@ -40,11 +65,12 @@ score {
 	staff { vstaf }
 	staff { bstaf }
 	paper {
-		unitspace 2.5cm
+		unitspace 2.5cm	% a whole note takes 2.5 cm ideally.
 	}
 	commands {
-		meter 2 4 
-		skip 32:0
+		meter 2 4 	% a 2/4 meter.
+		skip 32:0	% skip 32 measures, and generate the bars
+		meter 6 8 	% another meter
 	}
 }