Hello all, Thanks to some help (on the user-list) from David K, I've started to attack issue #3947. (I figured this would be a nice, relatively painless way to get my feet wet in the dev/git/patch process.)
The snippet included below is what I have so far. It appears to work as hoped. Two questions: 1. Does the skip appear *roughly* right to people? (I plan to use a mathematical interpolation/model/formula, but wanted to get approval/concensus/comments first.) 2. Seems like a lot of redundant coding here… Should I add an abstracted function (e.g., fontsizer), which is then called by \huge et al.? Thanks, Kieren. %%% SNIPPET BEGINS \version "2.19.61" #(define-markup-command (huge layout props arg) (markup?) #:category font "Set font size to +2. @lilypond[verbatim,quote] \\markup { default \\hspace #2 \\huge huge } @end lilypond" (interpret-markup layout (prepend-alist-chain 'baseline-skip 4 (prepend-alist-chain 'font-size 2 props)) arg)) #(define-markup-command (large layout props arg) (markup?) #:category font "Set font size to +1. @lilypond[verbatim,quote] \\markup { default \\hspace #2 \\large large } @end lilypond" (interpret-markup layout (prepend-alist-chain 'baseline-skip 3.625 (prepend-alist-chain 'font-size 1 props)) arg)) #(define-markup-command (normalsize layout props arg) (markup?) #:category font "Set font size to default. @lilypond[verbatim,quote] \\markup { \\teeny { this is very small \\hspace #2 \\normalsize { normal size } \\hspace #2 teeny again } } @end lilypond" (interpret-markup layout (prepend-alist-chain 'baseline-skip 3 (prepend-alist-chain 'font-size 0 props)) arg)) #(define-markup-command (small layout props arg) (markup?) #:category font "Set font size to -1. @lilypond[verbatim,quote] \\markup { default \\hspace #2 \\small small } @end lilypond" (interpret-markup layout (prepend-alist-chain 'baseline-skip 2.5 (prepend-alist-chain 'font-size -1 props)) arg)) #(define-markup-command (tiny layout props arg) (markup?) #:category font "Set font size to -2. @lilypond[verbatim,quote] \\markup { default \\hspace #2 \\tiny tiny } @end lilypond" (interpret-markup layout (prepend-alist-chain 'baseline-skip 2.3 (prepend-alist-chain 'font-size -2 props)) arg)) #(define-markup-command (teeny layout props arg) (markup?) #:category font "Set font size to -3. @lilypond[verbatim,quote] \\markup { default \\hspace #2 \\teeny teeny } @end lilypond" (interpret-markup layout (prepend-alist-chain 'baseline-skip 2.125 (prepend-alist-chain 'font-size -3 props)) arg)) loremIpsum = \markup \wordwrap { Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum. } \markup \loremIpsum \markup \vspace #2 \markup \huge \loremIpsum \markup \vspace #2 \markup \large \loremIpsum \markup \vspace #2 \markup \normalsize \loremIpsum \markup \vspace #2 \markup \small \loremIpsum \markup \vspace #2 \markup \tiny \loremIpsum \markup \vspace #2 \markup \teeny \loremIpsum %%% SNIPPET ENDS ________________________________ Kieren MacMillan, composer ‣ website: www.kierenmacmillan.info ‣ email: i...@kierenmacmillan.info _______________________________________________ lilypond-devel mailing list lilypond-devel@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-devel