Jump to content


Janusz Podrazik
  • Content count

  • Joined

  • Last visited

  • Days Won


Everything posted by opmo

  1. Error: there is no controller named: cc20

    The display of the two examples is correct. The Ped is a default controller and can't be overwritten. How to use controllers as program changes please check the "VSL Cello Solo" file.
  2. Error: there is no controller named: cc20

    The controllers you are using in the program are missing: :group Matrix cc1 1 cc20 20 cc21 21 cc22 22 This should fix the problem.
  3. Opusmodus 1.2.23126

    View File Opusmodus 1.2.23126 Change to MELODIZE-TO-LENGTH function. The functions now is working with omn sequence. Examples: (setf sequence '((e fs3c5 p s f4cs4) (s fs4cs4 p c5fs3eb4 a3c5as4 a4e4fs3))) (melodize-to-length 1/16 1/8 sequence) => ((e fs3 p s f4) (s fs4 p c5 a3 a4))  (melodize-to-length 's 's sequence) => ((e fs3c5 p s f4) (s fs4 p c5 a3 a4))  (melodize-to-length 's 's sequence :select 'e) => ((e fs3c5 p s cs4) (s cs4 p eb4 as4 fs3))  (melodize-to-length '(e s) '(e q) sequence) => ((e fs3 p s f4cs4) (s fs4 p c5 a3 a4))  (melodize-to-length '((e s)) '((e q)) sequence) => ((e fs3 p s f4cs4) (s fs4cs4 p c5 a3 a4e4fs3))  or ((e fs3 p s f4) (s fs4cs4 p c5fs3eb4 a3 a4e4fs3)) or ((e fs3 p s f4cs4) (s fs4 p c5 a3 a4)) ... (melodize-to-length '((e s)) '((e q)) sequence :select '? :seed 12) => ((e fs3 p s cs4) (s cs4 p c5 c5 a4e4fs3))  (melodize-to-length '((e s)) '((e q)) sequence :section 1 :seed 45) => ((e fs3c5 p s f4cs4) (s fs4 p c5fs3eb4 a3 a4e4fs3))  Submitter opmo Submitted 03/15/2018 Category Opusmodus Latest Release
  4. VSL SE & SE Plus def-scores

    Thank you Jamil, I am sure many users will find the presets useful indeed.
  5. Playback of articulations

    Done. 1.2.23108
  6. Done. The legato (leg) attribute duration is extended with 1/256 value, this will produce tiny overlap. 1.2.23108 Janusz
  7. In 1.2.23106 I made few correction to the accents relative duration. Only stacc and stacs is a bit shorter now, all other accents will not change the midi duration. Janusz
  8. Quantization

    Thank you Yuichi for sharing, great piece, I am very happy to see Opusmodus is able to help you realise your ideas.
  9. Playback of articulations

    Will see what I can do.
  10. We will add this, I love it too :-)
  11. Interesting proposition. I am in a country for a few days, back in my studio next week.
  12. Nuit d'hiver For Woodwinds

    Wonderful piece!
  13. group-lst

    The function you are looking for is GEN-DIVIDE
  14. The multi screen support will be part of ver. 2.0
  15. euclidean to interval

    PATTERN-MAP (pattern-map '((1 0) 2) (gen-binary-euclidean 1 14 8 8)) => (2 1 2 2 2 1 2 2)
  16. The best way is to print the graph is to print directly form the graph panel. Gen your graph then click on the graph panel and command print, this way you will get high resolution print. Or save the file as pdf file (the default is .pdf): (length-list-plot (vector-to-length 8 8 -8 (gen-white-noise 100)) :file "vector-length")
  17. Quantisation?

    Implemented in version 1.2.22867
  18. Permute Function Question

    as well: (find-unique (sort-asc (combination 3 (pcs '6-1))))
  19. Looks good :-) added 3 minutes later This icon allows you to post code: Then in the window choose "No Syntax Highlighting"
  20. Modulo 12 Function ?

    Today or tomorrow :-)
  21. Quantisation?

    Few QUANTIZE examples: (setf val1 (gen-white-noise 19 :seed 56)) => (0.42731586 0.21048035 0.14944322 0.05199222 0.33933866 0.8851649 0.93565786 0.93476516 0.3839242 0.03127964 0.39819628 0.18478736 0.9568939 0.6663358 0.26542348 0.4052874 0.68264747 0.95090246 0.12790146) (quantize val1 '(3 5 7)) => (7h. 7q 7q 7q 7q_3q 3h_t e. t_e.. t_s t s. t t_5w 5q_e s s_5q 5h. 5q_e. s) (setf val2 (gen-white-noise 19 :scale 2.2 :seed 875)) => (0.5896695 1.3854954 1.7601246 0.15660097 1.0577743 2.005573 0.8151905 0.83697665 0.17089269 1.5035293 0.97181803 0.54288834 1.810276 1.551678 2.1626956 0.7790575 1.5867842 1.6030518 1.3905888) (quantize val2 '(3 5 7)) => (e e_e.. t_q_7wq 7q 7q_e.. t_q_e.. t_3h 3q_e s s_q_e e_s e s_q_e e_q_s e._q_e e_5q 5w_e e_q_e e_q) (setf val3 (vector-range -1.0 1.0 (gen-white-noise 19 :seed 154))) => (-0.24158841 -0.9634026 -0.99552864 -0.4178778 0.9713292 -0.58351946 -0.77635634 0.532539 0.4349326 -0.85446167 -0.9610649 -0.9799211 1.000001 -0.4322123 0.3123653 -1.0 0.74611676 0.66992795 -0.034718752) (quantize val3 '(3 5 7)) => (-3q -3h -3q -3h -3q -3q 3q_e -e -7q -7wq 7q_3q 3q -3q -3h -3q -e -e -e e_e -e -s s -e -e e_e e) Best wishes, J
  22. Quantisation?

    Achim Bornhoeft and I we had a brain storming session on quantisation here in Venice for two days. The code will be ready for testing in few days. The holidays might delay the release a bit. The test are already very promising :-)
  23. The first thing you need to do is to create a source file (.opmo or .lisp). Give the file a name eg. Custom functions.opmo. This file will now be the source file for your functions, make sure the functions are working and that there are no errors. Save the file into the ~/Opusmodus/Extensions folder. The next step is to document the functions that you have created. Go to the ~/Opusmodus/System Library folder and create a new folder for example Custom Function. This folder is where you will place your (TextEdit) .rtfd system library documents (the best way to create a new document is to copy the contents of one of the System Library’s documents and paste it into the newly created .rtfd file). Now replace the function name i.e. variables, values etc… with your own examples and documentation. Each function must have its own document. Place the documents into the ~/Opusmodus/System Library/Custom Function folder. The last step is to create a new file that must be named contents.opmo and place it into the same folder. The form of the contents.opmo file should be written as follows: ;;; Custom functions (foo1 "here you write short note about the foo1 function") (foo2 "here you write short note about the foo2 function") The next time you start the application you should be able to use and see your function documents in the ’System Library’ utilities panel.
  24. L-Lisp

    Could you explain a bit more what you are looking for.
  25. tonality-map arguments

    (setf g-tonality (tonality-series '( (0 3 5 7 10)) :map '(step) :root '(8 11 4 7 0 4 11 4 7 0 3 8 0 7 0 4 11 4 8 3 8 0 7 0 8 3)))