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