Jump to content

opmo

Janusz Podrazik
  • Content count

    1,205
  • Joined

  • Last visited

  • Days Won

    188

opmo last won the day on January 16

opmo had the most liked content!

3 Followers

About opmo

  • Rank
    Admin

Contact Methods

  • Website URL
    https://opusmodus.com
  • Skype
    opusmodus

Profile Information

  • Gender
    Male

Recent Profile Visitors

3,939 profile views
  1. group-lst

    The function you are looking for is GEN-DIVIDE
  2. Opusmodus 1.2.22979

    View File Opusmodus 1.2.22972 Optimisation to Pitch Class Set and another fix to QUANTIZE function - all about ties, must difficult part of the quantizer. Example: (quantize (gen-accumulate (gen-repeat 24 0.1)) '(1 2 3 4 5 7 8)) => (5q 5h 5h e e 5w 5q_et e.. q qt qt qs q. q. q.t qs._7h 7wq_q h h h h_7h 7wq_q.t hs.) Submitter opmo Submitted 01/15/2018 Category Opusmodus Latest Release  
  3. The multi screen support will be part of ver. 2.0
  4. 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)
  5. 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")
  6. Quantisation?

    Implemented in version 1.2.22867
  7. Permute Function Question

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

    Today or tomorrow :-)
  10. 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
  11. 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 :-)
  12. L-Lisp

    Could you explain a bit more what you are looking for.
  13. 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)))
  14. This will save a PNG file in the Opusmodus/Graphs folder: (setf length '(q e = s = = = -q e - = s = = -e.) pitch '(c4 cs5 d4 ds5 e4 f5 fs4 g5 gs4 a5 as4 b5)) (length-pitch-list-plot length pitch :file "length-pitch-plot.png") As for the piano roll you will need to create a screenshot with cmd/shift/4.
  15. Congratulation to your book, looks very good. JP
×