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          (list 'beamSlope number? 'height)
  11          (list 'beamVerticalPosition number? 'y-position)
  12          )
  13         )
  14   )
  15
  16
  17 (define generic-stem-properties
  18   (cons "Stem"
  19         (list
  20          (list 'stemVerticalDirection dir? 'direction)
  21          (list 'verticalDirection dir? 'direction)
  22          (list 'stemLength number? 'length)
  23          (list 'stemStyle string? 'style)
  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         )
  66   )
  67 (define generic-breathing-sign-properties
  68   (cons "Breathing_sign"
  69         (list
  70          (list 'breathingSignVerticalDirection dir? 'direction)
  71          (list 'verticalDirection dir? 'direction)
  72          )))
  73
  74 (define generic-clef-properties
  75   (cons "Clef_item"
  76         (list
  77          (list 'clefStyle string? 'style))
  78         )
  79   )
  80
  81 (define generic-All-properties
  82   (cons "all"  (list (list 'fontSize number? 'fontsize))))
  83
  84 (define generic-rest-properties
  85   (cons "Rest" (list (list 'restStyle string? 'reststyle))))
  86
  87 (define generic-tie-properties
  88   (cons "Tie" (list
  89                (list 'tieVerticalDirection dir? 'direction)
  90                (list 'verticalDirection dir? 'direction)
  91   )))
  92
  93
  94 (define generic-note-column-properties
  95   (cons "Note_column"
  96         (list
  97          (list 'horizontalNoteShift number? 'horizontal-shift)
  98          (list 'forceHorizontalShift number? 'force-hshift)
  99          )))
 100
 101 (define generic-slur-properties
 102   (cons "Slur"
 103         (list
 104          (list 'slurVerticalDirection dir? 'direction)
 105          (list 'verticalDirection dir? 'direction)
 106          (list 'slurDash number? 'dashed))))
 107
 108 (define generic-timesig-properties
 109   (cons "Time_signature"
 110         (list
 111          (list 'timeSignatureStyle string? 'style))))
 112
 113 (define generic-voice-properties
 114   (list
 115    generic-stem-properties
 116    generic-breathing-sign-properties
 117    generic-tie-properties
 118    generic-rest-properties
 119    generic-slur-properties
 120    generic-beam-properties
 121    generic-text-properties
 122    generic-note-column-properties
 123    generic-crescendo-properties
 124    generic-All-properties
 125    ))
 126
 127 (define generic-grace-properties generic-voice-properties)
 128 (define generic-staff-properties
 129   (list
 130    generic-text-properties
 131    generic-bar-properties
 132    generic-timesig-properties
 133    generic-clef-properties
 134    generic-All-properties
 135    )
 136   )
 137 (define generic-grand-staff-properties
 138   (list
 139    generic-text-properties
 140    generic-bar-properties
 141    ))
 142
 143
 144 (define generic-thread-properties
 145   (list generic-All-properties
 146         generic-dot-properties
 147
 148         )
 149
 150   )
 151