+ (cons 'all
+ (list (list 'fontSize number? 'font-relative-size))))
+
+
+(define generic-notehead-properties
+ (cons 'note-head-interface
+ (list (list 'noteHeadStyle symbol? 'style))))
+
+(define generic-notename-properties
+ (cons 'note-name-interface
+ (list (list 'noteNameStyle symbol? 'style))))
+
+
+(define generic-porrectus-properties
+ (cons 'porrectus-interface
+ (list
+ (list 'porrectusStyle symbol? 'style)
+ (list 'porrectusSolid boolean? 'solid)
+ (list 'porrectusAddStem boolean? 'add-stem)
+ (list 'porrectusStemDirection dir? 'stem-direction)
+ )))
+