Dear all,
I am attempting to set up a custom scale that includes using custom accidental
glyphs.
Based on the makam.ly<http://makam.ly> example I am pretty much there and can
display the existing accidental glyphs as needed.
The attached extract from my file shows my problem; I am able to create and
display a custom accidental as markup but cannot define it within the custom
scale to have it display automatically.
Any help or direction to documentation will be greatly appreciated.
Thanking you all in advance for the time and effort put in to helping use this
amazing programme.
delboh
\version "2.19.81"
ts =
\markup
\scale #'(-4 . -4)
\override #'(filled . #t)
\path #0.01
#'((moveto 0.000 -0.180)
(lineto 0.142 -0.142)
(lineto 0.142 -0.402)
(lineto 0.156 -0.582)
(lineto 0.270 -0.296)
(lineto 0.170 -0.402)
(lineto 0.170 0.174)
(lineto 0.028 0.136)
(lineto 0.028 0.346)
(lineto 0.000 0.346)
(lineto 0.000 -0.180)
(moveto 0.028 -0.074)
(lineto 0.028 0.048)
(lineto 0.142 0.078)
(lineto 0.142 -0.046)
(lineto 0.028 -0.074))
\markup{
\hspace #5
\ts
}
%{
Define 1/12 alterations.
%}
#(define-public TWELFTHSHARP 1/12)
#(define-public SIXTHSHARP 1/6)
#(define-public QUARTERSHARP 1/4)
twelfthTonePitchNames = #`(
(c . ,(ly:make-pitch -1 0 NATURAL))
(cts . ,(ly:make-pitch -1 0 TWELFTHSHARP))
(css . ,(ly:make-pitch -1 0 SIXTHSHARP))
(cqs . ,(ly:make-pitch -1 0 QUARTERSHARP)))
%% set pitch names.
pitchnames = \twelfthTonePitchNames
#(ly:parser-set-note-names twelfthTonePitchNames)
%{
Define missing glyphs
%}
#(define tsGlyph
(make-path-stencil
'(moveto 0.000 -0.180
lineto 0.142 -0.142
lineto 0.142 -0.402
lineto 0.156 -0.582
lineto 0.270 -0.296
lineto 0.170 -0.402
lineto 0.170 0.174
lineto 0.028 0.136
lineto 0.028 0.346
lineto 0.000 0.346
lineto 0.000 -0.180
moveto 0.028 -0.074
lineto 0.028 0.048
lineto 0.142 0.078
lineto 0.142 -0.046
lineto 0.028 -0.074
closepath)
0.01
-2
-2
#t))
twelfthToneGlyphs = #`((1/4 . "accidentals.sharp.slashslash.stem")
(1/6 . "accidentals.natural.arrowup")
(1/12 . "tsGlyph ")
(0 . "accidentals.natural"))
\layout {
\context {
\Score
\override KeySignature.glyph-name-alist = \twelfthToneGlyphs
\override Accidental.glyph-name-alist = \twelfthToneGlyphs
\override AccidentalCautionary.glyph-name-alist = \twelfthToneGlyphs
\override TrillPitchAccidental.glyph-name-alist = \twelfthToneGlyphs
\override AmbitusAccidental.glyph-name-alist = \twelfthToneGlyphs
}
}
\score {
\relative c' {
\accidentalStyle dodecaphonic
c cts css cqs}
}_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
