jesele

Try (circle-rhythm-plot rhy-1 :points 12 :value 1/12) Jesper

I think it would be good for you to study some basic Lisp and OM because combining the pattern (integers) and OMN (lengths etc) in the same list are unusual. Jesper

Try this little (not very well thought out) function. Jesper (defun fn (chords pattern) (let ((mel (mapcar 'melodize chords))) (loop for m in mel collect (loop for x in pattern collect (if (integerp x) (if (> x 9) (car (chordize (loop for y in (explode x) collect (nth (1- y) m)))) (nth (1- x) m)) x))))) (fn '(c4e4g4 a3e4a4 d3f3a3 g3b3d4) '(e 1 2 1 q 23 e 1 2 1)) =>((e c4 e4 c4 q e4g4 e c4 e4 c4) (e a3 e4 a3 q e4a4 e a3 e4 a3) (e d3 f3 d3 q f3a3 e d3 f3 d3) (e g3 b3 g3 q b3d4 e g3 b3 g3)) (fn '(c4e4g4a4 a3e4a4g4 d3f3a3c4 g3b3d4f4) '(s 1 2 3 4 q 23 14 e 1 2 3 4)) =>((s c4 e4 g4 a4 q e4g4 c4a4 e c4 e4 g4 a4) (s a3 e4 a4 g4 q e4a4 a3g4 e a3 e4 a4 g4) (s d3 f3 a3 c4 q f3a3 d3c4 e d3 f3 a3 c4) (s g3 b3 d4 f4 q b3d4 g3f4 e g3 b3 d4 f4))

I think when using a pitch for the transpose argument, OM uses pitch-to-integer, so your first example (pitch-transpose 'd3 '(c3 d3 e3 f3)) is actually (pitch-transpose (pitch-to-integer 'd3) '(c3 d3 e3 f3)) ) = (pitch-transpose -10 '(c3 d3 e3 f3)) You are better off writing (pitch-transpose 2 '(c3 d3 e3 f3)) if you want to transpose a second (two steps) up. Jesper You could also create a function that will give you the result you expected. (defun pitch-transp (transpose pitches) (pitch-transpose (first (pitch-to-interval (list (first pitches) transpose))) pitches) ) (pitch-transp 'd3 '(c3 d3 e3 f3)) =>(d3 e3 fs3 g3) (pitch-transp 'd5 '(c4 d4 e4 f4)) =>(d5 e5 fs5 g5)

Not sure, but I think it evolved into split-chord Jesper

Ah, type list. Neat. Jesper

This perhaps (setf Clap2 (loop for i from 0 downto -12 collect (gen-rotate i (pitch-transpose -7 Clap1)))) less calculations: (setf Clap3 (loop with clap = (pitch-transpose -7 Clap1) for i from 0 downto -12 collect (gen-rotate i clap))) Or repeating every pattern 8 times. ((setf Clap3 (omn-to-measure (loop with clap = (pitch-transpose -7 Clap1) for i from 0 downto -12 collect (gen-repeat 8 (gen-rotate i clap))) 6/4)) Jesper

Or '(3q d5 3e b4 eb5 3q b4 s cs5 a5 -e -h)Jesper

It doesn't matter if they get sorted, The F4 needs to be an F5. I don't know if that's possible within the function. Jesper

As Stephane said there is no difference. The F4 is the lowest note. The chord is not sorted. g4bb4d5f4 Jesper

Try length-span Jesper (setf rhy (gen-repeat 8 '(1/8 1/4 1/16 1/16 3/16 1/16 1/1 1/8 -1/8 1/8 1/16 1/16))) (setf mes (gen-repeat 8 '(4/4 6/8))) (setf res (length-span mes rhy))

And ctrl-( and ctrl-) which on a Swedish keyboard is ctrl-shift-8 and ctrl-shift-9 moves to the beginning and end of a list. Jesper

Yes, I like them.

Yes, but macros and backquote are a bit harder to understand. Jesper

;;asign 3 variables a, b, and c to 1, 2 and 3 (setf a 1 b 2 c 3) (list a b c) =>(1 2 3) '(a b c) =>(a b c) Jesper