+ \override Voice.TextScript.size = 1.4
+ <c g c' e' g'>1^\markup {
+ \fret-diagram-verbose #'(
+ (place-fret 6 3 1 red parenthesized default-paren-color)
+ (place-fret 5 3 1 inverted)
+ (place-fret 4 5 2 blue parenthesized)
+ (place-fret 3 5 3 blue)
+ (place-fret 2 5 4 blue)
+ (place-fret 1 3 1 inverted)
+ )
+ }
+ \override Voice.TextScript.size = 1.5
+ <b, fis b dis' fis'>1^\markup {
+ \override #'(fret-diagram-details . ((finger-code . in-dot)))
+ \fret-diagram-verbose #`(
+ (place-fret 5 2 1)
+ (place-fret 4 4 "fis" red)
+ (place-fret 3 4 "b" red)
+ (place-fret
+ 2 4
+ ,#{ \markup
+ \concat {
+ \vcenter "d"
+ \fontsize #-5
+ \musicglyph #"accidentals.sharp"} #}
+ red)
+ (place-fret 1 2 1)
+ )
+ }