o_e

Hi, I'am working with some excerpts of a score from Franco Donatoni's "Françoise variantionen". (a5cs6f6fs6g6) The respell version is a little better. Ricordi goes a special way in the original. I'am aware that this is a very special case and not very urgent to change. Just for the records. best, ole

Hi, I want to make the following construction: (defun mapping-integers (x y) (interval-to-pitch (integer-to-interval x) :start y)) (mapping-integers '(0 4 5 9 11) 'c5) I get an error-warning having the wrong start parameter, how could this be done? I have a list of integers (0 4 5 9 11) and a list of root notes (c5) and want them to process to get lists like (c5 e5 f5 a5 b5).. ole

This helped me a lot, thank you very much!! ole

to answer my own post: I just have to flatten one of the lists (in my case the pitchlist).. Ever so easy. Sorry for the noise!! ole edit: that is true for my material, but the material and the retrograde of the material delivers a strange result. What is wrong about my retrograde construction? Please take a look at my code, thanks (setf pitches '(eb4f4 eb4f4 eb4f4 f4g4 f4g4 f4g4 f4g4 f4g4 eb4f4 eb4f4 eb4f4 e4fs4 e4fs4 e4fs4 e4fs4 eb4f4 eb4f4 eb4f4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 d4e4 d4e4 g4a4 g4a4 g4a4 g4a4 g4a4 g4a4 g4a4 e4fs4 e4fs4 e4fs4 e4fs4 d4e4 d4e4 eb4f4 eb4f4 eb4f4 e4fs4 e4fs4 e4fs4 e4fs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 e4fs4 e4fs4 e4fs4 e4fs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 f4g4 f4g4 f4g4 f4g4 f4g4 e4fs4 e4fs4 e4fs4 e4fs4 d4e4 d4e4 d4e4 d4e4)) (setf rhy '((1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16))) (make-omn :length rhy :pitch pitches :span :length) first 3 bars: ((s eb4f4 eb4f4 eb4f4) (-s - -) (s f4g4 f4g4 f4g4 f4g4 f4g4)) fine (setf back-and-forth-p (assemble-seq pitches (reverse pitches))) (setf back-and-forth-rh (assemble-seq rhy (reverse (butlast rhy)))) (make-omn :length back-and-forth-rh :pitch back-and-forth-p :span :length) first 3 bars: ((s eb4f4 eb4f4 eb4f4) (-s - -) (s d4e4 d4e4 d4e4 d4e4 e4fs4)) why?

