-; unused.
-(define (accidental->markupp acc pos)
-
- (if (= acc 0)
- empty-markup
- (let ((acc-markup (make-musicglyph-markup
- (string-append "accidentals-"
- (number->string acc)))))
-
- (if (equal? pos 'columns)
- (make-line-markup (list (make-smaller-markup acc-markup)))
- (if (equal? pos 'super)
- (make-line-markup (list (make-super-markup acc-markup)))
- ;; not 'super or 'columns must be 'sub...
- (make-line-markup (list (make-sub-markup acc-markup))))))))
-