lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Outliner markup command


From: Pierre Perol-Schneider
Subject: Outliner markup command
Date: Tue, 12 Jan 2016 15:37:57 +0100

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]