Hello i am looking for a function which generate chords third by third  from a scale pitch list

For example  :

 

( chord maker '3 '(c4 d4 ds4 f4 fs4 g4 gs4 a4 as4))

 

which would give as result  ===>.   ( c4ds4fs4  d4f4g4 ds4fs4gs4 f4g4a4 fs4gs4as4 g4a4c5  etc......)

 

( chord maker '4 '(c4 d4 ds4 f4 fs4 g4 gs4 a4 as4))

 

which would give as result  ===>.   ( c4ds4fs4gs4   d4f4g4a4 ds4fs4gs4as4  f4g4a4c5  fs4gs4as4d5  g4a4c5ds5   etc......)

 

Thank you

 

Patrick Mimran

 

(setf scale  '(c4 d4 ds4 f4 fs4 g4 gs4 a4 as4))

(harmonic-progression
 '(1 2 3 4)
 scale
 :base 1
 )

(harmonic-progression
 '(1 2 3 4)
 scale
 :base 1
 :size 4
 )

(harmonic-progression
 '(1 2 3 4)
 scale
 :base 1
 :size 4
 :step '(2 3)
 )

 

S.

Super

Merci

 

Patrick