Jump to content

david

Members
  • Posts

    15
  • Joined

  • Last visited

Everything posted by david

  1. Thank you Stéphane. I changed as you told me and it works. (setf s1um (library 'slonimskymaj 'tritonem 's1um)) (setf s1dm (library 'slonimskymaj 'tritonem 's1dm)) (setf s1um.perm (permute s1um)) (setf s1dm.perm (permute s1dm)) (setf pch1 (assemble-seq (loop for i in s1um.perm for j in s1dm.perm collect (list i j)))) (setf ry1 '((s s s s s s s s))) (setf Gmaj7.omn1 (make-omn :pitch pch1 :length ry1 :span :pitch )) I am using find-Bar and i would like to know if it is possible to get the results algorithmically without a huge manual input? find-bar 1-2-3-4-5-6-7-8-9 etc etc in my example I have 720 results;-) (setf s1um (library 'slonimskymaj 'tritonem 's1um)) (setf s1dm (library 'slonimskymaj 'tritonem 's1dm)) (setf s1um.perm (permute s1um)) (setf s1dm.perm (permute s1dm)) (setf pch1 (assemble-seq (loop for i in s1um.perm for j in s1dm.perm collect (list i j)))) (setf ry1 '((s s s s s s s s))) (setf Gmaj7.omn1 (make-omn :pitch pch1 :length ry1 :span :pitch )) (setf seq (remove-nils (assemble-seq (list (pitch-transpose 12 (find-bar 1 Gmaj7.omn));;;début (pitch-transpose 12 (find-bar 2 Gmaj7.omn)) (pitch-transpose 5 (find-bar 1 Gmaj7.omn)) (pitch-transpose 5 (find-bar 2 Gmaj7.omn)) (pitch-transpose 10 (find-bar 1 Gmaj7.omn)) (pitch-transpose 10 (find-bar 2 Gmaj7.omn)) (pitch-transpose 15 (find-bar 1 Gmaj7.omn)) (pitch-transpose 15 (find-bar 2 Gmaj7.omn)) (pitch-transpose 8 (find-bar 1 Gmaj7.omn)) (pitch-transpose 8 (find-bar 2 Gmaj7.omn)) (pitch-transpose 13 (find-bar 1 Gmaj7.omn)) (pitch-transpose 13 (find-bar 2 Gmaj7.omn)) (pitch-transpose 6 (find-bar 1 Gmaj7.omn)) (pitch-transpose 6 (find-bar 2 Gmaj7.omn)) (pitch-transpose 11 (find-bar 1 Gmaj7.omn)) (pitch-transpose 11 (find-bar 2 Gmaj7.omn)) (pitch-transpose 16 (find-bar 1 Gmaj7.omn)) (pitch-transpose 16 (find-bar 2 Gmaj7.omn)) (pitch-transpose 9 (find-bar 1 Gmaj7.omn)) (pitch-transpose 9 (find-bar 2 Gmaj7.omn)) (pitch-transpose 14 (find-bar 1 Gmaj7.omn)) (pitch-transpose 14 (find-bar 2 Gmaj7.omn)) (pitch-transpose 7 (find-bar 1 Gmaj7.omn)) (pitch-transpose 7 (find-bar 2 Gmaj7.omn)) etc etc...
  2. Dear Friends, is it possible to modify the file Slonimsky thesaurus.opmo by adding new data? or do i have to create a new library. moreover I cannot find this file on my computer although it is in opusmodus Thanks for your help david
  3. I hadn't seen the rest of your answer, it's just really amazing Stéphane!! I'm going to take lessons!;-) thank you so much, david
  4. Dear Stéphane, Thank you for replying! With this solution, i get pat1 100 times! (setf pat1 (library 'slonimsky 'tritone nil :collect '(0 1))) (setf perm (mapcar 'permute pat1)) (setf ry1 '((s s s s s s s s s s s s s s s s))) (setf Gmaj7.omn (make-omn :pitch perm :length (gen-repeat 100 ry1) ))
  5. Hi, I use a lot permute function. is it possible to get directely 24 results for 0 and 24 results for 1? without omn (setf pat1 (library 'slonimsky 'tritone nil :collect '(0 1))) 0=s1u '(c4 cs4 fs4 g4) 1= s1d '(c5 g4 fs4 cs4) Thanks for the help ! Best, david
  6. Dear Friends, Thank you two for replying ! I am interested in possibilities of harmonization with chords (small circles with numbers from Thesaurus) Thanks Stephane, that's exactly what I wanted to do. Best ! David PS: I am also waiting for your book Stéphane!;-)
  7. Hi, cool! how do you get down this PATT # 1 ? and how do you also call PATT 1 and 2 for exemple ? I'm using Slonimsky library, but I can't just call s1u and s1d...to train a scale up and down;-) Thanks for your help david PS: I'm still waiting for your book
  8. david

    david

  9. Thank you Janusz! is this update coming soon?
  10. maybe is it possible to write text above staff ?
  11. not possible with OM?? are you sure;-))
  12. no just text symbol above staff like this;-) i would like to write symbols above each bar
  13. Hi, I am just wondering If is in any way possible to write into snippet chords like: Δ ou Maj7 7 m7 Ø ou min7b5 °7 6 m6 7sus4 9 m9 7#11 7#5 6/9 13 7b9 7#9 above the staff?
  14. you have to ask that to Janusz.
  15. it's not for now, i have also M1...
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy