))
)
+(define generic-dot-properties
+ (cons "Dots" (list
+ (list 'dotDirection dir? 'direction)
+ (list 'verticalDirection dir? 'direction)
+ )
+ ))
+
(define generic-text-properties
(cons "Text_item" (list
(list 'textStyle string? 'style)
(define generic-voice-properties
(list
generic-stem-properties
+ generic-tie-properties
generic-rest-properties
generic-slur-properties
generic-beam-properties
)
(define generic-thread-properties
- (list generic-All-properties))
+ (list generic-All-properties
+ generic-dot-properties
+
+ )
+
+ )