Hi Trevor, Thank you. Yes, I'll add a snippet for sure, as soon as LSR will work with v2.20.
Pierre 2016-01-12 16:42 GMT+01:00 Trevor Daniels <t.dani...@treda.co.uk>: > Hi Pierre > > Very nice! Ideal for those more light-hearted musical items. > > LSR? > > Trevor > > > ----- Original Message ----- > *From:* Pierre Perol-Schneider <pierre.schneider.pa...@gmail.com> > *To:* lilypond-user <lilypond-user@gnu.org> > *Sent:* Tuesday, January 12, 2016 2:37 PM > *Subject:* Outliner markup command > > Hi, > > Yesterday night I thought about rewriting this snippet: > http://lsr.di.unimi.it/LSR/Item?id=890 using the new whiteout 'outline' > override and finally discovered a funny side effect: > > \version "2.19.35" > #(set-default-paper-size "a6") > > #(define-markup-command (outliner layout props outln-width outln-clr > text-clr text) > (number? string? string? markup?) > "Draw a colored ouline around a colored text." > (interpret-markup layout props > (markup > (#:combine > (#:override > (cons 'style 'outline) > (#:override > (cons 'thickness outln-width) > (#:whiteout > (#:with-color > (x11-color outln-clr) > text)))) > (#:with-color > (x11-color text-clr) > text))))) > > %% Example: > some-music = \score { > \relative { > \tempo "Allegro" > c'_( d e f g a b c) > \bar "|." > } > \layout { indent = 0 } > } > > \header { > title = \markup\outliner #3 #'"orange" #'"yellow" { Some Music } > } > \some-music > > \markup > \override #'(baseline-skip . 7) > \left-column { > "A funny output:" > \outliner #1.3 #'"black" #'"white" > \score { \some-music } > } > > 'Hope you'll like it! > > Cheers, > ~Pierre > > ------------------------------ > > _______________________________________________ > lilypond-user mailing list > lilypond-user@gnu.org > https://lists.gnu.org/mailman/listinfo/lilypond-user > >
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
