RST

Thank you, Janusz!!

(-q e b4 (app s eb4 f4) (h. eb4 (-acc s f4 eb4 f4))) This is a phrase that ends with grace notes - but, it is not formed properly. I have tried some alternatives. The parts: (-q e b4 (app s eb4 f4) h. eb4) (h. eb4 (-acc s f4 eb4 f4)) Do work to the score window - but putting them together into one phrase is what confuses me. Does anyone know how to form this correctly? Thanks for help! this seems to work as an alternative: (-q e b4 (-app e eb4 f4) h. eb4 (-acc e f4 eb4 f4)) (-3q 3q b4 -3q (-app e eb4 f4) q eb4 (-app e f4) h eb4 (-acc e f4 a4 b4)) in this fragment the f4 prior to the h3b4 plays slower than the other ornaments, sounding as a standard eight note - confused as to why.

Brilliant! Thank you!

Greetings friends, I have a little project I am working on - to map a two-octave scale 12-tone scale. I want to be able to re-write pitches into this scale and to use the results in both harmonic and melodic contexts. However, I am finding some puzzlement! Here is a code fragment of what I am working on: (create-tonality 12-tone-2 '(0 1 3 4 7 8 10 11 14 17 18 21)) (tonality-map '(12-tone-2 :root c4 :shift t) '(c3 d3 e3 f3)) My thought is that it SHOULD result in: 0 1 3 4 - c cs ds e - as the result. Specifically: c4 cs4 ds4 e4 (or the enharmonic equivalent). But, the result is: c eb (ds) g gs !! Specifically: c3 ebb g3 gs3. Perhaps someone can help by pointing out my mistake? With thanks, Robert

A strong work!

Fantastic and inspiring! Will be so interested to study this.

Is it possible to hear or render this example? It seems very interesting.

This is very inspiring, Stephane!

Very nice work!! I am enjoying the opportunity to learn about Opusmodus by studying this!

Fantastic!!! I will study this - thanks so much!

Here is a version of the above using gen-eval which removes the compile warnings. (setq r1 (gen-eval 4 '(rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r2 (gen-eval 4 '(rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r3 (gen-eval 4 '(rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r4 (gen-eval 4 '(rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (init-seed nil) (setf sl-1 '(c4 d4 eb4 fs4 gs4 b4)) (setf p-group1 (sort-asc (find-unique (flatten (pitch-transpose '(-12 0) (gen-repeat 5 (list sl-1))))))) (setf p1 (gen-eval 5 '(pitch-transpose-n '(12) (rnd-sample 11 p-group1)))) (setf p2 (gen-eval 5 '(pitch-transpose-n '(0 1 3) (rnd-sample 11 p-group1)))) (setf p3 (gen-eval 5 '(pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (setf p4 (gen-eval 5 '(pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (span r1 p1) (span r2 p2) (span r3 p3) (span r4 p4) (setf seg1 (make-omn :length r1 :pitch p1)) (setf seg2 (make-omn :length r2 :pitch p2)) (setf seg3 (make-omn :length r3 :pitch p3)) (setf seg4 (make-omn :length r4 :pitch p4)) (setf output (assemble-seq seg1 seg2 seg3 seg4)) (setf ts-list (get-time-signature output)) (def-score score-name (:title "GUITAR_SECTION_X" :key-signature '(c maj) :time-signature ts-list :tempo 52 :layout (list (bracket-group (guitar-down8-layout 'guitar)))) (guitar :omn output :channel 1 :sound 'gm :program 'acoustic-guitar-nylon :pan 64))

