X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-types.scm;h=99036e4ed49f9c0fea41f5e0878a51bad20a3187;hb=2f7343c6c81e75989d087cab3557d6a8527609af;hp=d72eea02a1362529c9fa5e17df3c3cd63e654228;hpb=ee14ecde78ccaedf9eef4e1f5684ade2d4941014;p=lilypond.git

diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index d72eea02a1..99036e4ed4 100644
--- a/scm/define-music-types.scm
+++ b/scm/define-music-types.scm
@@ -2,14 +2,13 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;		     Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;; TODO: should link back into user manual.
 
 (define (mm-rest-child-list music)
-  "Check if we have R1*4-\\markup { .. }, and if applicable convert to
-a property set for MultiMeasureRestNumber."
+  "Generate events for multimeasure rests, to be used by the sequential-iterator"
   (let ((location (ly:music-property music 'origin))
 	(duration (ly:music-property music 'duration)))
     (list (make-music 'BarCheck
@@ -31,12 +30,19 @@ Syntax: @var{note}@code{\\x},
 where x is one of \\ppp, \\pp, \\p, \\mp, \\mf, \\f, \\ff, \\fff.")
 	(types . (general-music event dynamic-event absolute-dynamic-event))
 	))
+
+    (AnnotateOutputEvent
+     . ((description . "Print an annotation of an output element.")
+	(types . (general-music event annotate-output-event))
+	))
+	
     (ApplyContext
      . (
 	(description . "Call the argument with the current context during interpreting phase")
 	(types . (general-music apply-context))
 	(iterator-ctor . ,ly:apply-context-iterator::constructor)
 	))
+    
     (ApplyOutputEvent
      . (
 	(description . "
@@ -50,7 +56,7 @@ arguments to func are 1. the grob, 2. the originating context,
 3. context where FUNC is called.
 
 ")
-	(types . (general-music event layout-instruction-event))
+	(types . (general-music event apply-output-event))
 	))
     (ArpeggioEvent 
      . (
@@ -96,6 +102,7 @@ is an articulation (such as @code{-.}, @code{->}, @code{\\tenuto},
 
 	(types . (general-music event rhythmic-event bass-figure-event))
 	))
+    
     (BeamEvent
      . (
 	(description .  "Starts or stops a beam.  
@@ -104,17 +111,10 @@ Syntax for manual control:
 c8-[ c c-] c8")
 	(types . (general-music event beam-event span-event))
 	))
-
     (BendAfterEvent
      . ((description . "A drop/fall/doit jazz articulation")
 	(types . (general-music bend-after-event event))))
 
-    (BreakEvent
-     . (
-	(description .  "Create a line break, Syntax: \\break or page break, Syntax: \\pagebreak.")
-	
-	(types . (general-music break-event event))
-	))
     (BreathingEvent
      . (
 	(description .	"Creates a `breath mark' or `comma'.  
@@ -157,13 +157,13 @@ Syntax: @var{note}\\cr
 ... @var{note}\\rc (you can also use \\<, \\!, \\cresc, and
 \\endcresc.  See the user manual for details.).")
 
-	(types . (general-music dynamic-event crescendo-event event))
+	(types . (general-music span-event span-dynamic-event crescendo-event event))
 	)) 
     (DecrescendoEvent
      . (
 	(description .	"See @ref{CrescendoEvent}.")
 
-	(types . (general-music dynamic-event decrescendo-event event))
+	(types . (general-music span-event span-dynamic-event decrescendo-event event))
 	))
     
     (ExtenderEvent
@@ -337,18 +337,18 @@ SYNTAX
 
 @code{\\override [ @var{Ctxt} . ] @var{Obj} @var{prop} = @var{val}}
 ")
-	(types . (general-music layout-instruction-event))
+	(types . (general-music layout-instruction-event override-property-event))
 	(iterator-ctor . ,ly:push-property-iterator::constructor)
 	))
     (PageBreakEvent
      . (
 	(description .  "Allow, forbid or force a page break.")
-	(types . (general-music break-event event))
+	(types . (general-music break-event page-break-event event))
 	))
     (PageTurnEvent
      . (
 	(description .  "Allow, forbid or force a page turn.")
-	(types . (general-music break-event event))
+	(types . (general-music break-event page-turn-event event))
 	))
     (PartCombineMusic
      . (
@@ -459,13 +459,13 @@ Syntax \\sequential @{..@} or simply @{..@} .")
      . (
 	(description . "Print Solo.1")
 	(part-combine-status . solo1)
-	(types . (general-music event part-combine-event solo1-event))
+	(types . (general-music event part-combine-event solo-one-event))
 	))
     (SoloTwoEvent
      . (
 	(description . "Print Solo.2")
 	(part-combine-status . solo2)
-	(types . (general-music event part-combine-event solo2-event))
+	(types . (general-music event part-combine-event solo-two-event))
 	))
     (UnisonoEvent
      . ((description . "Print a2")
@@ -613,13 +613,13 @@ Syntax: @code{s}@var{duration}")
     (SostenutoEvent
      . (
 	(description . "Depress or release sostenuto pedal. ")
-	(types . (general-music event pedal-event sostenuto-pedal-event))
+	(types . (general-music event pedal-event sostenuto-event))
 	))
     
     (UnaCordaEvent
      . (
 	(description . "Depress or release una-corda pedal.")
-	(types . (general-music event pedal-event una-corda-pedal-event))
+	(types . (general-music event pedal-event una-corda-event))
 	))
     
     (StringNumberEvent
@@ -631,11 +631,14 @@ Syntax: @code{\\@var{number}}.")
 	(types . (general-music string-number-event event))
 	)) 
 
-    (MetronomeChangeEvent
+    (StrokeFingerEvent
      . (
-	(description .	"Change tempo setting (in beats per minute).")
-	(types . (general-music metronome-change-event tempo-event event))
-	))
+	(description .	"Specify with which finger to pluck a string. 
+
+Syntax: @code{\\rightHandFinger @var{text}}.")
+
+	(types . (general-music stroke-finger-event event))
+	)) 
     
     (TextScriptEvent
      . (