o_e

Dear Stéphane, Thank you! That helped a little, still not sure what is the difference between partials and frames. I saw that it is possible the resynthesize a sound with CLM, an example would be very helpful. Also I would like to know if its only possible to get tempered pitches out of spectral data, don't know if OM is capable of microtonal MIDI generally (which is a very tricky special beast I think)..? Thanks anyway& all the best ole

To bump my own request, am I the only one who whishes some more simple examples, to understand the 'spectral data '-thing better?

Can you give a small example of how to use the spectral data, how to rebuild a certain sound like the trombone with a piano sound? Thanks!

(chord-pitch-unique chords) => (gs3gs4ds5 ab3gs4) hth!

You surely know that..? http://www.dynamictonality.com/xronomorph.htm Maybe you can get some inspiration from it..

Thanks for the answer! I'am not asking for a release date, practising paitience in the mean time :–)

I'am strongly interested in a C-Sound-like environment in OM! The example above is not working yet, right? Is it possible to load the CLM package myself into OM (to follow the tutorial on the CLM Page)? If yes, how, can you give a brief instruction? Thanks!

how did you found it, it's not documented..? And it works only for binary lists, right?

Thank you!

Hi André Just investigating your function.. Then I've tried a little cosmetic hack to make it more readable, but it did not work out and I don't understand why. What did I overlook? Thanks! ole ;;; the orginal function (defun binary-filter (alist bin-list) (let ((event-list (cond ((omn-formp alist) (single-events alist)) (t alist)))) (flatten (loop for i in event-list for j in bin-list when (= j 1) collect i else append (cond ((omn-formp i) (list (length-invert (car i)))) ((lengthp i) (neg! (omn :length (list i))))))))) (binary-filter '(q c4 mf d4 e4 e f4 ppp g4 a4 b4) '(1 0 1 1 0 1 1)) => (q c4 mf -1/4 q e4 mf e f4 ppp -1/8 e a4 ppp e b4 ppp) ;;;Why is it not working?? (defun foo-rep (n sequence &key omn) (maybe-omn-decode omn (binary-filter n sequence))) (foo-rep '(q c4 mf d4 e4 e f4 ppp g4 a4 b4) '(1 0 1 1 0 1 1) :omn t) -->(q c4 mf -1/4 q e4 mf e f4 ppp -1/8 e a4 ppp e b4 ppp);??

Thank you!

Hi, When I write a file to disk with the plot functions (e.g. pitch-list-plot), and I print out that plot in DIN A4 Landscape size the resolution is poor. Is there a way to change the resolution/size of the .png that is written? Thanks! ole

thanks a lot!

You are welcome! Maybe Janusz can chime in and tell us something about how to handle tied notes in functions like this. I really would like to know that!

Hi Julio, I've found two problems. The weird one you had I think I could find and solve, but the function also does not handle tied notes properly and I have no idea how to remedy that. That goes waay above my hacking abilities :-) (length-staccato 1/16 '((e. c4 eb4 fs4 a4 tie) (s a4 e. cs4 e4 g4 e bb4 tie) (e bb4 e. d4 f4 gs4 s b4))) -->((s c4 -e s eb4 -e s fs4 -e s a4 -e) (s a4 cs4 -e s e4 -e s g4 -e s bb4 -) (s bb4 - d4 -e s f4 -e s gs4 -e s b4)) Nevertheless the code with the one correction, so it's not perfect but maybe somehow useful for you.. best ole (defun length-staccato (n alist) (let ((newlengths (loop for i in (omn :length (flatten alist)) when (> i n) append (list n (* -1 (abs (- i n)))) else collect i))) (if (omn-formp alist) (omn-to-time-signature (make-omn :length newlengths :pitch (omn :pitch alist) :velocity (omn :velocity alist) :articulation (omn :articulation alist)) (get-time-signature alist)) newlengths)))