Hi Pierre

Very nice!  Ideal for those more light-hearted musical items.

LSR?

Trevor

  ----- Original Message ----- 
  From: Pierre Perol-Schneider 
  To: lilypond-user 
  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

Reply via email to