Re: chord names

[Klaus Blum]

Benjamin Bloomfield wrote
> I'm trying to figure out how to tweak the size of the sharp and flat
> symbol that displays when the chord name has one in it.  Those symbols are
> slightly taller than the capitals in my font, and I'd like to get them
> even.

Maybe there's an easier way, but here's a first solution. It's a quick
modification of 
http://www.lilypondforum.de/index.php?topic=824.0

%
----------------------------------------------------------------------------------
#(define (note-name->international-markup pitch lowercase?)
   (let* (
           (name (ly:pitch-notename pitch))
           (alt (ly:pitch-alteration pitch))
           (hspace (vector-ref #(0.15 0.15 0.05 0.05 0.15) (+ (* alt 2) 2)))
           (raise (vector-ref #(0.6 0.6 0.65 0.8 0.7) (+ (* alt 2) 2)))
           )

     (if (>= alt 0)
         (make-line-markup
          (list
           (make-simple-markup
            (if lowercase?
                (vector-ref #("c" "d" "e" "f" "g" "a" "b") name)
                (vector-ref #("C" "D" "E" "F" "G" "A" "B") name)
                )
            )
           (if (= alt 0)
               ;; If it's natural and not b, do nothing
               (make-line-markup (list empty-markup))
               ;; Else add alteration
               (make-line-markup
                (list
                 (make-hspace-markup hspace)
                 (make-tiny-markup (make-raise-markup raise    ;
make-tiny-markup instead of make-smaller-markup
                                        (make-musicglyph-markup
                                         (assoc-get alt
standard-alteration-glyph-name-alist ""))))
                 ))
               )))
         (make-line-markup
          (list
           (make-simple-markup
            (if lowercase?
                (vector-ref #("c" "d" "e" "f" "g" "a" "b") name)
                (vector-ref #("C" "D" "E" "F" "G" "A" "B") name)
                )
            )
           (if (= alt 0)
               ;; If it's natural and not b, do nothing
               (make-line-markup (list empty-markup))
               ;; Else add alteration
               (make-line-markup
                (list
                 (make-hspace-markup hspace)
                 (make-tiny-markup (make-raise-markup raise    ;
make-tiny-markup instead of make-smaller-markup
                                        (make-musicglyph-markup
                                         (assoc-get alt
standard-alteration-glyph-name-alist ""))))
                 ))
               )))
         )
     )
   )

internationalChords = {
  \set Staff.chordRootNamer = #note-name->international-markup
  % \unset Staff.chordNoteNamer
}

\new ChordNames \chordmode {
  as a ais bes b bis
  \internationalChords
  as a ais bes b bis
}
%
----------------------------------------------------------------------------------

Cheers, 
Klaus



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

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user