Subject: Re: Lot lilypond-user-fr, Vol 377, Parution 12

From: Philippe Ploquin <[email-masked]>
Date: Sun, 10 Nov 2013 19:13:43 +0100

Bonjour à tous,

altération turque "eksik-bakiye", suite du premier épisode ...

J'ai téléchargé la police de Daniel Cartron que je remercie. Installé aussi fontforge ( systeme linux debian stable, lilypond stable 2.16, fontforge v. 23.14 ).
remplacé la police d'origine emmentaler-11.otf par celle de Daniel, vérifié la présence du caractère eksik-bakiye en u+e320, noté uniE320 dans le menu éléments/glyphinfo de fontforge et modifié mon fichier lilypond de test, voir en fin de message.

Je n'obtiens pas le résultat escompté : l'altération qui apparaît est le bémol inversé barré, lilypond ne trouve pas le glyphe « uniE320 » et lance deux messages d'erreur : 

erreur de programmation : Erreur FreeType : SFNT font table missing
poursuite ; croisons les doigts.
Avertissement : impossible de trouver le glyphe « uniE320 »

D'autre part, je crois que je ne saisis pas bien la présence des multiples fichiers emmentaler ... Si j'ajoute un caractère avec fontforge, quel fichier emmentaler dois-je modifier ?

Je poursuis mes essais, 
A bientôt ...

Philippe Ploquin

ps : Je suppose que pour écrire à " Bug Lilypond", il faut nécessairement rédiger le rapport en anglais ?

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.16.0"

%{

Define 1/9 alterations.

%}

#(define-public EKSIK-IKI 5/18)
#(define-public EKSIK-UC 6/18)
#(define-public KOMA 1/9)
#(define-public BAKIYE 4/9)
#(define-public KUCUK 5/9)
#(define-public BUYUKMUCENNEB 8/9)
#(define-public EKSIKBAKI  3/9)      %%%% ajout au fichier original du caractère "eksik-bakiye"

%{

Define pitch names

%}

