So, if I expected help from anyone on this list, choosing that shell was a poor decision.
And I should have included a shebang to be clearer in this example,
in which case the most up-to-date version through homebrew is #!/usr/local/bin/bash
In any case, the point being that the script creates many examples, some of which succeed, and some of which fail.
Here is one that succeeds as-is, changing the DynamicText.
But if you uncomment either the Script or NoteHead lines, it fails.
\version "2.19.83"
#(define-public (add-notation-font fontnode name music-str brace-str factor)
(begin
(add-music-fonts fontnode
name music-str brace-str
feta-design-size-mapping factor)
fontnode))
\paper {
#(define notation-fonts
(list
(list 'beethoven "beethoven" "beethoven")
))
#(begin
(for-each
(lambda (tup)
(add-notation-font fonts
(car tup) ; font identifier
(cadr tup) ; notation font
(caddr tup) ; brace font
(/ staff-height pt 20)))
notation-fonts))
}
\layout {
% This one works (for articulations)
\override DynamicText #'font-family = #'beethoven
% Uncomment either of these, and it fails
%\override Script #'font-family = #'beethoven
%\override NoteHead #'font-family = #'beethoven
}
\relative c' { c2.\pp \< d4--\p | e2.->\mf f4->\ff }
Thanks,
Elaine Alt
415 . 341 .4954 "Confusion is highly underrated"
address@hidden-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-