[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: hel-arabic.ly
From: |
hassan . elfatihi |
Subject: |
Re: hel-arabic.ly |
Date: |
Mon, 11 Mar 2024 23:27:33 +0100 (CET) |
Hello
Initially hel-arabic.ly is autonomous,
I see that you deleted in define-note-names.scm
;; Language: Arabic ------------------------------------------------;
;; Hassan El fatihi <hassan.elfatihi@free.fr>,
;;
;; bb = flat (bemol)
;; bb = double-flat
;; db = quarter-tone flat (semi-bemol)
;; dd = quarter-tone sharp (semi-diesis)
;; ctqb = three-quarter-tones flat
;; ctqd = three-quarter-tones sharp
;; d = sharp (diesis)
;; dd = double-sharp
;; cfhf = seven-half-tones flat
;; cfhd = seven-half-tones sharp
;; cshb = seven-half-tones flat
;; cshd = seven-half-tones sharp
;; English: c d e f g a b
;; Italian: do re mi fa sol la si
(arabic . (
(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))
(cd . ,(ly:make-pitch -1 0 SHARP))
(dd . ,(ly:make-pitch -1 1 SHARP))
(ed . ,(ly:make-pitch -1 2 SHARP))
(fd . ,(ly:make-pitch -1 3 SHARP))
(gd . ,(ly:make-pitch -1 4 SHARP))
(ad . ,(ly:make-pitch -1 5 SHARP))
(bd . ,(ly:make-pitch -1 6 SHARP))
(cb . ,(ly:make-pitch -1 0 FLAT))
(db . ,(ly:make-pitch -1 1 FLAT))
(eb . ,(ly:make-pitch -1 2 FLAT))
(fb . ,(ly:make-pitch -1 3 FLAT))
(gb . ,(ly:make-pitch -1 4 FLAT))
(ab . ,(ly:make-pitch -1 5 FLAT))
(bb . ,(ly:make-pitch -1 6 FLAT))
(cdd . ,(ly:make-pitch -1 0 SEMI-SHARP))
(ddd . ,(ly:make-pitch -1 1 SEMI-SHARP))
(edd . ,(ly:make-pitch -1 2 SEMI-SHARP))
(fdd . ,(ly:make-pitch -1 3 SEMI-SHARP))
(gdd . ,(ly:make-pitch -1 4 SEMI-SHARP))
(add . ,(ly:make-pitch -1 5 SEMI-SHARP))
(bdd . ,(ly:make-pitch -1 6 SEMI-SHARP))
(cdb . ,(ly:make-pitch -1 0 SEMI-FLAT))
(ddb . ,(ly:make-pitch -1 1 SEMI-FLAT))
(edb . ,(ly:make-pitch -1 2 SEMI-FLAT))
(fdb . ,(ly:make-pitch -1 3 SEMI-FLAT))
(gdb . ,(ly:make-pitch -1 Do you lack intellectual honesty?
4 SEMI-FLAT))
(adb . ,(ly:make-pitch -1 5 SEMI-FLAT))
(bdb . ,(ly:make-pitch -1 6 SEMI-FLAT))
(ctqb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
(dtqb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
(etqb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
(ftqb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
(gtqb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
(atqb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
(btqb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
(ctqd . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
(dtqd . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
(etqd . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
(ftqd . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
(gtqd . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
(atqd . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
(btqd . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
(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))
))
))
I have write
IN lily-library.scm : befort
(define-safe-public DOUBLE-FLAT -1)
(define-safe-public THREE-Q-FLAT -3/4)
(define-safe-public FLAT -1/2)
(define-safe-public SEMI-FLAT -1/4)
(define-safe-public NATURAL 0)
(define-safe-public SEMI-SHARP 1/4)
(define-safe-public SHARP 1/2)
(define-safe-public THREE-Q-SHARP 3/4)
(define-safe-public DOUBLE-SHARP 1)
(define-safe-public SEMI-TONE 1/2)
(define-safe-public FIVE-HALF-FLAT -5/2)
(define-safe-public SEVEN-HALF-FLAT -7/2)
(define-safe-public FIVE-HALF-SHARP 5/2
you delete (define-safe-public FIVE-HALF-FLAT -5/2)
you delete
(define-safe-public FIVE-HALF-FLAT -5/2)
(define-safe-public SEVEN-HALF-FLAT -7/2)
(define-safe-public FIVE-HALF-SHARP 5/2
you delete (define-safe-public FIVE-HALF-FLAT -5/2)
after
(define-public DOUBLE-FLAT -1)
(define-public THREE-Q-FLAT -3/4)
(define-public FLAT -1/2)
(define-public SEMI-FLAT -1/4)
(define-public NATURAL 0)
(define-public SEMI-SHARP 1/4)
(define-public SHARP 1/2)
(define-public THREE-Q-SHARP 3/4)
(define-public DOUBLE-SHARP 1)
(define-public SEMI-TONE 1/2)
I'm sorry !
Do you lack intellectual honesty?
I intended to propose an abc2lyarbic.py file which covers an abc file with
Arabic notes into a lilypond file with Arabic notes,
but I will not propose it, given your lack of intellectual honesty
Hassan EL FATIHI
- Re: hel-arabic.ly, (continued)
- Re: hel-arabic.ly, hassan . elfatihi, 2024/03/07
- Re: hel-arabic.ly, hassan . elfatihi, 2024/03/07
- Re: hel-arabic.ly, Werner LEMBERG, 2024/03/07
- Re: hel-arabic.ly, hassan . elfatihi, 2024/03/07
- Re: hel-arabic.ly, Werner LEMBERG, 2024/03/07
- Re: hel-arabic.ly, hassan . elfatihi, 2024/03/07
- Re: hel-arabic.ly, Werner LEMBERG, 2024/03/07
- Re: hel-arabic.ly, Werner LEMBERG, 2024/03/07
- Re: hel-arabic.ly, Werner LEMBERG, 2024/03/07
- Re: hel-arabic.ly, Dan Eble, 2024/03/07
Re: hel-arabic.ly,
hassan . elfatihi <=
Re: hel-arabic.ly, David Kastrup, 2024/03/12
Re: hel-arabic.ly, Werner LEMBERG, 2024/03/12