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 'stemStyle string? 'style)
  23          (list 'noStemExtend boolean? 'no-stem-extend)
  24          (list 'stemShorten number? 'shorten)
  25          ))
  26   )
  27
  28 (define generic-dot-properties
  29   (cons "Dots" (list
  30                 (list 'dotDirection dir? 'direction)
  31                 (list 'verticalDirection dir? 'direction)
  32                 )
  33         ))
  34
  35 (define generic-script-properties
  36   (cons "Script" (list
  37                   (list 'articulationScriptVerticalDirection dir? 'direction)
  38                   (list 'articulationScriptPadding number? 'padding)
  39
  40                   ))
  41   )
  42
  43
  44
  45 (define generic-text-properties
  46   (cons "Text_item" (list
  47                      (list 'textStyle string? 'style)
  48                      (list 'textScriptPadding number? 'padding)
  49                      (list 'textVerticalAlignment dir? 'self-alignment-Y)
  50                      (list 'textHorizontalAlignment dir? 'self-alignment-X)
  51                      )
  52         ))
  53
  54 (define generic-crescendo-properties
  55   (cons "Crescendo" (list
  56                      (list 'dynamicDirection dir? 'direction)
  57                      (list 'verticalDirection dir? 'direction)
  58                      (list 'dynamicPadding number? 'padding)
  59                      )))
  60
  61 (define generic-bar-properties
  62   (cons "Staff_bar" (list
  63                      (list 'barSize number? 'bar-size))
  64         )
  65   )
  66 (define generic-breathing-sign-properties
  67   (cons "Breathing_sign"
  68         (list
  69          (list 'breathingSignVerticalDirection dir? 'direction)
  70          (list 'verticalDirection dir? 'direction)
  71          )))
  72
  73 (define generic-clef-properties
  74   (cons "Clef_item"
  75         (list
  76          (list 'clefStyle string? 'style))
  77         )
  78   )
  79
  80 (define generic-All-properties
  81   (cons "all"  (list (list 'fontSize number? 'fontsize))))
  82
  83 (define generic-rest-properties
  84   (cons "Rest" (list (list 'restStyle string? 'reststyle))))
  85
  86 (define generic-tie-properties
  87   (cons "Tie" (list
  88                (list 'tieVerticalDirection dir? 'direction)
  89                (list 'verticalDirection dir? 'direction)
  90   )))
  91
  92
  93 (define generic-note-column-properties
  94   (cons "Note_column"
  95         (list
  96          (list 'horizontalNoteShift number? 'horizontal-shift)
  97          (list 'forceHorizontalShift number? 'force-hshift)
  98          )))
  99
 100 (define generic-slur-properties
 101   (cons "Slur"
 102         (list
 103          (list 'slurVerticalDirection dir? 'direction)
 104          (list 'verticalDirection dir? 'direction)
 105          (list 'slurDash number? 'dashed))))
 106
 107 (define generic-timesig-properties
 108   (cons "Time_signature"
 109         (list
 110          (list 'timeSignatureStyle string? 'style))))
 111
 112 (define generic-voice-properties
 113   (list
 114    generic-stem-properties
 115    generic-breathing-sign-properties
 116    generic-tie-properties
 117    generic-rest-properties
 118    generic-slur-properties
 119    generic-beam-properties
 120    generic-text-properties
 121    generic-note-column-properties
 122    generic-crescendo-properties
 123    generic-All-properties
 124    ))
 125
 126 (define generic-grace-properties generic-voice-properties)
 127 (define generic-staff-properties
 128   (list
 129    generic-text-properties
 130    generic-bar-properties
 131    generic-timesig-properties
 132    generic-clef-properties
 133    generic-All-properties
 134    )
 135   )
 136 (define generic-grand-staff-properties
 137   (list
 138    generic-text-properties
 139    generic-bar-properties
 140    ))
 141
 142
 143 (define generic-thread-properties
 144   (list generic-All-properties
 145         generic-dot-properties
 146
 147         )
 148
 149   )
 150