Jump to content

opmo

Administrators
  • Content Count

    2,242
  • Joined

  • Last visited

4 Followers

About opmo

  • Rank
    Admin

Contact Methods

Profile Information

  • Gender
    Male

Recent Profile Visitors

9,905 profile views
  1. Looks like the test variable was use with different data. Bug report needs to be reproducible.
  2. Is fixed already with FT function inside - next update. (ft '(1 3 6..9 11)) => (1 3 6 7 8 9 11) (ft '0..12) => (0 1 2 3 4 5 6 7 8 9 10 11 12) (ft '0..-12) => (0 -1 -2 -3 -4 -5 -6 -7 -8 -9 -10 -11 -12) (ft '(1 3 6..9 11)) => (1 3 6 7 8 9 11) (ft '(0..12 11..0)) => (0 1 2 3 4 5 6 7 8 9 10 11 12 11 10 9 8 7 6 5 4 3 2 1 0)
  3. It flatten the lists after I added the events here. Will add a condition to fix this.
  4. Depends on what you want to do with the generated material. Useful function: unfold, omn-dictum, find-bar, position-item, position-replace, position-swap Many functions allow you to edit selected bars: :section (numbers) (pprint-last-score) could help as well with bar numbers. Enable 'Bar Number Display' in the Preferences/Notation
  5. – New Function: BAR-TO-SEC - converts bar span to seconds values. – Revision: OMN-DICTUM - changed to dictum grammar, additional functionality – Fixed: OMN-REPLACE - ignored tie attribute when edition articulations. OMN-DICTUM (revision) (:all <value>) replaces all values of its type with a new value. (<value><value>) replaces a value with a new one if found. ((:values <values>) <value>) replaces values with a new one if found. (:remove <value>) removes a value from the sequence if found. (
  6. list of lists: (setf chorales-reservoir (list chorale1 chorale2)) solution: (setf chorales-reservoir (append chorale1 chorale2)) or: (setf chorales-reservoir (list chorale1 chorale2)) (setf chorales-map (assemble-seq (vector-map chorales-reservoir '(0 4 7 12 16 7 12 16))))
  7. Check the examples in the doc. (do-timeline2 '(afl cl bcl hn vn vc) '((1 0 1 0 1 1 0 0 1 0 1 0 1 0 1 0 1 1 0 0 1 0 1 0) (0 1 0 1 1 0 1 0 0 1 0 1 0 1 0 1 1 0 1 0 0 1 0 1) (1 1 0 1 1 0 1 0 0 1 0 1 1 1 0 1 1 0 1 0 0 1 0 1) (1 0 1 1 0 1 0 1 1 0 1 0 1 0 1 1 0 1 0 1 1 0 1 0) (0 1 1 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 1 0 0 1 0 1) (0 1 1 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 1 0 0 1 0 1)) '(gen-pause x) :time '(q h) :loop t) For one voice I would simply use gen-pause function.
  8. (setf rh1 '(q g4 b4 cs5)) (setf rh2 '(e c4 d4 e4 f4 g4 a4)) (setf lh1 '(q b3 a3 g3)) (setf lh2 '(e g3 f3 e3 d3 c3 d3)) (def-score merge-voices (:composer "Mike Mossey" :key-signature '(c maj) :time-signature '((1 1 1) 3) :ignore-velocity t :ignore-tempo t :tempo '((75 1)) :layout (piano-solo-layout '(rh1 rh2) '(lh1 lh2))) (rh1 :omn rh1 :channel 1 :sound 'gm :program 'acoustic-grand-piano :volume 127 :pan 64 ) (rh2 :omn rh2) (lh1 :omn lh1) (lh2 :omn lh2) )
  9. You should have received it by now. Thank you for your patience.
  10. Emacs is not supported by Opusmodus. The instructions we gave are to help hackers to make it work by themselves.
  11. Remove the q length from the pitch list. RND-PICK returns an atom, therefore you need to add a LIST. (setf rv1 '(w s s s qs -q s s s s -q -q -q -q q -q -q h -q h. -e. s s s s s s e s -s q.. -q)) (setf len-map1 '((e (stacc)) (s (ord)) (h (long)) (h. (long)) (w (long)))) (setf len-map2 '((e (list (rnd-pick '(f ff)))) (s (mf)) (e. (mf)) (h (p<f)) (h. (p<f)) (w (p<f)))) (setf vh1 (make-omn :length rv1 :pitch v1 :span :pitch)) (length-map len-map1 vh1 :otherwise '(ord) :repeat t) (length-map len-map2 vh1 :otherwise '(mf) :repeat t)
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy