Hi,
No answer for this?
Is it possible to change the position of the triangle "major" to align it
with the chord name, as it is with the m for "minor" ?
Thanks,
Éric
2010/2/4 Éric Bouvéron <waf...@gmail.com>
> Hi,
> I include a file, on which I tried to show a probblem.
> When major, a triangle is put up the name of the chord, when minor, a "m"
> is written on the same level as the chord.
> Is it possible to have the triangle and the "m"at the chord level, and keep
> the rest as it is?
> With thanks and regards,
> Eric
>
>
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> \version "2.12.3"
>
>
>
> #(define (conditional-kern-before markup bool amount)
> "Add AMOUNT of space before MARKUP if BOOL is true."
> (if bool
> (make-line-markup
> (list (make-hspace-markup amount)
> markup))
> markup))
>
> #(define-public (alteration->text-accidental-markup alteration)
> (make-smaller-markup
> (make-raise-markup
> (if (= alteration FLAT)
> 1.7
> 2)
> (make-musicglyph-markup
> (assoc-get alteration standard-alteration-glyph-name-alist "")))))
>
> #(define (accidental->markup alteration)
> "Return accidental markup for ALTERATION."
> (if (= alteration 0)
> (make-line-markup (list empty-markup))
> (conditional-kern-before
> (alteration->text-accidental-markup alteration)
> (= alteration FLAT) 0.2)))
>
> #(define-public (special-note-name->markup pitch)
> "Return pitch markup for PITCH."
> (make-line-markup
> (list
> (make-simple-markup
> (vector-ref #("C" "D" "E" "F" "G" "A" "B") (ly:pitch-notename pitch)))
> (accidental->markup (ly:pitch-alteration pitch)))))
>
> \layout {
> \context {
> \Score
> chordRootNamer = #special-note-name->markup
> }
> }
>
> \chords {
> c1:maj c1:min c1:maj7 c1:min7 cis1:dim7 cisd1:aug7
> }
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
>
>
>
>
> --
> Éric Bouvéron
>
> G/F, 66 Kai Yuen street
> North Point
> Hong Kong S.A.R.
>
> Tél: 2972 2567
> 9046 3611
>
> Skype: Wafaic
>
> QUOS VULT PERDERE JUPITER DEMENTAT
>
> Please consider reducing waste by not printing this email.
>
--
Éric Bouvéron
G/F, 66 Kai Yuen street
North Point
Hong Kong S.A.R.
Tél: 2972 2567
9046 3611
Skype: Wafaic
QUOS VULT PERDERE JUPITER DEMENTAT
Please consider reducing waste by not printing this email.
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
