Jump to content

born

Members
  • Posts

    78
  • Joined

  • Last visited

Everything posted by born

  1. Hi, is it possible to write chords with different noteheads? I am trying to find a workaround for the missing flageolet notation, see attachment. Thanks for help. Best, Achim
  2. Perfect. I missed this one ... Thanks a lot. Achim
  3. Has anybody an idea how to formalize the following task? A list of 4 sublists with 2 elements: '((1 2) (3 4) (5 6) (7 8))) ==> All the possible combinations of either one or the other number in the sublist: '( (1 3 5 7) (1 4 5 7) (1 3 6 7) (1 4 6 7) (1 3 5 8) (1 4 5 8) (1 3 6 8) (1 4 6 8) (2 3 5 7) (2 4 5 7) (2 3 6 7) (2 4 6 7) (2 3 5 8) (2 4 5 8) (2 3 6 8) (2 4 6 8) ) Did I miss a combination? Thanks for help. Achim
  4. Thanks for the hint. Now I have to find a way to map the controller data to any automation parameter (volume, pan, etc.) At the moment I just get a Midi track with a lot of c4's ... Any ideas? Achim
  5. Hi, how can I convert this to an automation file in Midi to import it to a DAW? (Thanks to Tibor for the code ) Achim (setf b-amp-values1 (mod-sine-waves 4 1000 0.6 1 :phase -40 :modulation (gen-sine 700 2.5 1.2))) (list-plot b-amp-values1) (defparameter values-aligned (loop for i in b-amp-values1 collect (* 64 (+ i 1)))) (setf midi-test (gen-controller 1 values-aligned :time 1/1000)) (setf boolean-pitch (append '(q) (gen-repeat (length midi-test) 'c4))) (def-score midi-test (:title "score title" :key-signature ' chromatic :time-signature '(4 4) :tempo 120) (instrument :omn boolean-pitch :channel 1 :sound 'gm :program 'acoustic-grand-piano :controllers (1 midi-test)))
  6. I would suggest to add a keyword :sum to the function scale-numbers.
  7. No. The function which does something like this: ;; scale all numbers of lst that the sum of lst is 25 (setf lst '(1 2 3 4 5)) (setf list-sum (sum lst)) (setf scale 25) (setf result1 (loop for i in lst collect (* 1.0 (* scale (/ i list-sum))))) ;; test (sum result1) (setf result2 (loop for i in lst collect (round (* 1.0 (* scale (/ i list-sum)))))) ;; test (sum result2)
  8. Hello people, again struggling to find the name of the function which ranges all values in a list to a specific sum of the list. Any help?
  9. Hello, does anybody have a short hint how to notate this two double stop notations with 2 voices. (I know, there is no flageolet notehead in OM. I could use a cross and replace it in a notation program.) Thanks, best, Achim
  10. Is this calculation really reflecting the brownian motion at the limits before a new step is calculated or it is just mapping the result into a specified range?
  11. Thats a good start. Now, how can I map the brownian motion to a tendency mask?
  12. Is there any possibility to force a brownian motion to be reflected within a lower and an upper (maybe even changing) limit? Thanks for suggestions. Achim
  13. Hi all, is there a function/ method to merge several rhythms into one which is displaying all the onsets of these rhythms. Here the first two systems are merged into the third. Thanks for help. Achim
  14. Does anybody have an idea, how to sample x equidistant values from an env like xy-plot? (xy-plot '((2 0) (3 1) (5 1) (7 2) (11 3) (13 5) (17 8) (19 13) (20 21)) :join-points t :point-radius 2 :style :axis :point-style :square) For example 10 values from this graph:
  15. That looks really good. Thanks a lot. Achim
  16. 0 1-amp-env 1 11000; 11000 1-amp-env 1 6000; 6000 1-amp-env 0.2 10000; 10000 1-amp-env 1 5000 should change to 0 1-amp-env 1 22000; 22000 1-amp-env 1 12000; 12000 1-amp-env 0.2 20000; 20000 1-amp-env 1 10000 These are sequencer files from Puredata in which I'd like to change the timestamps in msecs to double time. Input is a txt document and the output should be a txt document as well. The reason for this approach is that I have quite a few of this files to change ...
  17. Does anybody have an idea, how to loop through a directory and writing the content of a textfile (like the one attached) without the semicolons into normal lists? Thanks for help. Achimch1-amp-envs.txt
  18. A nice one! There is no documentation in OM about this, only the function description (ctrl-y)
  19. Is there a function that returns all intervals from a chord? Thanks, Achim
  20. And what about (loop for i in '(4 3 6 1 2 5) collect (* i 100)) ?
  21. Is there a shorter way to write this in OM? (loop for i from 1 to 9 collect (* 100 i))
  22. Sometimes its correct, sometimes not ... Did you tried it with my seed? What was your result?
  23. Something like this: (defparameter durations '(15/16 15/32 1/32 1/32 1/32 61/32 1/32 1/2 1/32 5/32 1/32 13/16 17/32 3/2 9/16 7/16)) (defun length-to-rnd-rest (numb dur-lst) (let* ((llst (- (length dur-lst) 1)) (minnumb (min numb llst)) (posns (sort-asc (rnd-unique minnumb (gen-integer 0 llst))))) (loop for i in dur-lst for j from 0 collect (if (member j posns) (* -1 i) i )))) (length-to-rnd-rest 5 durations) I get only 4 rests in this example: (defparameter durations '(15/16 15/32 1/32 1/32 1/32 61/32 1/32 1/2 1/32 5/32 1/32 13/16 17/32 3/2 9/16 7/16)) (length-invert durations :section (rnd-sample 5 (gen-integer 0 (1- (length durations))) :norep t :seed 4)) ;; => (15/16 15/32 1/32 1/32 1/32 61/32 1/32 1/2 -5/32 -13/16 1/32 -9/16 17/32 3/2 -1/32 7/16)
  24. Is there a function with which I can change randomly a defined number of lengths in a list to rests? Thanks, Achim
  25. I think, they should be usable for copy & paste. Its probably a common use to copy extracts from the documentation for further coding, don't you think? Achim
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy