david
-
Posts
125 -
Joined
-
Last visited
Content Type
Forums
Events
Store
Video Gallery
Posts posted by david
-
-
ok i try with defparameter.
otherwise OM is still blocked and I don't understand.
On NAS, I have a file that I created with workspace
it no longer wants to open...the files containing this workspace open correctly independently
What is the problem ?OM remains blocked
-
thank you!
my files are on a NAS. sometimes I can't open the files and OM stays frozen...I do not understand why!
..this message seems me strange too!
"Compiler warnings for "/Volumes/web/Pédagogie/Opus modus file/13 chords.opmo" :
; In an anonymous lambda form at position 2162: Undeclared free variable per16.perm" -
-
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...
-
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
-
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
-
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)
)) -
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
-
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!;-)
-
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
-
Thank you Janusz!
is this update coming soon?
-
maybe is it possible to write text above staff ?
-
not possible with OM?? are you sure;-))
-
no just text symbol above staff like this;-)
i would like to write symbols above each bar
-
-
ça sonne super!
bravo
-
you have to ask that to Janusz.
-
it's not for now, i have also M1...
Files snake...
in Support & Troubleshooting
Posted
how many files can we add in a project?