scm/music-property.scm

   1
   2
   3 (define all-music-properties '())
   4
   5 (define (music-property-description symbol type? description)
   6   (set-object-property! symbol 'music-type? type?)
   7   (set-object-property! symbol 'music-doc description)
   8   (set! all-music-properties (cons symbol all-music-properties))
   9   )
  10 (define (true? x) #t)
  11
  12 (music-property-description 'iterator-ctor c++-function? "Function to construct music-event-iterator object for this Music")
  13 (music-property-description 'duration duration? "")
  14 (music-property-description 'metronome-count number? "How many beats in a minute?")
  15 (music-property-description 'span-type symbol? "What kind of spanner should be created?")
  16 (music-property-description 'alternatives music? "Music_sequence of alternatives for repeated music.")
  17 (music-property-description 'articulation-type symbol? "key for scriptDefinitions alist")
  18 (music-property-description 'bass boolean? "")
  19 (music-property-description 'body music? "")
  20 (music-property-description 'cautionary boolean? "")
  21 (music-property-description 'change-to-id string? "")
  22 (music-property-description 'change-to-type string? "")
  23 (music-property-description 'context-id string? "")
  24 (music-property-description 'context-type string?  "")
  25 (music-property-description 'denominator integer? "")
  26 (music-property-description 'direction dir? "")
  27 (music-property-description 'text-type symbol? "")
  28 (music-property-description 'element music )
  29 (music-property-description 'grob-property symbol? "")
  30 (music-property-description 'grob-value true? "")
  31 (music-property-description 'elements list? "")
  32 (music-property-description 'force-accidental boolean? "")
  33 (music-property-description 'inversion boolean? "")
  34 (music-property-description 'label string? "")
  35 (music-property-description 'last-pitch pitch? "")
  36 (music-property-description 'length procedure? "")
  37 (music-property-description 'lyrics music? "")
  38 (music-property-description 'mark-label string? "")
  39 (music-property-description 'numerator integer? "")
  40 (music-property-description 'one music? ""); part-combine, fixme, naming.
  41 (music-property-description 'origin input? "")
  42 (music-property-description 'penalty number? "")
  43 (music-property-description 'pitch pitch? "")
  44 (music-property-description 'pitch-alist list? "")
  45 (music-property-description 'predicate procedure? "")
  46 (music-property-description 'type symbol? "")
  47 (music-property-description 'repeat-count  integer? "")
  48 (music-property-description 'span-direction dir? "")
  49 (music-property-description 'symbol symbol? "")
  50 (music-property-description 'symbols list? "")
  51 (music-property-description 'tempo duration? "")
  52 (music-property-description 'text string? "");; markup?
  53 (music-property-description 'tremolo-type integer? "")
  54 (music-property-description 'two music? ""); part-combine, fixme, naming.
  55 (music-property-description 'value true? "")
  56 (music-property-description 'what string? "")