X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-properties.scm;h=a0b45d249156c6a0d1485555bca074de535cbf25;hb=1fe440c70207e07c0e7c5d7714246d4ed190f427;hp=195b86c8eef4b5c6e190a9fb52131166ebf6431c;hpb=5758fa63add68276fd012fac73a240f40332a320;p=lilypond.git diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm index 195b86c8ee..a0b45d2491 100644 --- a/scm/define-music-properties.scm +++ b/scm/define-music-properties.scm @@ -2,17 +2,12 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2004 Han-Wen Nienhuys +;;;; (c) 1998--2005 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen - - (define (music-property-description symbol type? description) (if (not (equal? #f (object-property symbol 'music-doc))) - (begin - (ly:warn "Redefining ~S" symbol) - (exit 2) - )) + (ly:error (_ "symbol ~S redefined") symbol)) (set-object-property! symbol 'music-type? type?) (set-object-property! symbol 'music-doc description) symbol) @@ -48,30 +43,24 @@ descend in the context tree.") (digit ,integer? "digit for fingering") (direction ,ly:dir? "Print this up or down?") (drum-type ,symbol? "Which percussion instrument to play this note on.") - - (tags ,list? "List of symbols that for denoting extra details, -e.g. @code{\\tag #'part ...} could tag a piece of music as only being active in a part.") - - - (text-type ,symbol? "Particular type of text script (e.g. finger, dynamic).") - (tempo-unit ,ly:duration? "The unit for the metronome count.") - (tonic ,ly:pitch? "Base of the scale") (error-found ,boolean? "If true, a parsing error was found in this expression") (element ,ly:music? "The single child of a Music_wrapper music object, or the body of a repeat.") (elements ,ly:music-list? "A list of elements for sequential of simultaneous music, or the alternatives of repeated music. ") (force-accidental ,boolean? "If set, a cautionary accidental should always be printed on this note") (grob-property ,symbol? "The symbol of the grob property to set. ") (grob-value ,scheme? "The value of the grob property to set") + (input-tag ,scheme? "Arbitrary marker to relate input and output") (inversion ,boolean? "If set, this chord note is inverted.") (label ,markup? "label of a mark.") (last-pitch ,ly:pitch? "The last pitch after relativization.") - (length ,procedure? "How to compute the duration of this music") - (internal-class-name ,string? "C++ class to use for this Music object") + (length ,ly:moment? "The duration of this music") + (length-callback ,procedure? "How to compute the duration of this music. This property +can only be defined as initializer in @file{define-music-types.scm}.") (name ,symbol? "Name of this music object") (numerator ,integer? "numerator of a time signature") (once ,boolean? "Apply this operation only during one time step?") (octavation ,integer? - "This pitch was octavated by how many octaves? + "This pitch was octavated by how many octaves? For chord inversions, this is negative.") (origin ,ly:input-location? "where was this piece of music defined?") (page-penalty ,number? "Penalty for page break hint.") @@ -80,29 +69,36 @@ For chord inversions, this is negative.") (pitch-alist ,list? "list of pitches jointly forming the scale of a key signature") (pop-first ,boolean? "Do a revert before we try to do a override on some grob property.") (procedure ,procedure? - "The function to run with \\applycontext. It must take a single argument, being the context.") + "The function to run with \\applycontext. +It must take a single argument, being the context.") (property-operations ,list? "Do these operations for instantiating the context.") - (predicate ,procedure? "the predicate of a \\outputproperty.") (quoted-events ,vector? "A vector of with moment/event-list entries.") (quoted-music-name ,string? "The name of the voice to quote.") + (quoted-voice-direction ,ly:dir? "Should the quoted voice be up-stem or down-stem?") (quoted-context-type ,symbol? "The name of the context to direct quotes to, eg., @code{Voice}.") (quoted-context-id ,string? "The id of the context to direct quotes to, eg., @code{cue}.") - - (type ,symbol? "The type of this music object. Determines iteration in some cases.") - (types ,list? "The types of this music -object; determines by what engraver this music expression is -processed.") + (to-relative-callback ,procedure? "How to transform a piece of music to relative pitches") (repeat-count ,integer? "do a @code{\repeat} how ofen?") (span-direction ,ly:dir? "Does this start or stop a spanner?") (split-list ,list? "splitting moments for part combiner.") - (start-moment-function ,procedure? "Function to compute the negative length of -starting grace notes.") - (string-number ,integer? "The number of the string in a String_number_req") + (start-callback ,procedure? "Function to compute the negative +length of starting grace notes. This property can only be defined as +initializer in @file{define-music-types.scm}.") + (string-number ,integer? "The number of the string in a StringNumberEvent") (symbol ,symbol? "Grob name to perform an override/revert on.") + (tags ,list? "List of symbols that for denoting extra details, +e.g. @code{\\tag #'part ...} could tag a piece of music as only being active in a part.") + (text-type ,symbol? "Particular type of text script (e.g. finger, dynamic).") + (text ,markup? "markup expression to be printed") - ;; markup? + (tempo-unit ,ly:duration? "The unit for the metronome count.") + (tonic ,ly:pitch? "Base of the scale") (tremolo-type ,integer? "") + (trill-pitch ,ly:pitch? "Pitch of other note of the trill.") + (type ,symbol? "The type of this music object. Determines iteration in some cases.") + (types ,list? "The types of this music object; determines by what +engraver this music expression is processed.") (value ,scheme? "Assignment value for a translation property") (what ,symbol? "What to change for auto-change. FIXME, naming") @@ -114,7 +110,7 @@ solo1, solo2 and unisono") a string) for figured bass") (alteration ,number? "alteration for figured bass") (bracket-start ,boolean? "start a bracket -here. TODO: use span requests?") +here. TODO: use SpanEvents?") (bracket-stop ,boolean? "stop a bracket here.") - + (untransposable ,boolean? "If set, this music is not transposed.") )))