Re: Thumb in fret-diagram

On Tue, May 5, 2015 at 9:13 AM, pls <address@hidden> wrote:

Thanks!
On 05.05.2015, at 14:21, Stephen MacNeil <address@hidden> wrote:

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
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user

From:	Stephen MacNeil
Subject:	Re: Thumb in fret-diagram
Date:	Tue, 5 May 2015 09:23:25 -0400