Eric,
Just an FYI
I get a compilation error in your example.
I am guessing this last chord needs to be
cis1:aug7
not
cisd1:aug7
James
--
# -*-compilation-*-
Processing `C:/Users/jlowe/Desktop/test.ly'
Parsing...
C:/Users/jlowe/Desktop/test.ly:46:42: error: syntax error, unexpected STRING
c1:maj c1:min c1:maj7 c1:min7 cis1:dim7
cisd1:aug7
C:/Users/jlowe/Desktop/test.ly:45:0: error: errors found, ignoring music
expression
\chords {
error: failed files: "C:\\Users\\jlowe\\Desktop\\test.ly"
--
James
Éric Bouvéron wrote:
> 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.
>
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> lilypond-user mailing list
> [email protected]
> http://lists.gnu.org/mailman/listinfo/lilypond-user
Éric Bouvéron wrote:
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.
------------------------------------------------------------------------
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
