scm/define-music-properties.scm

   1 ;;;; music-property-description.scm -- part of generated backend documentation
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c)  1998--2004  Han-Wen Nienhuys <hanwen@cs.uu.nl>
   6 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
   7
   8
   9
  10 (define (music-property-description symbol type? description)
  11   (if (not (equal? #f (object-property symbol 'music-doc)))
  12       (begin
  13         (ly:warn (string-append "Redefining " (symbol->string symbol) "\n"))
  14         (exit 2)
  15         ))
  16   (set-object-property! symbol 'music-type? type?)
  17   (set-object-property! symbol 'music-doc description)
  18   symbol)
  19
  20 (define-public all-music-properties
  21   (map
  22    (lambda (x) (apply music-property-description x))
  23    `(
  24      (iterator-ctor ,procedure? "Function to construct music-event-iterator object for this Music")
  25      (duration ,ly:duration? "Duration of this note/lyric.")
  26      (metronome-count ,number? "How many beats in a minute?")
  27      (span-type ,string? "What kind of spanner should be created?
  28
  29 TODO: consider making type into symbol")
  30      (absolute-octave ,integer?
  31                       "The absolute octave for a octave check note.")
  32      (articulations ,ly:music-list?
  33                     "Articulation events specifically for this note.")
  34      (articulation-type ,string? "key for script definitions alist.
  35
  36 TODO: consider making type into symbol ")
  37      (associated-context ,string? "Name of the Voice context associated with this \\newaddlyrics section")
  38      (bass ,boolean? "Set if this note is a bass note in a chord")
  39      (cautionary ,boolean? "If set, this alteration needs cautionary accidental")
  40      (change-to-id ,string? "name of the context to change to ")
  41      (change-to-type ,symbol? "type of the context to change to.")
  42      (compress-procedure ,procedure? "compress this music expression. Argument 1: the music, arg 2: factor")
  43      (context-id ,string? "name of context")
  44      (context-type ,symbol?  "type of context")
  45      (descend-only ,boolean? "If set, this @code{\\context} will only
  46 descend in the context tree.")
  47      (denominator ,integer? "denominator in a time signature")
  48      (digit ,integer? "digit for fingering")
  49      (direction ,ly:dir? "Print this up or down?")
  50      (drum-type ,symbol? "Which percussion instrument to play this note on.")
  51
  52      (tags ,list? "List of symbols that for denoting extra details,
  53 e.g. @code{\\tag #'part ...} could tag a piece of music as only being active in a part.")
  54
  55
  56      (text-type ,symbol? "Particular type of text script (e.g. finger, dynamic).")
  57      (tempo-unit ,ly:duration? "The unit for the metronome count.")
  58      (tonic ,ly:pitch? "Base of the scale")
  59      (element ,ly:music? "The single child of a Music_wrapper music object, or the body of a repeat.")
  60      (elements ,ly:music-list? "A list of elements for sequential of simultaneous music, or the alternatives of repeated music. ")
  61      (force-accidental ,boolean? "If set, a cautionary accidental should always be printed on this note")
  62      (grob-property ,symbol? "The symbol of the grob property to set. ")
  63      (grob-value ,scheme? "The value of the grob property to set")
  64      (inversion ,boolean? "If set, this chord note is inverted.")
  65      (label ,markup? "label of a mark.")
  66      (last-pitch ,ly:pitch? "The last pitch after relativization.")
  67      (length ,procedure? "How to compute the duration of this music")
  68      (internal-class-name ,string? "C++ class to use for this Music object")
  69      (name ,symbol? "Name of this music object")
  70      (numerator ,integer? "numerator of a time signature")
  71      (once ,boolean? "Apply this operation only during one time step?")
  72      (octavation ,integer?
  73                   "This pitch was octavated by how many octaves?
  74 For chord inversions, this is negative.")
  75      (origin ,ly:input-location? "where was this piece of music defined?")
  76      (page-penalty ,number? "Penalty for page break hint.")
  77      (penalty ,number? "Penalty for line break hint.")
  78      (pitch ,ly:pitch? "the pitch of this note")
  79      (pitch-alist ,list? "list of pitches jointly forming the scale of a key signature")
  80      (pop-first ,boolean? "Do a revert before we try to do a override on some grob property.")
  81      (procedure ,procedure?
  82                 "The function to run with \\applycontext. It must take a single argument, being the context.")
  83      (property-operations ,list?
  84                           "Do these operations for instantiating the context.")
  85      (predicate ,procedure? "the predicate of a \\outputproperty.")
  86      (quoted-events ,vector? "A vector of with moment/event-list entries.")
  87      (type ,symbol? "The type of this music object. Determines iteration in some cases.")
  88      (types ,list? "The types of this music
  89 object; determines by what engraver this music expression is
  90 processed.")
  91      (repeat-count  ,integer? "do a @code{\repeat} how ofen?")
  92      (span-direction ,ly:dir? "Does this start or stop a spanner?")
  93      (split-list ,list? "splitting moments for part combiner.")
  94      (start-moment-function ,procedure? "Function to compute the negative length of
  95 starting grace notes.")
  96      (string-number ,integer? "The number of the string in a String_number_req")
  97      (symbol ,symbol? "Grob name to perform an override/revert on.")
  98      (text ,markup? "markup expression to be printed")
  99      ;; markup?
 100      (tremolo-type ,integer? "")
 101      (value ,scheme? "Assignment value for a
 102 translation property")
 103      (what ,symbol? "What to change for auto-change. FIXME, naming")
 104      (part-combine-status ,symbol?
 105                           "Change to what kind of state? Options are
 106 solo1, solo2 and unisono")
 107
 108      (figure ,markup? "a `figure' (which may be
 109 a string) for figured bass")
 110      (alteration ,number? "alteration for figured bass")
 111      (bracket-start ,boolean? "start a bracket
 112 here. TODO: use span requests?")
 113      (bracket-stop ,boolean? "stop a bracket here.")
 114
 115      )))