Expand Chord Form

[Cliff]

Beginners question:

I specify a chord sequence using the very handy chord form notation.

(Please do not recommend changing this way of providing input.)

 

(setf simple-cadence '((c4 maj7) (f4 maj7) (f4 m7) (g4 7) (c4 maj7)))

 

Next I want to translate it into block chords:

 

(setf chords (make-omn 
              :pitch simple-cadence
              :length (gen-repeat 5 '(w))
              :articulation '(leg)))

 

Unfortunately this does not give chords:

 

 

 

I have seen 

expand-chord

function, but I can't get it work with a list. 

 

How can I use chord-form list in the make-omn :pitch parameter ?

[jesele]

Try this.

 

(setf simple-cadence (mapcar 'expand-chord '((c4 maj7) (f4 maj7) (f4 m7) (g4 7) (c4 maj7))))

;; mapping expand-chord to each sublist

 

or

(setf simple-cadence '((c4 maj7) (f4 maj7) (f4 m7) (g4 7) (c4 maj7)))
 
(setf chords (make-omn 
              :pitch (mapcar 'expand-chord simple-cadence)
              :length (gen-repeat 5 '(w))
              :articulation '(leg)))

 

Jesper

[opmo]

I will make the function to work on a chord name, list and lists of chord names:

 

(expand-chord '((c4 maj7) (f4 maj7) (f4 m7) (g4 7) (c4 maj7))))
=> (c4e4g4b4 f4a4c5e5 f4gs4c5ds5 g4b4d5f5 c4e4g4b4)

 

[opmo]

ready in 3.0.29338

[Cliff]

Wow, phantastic how responsive you all are, thx.

[Cliff]

With @opmos update:

 

setf chords (make-omn 
              :pitch (expand-chord simple-cadence)
              :length (gen-repeat 5 '(w))
              :articulation '(leg)))