JulioHerrlein

Thanks for your attention, Janusz !

Thanks a lot, Jesper and Janusz Yes, I need to study LISP deeper, I´m still behind in this but I´d like to remind you that this way used to work for many years. I used this code many times before. Best, Julio

Dear Janusz, I don´t know what´s wrong here (setf repitch2 '((e4 g4 c5) (db4 cs5 gs4 f4) (fs4) nil nil (ab4 bb4 g4 gs4) (b3 d5 fs4) (eb4 bb4) (d4) nil (c4 a4 d5 b4) (b3) nil (a3) (d4) (fs4) (bb3 c5))) (setf rv2 '((1/8 1/16 1/16) (1/16 1/16 1/16 1/16) (1/4) (-1/4) (-1/4) (1/16 1/16 1/16 1/16) (1/16 1/16 1/8) (-1/8 1/16 1/16) (1/4) (-1/4) (1/16 1/16 1/16 1/16) (1/4) (-1/4) (1/4) (1/4) (1/4) (1/8 1/8) (1/16 1/8 1/16) (1/16 1/16 1/8) (1/8 1/16 1/16) (1/16 1/8 1/16) (1/8 1/8) (1/16 1/8 1/16) (1/16 1/16 1/8) (1/8 1/16 1/16) (1/16 3/16) (1/4) (1/4) (1/4) (1/16 3/16) (1/4) (1/4) (1/8 1/8) (1/4) (1/4) (1/4) (1/8 1/8) (1/8 1/8) (1/16 1/8 1/16) (1/16 1/16 1/8) (1/8 1/16 1/16) (1/16 1/8 1/16) (1/8 1/8) (1/16 1/8 1/16) (1/16 1/16 1/8) (1/8 1/16 1/16) (1/4) (1/4) (1/16 1/8 1/16) (1/4) (1/4) (1/4) (3/16 1/16) (1/16 1/8 1/16) (1/16 1/16 1/8) (1/8 1/16 1/16) (1/16 1/8 1/16) (1/8 1/8) (1/16 1/8 1/16) (1/16 1/16 1/8) (1/8 1/16 1/16) (1/4) (-1/4) (-1/4))) (setf len-map1 '((e (stacc)) (s (ord)) (h (long)) (h. (long)) (w (long)))) (setf len-map2 '((e (list (rnd-pick (mf f)))) (s (mf)) (e. (mf)) (h (p<f)) (h. (p<f)) (w (P<f>p))(wq (P<f>p))(wh (P<f>p))(wh. (P<f>p))(ww (P<f>p)))) (setf v2mat-a (make-omn :length rv2 :pitch repitch2 :span :length :velocity (length-map len-map2 rv2 :otherwise '(mf) :group t) :articulation (length-map len-map1 rv2 :otherwise '(ord) :group t))) The result comes with many instances of the word "list" ((e e4 list stacc s g4 mf ord c5 ord) (s db4 mf ord cs5 ord gs4 ord f4 ord) (q fs4 mf ord) (-q) (-q) (s ab4 mf ord bb4 ord g4 ord gs4 ord) (s b3 mf ord d5 ord e fs4 list stacc) (-e s eb4 mf ord bb4 ord) (q d4 mf ord) (-q) (s c4 mf ord a4 ord d5 ord b4 ord) (q b3 mf ord) (-q) (q a3 mf ord) (q d4 mf ord) (q fs4 mf ord) (e bb3 list stacc c5 stacc) (s e4 mf ord e g4 list stacc s c5 mf ord) (s db4 mf ord cs5 ord e gs4 list stacc) (e fs4 list stacc s mf ord fs4 ord) (s ab4 mf ord e bb4 list stacc s g4 mf ord) (e b3 list stacc d5 stacc) (s eb4 mf ord e bb4 list stacc s eb4 mf ord) (s d4 mf ord d4 ord e list stacc) (e c4 list stacc s a4 mf ord d5 ord) (s b3 mf ord e. ord) (q a3 mf ord) (q d4 mf ord) (q fs4 mf ord) (s bb3 mf ord e. c5 ord) (q e4 mf ord) (q db4 mf ord) (e fs4 list stacc fs4 stacc) (q ab4 mf ord) (q b3 mf ord) (q eb4 mf ord) (e d4 list stacc d4 stacc) (e c4 list stacc a4 stacc) (s b3 mf ord e list stacc s mf ord) (s a3 mf ord a3 ord e list stacc) (e d4 list stacc s mf ord d4 ord) (s fs4 mf ord e list stacc s mf ord) (e bb3 list stacc c5 stacc) (s e4 mf ord e g4 list stacc s c5 mf ord) (s db4 mf ord cs5 ord e gs4 list stacc) (e fs4 list stacc s mf ord fs4 ord) (q ab4 mf ord) (q b3 mf ord) (s eb4 mf ord e bb4 list stacc s eb4 mf ord) (q d4 mf ord) (q c4 mf ord) (q b3 mf ord) (e. a3 mf ord s ord) (s d4 mf ord e list stacc s mf ord) (s fs4 mf ord fs4 ord e list stacc) (e bb3 list stacc s c5 mf ord bb3 ord) (s e4 mf ord e g4 list stacc s c5 mf ord) (e db4 list stacc cs5 stacc) (s fs4 mf ord e list stacc s mf ord) (s ab4 mf ord bb4 ord e g4 list stacc) (e b3 list stacc s d5 mf ord fs4 ord) (q eb4 mf ord) (-q) (-q)) Wich leads to this error in the snippet call OM 54 > 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. BEst

