Chord Symbols

[JulioHerrlein]

Hello, 

 

I did some text attributes for displaying chord symbols but when I use the make-omn, I don´t know how to retrieve the chord symbols.

 

I´d like to use this for a a lesson. The display of chords is good, but I need also to chaneg the chord lengths to create some examples. The ideia is to create automatic harmonizations using pre-defined voicings.

 

 I know that I filtered out the attributes in the make-omn expression below, but how can I retrieve the chord symbols and change the lengths ?

 

Thanks for the help !

Best,

Julio

 

Here is the code

 

(add-text-attributes
 '(Am7 "Am7")
 '(C6 "C6")
 '(E7b9 "E7b9")
 '(Gsdim7 "G#o")
 '(G7 "G7")
 '(G7-13 "G7(13)")
 '(Cs7s9 "C#7(#9)")
 '(Bhd "Bm7b5")
 '(Dm7 "Dm7")
 '(Fmaj7 "Fmaj7")
 '(G74b9 "G7,4(b9)") 
)

(setf C-chords '((w a2g3c4e4 am7) (w c3a3e4g4 c6) (w e3gs3d4f4 e7b9) (w gs2f3b3d4 gsdim7) (w g2f3b3e4 g7-13) (w cs3f3b3e4 cs7s9) (w b2f3a3d4 bhd) (w d3a3c4f4 dm7) (w f3c4e4a4 fmaj7)))

 

;; I know that I filtered out the attributes in the expression below, but how can I retrieve the chord symbols and change the lengths ?

 

(make-omn 
:pitch (omn :pitch C-chords)
:length '((e e e eh) (h w))
:span :length
)

 

CHORD SYMBLOS BEFORE

Looks good !

[JulioHerrlein]

 

CHORD SYMBLOS BEFORE

Looks good !

 

Any Help ?

[jesele]

Hi Julio, unsure if this is the correct way.

Is this what you are looking for?

 

Jesper

 

(setf atr (add-text-attributes
           '(Am7 "Am7")
           '(C6 "C6")
           '(E7b9 "E7b9")
           '(Gsdim7 "G#o")
           '(G7 "G7")
           '(G7-13 "G7(13)")
           '(Cs7s9 "C#7(#9)")
           '(Bhd "Bm7b5")
           '(Dm7 "Dm7")
           '(Fmaj7 "Fmaj7")
           '(G74b9 "G7,4(b9)"))
      )

(setf C-chords '((w a2g3c4e4 am7) (w c3a3e4g4 c6) (w e3gs3d4f4 e7b9)
                 (w gs2f3b3d4 gsdim7) (w g2f3b3e4 g7-13) (w cs3f3b3e4 cs7s9)
                 (w b2f3a3d4 bhd) (w d3a3c4f4 dm7) (w f3c4e4a4 fmaj7)))

 (setf omn1 (make-omn 
            :pitch (omn :pitch C-chords)
            :length '((e e e eh) (h w))
            :articulation (omn :articulation C-chords)
            :span :length)
      )

 

[opmo]

I would explicitly name the chord attributes with additional character [ch-atr]:

 

(add-text-attributes
 '([Am7] "Am7")
 '([C6] "C6")
 '([E7b9] "E7b9")
 '([Gsdim7] "G#o")
 '([G7] "G7")
 '([G7-13] "G7(13)")
 '([Cs7s9] "C#7(#9)")
 '([Bhd] "Bm7b5")
 '([Dm7] "Dm7")
 '([Fmaj7] "Fmaj7")
 '([G74b9] "G7,4(b9)")
 )

 

[JulioHerrlein]

Thank you, Jesele and Janusz !

Janusz, puting the [ ] creates a bug in the notation engine... Don´t know why...

Best,

Julio 

 

((w a2g3c4e4 am7) (w c3a3e4g4 cadd6) (w e3gs3d4f4 e7b9) (w gs2f3b3d4 gsdim7) (w g2f3b3e4 g7-13) (w cs3f3b3e4 cs7s9) (w b2f3a3d4 bhd) (w d3a3c4f4 dm7) (w f3c4e4a4 fmaj7))

 

OM 3 > audition-musicxml-omn-snippet

Error: OMN Parse Error: fail
  1 (abort) Return to top loop level 0.

Type for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.

OM 4 : 1 > 

[opmo]

Yes, we can't use the character in attributes.

 

What about:
 

(add-text-attributes
 '(.Am7 "Am7")
 '(.C6 "C6")
 '(.E7b9 "E7b9")
 '(.Gsdim7 "G#o")
 '(.G7 "G7")
 '(.G7-13 "G7(13)")
 '(.Cs7s9 "C#7(#9)")
 '(.Bhd "Bm7b5")
 '(.Dm7 "Dm7")
 '(.Fmaj7 "Fmaj7")
 '(.G74b9 "G7,4(b9)")
 )

'((w a2g3c4e4 .g7) (w e3gs3d4f4 .e7b9) (w gs2f3b3d4 .gsdim7)
  (w g2f3b3e4 .g7-13) (w cs3f3b3e4 .cs7s9) (w b2f3a3d4 .bhd)
  (w d3a3c4f4 .dm7) (w f3c4e4a4 .fmaj7))

 

[JulioHerrlein]

It worked !

Thanks, Janusz !