david
-
Posts
125 -
Joined
-
Last visited
Content Type
Forums
Events
Store
Video Gallery
Posts posted by david
-
-
I'm talking about new course indeed;-)
-
hi stephane,
is your new course online?
-
are you missing another parameter?
-
Je ne comprends pas, les espaces de certains rythmes ne sont pas respectés, même en écrivant directement dans le message
(setf ry7 'gen-repeat 18 '((e. s)(-ee)(-s e.)(e. s)(-ee)(-s e.)(e. s)(-ee)) ))
-
oups désolé !
(setf ry7 (gen-repeat 18 '((e. s)(-e e)(-s e.)(e. s)(-e e)(-s e.)(e. s)(-e e)) ))
-
Hi,
Is it possible to indicate in a make-omn parameter list to execute list in 4/4 except the last two measures? Thanks for your help
(setf seq+ry (omn-to-measure
(make-omn
:pitch (omn :pitch seq)
:length (gen-repeat 1 ry7)
:span :length)
'(4/4))) -
very informative!
the second video is really hard for me...;-)
thank you very much André for help.
-
for me all your examples should be burned into OM documentation!
it's perfectly clear, you are a great teacher.
Thanks Rolf -
thank you very much Rolf.
for a question of logic, I don't understand why the second type is not after (second (gen-divide 5 bar))
-
ok thank you very much...I'm starting to understand.
with seed is this correct?
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (filter-repeat 1 (rnd-order (first (gen-divide 5 bar)) :seed 21) :type :pitch)
(second (gen-divide 5 bar)))))) -
this is my original message:
(setf mat '((e f5 g5 a5 s gb5 f5 e e5 f5 g5 s e5 eb5)
(e d5 e5 f5 s d5 db5 e c5 d5 e5 s c5 b4)
(e bb4 c5 d5 s b4 bb4 e a4 bb4 c5 s a4 ab4)
(e g4 a4 bb4 s g4 gb4 e f4 g4 a4 -e)));; divide each bar in two and only rnd-order the first half
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (rnd-order (first (gen-divide 5 bar)) :seed 20) (second (gen-divide 5 bar))))))filter-repeat 1 with the last code with change :type :pitch
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (filter-repeat 1 (rnd-order (first (gen-divide 5 bar))) :type :pitch)
(second (gen-divide 5 bar))))))it work but the rhythm is not good.
should I do this to get on the output of (rnd-order..)
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (filter-repeat 1 (rnd-order (first (gen-divide 5 bar))) :type :pitch)
(filter-repeat 1 (second (gen-divide 5 bar)))))))
you are talking about parentheses will be green?my version is
-
So I was saying I'm have a problem with this code.
After reading documentation several times, I admit I don't understand how to do it with my code.;;;variation rythmique Gamme majeure 4/4
(setf mat '((e f5 g5 a5 s gb5 f5 e e5 f5 g5 s e5 eb5)
(e d5 e5 f5 s d5 db5 e c5 d5 e5 s c5 b4)
(e bb4 c5 d5 s b4 bb4 e a4 bb4 c5 s a4 ab4)
(e g4 a4 bb4 s g4 gb4 e f4 g4 a4 -e)))
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (filter-repeat 1 (rnd-order (first (gen-divide 5 bar)) :type :pitch) (second (gen-divide 5 bar)))))))Compiler warnings for "/Volumes/web/Opus modus file/test rhytme.opmo" :
; In an anonymous lambda form at position 0: In the call to filter-repeat with arguments (1 (rnd-order (car (gen-divide 5 bar)) :type :pitch) (car (cdr (gen-divide 5 bar)))),
; the variable portion of the argument list ((car (cdr (gen-divide 5 bar)))) contains an odd number
; of arguments and so can't be used to initialize keyword parameters
; for the current global definition of filter-repeat
> Error: OMN Parse Error: fail
> While executing: omn-to-ast, in process Listener-1(7).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options. -
You are right, I will open a new message!
but I was just saying I had an error message...that is all!
;Compiler warnings for "/Volumes/web/Opus modus file/test rhytme.opmo" :
; In an anonymous lambda form at position 0: In the call to filter-repeat with arguments (1 (rnd-order (car (gen-divide 5 bar)) :type :pitch) (car (cdr (gen-divide 5 bar)))),
; the variable portion of the argument list ((car (cdr (gen-divide 5 bar)))) contains an odd number
; of arguments and so can't be used to initialize keyword parameters
; for the current global definition of filter-repeat
> Error: OMN Parse Error: fail
> While executing: omn-to-ast, in process Listener-1(7).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options. -
I try to use the function filter-repeat 1 to avoid repetitions of notes like here, it doesn't work
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (filter-repeat 1 (rnd-order (first (gen-divide 5 bar)) :type :pitch) (second (gen-divide 5 bar))))))) -
ok, thank you for your clarity, I understood everything!
-
in your code that interests me
I don't understand what means
(gen-divide 5 bar)
5 what? eighth note, sixteenth note?
divide a bar 4/4 into 2/4 with gen-divide 5, i don't anderstand;-;)
-
That’s great Rolf,
what is difficult for me is to express my musical thoughts through algorithms.
To make it short, in my example I pass all modes of the major scale...F major here.
Each beginning of degrees expresses a bass
which means degrees and chords on half measures.here are the chords used in my example
F - Edim - D- - C - Bb - A- - G- - F
exemple1
(setf mat '((e f5 g5 a5 s gb5 f5 e e5 f5 g5 s e5 eb5)
(e d5 e5 f5 s d5 db5 e c5 d5 e5 s c5 b4)
(e bb4 c5 d5 s b4 bb4 e a4 bb4 c5 s a4 ab4)
(e g4 a4 bb4 s g4 gb4 e f4 g4 a4 -e)))exemple2 corrected by hand to obtain random mode by half bar
(setf mat '((e f5 g5 a5 s gb5 f5) (e e5 f5 g5 s e5 eb5)
(e d5 e5 f5 s d5 db5)(e c5 d5 e5 s c5 b4)
(e bb4 c5 d5 s b4 bb4)(e a4 bb4 c5 s a4 ab4)
(e g4 a4 bb4 s g4 gb4)(e f4 g4 a4 -e)))thank you very much for your interest in my case
I started the book that you recommended to me...I'm very excited;-(((
I think I'll come to Munich for a drink with you so you can explain it to me ;-)))
-
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7) append (pitch-transpose i (loop for bar in mat collect (rnd-order bar :seed 20))))
this one doesn't work because it changes the rhythm
this one doesn't work either because it uses an integer bar in rnd-order
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect (rnd-order bar :type :pitch :seed 20))))for this one same
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect (rnd-order bar :type :pitch :seed 20))))this one same. it's a retrograde of the bar with rnd-order
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (second (gen-divide 5 bar)) (first (gen-divide 5 bar))))))Bingo!!! it's the good one!
I would never have found it alone...I will try to understand
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (rnd-order (first (gen-divide 5 bar)) :seed 20) (second (gen-divide 5 bar))))))this one is a bit like the last one!
(loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7)
append (pitch-transpose i
(loop for bar in mat collect
(list (rnd-order (second (gen-divide 5 bar)) :type :all :seed 21) (first (gen-divide 5 bar)))))) -
Rolf,
To continue with useful questionsanother idea that I haven't found
How can I use in my example rnd-order bar by bar ?the difficulty here:
This means you have to divide bars in two.
4/4 to 2/4and
rnd-order will modify degree by degree
thenassemble the parts together to obtain metric 4/4
(setf mat '((e f5 g5 a5 s gb5 f5 e e5 f5 g5 s e5 eb5) (e d5 e5 f5 s d5 db5 e c5 d5 e5 s c5 b4) (e bb4 c5 d5 s b4 bb4 e a4 bb4 c5 s a4 ab4) (e g4 a4 bb4 s g4 gb4 e f4 g4 a4 -e))) (loop for i in '(0 5 -2 3 8 1 6 -1 4 9 2 7) append (pitch-transpose i mat))
thank you in advance for your help
-
I find these different ways longer than your first proposal...I note all these possibilities in addition!
thank you so much!!
you are not musicians you say?!;-)
here are the basics of daily work of the jazzman on major scale...you can do the same thing with harmonic, melodic minor scales etc!it's a fabulous exercise for developing rhythm and harmony at the same time.
finally i found someone to talk to on this forum;-)...without blushing...for a simple and above all useful request. -
this book is not translated French, which means that it will be very complicated for me, I will try to find an equivalent in French.
I'm surprised to hear you say, it's easy!;-)
I would say "Maybe we could have a special place in the forum for musique basic"
I'm so happy to meet you!!!
-
Do you have a book to recommend me?
...Studying music took me 30 years!
i think common lisp will take longer;-) -
Ok, I'll order the book1!
What is sorely lacking on the forum are the basic notions (for having fun as you say) and writing very simple things.
My question above is very simple and yet I haven't found an answer on the forum and even less in the software... I find that strange. Is transposing a musical phrase in all keys a routine? !Good thing you and Janusz responded!
Regarding being a true composer and musician, thank you for your recognition.
Sometimes I ask myself the question (if I am a composer) when I come to the forum...Thanks again for your encouragement, I'm going to post more questions on the forum, even if I feel like I'm being ridiculous in face of so many complex things.
-
Thanks Rolf, for this hint!
I am more of those who still play and compose (tonal music)
I admit I have a little trouble finding what I'm looking for in the OM universe... even though I'm sure you can do anything with this software!
Sometimes I come to the forum to find some information... but in general, we only find very advanced concepts and quite far from what I'm looking for... so from time to time, I dare to ask a question;-)
I went to listen to your music on your site... well done, there's a lot of music!
Output example from 5 OM Lessons: Score175-90884 and Score175-922647
in Made In Opusmodus
Posted
...I really like your second example!;-)