-
-
-
-
-
-
polygon-rhythm & circle-rhythm-plot
Try (circle-rhythm-plot rhy-1 :points 12 :value 1/12) Jesper
-
jesele reacted to a post in a topic: Pattern from a chord based on the position of each note in a chord.
-
Pattern from a chord based on the position of each note in a chord.
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
-
Pattern from a chord based on the position of each note in a chord.
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))
-
-
-
jesele reacted to a post in a topic: An expression of "ambient chamber music" for a trio of flute, 'cello and harp.
-
unexpected results with pitch transpose
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)
-
-
reconstruct-to-piano
Not sure, but I think it evolved into split-chord Jesper
-
-
Is there a rotation function for minimalist effects?
Ah, type list. Neat. Jesper
-
Is there a rotation function for minimalist effects?
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
-
-
-
OMN triplets
Or '(3q d5 3e b4 eb5 3q b4 s cs5 a5 -e -h)Jesper
-
diatonic-chord
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
-
diatonic-chord
As Stephane said there is no difference. The F4 is the lowest note. The chord is not sorted. g4bb4d5f4 Jesper
-
opmo reacted to a post in a topic: Function to divide a serie of lengths into a user defined mesure signature
-
Function to divide a serie of lengths into a user defined mesure signature
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))
-
Move cursor to end of code line
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
-
- looping get-events of bar n
- looping get-events of bar n
-
- looping get-events of bar n
jesele
Members
-
Joined
-
Last visited