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
