Stephane Boussuge

Hi, i have a tendency to use tonality-map with pitch-class sets in that case, something like: (tonality-map '((0 2 4 5 7 9 10) :map 'octave) mat3) => (c4 d4 e4 f4 g4 a4 bb4 c5) S.

A B D are correct. E and H could work under certain condition (pre-processing, flatten-sublist etc...) S.

New short piece for piano. stephaneboussuge · Prelude pour Piano 160923

Hi; here's a possible solution: (progn (setf noise (gen-noise 50 :seed 425)) (setf env1 '(50 51 52 53 54)) (setf env2 '(60 59 58 57 56)) (list-plot (vector-to-envelope2 env1 env2 noise)) ) S.

Playing a bit, a short experiment with the new lakes function from OM. S. PreludePourPiano070923opmo.opmo Prelude 070923Rev1.mp3

Add articulations after the merge. s.

I've made a little string trio score to test this fun new function. Here it is attached to this post. Enjoy ! S. Mouvement de Trio pour cordes (etude fn rnd-rest).mp3 String Trio.opmo

Wonderful function, I love it !

I think this error is normal in that case because you are using it on a single list. In that case you have to use (rnd-rest 1 mat2 :omn t) , don't put the 1 into parenthesis. this is normal Opusmodus syntax. Or if you want to keep you 1 in parenthesis do: (setf mat2 '((w. f3 p arp q g3 ff stacc+marc w. a3 p arp q c4 ff stacc+marc))) (rnd-rest '(1) mat2 :omn t) It is normal if you don't use correct syntax you get error. S.

Very nice ! Great job !!! S.

And i forgot to mention: length-weight (setf mat '((e. gs4 mf e g4 g4 e. eb4 e e4 eb4 fs4) (e. e4 mf eb4 fs4 d4 q f4) (e. f4 mf e g4 gs4 e. bb4 e e4 gs4 d4) (h e4 mf gs4))) (setf with-rest (length-weight mat)) Also the Opusmodus binary functions could help a lot to build some process to "restify" some notes. SB.

Hi Rodrigo, You can use the function length-to-rest: (length-to-rest 'e '(q c4 e cs4 e d4 s e4 f4 fs4 g4 q gs4 e a4 s bb4 b4) :swallow nil :type 'under) => (q c4 -e - -s - - - q cs4 -e -s -) You can use length-rest-series: (length-rest-series '(1 2 1 3 2 4) '((1/8 1/8 1/8) (1/4 1/4 1/4 1/4 1/4) (1/16 1/16 1/16 1/16))) => ((1/8 -1/8 1/8) (1/4 -1/4 1/4 -1/4 1/4) (1/16 1/16 -1/16 1/16)) you may also use the wonderful density function. to display just few possibilities... Best ! S.

May be: (setf transp (gen-transition 0 7 7 1 :rounded t)) (setf set '(g4a4)) (setf out (pitch-transpose-n transp (gen-trim (length transp) set))) SB.

Hi, I need a bit of help. I would love to use cl-patterns which is a wonderful real time tool for live coding with cl-collider. I've tried that example but doesn't works in fact works but no audio output. If somebody more experienced than me could help here, it would be nice ! (sc:defsynth sine-kick ((freq 440) (time 0.25) (amp 0.5) (out 0)) (let* ((env (sc:env-gen.kr (sc:env (list 0 1 1 0) (list 0.001 time 0.3)) :act :free)) (fenv (sc:env-gen.kr (sc:env (list 1 0) (list time)) :level-scale freq)) (sig (sc:sin-osc.ar fenv 0 (* env 0.2)))) (sc:out.ar out (sc:pan2.ar sig 0 amp)))) (cl-patterns:pb :kick :embed (cl-patterns:pcycles "o-o-------oo----") :instrument :sine-kick :dur 1/4 :quant 4) (cl-patterns:play :kick) Best salutations to the always growing Opusmodus users community ! S.