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