Here is my solution as described: (setq r1 (gen-loop 4 (rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r2 (gen-loop 4 (rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r3 (gen-loop 4 (rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r4 (gen-loop 4 (rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (init-seed nil) (setf sl-1 '(c4 d4 eb4 fs4 gs4 b4)) (setf p-group1 (sort-asc (find-unique (flatten (pitch-transpose '(-12 0) (gen-repeat 5 (list sl-1))))))) (setf p1 (gen-loop 5 (pitch-transpose-n '(12) (rnd-sample 11 p-group1)))) (setf p2 (gen-loop 5 (pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (setf p3 (gen-loop 5 (pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (setf p4 (gen-loop 5 (pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (span r1 p1) (span r2 p2) (span r3 p3) (span r4 p4) (setf seg1 (make-omn :length r1 :pitch p1)) (setf seg2 (make-omn :length r2 :pitch p2)) (setf seg3 (make-omn :length r3 :pitch p3)) (setf seg4 (make-omn :length r4 :pitch p4)) (setf output (assemble-seq seg1 seg2 seg3 seg4)) (setf ts-list (get-time-signature output)) (def-score score-name (:title "GUITAR_SECTION_X" :key-signature '(c maj) :time-signature ts-list :tempo 52 :layout (list (bracket-group (guitar-down8-layout 'guitar)))) (guitar :omn output :channel 1 :sound 'gm :program 'acoustic-guitar-nylon :pan 64))

I am working with this idea: trying to create short fragments to combine into the omn for score and playback. (setq r1 (gen-loop 4 (rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r2 (gen-loop 4 (rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r3 (gen-loop 4 (rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (setq r4 (gen-loop 4 (rnd-order (rnd-pick '((e - = =) (e - 3ee = =) (5e = = = =) (7ee = = = = = =) (7eee = = = = = =) (7eeee = = = = = =))) :seed 35))) (init-seed nil) (setf sl-1 '(c4 d4 eb4 fs4 gs4 b4)) (setf p-group1 (sort-asc (find-unique (flatten (pitch-transpose '(-12 0) (gen-repeat 5 (list sl-1))))))) (setf p1 (gen-loop 5 (pitch-transpose-n '(12) (rnd-sample 11 p-group1)))) (setf p2 (gen-loop 5 (pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (setf p3 (gen-loop 5 (pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (setf p4 (gen-loop 5 (pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (span r1 p1) (span r2 p2) (setf pit (list p1 p2)) (setf len (list r1 r2)) (setf output (make-omn :length len :pitch pit)) (setf output (make-omn :length len :pitch pit)) - spawns an error with :length len but with :length r1 is is okay. Is there a good way to combine the length variables for MAKE-OMN ? I am assuming that all the omn elements need to be made independently and then to use ASSEMBLE-SEQ to knit them together. such as: (setf segment1 (make-omn :length r1 :pitch p1) (setf segment2 (make-omn :length r2 :pitch p2) (setf segment3 (make-omn :length r3 :pitch p3) etc... THEN: (setf knit (assemble-seq segment1 segment2 segment3)) ...for example... Thanks for any advice here.

This works perfectly of course. Thank you for the idea. I would never have thought of this. However, with the new bug-fix in ver 1.1 it will no longer be a concern. The only current drawback is that notation and playback do not match. This is important for evaluation in a compositional context of course. I do not suppose that there is a workaround for this at present. Perhaps I will have to await ver 1.1.

Thank you. I will try this out. Nice to know this has been fixed in 1.1.

Thanks for this code. However, this is the same, generally in terms of the output as the code I posted originally. Compiling the code results in the same ordering of pitches each time - there is no change. My question is this: is it possible to have the rhythm evaluation static (with a constant seed) while having the pitch evaluation different with each iteration of the program (with a dynamic seeding of the randomization)? This would be helpful - to have independence of seeds within a given context and so on. Thanks for help on this.

Many thanks, I will try it out!

Greetings: I am working with this fragment and I am confused by the result. If, there is no :seed in any function then the code fragment compiles as expected - the output is different each time. If there is a :seed value in the setq function then the pitch order is always the same - even though the RND-ORDER function has :seed NIL. Is there a ways to gain independence with seeding of random functions in this example? Keeping rhythm constant but having new pitch output each time, for example. Many thanks for any help on this. *** (setq rhy3 (gen-loop 16 (rnd-pick '((-h -) (q - - ) (q -) (5qqq = - = -) (5qq = = = =) (5ss = = = =) (7eee = = = = = =))) :seed 123)) (setf sl-1 '(c4 cs4 fs4 g4)) (setf p-group (sort-asc (find-unique (flatten (pitch-transpose '(-12 0) (gen-repeat 5 (list sl-1))))))) (setf p-group-rand (rnd-order p-group)) (setf p-group-rand-1 (gen-loop 8 (rnd-order p-group :seed nil))) (setf output (make-omn :length rhy3 :pitch p-group-rand-1)) (def-score score-name (:title "GUITAR_SECTION_X" :key-signature '(c maj) :time-signature (get-time-signature rhy3) :tempo 102 :layout (list (bracket-group (guitar-down8-layout 'guitar)))) (guitar :omn output :channel 1 :sound 'gm :program 'acoustic-guitar-nylon :pan 64))

Very interesting - thank you for making this available for study!