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
  67 (define staff-symbol-properties
  68   (cons "Staff_symbol" (list
  69                         (list 'numberOfStaffLines number? 'line-count)
  70                         (list 'staffLineLeading number? 'staff-space)
  71                         )
  72         )
  73   )
  74
  75 (define generic-breathing-sign-properties
  76   (cons "Breathing_sign"
  77         (list
  78          (list 'breathingSignVerticalDirection dir? 'direction)
  79          (list 'verticalDirection dir? 'direction)
  80          )))
  81
  82 (define generic-clef-properties
  83   (cons "Clef_item"
  84         (list
  85          (list 'clefStyle string? 'style))
  86         )
  87   )
  88
  89 (define generic-All-properties
  90   (cons "all"  (list (list 'fontSize number? 'fontsize))))
  91
  92 (define generic-rest-properties
  93   (cons "Rest" (list (list 'restStyle string? 'reststyle))))
  94
  95 (define generic-tie-properties
  96   (cons "Tie" (list
  97                (list 'tieVerticalDirection dir? 'direction)
  98                (list 'verticalDirection dir? 'direction)
  99   )))
 100
 101
 102 (define generic-note-column-properties
 103   (cons "Note_column"
 104         (list
 105          (list 'horizontalNoteShift number? 'horizontal-shift)
 106          (list 'forceHorizontalShift number? 'force-hshift)
 107          )))
 108
 109 (define generic-slur-properties
 110   (cons "Slur"
 111         (list
 112          (list 'slurVerticalDirection dir? 'direction)
 113          (list 'verticalDirection dir? 'direction)
 114          (list 'slurDash number? 'dashed))))
 115
 116 (define generic-timesig-properties
 117   (cons "Time_signature"
 118         (list
 119          (list 'timeSignatureStyle string? 'style))))
 120
 121 (define generic-voice-properties
 122   (list
 123    generic-stem-properties
 124    generic-breathing-sign-properties
 125    generic-tie-properties
 126    generic-rest-properties
 127    generic-slur-properties
 128    generic-beam-properties
 129    generic-text-properties
 130    generic-note-column-properties
 131    generic-crescendo-properties
 132    generic-All-properties
 133    ))
 134
 135 (define generic-grace-properties generic-voice-properties)
 136 (define generic-staff-properties
 137   (list
 138    generic-text-properties
 139    generic-bar-properties
 140    generic-timesig-properties
 141    generic-clef-properties
 142    generic-All-properties
 143    )
 144   )
 145 (define generic-grand-staff-properties
 146   (list
 147    generic-text-properties
 148    generic-bar-properties
 149    ))
 150
 151
 152 (define generic-thread-properties
 153   (list generic-All-properties
 154         generic-dot-properties
 155
 156         )
 157
 158   )
 159