Thanks, but I found no mention about the :repeat keyword in the length-map doc.

Dear All, I was trying some old codes and this started to bug... The length-map :repeat keyword no longer works... what´s happening ? I have a lot of files using this... (setf v1mat-a (make-omn :length rv1 :pitch pit-chmd1 ;repitch1 :span :length :velocity (length-map len-map2 rv1 :otherwise '(mf) :repeat t ) :articulation (length-map len-map1 rv1 :otherwise '(ord) :repeat t ))) Error: Unexpected keyword :repeat which is not one of (:otherwise :rnd :group :section :exclude :seed). 1 (continue) Ignore the unknown keyword :repeat. 2 (abort) Return to top loop level 0.

Thanks, but the change-tonality you provided here seems better. Best ! Julio

This is very good, Jesper Certainly, a function that could be implemented at the core functions of Opusmodus. Janusz ? Best, Julio

For jazz implementation there are many advantages in Opusmodus v3, like drop-voicings !

Congratulations, Janusz ! Intense and expressive. All the best, Julio

Very cool, Jesper ! Thank you ! Actually this is a faster way of finding ! Best

You can use pitch class analysis to know the Forte number of a set of pitches like this (pcs-analysis '(7 10 3 8 11 5 2)) Original Prime Order: (7 10 3 8 11 5 2) Pitch: (g4 bb4 eb4 gs4 b4 f4 d4) Inversion: (5 2 9 4 1 7 10) Complement: (0 1 4 6 9) Normal Order: (2 3 5 7 8 10 11) Prime Form: (0 1 3 5 6 8 9) Forte: 7-32b - THIS IS WHAT YOU NEED Directed Interval Vector: (1 2 2 1 2 1 3) Interval Vector: (3 3 5 4 4 2) Interval Class: (3 5 5 3 6 3)

David, REcently I build a kind of harmonization tool. It´s very simple and similar to this post. I built a chord list with my favorite voicings and also voicings for simple acompaniment, like the ones in the examble above. - 5 note voicings (bass + 4 note chords) major, minor, dom, alt, dom dim, half diminished, diminished, sus, etc all basic in all keys. I use it for creating progressions that can be randomized or specified. And I also built a melody generator with all the correponding modes for the chords. That´s it. But now I bought an acoustic piano and I love to just play it and sing along... That´s life ! Best, Julio

Just put the articulation part in the stave ou want it to appear (ps 'gm :treble (list (make-omn :pitch (melodize (drop-voicing (omn :pitch chords_and_names))) :length '(e) :articulation (omn :articulation chords_and_names) :span :pitch)) :bass (list (make-omn :pitch (omn :pitch chords_and_names) :length (omn :length chords_and_names) :articulation (omn :articulation chords_and_names) )) :time-signature '(4 4) ) About my Opusmodus book, according to Janusz it´s in the revision phase. Soon it will be released. I´m looking forward to it too. Best ! Julio

(setf chords_and_names '((h g2f3a3bb3d4 .gm9) (d2f3a3c4e4 .dm9) (f2a3c4e4g4 .fmaj9) (a2g3b3c4e4 .am9) (e2g3b3d4fs4 .em9)) ) (ps 'gm :treble (list (make-omn :pitch (melodize (drop-voicing (omn :pitch chords_and_names))) :length '(e) :span :pitch)) :bass (list (make-omn :pitch (omn :pitch chords_and_names) :length (omn :length chords_and_names) :articulation (omn :articulation chords_and_names) )) :time-signature '(4 4) ) Try to process in different staves, one for the chords and chord symbols and other for melodies, with independent processing. best, Julio

Love it ! All the best !