Hi patrick, This is the workaround I used to create fret-diagrams with a thumb.
http://mglessons.com/lilypond/fret-diagram.ly http://mglessons.com/lilypond/fret-diagram.pdf HTH Stephen %%%%%%%%%% cut #(define-public (stack-stencil-overlay stencils) "Recursive function to add stencils together" (if (and (pair? stencils) (ly:stencil? (car stencils))) (if (and (pair? (cdr stencils)) (ly:stencil? (cadr stencils))) (let ((tail (stack-stencil-overlay (cdr stencils))) (head (car stencils))) (ly:stencil-add head tail)) (car stencils)) point-stencil)) #(define-markup-command (overlay layout props args) (markup-list?) "Overlay arguments one on top of the next" (let ((stencils (interpret-markup-list layout props args))) (stack-stencil-overlay (remove ly:stencil-empty? stencils)))) % use this under title chordTilte = \markup \fill-line { \concat{ %% chord 1 \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . roman-lower) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { Am } \vspace #-.6 \fret-diagram #"6-x;5-o;4-2-2;3-2-3;2-1-1;1-o;" } } %%%%%%%% %% chord 2 %%%%%%%%%%%%% \override #'(size . .7)\override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . roman-lower) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { F } \vspace #-.6 \concat{ \fret-diagram #"c:6-1-0;6-1-1;5-3-3;4-3-4;3-2-2;2-1-1;1-1-1;" } } } %% chord 3 \override #'(size . .7)\override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . roman-lower) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { C } \vspace #-.6 \fret-diagram-terse #"x;3-3;2-2;o;1-1;o;" } } %% %% chord 4 %%%%%%%%%%%%% \overlay { \overlay { \translate #'(-.4 . -1.15) \lower #3.75 \finger \fontsize #-8 T \override #'(size . .7)\override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . roman-lower) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { \concat { F \fontsize #-2.5 { maj\fontsize #1.5 7 }} } \vspace #-.6 \concat{ \fret-diagram #"6-1;5-3-3;4-3-4;3-2-2;2-1-1;1-o;" } } } } } %%%% \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . roman-lower) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { \concat { G \fontsize #-2.5 {\fontsize #1.5 7 }} } \vspace #-.6 \fret-diagram #"6-3-3;5-2-2;4-o;3-o;2-o;1-1-1;" } } %% \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . roman-lower) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { \concat { C \fontsize #-2.5 {" "\super "ver. 2" }} } \vspace #-.6 \fret-diagram #"6-x;5-3-3;4-2-2;3-o;2-1-1;1-3-4;" } } %%%%%% \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . arabic) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { % \concat { F \fontsize #-2.5 {\fontsize #1.5 7/D\super "no 3rd" }} \concat { Dm \fontsize #-2.5 {\fontsize #1.5 9}} } \vspace #-.6 \fret-diagram #"6-x;5-x;4-o;3-5-1;2-6-3;1-o;" } } %%%%%% %%%%%% \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . arabic) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { Dm } \vspace #-.6 \fret-diagram #"6-x;5-x;4-o;3-2-1;2-3-3;1-1-1;" } } %%%%%% } } \header { title = "Song Title with markup" subtitle = \markup \raise #1 \fontsize #-4.2 "Words and music by ...." copyright = \markup \fontsize #-2.2 "©1669, Some One ." % subtitle = "" tagline = ##f } \markup {\chordTilte } % Use as markup %%%%%%%%%%%%% chordWithThumb = \markup \overlay { \overlay { \translate #'(-.4 . -1.15) \lower #3.75 \finger \fontsize #-8 T \override #'(size . .7)\override #'(fret-diagram-details . ((finger-code . below-string) (dot-radius . 0.35) (number-type . roman-lower) (finger-code . below-string) (fret-count . 3))) \halign #-.72 \raise #0 \pad-around #.2 { \center-column\text { \halign #-13 \fontsize #-2.5 { \concat { F \fontsize #-2.5 { maj\fontsize #1.5 7 }} } \vspace #-.6 \concat{ \fret-diagram #"6-1;5-3-3;4-3-4;3-2-2;2-1-1;1-o;" } } } } } \markup {\vspace #1.3 } %%%% \relative c'{ c^\chordWithThumb d e f^"as a markup in a song" }
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
