# NagyMusic

Members

76

• Website URL

## Profile Information

• Gender
Male
• Location
United States

## Recent Profile Visitors

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

1. ## Unregistration?

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. ## length-trim measures with rests

Thank you so much! length-staccato was exactly what I was looking for! I appreciate you help and patience with my question.
3. ## length-trim measures with rests

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. ## length-trim measures with rests

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. ## length-trim measures with rests

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. ## Number of beats per measure

Thank you, all! This is very helpful. The AM solution gave me what I was looking for.
7. ## Number of beats per measure

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. ## Visions Fugitives

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. ## Span Slurs to Measures

(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. ## Span Slurs to Measures

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. ## Pairs of digits as sublists?

Thank you both! This is very helpful and informative - I really appreciate!
12. ## Pairs of digits as sublists?

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. ## Swap selected measures among voices?

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. ## Concatenated Counterpoint Dictums

(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. ## Concatenated Counterpoint Dictums

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)
×

• Lessons
• #### GUI

• Clubs
×
• Create New...