scm/generic-property.scm

   1
   2 (define generic-beam-properties
   3   (cons "Beam"
   4         (list
   5          (list 'beamSlopeDamping number? 'damping)
   6          (list 'autoKneeGap number? 'auto-knee-gap)
   7          (list 'autoInterstaffKneeGap number? 'auto-interstaff-knee-gap)
   8          (list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
   9          (list 'beamSlope number? 'height)
  10          (list 'beamVerticalPosition number? 'y-position)
  11          )
  12         )
  13   )
  14
  15
  16 (define generic-stem-properties
  17   (cons "Stem"
  18         (list
  19          (list 'stemVerticalDirection dir? 'direction)
  20          (list 'verticalDirection dir? 'direction)
  21          (list 'stemLength number? 'length)
  22          (list 'flagStyle string? 'flag-style)
  23          (list 'stemCentered boolean? 'stem-centered)
  24          (list 'noStemExtend boolean? 'no-stem-extend)
  25          (list 'stemShorten number? 'shorten)
  26          ))
  27   )
  28
  29 (define generic-dot-properties
  30   (cons "Dots" (list
  31                 (list 'dotDirection dir? 'direction)
  32                 (list 'verticalDirection dir? 'direction)
  33                 )
  34         ))
  35
  36 (define generic-script-properties
  37   (cons "Script" (list
  38                   (list 'articulationScriptVerticalDirection dir? 'direction)
  39                   (list 'articulationScriptPadding number? 'padding)
  40
  41                   ))
  42   )
  43
  44
  45
  46 (define generic-text-properties
  47   (cons "Text_item" (list
  48                      (list 'textStyle string? 'style)
  49                      (list 'textScriptPadding number? 'padding)
  50                      (list 'textVerticalAlignment dir? 'self-alignment-Y)
  51                      (list 'textHorizontalAlignment dir? 'self-alignment-X)
  52                      )
  53         ))
  54
  55 (define generic-crescendo-properties
  56   (cons "Crescendo" (list
  57                      (list 'dynamicDirection dir? 'direction)
  58                      (list 'verticalDirection dir? 'direction)
  59                      (list 'dynamicPadding number? 'padding)
  60                      )))
  61
  62 (define generic-bar-properties
  63   (cons "Staff_bar" (list
  64                      (list 'barSize number? 'bar-size)
  65                      ;(list 'glyph symbol? 'glyph)
  66                      )
  67         )
  68   )
  69
  70 (define staff-symbol-properties
  71   (cons "Staff_symbol" (list
  72                         (list 'numberOfStaffLines number? 'line-count)
  73                         (list 'staffSpace number? 'staff-space)
  74                         )
  75         )
  76   )
  77
  78 (define generic-breathing-sign-properties
  79   (cons "Breathing_sign"
  80         (list
  81          (list 'breathingSignVerticalDirection dir? 'direction)
  82          (list 'verticalDirection dir? 'direction)
  83          )))
  84
  85 (define generic-clef-properties
  86   (cons "Clef_item"
  87         (list
  88          (list 'clefStyle string? 'style))
  89         )
  90   )
  91
  92 (define generic-All-properties
  93   (cons "all"  (list (list 'fontSize number? 'fontsize))))
  94
  95 (define generic-rest-properties
  96   (cons "Rest" (list (list 'restStyle string? 'reststyle))))
  97
  98 (define generic-tie-properties
  99   (cons "Tie" (list
 100                (list 'tieVerticalDirection dir? 'direction)
 101                (list 'verticalDirection dir? 'direction)
 102   )))
 103
 104
 105 (define generic-note-column-properties
 106   (cons "Note_column"
 107         (list
 108          (list 'horizontalNoteShift number? 'horizontal-shift)
 109          (list 'forceHorizontalShift number? 'force-hshift)
 110          )))
 111
 112 (define generic-collision-properties
 113   (cons "Collision"
 114         (list
 115          (list 'collisionMergeDotted boolean? 'merge-differently-dotted)
 116          )
 117         )
 118   )
 119
 120 (define generic-slur-properties
 121   (cons "Slur"
 122         (list
 123          (list 'slurVerticalDirection dir? 'direction)
 124          (list 'verticalDirection dir? 'direction)
 125          (list 'slurDash number? 'dashed))))
 126
 127 (define generic-timesig-properties
 128   (cons "Time_signature"
 129         (list
 130          (list 'timeSignatureStyle string? 'style))))
 131
 132 (define generic-voice-properties
 133   (list
 134    generic-stem-properties
 135    generic-breathing-sign-properties
 136    generic-tie-properties
 137    generic-rest-properties
 138    generic-slur-properties
 139    generic-beam-properties
 140    generic-text-properties
 141    generic-note-column-properties
 142    generic-crescendo-properties
 143    generic-All-properties
 144    ))
 145
 146 (define generic-grace-properties generic-voice-properties)
 147 (define generic-staff-properties
 148   (list
 149    generic-text-properties
 150    generic-bar-properties
 151    generic-timesig-properties
 152    generic-clef-properties
 153    generic-collision-properties
 154    generic-All-properties
 155    )
 156   )
 157 (define generic-grand-staff-properties
 158   (list
 159    generic-text-properties
 160    generic-bar-properties
 161    ))
 162
 163 (define generic-thread-properties
 164   (list generic-All-properties
 165         generic-dot-properties
 166         )
 167
 168   )
 169