makamPitchNames = #`(
  (c . ,(ly:make-pitch -1 0 NATURAL))
  (d . ,(ly:make-pitch -1 1 NATURAL))
  (e . ,(ly:make-pitch -1 2 NATURAL))
  (f . ,(ly:make-pitch -1 3 NATURAL))
  (g . ,(ly:make-pitch -1 4 NATURAL))
  (a . ,(ly:make-pitch -1 5 NATURAL))
  (b . ,(ly:make-pitch -1 6 NATURAL))

  (cc . ,(ly:make-pitch -1 0 KOMA))
  (dc . ,(ly:make-pitch -1 1 KOMA))
  (ec . ,(ly:make-pitch -1 2 KOMA))
  (fc . ,(ly:make-pitch -1 3 KOMA))
  (gc . ,(ly:make-pitch -1 4 KOMA))
  (ac . ,(ly:make-pitch -1 5 KOMA))
  (bc . ,(ly:make-pitch -1 6 KOMA))

  (cb . ,(ly:make-pitch -1 0 BAKIYE))
  (db . ,(ly:make-pitch -1 1 BAKIYE))
  (eb . ,(ly:make-pitch -1 2 BAKIYE))
  (fb . ,(ly:make-pitch -1 3 BAKIYE))
  (gb . ,(ly:make-pitch -1 4 BAKIYE))
  (ab . ,(ly:make-pitch -1 5 BAKIYE))
  (bb . ,(ly:make-pitch -1 6 BAKIYE))

  (ck . ,(ly:make-pitch -1 0 KUCUK))
  (dk . ,(ly:make-pitch -1 1 KUCUK))
  (ek . ,(ly:make-pitch -1 2 KUCUK))
  (fk . ,(ly:make-pitch -1 3 KUCUK))
  (gk . ,(ly:make-pitch -1 4 KUCUK))
  (ak . ,(ly:make-pitch -1 5 KUCUK))
  (bk . ,(ly:make-pitch -1 6 KUCUK))

  (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
  (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
  (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
  (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
  (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
  (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
  (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))

  ;; f for flat.
  (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
  (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
  (efc . ,(ly:make-pitch -1 2 (- KOMA)))
  (ffc . ,(ly:make-pitch -1 3 (- KOMA)))
  (gfc . ,(ly:make-pitch -1 4 (- KOMA)))
  (afc . ,(ly:make-pitch -1 5 (- KOMA)))
  (bfc . ,(ly:make-pitch -1 6 (- KOMA)))
  
  (cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
  (dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
  (efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
  (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
  (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
  (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
  (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))

  (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
  (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
  (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
  (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
  (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
  (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
  (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
  
  (cfx . ,(ly:make-pitch -1 0 (- EKSIKBAKI)))     
  
  (cfi . ,(ly:make-pitch -1 0 (- EKSIK-IKI)))
  (dfi . ,(ly:make-pitch -1 1 (- EKSIK-IKI)))
  (efi . ,(ly:make-pitch -1 2 (- EKSIK-IKI)))
  (ffi . ,(ly:make-pitch -1 3 (- EKSIK-IKI)))
  (gfi . ,(ly:make-pitch -1 4 (- EKSIK-IKI)))
  (afi . ,(ly:make-pitch -1 5 (- EKSIK-IKI)))
  (bfi . ,(ly:make-pitch -1 6 (- EKSIK-IKI)))

  (cfu . ,(ly:make-pitch -1 0 (- EKSIK-UC)))
  (dfu . ,(ly:make-pitch -1 1 (- EKSIK-UC)))
  (efu . ,(ly:make-pitch -1 2 (- EKSIK-UC)))
  (ffu . ,(ly:make-pitch -1 3 (- EKSIK-UC)))
  (gfu . ,(ly:make-pitch -1 4 (- EKSIK-UC)))
  (afu . ,(ly:make-pitch -1 5 (- EKSIK-UC)))
  (bfu . ,(ly:make-pitch -1 6 (- EKSIK-UC)))

  (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
  (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
  (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
  (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
  (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
  (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
  (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))

)

%% set pitch names.
pitchnames = \makamPitchNames 
#(ly:parser-set-note-names parser makamPitchNames)

#(define eksikMirroredSlashedFlat
  (if (defined? 'eksikMirroredSlashedFlat)
       eksikMirroredSlashedFlat #t))
       
       %% #t pour avoir un bémol inversé barré
       %% #f pour avoir un bémol inversé

makamGlyphs = #`((1 . "accidentals.doublesharp")
       (8/9 . "accidentals.sharp.slashslashslash.stemstem")
       (5/9 . "accidentals.sharp.slashslashslash.stem")
       (4/9 . "accidentals.sharp")
       (1/9 . "accidentals.sharp.slashslash.stem")
       (0 . "accidentals.natural")
       (-1/9 . "accidentals.mirroredflat" )
       (-5/18 . ,(if eksikMirroredSlashedFlat
		 "accidentals.mirroredflat.backslash"
		 "accidentals.mirroredflat"))
       (-6/18 . ,(if eksikMirroredSlashedFlat
		 "accidentals.mirroredflat.backslash"
		 "accidentals.mirroredflat"))
       (-4/9 . "accidentals.flat.slash")
       (-5/9 . "accidentals.flat")
       (-8/9 . "accidentals.flat.slashslash")
       (-1 . "accidentals.flatflat")
      (3/9 . "uniE320")                          
)
%%%%% ajout au fichier original du caractère "eksik-bakiye"

\layout {
  \context {
    \Score
    \override KeySignature #'glyph-name-alist = \makamGlyphs
    \override Accidental #'glyph-name-alist = \makamGlyphs
    \override AccidentalCautionary #'glyph-name-alist = \makamGlyphs
    \override TrillPitchAccidental #'glyph-name-alist = \makamGlyphs
    \override AmbitusAccidental #'glyph-name-alist = \makamGlyphs
  }
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ma partition de test

\score { \relative c'
 {
    \set Staff.extraNatural = ##f
    \set Staff.autoBeaming = ##f
   
    \time 4/4

cc^"+1 koma"  \skip 2.
cb^"+4 koma"  \skip 2.
ck^"+5 koma"  \skip 2.
cbm^"+8 koma"  \skip 2. \break

cfc^"-1 koma"  \skip 2.
cfb^"-4 koma"  \skip 2.
cfk^"-5 koma"  \skip 2.
cfbm^"-8 koma"  \skip 2.

 cfi^"-6/18 koma" \skip 2.  
 cfu^"-5/18koma" \skip 2. 
 
 cfx^"+3/9koma" \skip 2. 			%%%%% test du caractère "eksik-bakiye"
  c^\markup {\musicglyph #"uniE320" }		%%%%%% test du caractère "eksik-bakiye"

  }
  \header {
    title = "test"
    composer = "P. P."
  }
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

On Sun, 10 Nov 2013 12:00:16 -0500
[email-masked] wrote:

> Envoyez vos messages pour la liste lilypond-user-fr à
> 	[email-masked]
> 
> Pour vous (dés)abonner par le web, consultez
> 	https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
> 
> ou, par email, envoyez un message avec 'help' dans le corps ou dans le
> sujet à
> 	[email-masked]
> 
> Vous pouvez contacter l'administrateur de la liste à l'adresse
> 	[email-masked]
> 
> Si vous répondez, n'oubliez pas de changer l'objet du message afin
> qu'il soit plus spécifique que "Re: Contenu du digest de
> lilypond-user-fr..."

-- 
Philippe Ploquin <[email-masked]>