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 <[email protected]>: > Hi Pierre > > Very nice! Ideal for those more light-hearted musical items. > > LSR? > > Trevor > > > ----- Original Message ----- > *From:* Pierre Perol-Schneider <[email protected]> > *To:* lilypond-user <[email protected]> > *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 > [email protected] > https://lists.gnu.org/mailman/listinfo/lilypond-user > >
_______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
