Jump to content

terekita

Members
  • Content Count

    15
  • Joined

  • Last visited

About terekita

  • Rank
    Junior Member

Profile Information

  • Gender
    Male

Recent Profile Visitors

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

  1. Ah, looks like omn-merge-ties is my friend here...
  2. Hello, For various reasons, I need to start with rhythms defined in one time signature and remap them. I'm having trouble doing this because of what happens to ties when you use omn :length (though I realize they are being collected under :articulation). In this case, I'm taking bars of 4/4 regrouping into bars of 2/4. (setf myr '( (s s -s s -e s s -s s -e t t t t s s) (e e_q -h))) (setf tr (omn-to-time-signature myr '(2 4))) Now I take the result of the above and assign it to a new variable ( this would be the same as (setf
  3. Hello, When I take the following: (setf lens '((e = = e tie)(e e e e))) (setf notes '((c4 d4 = d4)(d4 g4 = =))) and then call make-omn (make-omn :length lens :pitch notes) the tie at the end of the first bar is not preserved. Nor is it if I instead have the tie at the end of the first bar of the notes list (or at the end of the first bar in both lists). What is the proper way to construct an omn list from separate lengths and pitches such that ties are preserved? In this case I am trying to create the equivalent of the following: (setf test '(
  4. fixed it: (let ((offset 20)) (tonality-map `(minor-pentatonic :root c0 :map step :rotate ,offset) pitch))
  5. Hello, So, this obviously works: (setf pitch (integer-to-pitch '(20 19 18 15))) (tonality-map '(minor-pentatonic :root c0 :map step :rotate 20) pitch) but this—passing in a variable to the :rotate key—doesn't. (Assuming because it's inside a quoted list?) (let ((offset 20)) (tonality-map '(minor-pentatonic :root c0 :map step :rotate offset) pitch)) I'd like to do something like the latter because I'd like to dynamically pass in changing values for :rotate. Any tips or suggestions? thanks for taking a look, Michael
  6. Thank you very much for the reply. I was trying to put the ':map step' in the tonality-map (as opposed to the tonality-series), and couldn't figure it out with the setup I have. In the case of the code above, is the final output the same whether :map step was placed in tonality-series or tonality-map? thanks
  7. Thank you very much for the reply, I will test that out! Cheers
  8. Hello, I'm trying to import Goldberg Variation No 26 into omn (to then process further), and I'm getting a bunch of fairly crazy rhythms (it certainly is a complicated midi file with ornaments, etc). I've tried both with the midi file included in the distro, and also with the attached. Essentially, I'd love to be able to see pretty much the same rhythms that I see when looking at these midi files in, say, Sibelius, once I export from omn. Anyone able to import that file successfully with respect to rhythmic notation (also, am I correct that there's no way to import musicxml into om
  9. Hello, I'm a little confused about how to include the :map step tonality form in this example. I start with my tonality-series: (setf g-tonality (tonality-series '( (0 3 5 7 10)) :root '(8 11 4 7 0 4 11 4 7 0 3 8 0 7 0 4 11 4
  10. excellent, thank you so much. I've really loved beginning to learn this environment, and I appreciate the assistance. cheers
  11. Thank you so much, that's very useful!!! cheers, Michael
  12. As I've played around I hit on this, which works if the repetition is always the same number (it would obviously be nice to do this with cycles of numbers, etc)...and of course, I continue to be sure there's some much easier way to do this that I don't know about yet... ;;this helper function returns a list of lists one level deep (defun remove-nested (lst) (if (endp lst) 'nil (append (car lst) (remove-nested (cdr lst))))) ;;x is number of repetitions per bar (defun repeat-omn (lst x) (remove-nested (mapcar #'(lambda (n) (gen-repeat x (list n)))
  13. Hello, newbie question: I'd like to take an omn list and simply repeat each measure 3 times. If I start with the following code: (setf r-transitions1 '((e (e 1)(-e 3)) (-e (e 3)(-e 1)))) (setf marked (gen-markov-from-transitions r-transitions1 :size 120)) ;;conform to timesignature in omn format (setf r1 (length-span (gen-repeat 20 '8/8) marked :omn t)) ;;define the time signatures (setf timesigs (get-time-signature r1)) ;;stream of pitches (setf pitches '(c4 eb4 f4 g4 bb4 c5 eb5)) (setf pitches (chord-interval-add '(12) pitches)) ;;by spanning r1 onto
  14. oops, sorry to have missed that, and thanks!
  15. Hello, I'm aware of pcs-analysis (which prints data), but I'm looking for a way to collect lists of Forte-style interval vectors into a data structure in order to query them for similarity and difference. Something like: (get-interval-vector '3-1) -> (2 1 0 0 0 0) Is there an easy way to do this? thanks, Michael
×
×
  • Create New...