X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmusic-property-description.scm;h=83ff53bf4fea2a045e41d18c7e0c83b8472a40a2;hb=2745cbd907f8216a4cc1fc5f488ae19efdfdbd10;hp=e4a228426500aaf70520ce78e8d551c281777fb8;hpb=94189ec2b8da6d7e89dc619c646a927adead9b19;p=lilypond.git diff --git a/scm/music-property-description.scm b/scm/music-property-description.scm index e4a2284265..83ff53bf4f 100644 --- a/scm/music-property-description.scm +++ b/scm/music-property-description.scm @@ -2,61 +2,92 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2001 Han-Wen Nienhuys +;;;; (c) 1998--2003 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen -(define all-music-properties '()) +(define-public all-music-properties '()) (define (music-property-description symbol type? description) - (set-object-property! symbol 'music-type? type?) - (set-object-property! symbol 'music-doc description) - (set! all-music-properties (cons symbol all-music-properties)) - ) -(define (true? x) #t) - -(music-property-description 'iterator-ctor c++-function? "Function to construct music-event-iterator object for this Music") -(music-property-description 'duration duration? "") + (if (not (equal? #f (object-property symbol 'music-doc))) + (begin + (ly:warn (string-append "Redefining " (symbol->string symbol) "\n")) + (exit 2) + )) + (set-object-property! symbol 'music-type? type?) + (set-object-property! symbol 'music-doc description) + (set! all-music-properties (cons symbol all-music-properties)) + ) + + + +(music-property-description 'iterator-ctor procedure? "Function to construct music-event-iterator object for this Music") +(music-property-description 'duration ly:duration? "Duration of this note/lyric.") (music-property-description 'metronome-count number? "How many beats in a minute?") -(music-property-description 'span-type symbol? "What kind of spanner should be created?") -(music-property-description 'alternatives music? "Music_sequence of alternatives for repeated music.") -(music-property-description 'articulation-type symbol? "key for scriptDefinitions alist") -(music-property-description 'bass boolean? "") -(music-property-description 'body music? "") -(music-property-description 'cautionary boolean? "") -(music-property-description 'change-to-id string? "") -(music-property-description 'change-to-type string? "") -(music-property-description 'context-id string? "") -(music-property-description 'context-type string? "") -(music-property-description 'denominator integer? "") -(music-property-description 'direction dir? "") -(music-property-description 'text-type symbol? "") -(music-property-description 'element music ) -(music-property-description 'grob-property symbol? "") -(music-property-description 'grob-value true? "") -(music-property-description 'elements list? "") -(music-property-description 'force-accidental boolean? "") -(music-property-description 'inversion boolean? "") -(music-property-description 'label string? "") -(music-property-description 'last-pitch pitch? "") -(music-property-description 'length procedure? "") -(music-property-description 'lyrics music? "") -(music-property-description 'mark-label string? "") -(music-property-description 'numerator integer? "") -(music-property-description 'one music? ""); part-combine, fixme, naming. -(music-property-description 'origin input? "") -(music-property-description 'penalty number? "") -(music-property-description 'pitch pitch? "") -(music-property-description 'pitch-alist list? "") -(music-property-description 'predicate procedure? "") -(music-property-description 'type symbol? "") -(music-property-description 'repeat-count integer? "") -(music-property-description 'span-direction dir? "") -(music-property-description 'symbol symbol? "") -(music-property-description 'symbols list? "") -(music-property-description 'tempo duration? "") -(music-property-description 'text string? "");; markup? +(music-property-description 'span-type string? "What kind of spanner should be created? + +TODO: consider making type into symbol") +(music-property-description 'articulations music-list? + "Articulation events specifically for this note.") +(music-property-description 'articulation-type string? "key for script definitions alist. + +TODO: consider making type into symbol ") +(music-property-description 'bass boolean? "Set if this note is a bass note in a chord") +(music-property-description 'cautionary boolean? "If set, this alteration needs cautionary accidental") +(music-property-description 'change-to-id string? "name of the context to change to ") +(music-property-description 'change-to-type string? "type of the context to change to.") +(music-property-description 'compress-procedure procedure? "compress this music expression. Argument 1: the music, arg 2: factor") +(music-property-description 'context-id string? "name of context") +(music-property-description 'context-type string? "type of context") +(music-property-description 'denominator integer? "denominator in a time signature") +(music-property-description 'digit integer? "digit for fingering") +(music-property-description 'direction ly:dir? "Print this up or down?") +(music-property-description 'text-type symbol? "Particular type of text script (eg. finger, dynamic).") +(music-property-description 'tempo-unit ly:duration? "The unit for the metronome count.") +(music-property-description 'tonic ly:pitch? "Base of the scale") +(music-property-description 'element ly:music? "The single child of a Music_wrapper music object, or the body of a repeat.") +(music-property-description 'elements music-list? "A list of elements for sequential of simultaneous music, or the alternatives of repeated music. ") +(music-property-description 'force-accidental boolean? "If set, a cautionary accidental should always be printed on this note") +(music-property-description 'grob-property symbol? "The symbol of the grob property to set. ") +(music-property-description 'grob-value scheme? "The value of the grob property to set") +(music-property-description 'inversion boolean? "If set, this chord note is inverted.") +(music-property-description 'label markup? "label of a mark.") +(music-property-description 'last-pitch ly:pitch? "The last pitch after relativization.") +(music-property-description 'length procedure? "How to compute the duration of this music") +(music-property-description 'internal-class-name string? "C++ class to use for this Music object") +(music-property-description 'name symbol? "Name of this music object") +(music-property-description 'numerator integer? "numerator of a time signature") +(music-property-description 'once boolean? "Apply this operation only during one time step?") +(music-property-description 'octavation integer? + "This pitch was octavated by how many octaves? +For chord inversions, this is negative.") +(music-property-description 'origin ly:input-location? "where was this piece of music defined?") +(music-property-description 'penalty number? "Penalty for break hint.") +(music-property-description 'pitch ly:pitch? "the pitch of this note") +(music-property-description 'pitch-alist list? "list of pitches jointly forming the scale of a key signature") +(music-property-description 'pop-first boolean? "Do a revert before we try to do a override on some grob property.") +(music-property-description 'procedure procedure? + "The function to run with \\applycontext. It must take a single argument, being the context.") +(music-property-description 'predicate procedure? "the predicate of a \outputproperty") +(music-property-description 'type symbol? "The type of this music object. Determines iteration in some cases.") +(music-property-description 'types list? "The types of this music object. Determines iteration in some cases.") +(music-property-description 'repeat-count integer? "do a @code{\repeat} how ofen?") +(music-property-description 'span-direction ly:dir? "Does this start or stop a spanner?") + +(music-property-description 'start-moment-function procedure? "Function to compute the negative length of +starting grace notes.") +(music-property-description 'string-number integer? "The number of the string in a String_number_req") +(music-property-description 'symbol symbol? "Grob name to perform an override/revert on.") +(music-property-description 'text markup? "markup expression to be printed") +;; markup? (music-property-description 'tremolo-type integer? "") -(music-property-description 'two music? ""); part-combine, fixme, naming. -(music-property-description 'value true? "") -(music-property-description 'what string? "") +(music-property-description 'value scheme? "Assignment value for a +translation property") +(music-property-description 'what string? "What to change for auto-change. FIXME, naming") + +(music-property-description 'figure number? "number for figured bass") +(music-property-description 'alteration number? "alteration for figured bass") +(music-property-description 'bracket-start boolean? "start a bracket +here. TODO: use span requests?") +(music-property-description 'bracket-stop boolean? "stop a bracket here.") +