Re: The hel-arabic.ly file story...

[hassan . elfatihi]

Hello 
You are right in practice 7/2 tone is not used. You can delete. 
I personally don't use it. 

Here are the files I modified in 2017 : lily-library.scm and 
define-note-names.scm 

The hel-arabic.ly file must be modified => 

You must remove: 
(5/2 . "accidentals.sharp.slashslashslash.stemstem") 
7/2 . "accidentals.sharp.slashslash.stemstemstem") 
(-5/2 . "accidentals.flatflat.slash") 
(-7/2 . "accidentals.flat.slashslash") 
from 
HelmakamGlyphs = #'( 
(1 . "accidentals.doublesharp") 
(1/4 . "accidentals.sharp.slashslash.stem") 
(3/4 . "accidentals.sharp.slashslashslash.stem") 
(5/2 . "accidentals.sharp.slashslashslash.stemstem") 
(7/2 . "accidentals.sharp.slashslash.stemstemstem") 
(1/2 . "accidentals.sharp") 
(0 . "accidentals.natural") 
(-1/4 . "accidentals.flat.slash") 
(-3/4 . "accidentals.mirroredflat.flat") 
(-5/2 . "accidentals.flatflat.slash") 
(-7/2 . "accidentals.flat.slashslash") 
(-1/2 . "accidentals.flat") 
(-1 . "accidentals.flatflat") 
) 

Two files need to be modified: 
1) lily-library.scm 
2) define-note-names.scm 


1) You have to delete 
(define-public FIVE-HALF-FLAT -5/2) 
(define-public SEVEN-HALF-FLAT -7/2) 
(define-public FIVE-HALF-SHARP 5/2) 
(define-public SEVEN-HALF-SHARP 7/2) 
file : lily-library.scm 

2) You have to delete 
(cfhb . ,(ly:make-pitch -1 0 FIVE-HALF-FLAT)) 
(dfhb . ,(ly:make-pitch -1 1 FIVE-HALF-FLAT)) 
(efhb . ,(ly:make-pitch -1 2 FIVE-HALF-FLAT)) 
(ffhb . ,(ly:make-pitch -1 3 FIVE-HALF-FLAT)) 
(gfhb . ,(ly:make-pitch -1 4 FIVE-HALF-FLAT)) 
(afhb . ,(ly:make-pitch -1 5 FIVE-HALF-FLAT)) 
(bfhb . ,(ly:make-pitch -1 6 FIVE-HALF-FLAT)) 

(cfhd . ,(ly:make-pitch -1 0 FIVE-HALF-SHARP)) 
(dfhd . ,(ly:make-pitch -1 1 FIVE-HALF-SHARP)) 
(efhd . ,(ly:make-pitch -1 2 FIVE-HALF-SHARP)) 
(ffhd . ,(ly:make-pitch -1 3 FIVE-HALF-SHARP)) 
(gfhd . ,(ly:make-pitch -1 4 FIVE-HALF-SHARP)) 
(afhd . ,(ly:make-pitch -1 5 FIVE-HALF-SHARP)) 
(bfhd . ,(ly:make-pitch -1 6 FIVE-HALF-SHARP)) 

(cshb . ,(ly:make-pitch -1 0 SEVEN-HALF-FLAT)) 
(dshb . ,(ly:make-pitch -1 1 SEVEN-HALF-FLAT)) 
(eshb . ,(ly:make-pitch -1 2 SEVEN-HALF-FLAT)) 
(fshb . ,(ly:make-pitch -1 3 SEVEN-HALF-FLAT)) 
(gshb . ,(ly:make-pitch -1 4 SEVEN-HALF-FLAT)) 
(ashb . ,(ly:make-pitch -1 5 SEVEN-HALF-FLAT)) 
(bshb . ,(ly:make-pitch -1 6 SEVEN-HALF-FLAT)) 

(cshd . ,(ly:make-pitch -1 0 SEVEN-HALF-SHARP)) 
(dshd . ,(ly:make-pitch -1 1 SEVEN-HALF-SHARP)) 
(eshd . ,(ly:make-pitch -1 2 SEVEN-HALF-SHARP)) 
(fshd . ,(ly:make-pitch -1 3 SEVEN-HALF-SHARP)) 
(gshd . ,(ly:make-pitch -1 4 SEVEN-HALF-SHARP)) 
(ashd . ,(ly:make-pitch -1 5 SEVEN-HALF-SHARP)) 
(bshd . ,(ly:make-pitch -1 6 SEVEN-HALF-SHARP)) 
file : define-note-names.scm 

Please keep me informed 

Best regards 
HASSAN EL FATIHI