To retrieve my honor :-) - I did flatten the lists for pitches and lengths on purpose- I need some trials to get that the syncing of the lists in 'make-omn' goes between (sub-)list and (sub-)list. I was thinking that the 'bracket bounderies' of the non focused (not spanned) sublists would be ignored. Now that I've learned that (thanks to your kind and quick answers) I will change my constructions accordingly. My apologizes for getting on your nerves (also in advance :-)) thanks! ole Example: (setf pitches '((c4 d4 e4 f4) (g4 a4 b4 c5))) (setf rhy '((1/4 1/4 -1/4) (1/4 1/4 -1/4) (1/4 1/4 -1/4) (1/4 1/4 -1/4))) ; c d e f g a b c (make-omn :length rhy :pitch pitches :span :length) => ((q c4 d4 - e4 f4) (q g4 a4 - b4 c5)) ; :span :pitch => ((q c4 d4 -) (q g4 a4 -) (q c4 d4 -) (q g4 a4 -)) ; :span :length what I was expecting was: ((q c4 d4 - e4 f4) (q - g4 a4 -) (q b4 c5 - -))

Thanks for the feature and I will examine TONALITY-MAP and TONALITY-SERIES.

Thanks for the help!! I did type 'reverse' in the searchfield on the right and only 'nreverse' shows up. So I used it. Maybe it is good if 'reverse' and 'gen-retrograde' are also listed if one types the keyword 'reverse'..? And the rightclick/Notation OMN result (of 'make-omn') looks strange (see pict) while the result of def-score gives a correct notation, the abilily of 'Notation OMN' is limited I assume..(no problem, just good to know)?

Can you please take a look at my code, when I copy the results of 'tonhoehen' and 'sechzentel' into seperate setf's than the result is as it should be, I'am stuck.. Thanks for help, ole Code: (setf primzahlen-ab-drei (cdr (primes 8))) (setf pausen (gen-repeat (length primzahlen-ab-drei) '(-3))) (setf values (flatten (gen-mix primzahlen-ab-drei pausen))) ;(setf laenge (apply '+ primzahlen-ab-drei)) => 75 (defun make-pattern (n) (cond ((equal n 0) nil) ((minusp n) (list '-1/16 '-1/16 '-1/16)) (t (cons '1/16 (make-pattern (- n 1)))))) (setf sechzentel (flatten (mapcar #'make-pattern values))) (setf hin-u-zurueck-rhy (assemble-seq sechzentel (nreverse (butlast sechzentel)))) (setf modulationen '(3 5 3 4 3 6 2 7 4 2 3 4 6 4 6 5 4 2 2)) ;(apply '+ modulationen) => 75 (defun make-pitch (n) (cond ((equal n 0) nil) (t (cons 'c4d4 (make-pitch (- n 1)))))) (setf modu2 (mapcar #'make-pitch modulationen)) (setf tonhoehen (flatten (pitch-transpose modulationen modu2))) (setf hin-u-zurueck-toene (assemble-seq tonhoehen (nreverse tonhoehen))) (make-omn :length tonhoehen :pitch sechzentel) result of 'tonhoehen' and 'sechzentel' copies in setf's - works fine: (setf pitches (flatten '((eb4f4 eb4f4 eb4f4) (f4g4 f4g4 f4g4 f4g4 f4g4) (eb4f4 eb4f4 eb4f4) (e4fs4 e4fs4 e4fs4 e4fs4) (eb4f4 eb4f4 eb4f4) (fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4) (d4e4 d4e4) (g4a4 g4a4 g4a4 g4a4 g4a4 g4a4 g4a4) (e4fs4 e4fs4 e4fs4 e4fs4) (d4e4 d4e4) (eb4f4 eb4f4 eb4f4) (e4fs4 e4fs4 e4fs4 e4fs4) (fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4) (e4fs4 e4fs4 e4fs4 e4fs4) (fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4 fs4gs4) (f4g4 f4g4 f4g4 f4g4 f4g4) (e4fs4 e4fs4 e4fs4 e4fs4) (d4e4 d4e4) (d4e4 d4e4)))) (setf rhy (flatten '((1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (-1/16 -1/16 -1/16)))) (make-omn :length rhy :pitch pitches)

Hi, Do the lists for pitches and lengths have to be of the same sublists (do the sublists have to have the same length)? e.g.: (setf pitches '((c4 d4 e4) (f4 g4 a4 b4))) (setf pitches2 '((c4 d4) (e4 f4) (g4 a4) (b4))) (setf rhy '((1/4 1/4 -1/4) (1/4 1/4 -1/4) (1/4 1/4 -1/4) (1/4))) (make-omn :length rhy :pitch pitches) this does not work, with 'pitches2' it works fine.. so I have to be aware that my sublists are 'in sync' and use 'flatten' if my sublists are different..? ole

Which document I should read? I read already modes.opmo and library.opmo and Using Modes Library.opmo (with Stephane pasted me in the forum).. none of these files answer my simple question: When I evaluate (library 'slonimsky 'tritone 's10d) => (c5 b4 gs4 fs4 f4 d4) but (library 'modes 'pentatonic 'pentatonic) => pentatonic ..instead of pitches. Can someone please give a simple example how one can get pitches from the modes library- than I probably can explore it further myself thanks! ole

Thanks for the example. What I'am looking for ist how to transform the content of (:section messiaen messiaen-mode1 'messiaen-mode1) into something like (c4 d4 e4 fs4 gs4 bb4) to see if this is meant by 'messian-mode1, I know by chance what messiaen mode1 presumably is but I'am lost about (:section peruvian peruvian-pentatonic1 'peruvian-pentatonic1) for example.. ole

Thanks Stéphane, but the major scale was just an example, what I want to know is how can I use the modes library..

Hi, (library 'modes 'major 'major) => major (expand-libraries '(library modes major major)) => major I stumbled over the same problem: How can I retrieve the mode pitches from a library? When I evaluate the given examples they return only the name of the mode but I want e.g. (c4 d4 e4 f4 g4 a4 b4). I assume I have to enter a starting pitch and make a call :pitch, but how exactly does it work ? thanks ole

As far as I know 'Soundflower' provides the same functionality as 'Jack' As a workaround maybe you can try soundflower (the link does not work, so please google it yourself, it is hosted by rogueamoeba.com now)? And maybe it is good to check if soundflower also causes problems? best ole

ah, great, thanks!

Hi, I have a small suggestion concerning MAKE-SCALE: It would be a nice extension, if one can use lists in :alt would be an easy way to construct symmetric scales and more complex sieves. simple example: (make-scale 'c3 8 :alt '(1 2)) => (c3 cs3 eb3 e3 fs3 g3 a3 bb3) same as: (flatten (list (gen-mix (make-scale 'c3 4 :alt 3) (make-scale 'cs3 4 :alt 3)))) => (c3 cs3 eb3 e3 fs3 g3 a3 bb3) Happy New Y(ear)(s)! ole

ok, that did the trick! Is there a gm sound list somewhere inside om? My list was from wikipedia and started with 001.. Solved. thanks!

Thanks for the insight- I also own the VSL-Prepared-Piano-Library, so that will be handy later. I'am still struggling with the names vs numbers thing: On my machine the following code is playing two different sounds, only the latter the grand-piano sound. Can you please eval the snippet and report back if it works fine? A while ago Stephane posted a new 'better' gm-library here in the forum and installed it (without thinking). Maybe thats the source of trouble..? (setf oben '((q e5 f5 g5 e f5 q d5) (q e5 f5 g5 g5 a5 g5 a5 g5 e f5 q f5 g5 a5 e g5 q f5 e5 d5 e5))) (setf unten '((-q) (q e5 f5 g5 e f5 q d5) (q e5 f5 g5 g5 a5 g5 a5 g5 e f5 q f5 g5 a5 e g5 q f5 e5 d5 e5))) (def-score ancient (:key-signature '(c maj) :time-signature '((9 8 1) (6 4 1) (9 8 1)) :tempo 40 ) (oben :omn oben :channel 1 :sound 'gm :program 1) (unten :omn unten :channel 2 :sound 'gm :program 'acoustic-grand-piano))

Thanks for the quick answer, can you provide an example with the number, I did not get it to work last night.

Hi, I have a rather simple question: Inside a DEF-SCORE, when I use :sound 'gm, is it possible to define the program by number instead of the name, e.g. using 1 or 001 instead of :program 'acoustic-grand-piano? thanks! ole

Thanks Stéphane! ole