%% Generated by lilypond-book
%% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm,paper-height=845.047\pt,paper-width=597.508\pt,papersize='(cons (* 597.508 pt) (* 845.047 pt))]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section
% ****************************************************************

#(ly:set-option 'eps-box-padding 3.000000)



\paper {
  #(set-paper-size '(cons (* 597.508 pt) (* 845.047 pt)))
  indent = 0\mm
  line-width = 160\mm
  % offset the left padding, also add 1mm as lilypond creates cropped
  % images with a little space on the right
  line-width = #(- line-width (* mm  3.000000) (* mm 1))
}

\layout {
  
}




% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "/lilypond-2.26.0/input/regression/fret-diagrams-dot-color.ly"
\sourcefileline 0
\version "2.23.0"

\header {
  texidoc = "Dots in fret diagrams may be colored as well as the entire fret
diagram.
Not explicitely colored dots take the color from @code{TextScript} grob or from
@code{with-color}.  Otherwise the specified color is preserved.
Parentheses take their color from the dot, if @code{default-paren-color} is used
they take their color from the overall color.
Works for inverted dots as well."
}

defaultMrkp =
  \markup
    \fret-diagram-verbose
      #'((place-fret 1 1 1))

blueDotMrkp =
  \markup
    \fret-diagram-verbose
      #'((place-fret 1 1 1 blue))

parenthesizedBlueDotMrkpI =
  \markup
    \fret-diagram-verbose
      #'((place-fret 1 1 1 blue parenthesized))

parenthesizedBlueDotMrkpII =
  \markup
    \fret-diagram-verbose
      #'((place-fret
          1 1 1
          blue
          parenthesized
          default-paren-color))

invertedDefaultMrkp =
  \markup
    \fret-diagram-verbose
      #'((place-fret 1 1 1 inverted))

invertedBlueDotMrkp =
  \markup
    \fret-diagram-verbose
      #'((place-fret 1 1 1 inverted blue))

invertedParenthesizedBlueDotMrkpI =
  \markup
    \fret-diagram-verbose
      #'((place-fret 1 1 1 inverted blue parenthesized))

invertedParenthesizedBlueDotMrkpII =
  \markup
    \fret-diagram-verbose
      #'((place-fret
          1 1 1
          inverted
          blue
          parenthesized
          default-paren-color))

{
  \textLengthOn
  \override TextScript.self-alignment-X = #CENTER
  \override TextScript.font-size = #-4
  \override TextScript.baseline-skip = 1.5

  f''^\defaultMrkp
     ^\markup \column { "black dot" "black rest" }
  f''^\blueDotMrkp
     ^\markup \column { "blue dot" "black rest" }
  f''^\parenthesizedBlueDotMrkpI
     ^\markup \column { "blue dot" "blue parens" }
  f''^\parenthesizedBlueDotMrkpII
     ^\markup \column { "blue dot" "black parens" }

  f''^\invertedDefaultMrkp
     ^\markup \column { "black dot" "black rest" }
  f''^\invertedBlueDotMrkp
     ^\markup \column { "blue dot" "black rest" }
  f''^\invertedParenthesizedBlueDotMrkpI
     ^\markup \column { "blue dot" "blue parens" }
  f''^\invertedParenthesizedBlueDotMrkpII
     ^\markup \column { "blue dot" "black parens" }

  \override TextScript.color = #red

  f''^\defaultMrkp
     ^\markup \column { "red dot" "red rest" }
  f''^\blueDotMrkp
     ^\markup \column { "blue dot" "red rest" }
  f''^\parenthesizedBlueDotMrkpI
     ^\markup \column { "blue dot" "blue parens" }
  f''^\parenthesizedBlueDotMrkpII
     ^\markup \column { "blue dot" "red parens" }

  f''^\invertedDefaultMrkp
     ^\markup \column { "red dot" "red rest" }
  f''^\invertedBlueDotMrkp
     ^\markup \column { "blue dot" "red rest" }
  f''^\invertedParenthesizedBlueDotMrkpI
     ^\markup \column { "blue dot" "blue parens" }
  f''^\invertedParenthesizedBlueDotMrkpII
     ^\markup \column { "blue dot" "red parens" }
}



% ****************************************************************
% end ly snippet
% ****************************************************************
