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 'stemLength number? 'length)
  19          (list 'stemStyle string? 'style)
  20          (list 'noStemExtend boolean? 'no_stem_extend)
  21          ))
  22   )
  23
  24 (define generic-text-properties
  25   (cons "Text_item" (list
  26                      (list 'textStyle string? 'style)
  27                      (list 'textScriptPadding number? 'padding)
  28                      )
  29         ))
  30
  31 (define generic-bar-properties
  32   (cons "Staff_bar" (list
  33                      (list 'barSize number? 'bar_size))
  34         )
  35   )
  36 (define generic-breathing-sign-properties
  37   (cons "Breathing_sign"
  38         (list
  39          (list 'breathingSignBreakPriority number? 'break_priority
  40           ))))
  41
  42 (define generic-clef-properties
  43   (cons "Clef_item"
  44         (list
  45          (list 'clefBreakPriority number? 'break_priority)
  46          (list 'clefStyle string? 'style))
  47         )
  48   )
  49
  50 (define generic-All-properties
  51   (cons "all"  (list (list 'fontSize number? 'fontsize))))
  52
  53 (define generic-rest-properties
  54   (cons "Rest" (list (list 'restStyle string? 'reststyle))))
  55
  56 (define generic-note-column-properties
  57   (cons "Note_column"
  58         (list
  59          (list 'horizontalNoteShift number? 'horizontal_shift)
  60          (list 'forceHorizontalShift number? 'force_hshift)
  61          )))
  62
  63 (define generic-slur-properties
  64   (cons "Slur"
  65         (list
  66          (list 'slurDash number? 'dashed))))
  67
  68 (define generic-timesig-properties
  69   (cons "Time_signature"
  70         (list
  71          (list 'timeSignatureStyle string? 'sigstyle))))
  72
  73 (define generic-voice-properties
  74   (list
  75    generic-stem-properties
  76    generic-rest-properties
  77    generic-slur-properties
  78    generic-beam-properties
  79    generic-text-properties
  80    generic-note-column-properties
  81    generic-All-properties
  82    ))
  83
  84 (define generic-grace-properties generic-voice-properties)
  85 (define generic-staff-properties
  86   (list
  87    generic-bar-properties
  88    generic-timesig-properties
  89    generic-clef-properties
  90    generic-All-properties
  91    )
  92   )
  93
  94 (define generic-thread-properties
  95   (list generic-All-properties))
  96