(define shape-note-noteheads
(get-group glyph-list
- "^noteheads.[dsu][012](do|re|mi|fa|sol|la|ti)$"))
+ "^noteheads.[dsu][012](do|re|mi|fa|sol|la|ti)(Thin|Mirror)*$"))
(define clefs (get-group glyph-list "^clefs\\."))
(define timesig (get-group glyph-list "^timesig\\."))