Jump to content

opmo

Administrators
  • Posts

    2,505
  • Joined

  • Last visited

Everything posted by opmo

  1. This only work on two systems - not on Big Sur and not on Catalina. The latest version you find in the Downloads page.
  2. Mac Apple Silicon first (October). PC version soon after.
  3. The only way would be to install the Demo on a different cpu.
  4. The demo version can't be reset on the demo server.
  5. No crash here (OM 2.2, Big Sur).
  6. Done. (dictum '(:remove e4) '(e c4 d4 e4 fs4 -q)) => (e c4 mf d4 - fs4 -q) (dictum '(:remove -q) '(e c4 d4 e4 fs4 -q)) => (e c4 mf d4 e4 fs4) (dictum '(:apply (length-rest-remove x)) '(e c4 d4 e4 fs4 -q)) => (e c4 d4 e4 fs4)
  7. To get: (dictum '(:apply (length-rest-remove x)) '(w c5 ped -e)) => '(w c5 ped) I would need to make some changes how the dictum deals with rests. I will see what I can do.
  8. dictum is not about changing the length of the bar (time-signature). You can substitute a list in dictum do.
  9. This will be fixed in v. 3.0 For now you must use Mac Speakers.
  10. QUANTIZE returns compound lengths. Example: (setf dur (3w 3q 3wq.)) (quantize dur '(1 2 3 4)) => (q_3q 3q 3q_q.)
  11. Export Last Score to XML... is correct method. Looks like there is a bug when arp-down is used. The arp alone works fine. arp-down etc... is customised attribute and is not a part of the musicxml standard.
  12. Your test.xml file is not the same: sop-rec.xml How to save musicxml file: 1. click on the musicxml panel (file) 2. In File menu select "Safe As..."
  13. I don't see any missing notes here: OM Notion
  14. This will fix if length-rest list: (defun split-point (split-points omn-seq) (do-verbose ("split-point") (let* ( (spltconvert (if (numberp (car split-points)) split-points (pitch-to-integer split-points))) (spltp (gen-trim (length omn-seq) spltconvert)) (p1 (loop for sp in spltp for l in omn-seq collect (if (length-restsp l) l (ambitus-filter `(,sp 128) l)) )) (p2 (loop for sp in spltp for l in omn-seq collect (if (length-restsp l) l (ambitus-filter `(-128 ,(- sp 1)) l)) )) ) (list p1 p2))))
  15. You can, just open 2 or more workspace and placed them next to each other and hide the panels you do need.
  16. We have started porting Opusmodus to LispWorks. The Apple Silicon processor support is on its way Windows PC version will follow.
  17. Possible solution: (setf rhy '((e a4 mf -e - gs4 f -e - g4 p -e -) (-e a4 p -e - gs4 -e - e4 -))) (ps 'gm :treble (list rhy) :rewrite-lengths nil :merge-rests nil :time-signature '((3 3 3) 8))
  18. Here it is with seed: fill-space.opmo
  19. More control: (twelve-tone-matrix '(3 11 10 2 1 0 6 4 7 5 9 8)) Original Prime Order: (3 11 10 2 1 0 6 4 7 5 9 8) Pitch: (eb4 b4 bb4 d4 cs4 c4 fs4 e4 g4 f4 a4 gs4) I 0 8 7 11 10 9 3 1 4 2 6 5 0 3 11 10 2 1 0 6 4 7 5 9 8 4 7 3 2 6 5 4 10 8 11 9 1 0 5 8 4 3 7 6 5 11 9 0 10 2 1 1 4 0 11 3 2 1 7 5 8 6 10 9 2 5 1 0 4 3 2 8 6 9 7 11 10 P 3 6 2 1 5 4 3 9 7 10 8 0 11 R 9 0 8 7 11 10 9 3 1 4 2 6 5 11 2 10 9 1 0 11 5 3 6 4 8 7 8 11 7 6 10 9 8 2 0 3 1 5 4 10 1 9 8 0 11 10 4 2 5 3 7 6 6 9 5 4 8 7 6 0 10 1 11 3 2 7 10 6 5 9 8 7 1 11 2 0 4 3 RI (setf array (build-array (row-matrix '(3 11 10 2 1 0 6 4 7 5 9 8)))) (get-array 11 7 6 array :direction 'right) => (11 2 0 4 3 10) (get-array 11 7 6 array :direction 'up) => (11 10 2 0 3 1)
  20. Convert the pitch list to intervals, remove the unwanted intervals, then back to pitches. (setf pitches '(g0 fs1 e2 bb4 eb3 e3 fs3 a4 b3 d4 e4 fs4 g4 a5)) (setf intervals (pitch-to-interval pitches)) => (11 10 30 -19 1 2 15 -10 3 2 2 1 14) (setf new (filter-remove '(2 19 30) intervals)) (interval-to-pitch new :start 'g4) => (g4 fs5 e6 a4 bb4 cs6 eb5 fs5 g5 a6) or (interval-ambitus 11 '(g0 fs1 e2 bb4 eb3 e3 fs3 a4 b3 d4 e4 fs4 g4 a5))
  21. You will not use a DICTUM function for it.
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy