Jump to content

Recommended Posts

I try to map a  tonality on a very simple chord suite  1  4  5   from Major to natural minor in the folowing way 


(Setq chordlist  (tonality-map '(natural-minor :root a4 )  '(c3c4e4g4c5   f3f4a4c5f5  G3G4b4d5g5) ))


But it doesn't seems to work the way i want , i am just looking to transform degree 1 4 5 from c major to  1 4 5  a minor with no success 


there is probably something i am missing or another easiest way 










Link to post
Share on other sites

i suppose you need to add :closest 'down  parameter.


But i can only suppose because you don't said what output you want....


(Setq chordlist  (tonality-map '(natural-minor :root a4 :closest 'down)  '(c3c4e4g4c5   f3f4a4c5f5  G3G4b4d5g5) ))

;=> (a3a4c5e5a5 d4d5f5a5d6 e4e5g5b5e6)


Link to post
Share on other sites

Je vais vous envoyer plus tard la copie du score . Mais le problème est que meme lorsque j'évalue mon chord list , les accords "mapées ",me sortent des secondes alors que je m'attends à ce qu'ils donnent  le premier quatrième et cinquième degré de la mineur .

Je vais essayer votre suggestion et je vous tiens au courant .


Merci pour votre réponse 





Link to post
Share on other sites

How could we have access to the chord library  ? I tried (library 'chord-library 'triads 'maj  ) without success 



maj m min dim mb5 sus sus4 sus2 aug majs5 + -5


Basic seventh chords

maj7 m7 min7 7 dom7 dim7 m7b5 min7b5 mmaj7 m/maj7 7sus2

7sus 7sus4


Added tone chords

5 6 maj6 m6 min6 6/7 6/9 69 6add9 6/9s11 69s11 6add9s11

m6/9 m6add9 m69


Extended nondominant seventh chords

maj7b5 mmaj7a11 m/maj7a11 maj7s11 m/maj7a13 mmaj7a13

m7sus4 m7s5 m7a11 m7a13 m7b13 m7b6 dim/maj7 dim7/maj7

m7b9b5 7b9sus4 phrig maj7s5 

Link to post
Share on other sites
;; exemple d'utilisation des accords
(setf path (tonality-series '((d4 min)(bb3 maj)(g3 min7))))

(setf seq '((e c4 d4 e4 f4 g4 a4 b4 c5)(e c4 d4 e4 f4 g4 a4 b4 c5)(e c4 d4 e4 f4 g4 a4 b4 c5)))

(tonality-map path seq)

But i think what could be more useful for you is to use harmonic-progressions system:


(setf degree '(1 4 5 1 6 4 2 5 1))

(setf progression (harmonic-progression
                   '(d4 natural-minor)
                   :size 3
                   :base 1

=> (d4f4a4 g4bb4d5 a4c5e5 d4f4a4 bb4d5f5 g4bb4d5 e4g4bb4 a4c5e5 d4f4a4)

Once the chords generated this way, you can use them with tonality-series as an harmonic path:


(setf path2 (tonality-series (mclist progression)))

(tonality-map path2 '((e c4 d4 e4 f4 g4 a4 b4 c5)(e c4 d4 e4 f4 g4 a4 b4 c5)(e c4 d4 e4 f4 g4 a4 b4 c5)))
=> ((e d4 f4 f4 a4 a4 a4 d5 d5) (e g4 bb4 bb4 d5 d5 d5 g5 g5) (e a4 c5 c5 e5 e5 e5 a5 a5))



Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Create New...

Important Information

Terms of Use Privacy Policy