opmo

I don't have many recordings from my jazz period; sadly, I can't play you the truly free pieces. But I agree the DADA Quartet is quite wild.

This recording is from 1984, which I found on a very old cassette. Thanks to Jor van der Poel's fix (removing thousands of clicks), I am able to post this short moment here. JP-Sax-1984.mp3

I was wilder on the saxophone back then, but that was in my 20s.

(setf pattern '(q. c4 e e4 q g4 b4)) (setf dictum '((1 - 1) :extend (- - s) :span 8/4 :methods (la2 - (la2 ra t-12)))) (counterpoint (list pattern) dictum)

(setf pattern '(q c4 e4 g4 b4)) (setf dictum '((1 - 1) :span 6/4 :methods (la2 - (la2 t-12 r)))) (counterpoint (list pattern) dictum)

:extend s means adding rest at the beginning if the span is lager then the given pattern. The la2 will double the rests. Nothing wrong with your code and with the result. To see how all this is work I suggest to make a very simple pattern and see how all this is working. (setf pattern '(q c4 e4 g4 b4)) (setf dictum1 '((1 - 1) :extend s :span 6/4 :methods (la2 - (la2 ra t-12)))) (setf dictum2 '((1 - 1) :extend e :span 6/4 :methods (la2 - (la2 ra t-12)))) (setf dictum3 '((1 - 1) :extend s :span 6/4 :methods (la2 - t-12))) (setf dictum4 '((1 - 1) :span 6/4 :methods (la2 - t-12))) (counterpoint (list pattern) dictum1) => (((-q - - - h c4 mf)) ((-q - - - - -)) ((h b3 mf g3 e3))) (counterpoint (list pattern) dictum2) => (((h c4 mf e4 g4)) ((-q - - - - -)) ((-q - - - h b3 mf))) (counterpoint (list pattern) dictum3) => (((-q - - - h c4 mf)) ((-q - - - - -)) ((-q - q c3 mf e3 g3 b3))) (counterpoint (list pattern) dictum4) => (((h c4 mf e4 g4)) ((-q - - - - -)) ((q c3 mf e3 g3 b3 -q -)))

The example of your previous score is correct. Let's check the expression here: #|31|# ((2 - 2) :span 6/4 :methods ((la2 ra) - (la2 ra t-12)) :tempo 112) (setf pat2 '(e f4 p leg e. g4 def e bb4 mp> leg qs b4 def)) (setf 1-step (fit-to-span 6/4 pat2)) => (e f4 p leg e. g4 def e bb4 mp> leg qs b4 p def -h.) (setf 2-step (unfold 'om '(la2 ra) 1-step)) => (-w. he b4 p def q bb4 mp> leg q. g4 p def q f4 leg) (length-span 6/4 2-step) => (-w.) As you can see you need to understand the process of your structure. The (ra) is gen-retrograde, this is why you get (-w) in the first and third voice.

#|31|# ((2 - 2) :extend s :span 6/4 :methods ((la2 ra) - (la2 ra t-12)) :tempo 112) #|32|# ((3 3 3) :extend s :span 3/4 :methods (- - - )) #|33|# ((- 2 - ) :extend s :span 6/4 :methods ((ra la2) (ra la2 ) (ra la2 t-12 )):tempo 112))) Just doing this without testing, but I think this is what you need to do.

Just drop your functions source file into the ~/Opusmodus/ User Source/ Extensions folder. You might have more than one Opusmodus directory on your system.

Update 3.0.29235 fixed the pedal (*) span.

If I make the adjustment to the (*) we get: The SPAN is the master and if not given the longest voice is the master, what ever the augmentation is. If you want true expansion of the augmentation then you need to change (if given) or add a span value (times 2) - this is why there is a span in the counterpoint function. You cound create a patterns before with the augmentation this way you would get what you are looking for without playing with the span.

Looks like the problem here is the pedal notation (*). Will check.

You use in the global methods augmentation, therefore you are changing the size of the bars. The global methods are not design for augmentation, with other words you should not use aug in globals. The good news is I can make the globals work the way you expect and preserve the original or the given span. Note: 1) Not correct: (setf seq1 '(s c4 mf stacc e. cs4 mp ten+def e e4 p leg q. fs4 pp def)) (setf seq2 '(e f4 p leg e. g4 def e bb4 mp> leg qs b4 def)) (setf seq3 '(e. eb4 p leg qs d4 def s gs4 mf leg e. a4 def)) should be: (setf seq1 '((s c4 mf stacc e. cs4 mp ten+def e e4 p leg q. fs4 pp def))) (setf seq2 '((e f4 p leg e. g4 def e bb4 mp> leg qs b4 def))) (setf seq3 '((e. eb4 p leg qs d4 def s gs4 mf leg e. a4 def))) 2) Not correct, you don't have any sequence of sequences: #|11|# ((1 1 1) :sequence (1 2 3) :span nil :methods ((ra la2) (ra la2) (ra la2)):tempo 112)) should be: #|11|# ((1 1 1) :span nil :methods ((ra la2) (ra la2) (ra la2)):tempo 112)) I would advise you to take some lessons with Stephane about the counterpoint.