mirror of
https://github.com/microtherion/VocalEasel.git
synced 2024-12-22 11:14:00 +00:00
Deal with variable number of arguments to vlBassNamer
This commit is contained in:
parent
13bdae7ad6
commit
7f44a763d8
|
@ -31,9 +31,9 @@ vlFlat = #(markup #:hspace 0.2 (alteration->text-accidental-markup FLAT))
|
|||
"Stack two accidentals"
|
||||
(interpret-markup layout props
|
||||
(markup #:raise 3.0 #:fontsize -5.0 #:column (#:with-dimensions '(0 . 3) '(0 . 5) top bottom))))
|
||||
#(define-public (vlBassNamer pitch)
|
||||
#(define-public (vlBassNamer . args)
|
||||
"Return pitch markup for PITCH."
|
||||
(markup #:sub #:line (#:raise 1.0 "/" (note-name->markup pitch))))
|
||||
(markup #:sub #:line (#:raise 1.0 "/" (apply note-name->markup args))))
|
||||
|
||||
vlExceptionMusic = {
|
||||
<c e g bes d' a'>1-\markup { \super "13" }
|
||||
|
|
Loading…
Reference in New Issue
Block a user