Jump to content


  • Posts

  • Joined

  • Last visited

Contact Methods

Profile Information

  • Gender
  • Location
    United States

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. I plan to replace one of the two devices I currently have OM installed on. Do I have to unregister the license on one of the computers? Or is there another way to free one installation and activate it on a new device? Thank you!
  2. Thank you so much! length-staccato was exactly what I was looking for! I appreciate you help and patience with my question.
  3. Thanks, everyone, for your suggestions. I apologize for not being as knowledgeable in lisp programming to figure this out! Most importantly, I'm sorry for not asking my question with more clarity! I want to retain the same measure lengths and shorten the duration of notes by 1/16 so that there's always a 16-note rests at the end of each measure: '((q e3) (q. e3) (q g3) (q d3) (q. a3)) => '((e e3 -e) (e e3 -s) (e g3 -e) (e d3 -e) (e a3 -s)) I would take measure spans from an existing sequence that features a somewhat random pattern of 3/16 and 1/4 measures and then have eighth notes in each bar followed by 16-note or 8-note rests, depending on the measure length. Do you think something like this might be possible! Thank you for your help and patience! Zvony
  4. Thanks, Janusz. This is very helpful! The suggestion you made works. I just wonder if it could be applied to a sequence of alternating 3/8 and 1/4 measures? Something like: (loop for i in '((q e3) (q. e3) (q g3) (q d3) (q. a3)) collect (fit-to-span '(3/8 2/8) i)) Thank you!!
  5. I want to trim every full-duration measure so that it always first starts with a quarter note and fills the rest of the measure with corresponding rests. For example, is it's possible to consider an omn sequence like the one below and trim the durations so that every (firtst) note in a measure is a quarter note followed by a quarter note rest (in 1/4) or a quarter note followed by an eight-note rest (in 3/8)? Thank you! ((e. e3) (e. e3) (q g3) (e. d3) (q a3))
  6. Thank you, all! This is very helpful. The AM solution gave me what I was looking for.
  7. Does anyone know if there's a function that outputs a number of beats from every measure in an omn sequence, given the denominator? For example with the eighth-note denominator, ((-e a3f4d5 q f4d5a5) (q a3e4c5 q e4c5a5) (-e a3g4e5 h g4e5a5)) would output (3, 4, 5). Thank you!
  8. I'm working on a series of piano pieces. Here're two of the movements. Special thanks to Janusz and Stéphane for their invaluable feedback and ideas! Thanks for listening - comments welcome! 1.mp3 3.mp3 - Zvony
  9. (setf exile-chorale (pitch-transpose -3 '(h c4eb4g4 c4d4f4ab4 w bb3d4f4g4 h g3c4eb4 ab3c4d4f4 w g3bb3d4f4 h c4eb4g4c5 d4f4ab4c5 d4g4ab4c5 w d4g4ab4c5 ))) (setf exile-chords (gen-repeat 10 (omn :pitch exile-chorale))) (setf vector-exile-chorale (vector-smooth 0.1 (flatten (vector-round 0.01 1.00 (pitch-to-integer (pitch-demix 1 exile-chords)))))) (list-plot (vector-smooth 0.1 vector-exile-chorale) :join-points t :point-radius 2) (setf inv-num (gen-trim (length exile-chords) '(1))) (setf exile-chords-i (chord-inversion inv-num exile-chords :variant '? :omit '(i ri) )) (setf rh (pitch-transpose 0 (make-omn :length '(e) :pitch (vector-map (pitch-melodize exile-chords-i) vector-exile-chorale) :velocity '(p) :articulation '(leg) :span :pitch))) Thanks, Stephane!
  10. I'm trying to figure out how to span (attach) slurs individually to each measure in a pitch sequence. When I use :articulation key in make-omn, a single slur is spanned from the beginning until the end of the sequence. Here's a short code excerpt in case someone has a suggestion. Perhaps I need to apply vector-map to :articulation? (make-omn :length '(e) :pitch (vector-map (pitch-melodize chords) vector-chords) :velocity '(p) :articulation '(leg) :span :pitch) Thank you!
  11. Thank you both! This is very helpful and informative - I really appreciate!
  12. I wondered if someone would be willing to help me with a snippet of code. I'm trying to generate a series of 100 sublist 2 digit-pairs. The first of those digit-pairs randomly (or according to a predefined vector) alternates between 1 and 2 only: '((1 #) (2 #) (2 #) (1 #) (2 #) (1 #) (1 #) etc). The second of those digit-pairs unfolds numbers from 1 to 100 between every consecutive sub-list pair: '((# 1) (# 2) (# 3) (# 4) (# 5) etc). The result would be something like this: '((1 1) (2 2) (2 3) (1 4) (2 5) (1 6) (1 7) ... (2 100)) Thank you!
  13. I'm working on a piano piece that features two streams of different material in each hand. I want to swap selected measures (in my case, same measures) from right to left hand (e.g., 2nd m in r.h. with 2nd m in l.h., 5th m in r.h with 5th in l.h., etc; or at random, of course). I wondered if there's a function that would accomplish that? Thank you! Zvony
  14. (setf section-1a (counterpoint patterns dictum-1a )) (setf section-1b (counterpoint patterns dictum-1b )) (setf section-1c (counterpoint patterns dictum-1c )) (assemble-voices 'voice section-1a section-1b section-1c)
  15. I'm trying to combine a series of counterpoint dictums into a single dictum list. I tried several things, but can't seem to get it work. Is there a function similar to assemble-seq that could be applied here? Thank you! (setf dictum-1a '(((1 2 3) :methods ( (r ft) (t-12 ft) (dl1 t-12 pr1 ten)))) ) (setf dictum-1b '(((1 2 3) :methods ( (r ft) (t-12 ft) (dl1 t-12 pr2 ten)))) ) (setf dictum-1b '(((1 2 3) :methods ( (r ft) (t-12 ft) (dl1 t-12 pr3 ten)))) ) (setf section-1 (counterpoint patterns dictum-1a ... dictum-1b ... etc? )) (assemble-voices 'voice section-1)
  • Create New...

Important Information

Terms of Use Privacy Policy