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-text-properties
  34   (cons "Text_item" (list
  35                      (list 'textStyle string? 'style)
  36                      (list 'textScriptPadding number? 'padding)
  37                      )
  38         ))
  39
  40 (define generic-bar-properties
  41   (cons "Staff_bar" (list
  42                      (list 'barSize number? 'bar-size))
  43         )
  44   )
  45 (define generic-breathing-sign-properties
  46   (cons "Breathing_sign"
  47         (list
  48          (list 'breathingSignVerticalDirection dir? 'direction)
  49          (list 'verticalDirection dir? 'direction)
  50          )))
  51
  52 (define generic-clef-properties
  53   (cons "Clef_item"
  54         (list
  55          (list 'clefStyle string? 'style))
  56         )
  57   )
  58
  59 (define generic-All-properties
  60   (cons "all"  (list (list 'fontSize number? 'fontsize))))
  61
  62 (define generic-rest-properties
  63   (cons "Rest" (list (list 'restStyle string? 'reststyle))))
  64
  65 (define generic-tie-properties
  66   (cons "Tie" (list
  67                (list 'tieVerticalDirection dir? 'direction)
  68                (list 'verticalDirection dir? 'direction)
  69   )))
  70
  71
  72 (define generic-note-column-properties
  73   (cons "Note_column"
  74         (list
  75          (list 'horizontalNoteShift number? 'horizontal-shift)
  76          (list 'forceHorizontalShift number? 'force-hshift)
  77          )))
  78
  79 (define generic-slur-properties
  80   (cons "Slur"
  81         (list
  82          (list 'slurVerticalDirection dir? 'direction)
  83          (list 'verticalDirection dir? 'direction)
  84          (list 'slurDash number? 'dashed))))
  85
  86 (define generic-timesig-properties
  87   (cons "Time_signature"
  88         (list
  89          (list 'timeSignatureStyle string? 'sigstyle))))
  90
  91 (define generic-voice-properties
  92   (list
  93    generic-stem-properties
  94    generic-tie-properties
  95    generic-rest-properties
  96    generic-slur-properties
  97    generic-beam-properties
  98    generic-text-properties
  99    generic-note-column-properties
 100    generic-All-properties
 101    ))
 102
 103 (define generic-grace-properties generic-voice-properties)
 104 (define generic-staff-properties
 105   (list
 106    generic-bar-properties
 107    generic-timesig-properties
 108    generic-clef-properties
 109    generic-All-properties
 110    )
 111   )
 112
 113 (define generic-thread-properties
 114   (list generic-All-properties
 115         generic-dot-properties
 116
 117         )
 118
 119   )
 120