Re: Thumb in fret-diagram

[Stephen MacNeil]

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"

}