在Lilypond 2.20中如何将颜色还原到指板中的点？

问题描述

我需要一个不太明显的问题的帮助。但是对于我作为一名教育者来说很重要。

在Lilypond 2.18及更早版本中，使用摘要（https://t1p.de/b7s8）中的着色方案，我能够用根音颜色为指板的圆点着色。我会简单地使用以下代码：

\override FretBoard #'color = #color-notehead.

（附件图像的顶部）

当我升级到Lilypond 2.20时，圆点的颜色消失了，取而代之的是黑色（如所附图像的底部所示）。我没有更改任何代码（如果需要，可以提供）。

现在，与

\override FretBoard  #'(fret-diagram-details dot-color) = #'white

我可以将点颜色覆盖为某些静态颜色-但这与动态着色点的美相差很远。

有人可以指出这是哪里出了错吗？

Attached image with 2.18 and 2.20 renditions of the same code

这是一个最小代码示例，该示例在2.18中通过其根音为点动态着色，而在2.20中将其保留为静态颜色

\version "2.20.0"
\header { title = "guitar Chords"}
{
%Chords
\storePredefinedDiagram #default-fret-table \chordmode {a}
#guitar-tuning #"o;o;2-2;2-3;2-4;o;"
\storePredefinedDiagram #default-fret-table \chordmode {bes}
#guitar-tuning #"1-1-(;1-1;3-2;3-3;3-4;1-1-);"
\storePredefinedDiagram #default-fret-table \chordmode {c}
#guitar-tuning #"3-3;3-4;2-2;o;1-1;o;"
}
%Colour map
#(define color-mapping
(list
(cons (ly:make-pitch 0 0 NATURAL) (x11-color 'red3))
(cons (ly:make-pitch 0 5 NATURAL) (x11-color 'blue3))
(cons (ly:make-pitch 0 6 FLAT) (x11-color 'magenta3))
)
)
%Compare pitch and alteration (not octave).
#(define (pitch-equals? p1 p2)
(and
(= (ly:pitch-alteration p1) (ly:pitch-alteration p2))
(= (ly:pitch-notename p1) (ly:pitch-notename p2))))

#(define (pitch-to-color pitch)
(let ((color (assoc pitch color-mapping pitch-equals?)))
(if color
(cdr color))))
#(define (color-notehead grob)
(pitch-to-color
(ly:event-property (event-cause grob) 'pitch)))
chordNames = \chordmode { a2 bes c }
\score {
<<
\new ChordNames \chordNames
\new FretBoards
{ \override FretBoards.FretBoard #'size = #'2.0
\override FretBoard #'(fret-diagram-details finger-code) = #'in-dot
\override FretBoard #'(fret-diagram-details orientation) = #'portrait
%This command changes the colour of the fretboard (and used to change the dots in 2.18)
\override FretBoard #'color = #color-notehead
\chordNames
}
>>
}

解决方法

在Lilypond论坛上，Harm发表了一篇文章。添加后，它会以与指板相同的颜色为点着色。这是一个临时解决方案，但很吸引人。

\override FretBoards.FretBoard.before-line-breaking =
        #(lambda (grob)
          (ly:grob-set-nested-property! grob '(fret-diagram-details dot-color)
          (color-dot grob)))

lilypond