input/regression/fretdiagram-markup-in-dots.ly

   1
   2 \version "2.19.25"
   3
   4 \header {
   5   texidoc="Markups can be put into the dots of a fret-diagram.  Those markups
   6 are scaled automatically to fit into the dots.
   7 "
   8 }
   9
  10 myFretDiagram =
  11 \markup
  12   \fret-diagram-verbose #`(
  13     (place-fret 6 1
  14        ,(markup
  15          #:concat (
  16            #:vcenter "e"
  17            #:fontsize -5
  18            #:musicglyph "accidentals.sharp")))
  19     (place-fret 5 2 "aisis")
  20     (place-fret 4 3 3)
  21     (place-fret 3 1 "g#")
  22     (place-fret 2 2 2)
  23     (place-fret 1 3 ,#{ \markup \score { { \clef "G_8" g'1 } } #}))
  24
  25
  26 \markup
  27   \override #'(fret-diagram-details . ((finger-code . in-dot))) {
  28   \myFretDiagram
  29   \override #'(size . 5) \myFretDiagram
  30   \override #'(size . 10) \myFretDiagram
  31 }