I do not understand tonality-series

[PatrickMimran]

Hello if i do

It gives me the folowing result, this i understand

(setf chords '((c4 maj) (f4 m) (f4 m) (g4 maj) (c4 maj)))
(setf rows (gen-repeat 5 (list '(q c4 cs4 d4 ds4 e4 f4 fs4 g4 gs4 a4 as4 b4))))

(setf tonality1
      (tonality-series chords
                       :root '(c4 f4 f4 g4 c4)))

(tonality-map tonality1 rows)
=> ((q c4 c4 c4 e4 e4 e4 g4 g4 g4 g4 c5 c5)
    (q f4 f4 gs4 gs4 gs4 gs4 c5 c5 c5 c5 f5 f5)
    (q f4 f4 gs4 gs4 gs4 gs4 c5 c5 c5 c5 f5 f5)
    (q g4 g4 b4 b4 b4 b4 d5 d5 d5 d5 g5 g5)
    (q c4 c4 c4 e4 e4 e4 g4 g4 g4 g4 c5 c5))

but if i do

(setf tonality1
      (tonality-series chords
                       :root '(c4 f4 f4 g4 c4)
                       :add '(2)
                       :closest '(up)))

it gives

=> ((q c4 d4 d4 e4 e4 e4 g4 g4 g4 g4 c5 c5)
    (q f4 f4 gs4 gs4 gs4 b4 b4 b4 eb5 eb5 eb5 f5)
    (q f4 f4 gs4 gs4 gs4 b4 b4 b4 eb5 eb5 eb5 f5)
    (q g4 g4 g4 c5 c5 c5 c5 e5 e5 e5 e5 g5)
    (q c4 d4 d4 e4 e4 e4 g4 g4 g4 g4 c5 c5))

what i do not understand if :add '(2) adds an interval of two semitones from the root

why do i get

(q f4 f4 gs4 gs4 gs4 b4 b4 b4 eb5 eb5 eb5 f5)

and not

(q f4 f4 g4 g4 gs4 b4 b4 b4 eb5 eb5 eb5 f5)

There probably something i miss could you explain this to me

Thanks

 
Patrick

[opmo]

This was fixed in 1.0.15686