Jump to content

jesele

Members
  • Joined

  • Last visited

  1.    jesele reacted to a post in a topic: Opusmodus 4.0.29978 (Update)
  2.    jesele reacted to a post in a topic: Slim/Swank/Emacs is back
  3.    jesele reacted to a post in a topic: Csound experiments in Opusmodus
  4.    jesele reacted to a post in a topic: Opusmodus 4.0 (Upgrade)
  5.    Cliff reacted to a post in a topic: polygon-rhythm & circle-rhythm-plot
  6. Try (circle-rhythm-plot rhy-1 :points 12 :value 1/12) Jesper
  7. 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
  8. 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))
  9.    jesele reacted to a post in a topic: Constraint Programming in Opusmodus
  10.    jesele reacted to a post in a topic: Constraint Programming in Opusmodus
  11. 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)
  12.    RST reacted to a post in a topic: reconstruct-to-piano
  13. Not sure, but I think it evolved into split-chord Jesper
  14. 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
  15.    jesele reacted to a post in a topic: Native Plug-In Support?
  16.    opmo reacted to a post in a topic: OMN triplets
  17. Or '(3q d5 3e b4 eb5 3q b4 s cs5 a5 -e -h)Jesper
  18. 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
  19. As Stephane said there is no difference. The F4 is the lowest note. The chord is not sorted. g4bb4d5f4 Jesper
  20. 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))
  21. 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
  22.    Stephane Boussuge reacted to a post in a topic: looping get-events of bar n
  23. Yes, but macros and backquote are a bit harder to understand. Jesper
  24.    EAIP reacted to a post in a topic: looping get-events of bar n
  25. ;;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

Copyright © 2014-2025 Opusmodus™ Ltd. All rights reserved.
Product features, specifications, system requirements and availability are subject to change without notice.
Opusmodus, the Opusmodus logo, and other Opusmodus trademarks are either registered trademarks or trademarks of Opusmodus Ltd.
All other trademarks contained herein are the property of their respective owners.

Powered by Invision Community

Important Information

Terms of Use Privacy Policy