Jump to content


  • Content Count

  • Joined

  • Last visited

  • Days Won


terekita last won the day on November 3 2017

terekita had the most liked content!

About terekita

  • Rank


  • Gender

Recent Profile Visitors

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

  1. fixed it: (let ((offset 20)) (tonality-map `(minor-pentatonic :root c0 :map step :rotate ,offset) pitch))
  2. 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
  3. terekita

    tonality-map arguments

    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
  4. terekita

    best way to import midi with tuplets, etc

    Thank you very much for the reply, I will test that out! Cheers
  5. 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 omn currently), and/or have any tips to offer? thanks very much, michael 988-v26.mid
  6. terekita

    tonality-map arguments

    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 8 3 8 0 7 0 8 3))) Next, I grab an omn list: (setf bomn1 '(#|1|# (q^e.. b4 q^e.. -e e^s. b4) #|2|# (q^e.. a4 q^e.. -e e^s. d5) #|3|# (q^e.. d5 q^e.. cs5 -e e^s. g4) #|4|# (e.^et g4 s^t e4 q^e.. fs4 -e e^s. a4) #|5|# (e.^et d4 s^t e4 q^e.. f4 -e e^s. g4) #|6|# (e.^et g4 s e4 d4 e. c4 -e e4) #|7|# (e. a3 s b3 q c4 -e d4) #|8|# (e. d4 s b3 q g3 -) #|9|# (e. g5 3e^t fs5 t e5 q d5 -e s b5 tie 3e tie 3t tie) #|10|# (3t b5 q a5 a5 -e s a5 tie 3e tie 3t tie) #|11|# (3t a5 q q g5 -e s g5 tie 3e tie 3t tie) #|12|# (3t g5 e. s e5 b4 e. a4 -e s g5 tie 3e tie 3t tie) #|13|# (3t g5 e. s e5 e5 e. fs5 -e s a5 tie 3e tie 3t tie) #|14|# (3t a5 e. b5 s fs5 fs5 e. g5 -e s g5 tie 3e tie 3t tie) #|15|# (3t g5 q q cs5 -e s a4 tie 3e tie 3t tie) #|16|# (3t a4 e. s e4 e4 e. fs4 -e -s -3e -3t) #|17|# (-3t e fs4 tie t - e4 - q fs4 -e s. d4 -3s) #|18|# (-3t e g4 tie t - a4 - a4 - e. b4 -e s. g5 -3s) #|19|# (-3t e. e5 s b5 q a5 -e s a5 tie 3e tie 3t tie) #|20|# (3t a5 e tie t - fs5 - q ds5 -e s. fs5 -3s) #|21|# (-3t e g5 tie t - fs5 - q e5 tie s. -t s g5 tie 3e tie 3t tie) #|22|# (3t g5 q q f5 -e s a5 tie 3e tie 3t tie) #|23|# (3t a5 e. s fs5 q ds5 -e s fs5 tie 3e tie 3t tie) #|24|# (3t fs5 e. s ds5 t e5 ds5 e. e5 -3e e3 fs3 g3 a3 t b3 tie) #|25|# (3t b3 e e4 -s gs4 e. a4 s b4 e c5 tie s tie 3e tie 3t tie) #|26|# (e c5 tie 3t -s fs4 e. g4 s a4 e b4 tie s tie 3e tie 3t tie) #|27|# (e b4 tie 3t -s e4 e. fs4 s g4 e. a4 3e g4 tie 3t tie) #|28|# (3t g4 3s fs4 tie fs4 3t g4 tie t 3e fs4 cs4 d4 e4 fs4 e4 fs4 g4 fs4 g4 3e^t a4 g4 a4 b4 g4 t a4 tie) #|29|# (3t a4 3s b4 tie b4 3t c5 tie t 3e b4 fs4 g4 a4 3e^t b4 a4 b4 c5 b4 c5 d5 c5 d5 e5 c5 t d5 tie) #|30|# (3t d5 3s e5 tie e5 3t f5 tie t 3e e5 b4 c5 d5 3e^t e5 d5 e5 fs5 e5 fs5 g5 fs5 g5 a5 fs5 t g5 tie) #|31|# (3t g5 3s a5 tie a5 3t b5 tie t 3e a5 fs5 g5 a5 b5 a5 b5 d6 c6 b5 a5 g5 fs5 e5 d5 t c5 tie) #|32|# (3t c5 3s b4 tie b4 3t a4 tie t 3e g4 fs4 g4 d4 s. b3))) And finally, do the tonality map: (setf mapped-g (omn-to-time-signature (tonality-map g-tonality bomn1 :time '(4/8 2/8 4/8 2/8 3/4 4/8 2/8 4/8 2/8 4/8 2/8 3/4 4/8 2/8 3/4 4/8 2/8 3/4 4/8 2/8 3/4 4/8 2/8 3/4 4/8 2/8) :loop t ) '(3 4))) Ok, all of that works, but I'd like to use :map step when I create the tonality-map, and I can't figure out where to put that. It seems like it wants to be part of a list with, in my example, g-tonality, but I'm not seeing quite how to do it. Any tips would be greatly appreciated. Thanks!, Michael
  7. terekita

    gen-repeat w. omn lists

    excellent, thank you so much. I've really loved beginning to learn this environment, and I appreciate the assistance. cheers
  8. terekita

    gen-repeat w. omn lists

    Thank you so much, that's very useful!!! cheers, Michael
  9. terekita

    gen-repeat w. omn lists

    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))) lst))) (setf rrh (repeat-omn rh 3))
  10. terekita

    gen-repeat w. omn lists

    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 pitches, pitches will repeat as needed (setf pitches (span r1 pitches)) (setf rh (make-omn :length r1 :pitch pitches)) and then try something like: (setf rrh (gen-repeat 3 rh)) ;or (setf rrh (gen-repeat '(3) rh)) neither gives me what I'm looking for. However, I notice that if I evaluate (setf rrh (gen-repeat 3 (list (first rh)))) then I get the correct result for the first measure. Therefore, doing something like this gets me what I was looking for: (setf rrh (gen-divide 8 (flatten (mapcar #'(lambda (n) (gen-repeat 3 (list n))) rh)))) But surely there's a better/simpler way to repeat bars in omn format. If anyone has insights, I'd be most appreciative. thanks, Michael
  11. terekita

    Interval vector

    oops, sorry to have missed that, and thanks!
  12. terekita

    Interval vector

    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