Thank you

The aim would be to add  two notes to all the languages.
I write
 #(define fisarmonica
  '(
    (i .  (ly:make-pitch 8 0 DOUBLE-SHARP))   ; input note, ie a closing
note
    (o . (ly:make-pitch 8 0 DOUBLE-FLAT))    ; output note, ie a drawing
note
  ))

then
#(define language-pitch-names
   (map
     (lambda (x) (append (list (car x)) (append (cdr x)      fisarmonica)))
     language-pitch-names)) 

 gives something ending by
(si . #<Pitch b >) (sik . #<Pitch bis >) (sikk . #<Pitch bisis >) (i
ly:make-pitch 8 0 DOUBLE-SHARP) (o ly:make-pitch 8 0 DOUBLE-FLAT)))
so it does not work
Have you an idea?




--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/About-pitch-tp176774p176781.html
Sent from the User mailing list archive at Nabble.com.

_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to