Jump to content

o_e

Members
  • Posts

    273
  • Joined

  • Last visited

Posts posted by o_e

  1. Hi,

    I want an effect like when bells ringing or two mechanical metronomes are started together- the are together (rhythmical unison) than getting out of phase than coming together again..

    There are many pieces who make use of such a technique: Ligetis Piece for 100 Metronomes, Phase Music by Steve Reich, many Conlon Nancarrow Pieces..

    How can these little ongoing displacements be programmed in OM?

    thanks,

    ole

  2. TIE can't be used in length alone.

    TIE is part of OMN form (grammar).

    You need to rewrite your lengths without the TIE attribute.

    like this?

    (setf laengen-oben-zwei '((q. e_q 3q 3q_3q_q. e_q. e_h_e q._h)))
    

    and than define the 4/4 in the score section?

  3. Hi,

    I want the following rhymical structure of tied length values ( see attached .jpg). When I write it like this:

    (setf laengen-oben-zwei '((q. e tie) (q 3q 3q_3q_q. e tie) (q. e_h tie) (e q._h)))
    
    

    the ties are ignored by the mapping

    see:

    (setf laengen-oben-zwei '((q. e tie) (q 3q 3q_3q_q. e tie) (q. e_h tie) (e q._h)))
    (setf toene-oben-zwei '(c4 d4 e4 fs4 gs4 bb4))
    
    (make-omn 
     :length laengen-oben-zwei
     :pitch toene-oben-zwei)

    how can I express the length-values so that the ties are taken in account?

    thanks for a hint!

    best

    oleBildschirmfoto_2015-07-07_um_16.51.21.th

  4. When I write:

    (-h -q fermata)

    I get:

    Error: The value -h is not of the expected type number.
    > While executing: abs, in process Listener-1(8).
    > Type cmd-. to abort, cmd-\ for a list of available restarts.
    > Type :? for other options.

    thats why I was asking

  5. Hi,

     

    Me again, merge-voices is giving me a strange result, I don't know what is wrong, the two voices alone are compiling correct.

    (merge-voices '(s. f4 stacc t g4 stacc e ab4 -e s. d6 stacc t eb6 stacc
                    s. f6 stacc t eb6 stacc s. d6 stacc t c6 stacc e b5 -e ) 
                  '(-e s. d5 t eb5 s. f5 t g5 e ab5 -h))
    

    post-116-0-56251000-1434384308_thumb.jpg

  6. Hi,

    I have a 4/4 bar with two phrases three times repeated. How can I omit the two 2/4 bars and have a 4/4 bar instead?

    ((t c4 d4 e4 g4 :repeat 4) (t cs4 ds4 fs4 gs4 :repeat 4))
    

    and there are also coda-like signs displayed in red with notation-omn, this seems only the case with 32th notes..

    best

    ole

    post-116-0-31503700-1434382626_thumb.jpg

  7. Hi,

     

    This works fine:

    (q f5 leg  e f5 turn22+leg s ab5 leg f5 q eb5 leg e. f5 leg s d5)
    

    but this does not compile (omn-auditioning)

    (q f5 leg  e f5 cturn22+leg s ab5 leg f5 q eb5 leg e. f5 leg s d5)
    

    what I'am missing?

     

    thanks

     

    ole

  8. Hi,

     

    When I type in the following:

    (q. g2 fp -e -h)
    

    I get the following result:

     

    the (for me) wrong order of the rests makes it hard to read. Is there a workaround?

     

    best

     

    ole

    post-116-0-73804600-1434206200_thumb.jpg

  9. Hi,

    This seems to be a rather simple problem but I can't find a solution myself:

    I have a list of 16th notes and 16th rests and I want to make sublists every nth 16th (note or rest),

    like so:

    (setf list '(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-sublists '4 list)
    -> ((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))

    thanks for hints,

    best

    ole

  10. Hi,

    Is there a way to fill in distances between 'time-points' like in the example? Thanks for help!

    best

    ole

    (setf time-points '(e b5 f - - -  b5 - -  b5 - - - - b5 -  b5 - - b5 - - - 
                          b5 - - - - a5 - - - - - a5 - - - a5 - - - -
                          a5 - - -  a5 - - - a5 - - - - a5 - - - a5 - - - - a5))
    
    (omn :length time-points)
    
    ;is there a way to achive this:
    (setf filled '(4/8 3/8 5/8 2/8 3/8 4/8 5/8 6/8 4/8 5/8 4/8 4/8 5/8 4/8 5/8 1/8))
    
    (setf time-points-filled (make-omn :length filled
              :pitch (pitch-transpose -12 (omn :pitch time-points))
              :velocity (omn :velocity time-points)))
    
    (def-score tp
                (:key-signature '(c maj)
                 :time-signature '(4 4)  
                 :tempo 50)             
                
      (voice1 :omn time-points :channel 1 :sound 'gm :program 0)
      (voice2 :omn time-points-filled :channel 2 :sound 'gm :program 0))
    

    post-116-0-96589600-1425066532_thumb.jpg

  11. Hi,

    I want to distribute every second note (with its length) to one voice (instrument) and every first and third note to another voice (instrument)

    like in the example.

    Is there a way to do this automatically? What I want it to spread a voice to different instruments, preserving the position..

    Thanks for help!

    ole

    edit: I just saw that half of the work could be done with gen-swallow, just need to change every nth length-value into a rest-value (preferably leaving my sublists (bars) untouched)..something like length-to-rest for position instead of size of the length.

    (setf stimme1 '((h d4 q a4 g4) (q a4 e4 h f4) (h e4 g4)
                  (q f4 e4 d4 cs4) (h d4 q a4 a4)))
    
    (flatten (omn :pitch stimme1))
    => (d4 a4 g4 a4 e4 f4 e4 g4 f4 e4 d4 cs4 d4 a4 a4)
    
    (omn :length stimme1)
    => ((1/2 1/4 1/4) (1/4 1/4 1/2) (1/2 1/2) (1/4 1/4 1/4 1/4) (1/2 1/4 1/4))
    
    (setf sieve '(d4 g4 e4 e4 f4 d4 d4 a4)) ;first, third, fifth pitch and so on 
    
    (setf sieve-rhy 
    '((1/2 -1/4 1/4) (-1/4 1/4 -1/2) (1/2 -1/2)
      (1/4 -1/4 1/4 -1/4) (1/2 -1/4 1/4))
    ;every second length is replaced by rest
    
    (make-omn :length sieve-rhy
              :pitch sieve)
    => (h d4 -q g4 - e4 -h e4 - q f4 - d4 - h d4 -q a4)
    
    (setf sieve2 '(a4 a4 f4 g4 e4 cs4 a4)) ;the other way around
    
    (setf sieve-rhy2 '((-1/2 1/4 -1/4) (1/4 -1/4 1/2)
                       (-1/2 1/2) (-1/4 1/4 -1/4 1/4) (-1/2 1/4 -1/4)))
                       ;the other way around
    
    (make-omn :length sieve-rhy2
              :pitch sieve2)
    => ((-h q a4 -) (q a4 - h f4) (-h g4) (-q e4 - cs4) (-h q a4 -))
  12. Every symbol <pitch> <length> <velocity> <attribute> after a repeat = or extended repeat == symbol, is counted as a new value.

    (q c4 = = tie) = 4/4

    Otherwise you need to write:

    (q c4 = = c4 tie) = 4/4

    which you can if you prefer.

    I might write a document which explains the grammar in more details.

    Thanks for shed light on this.

    Now I understand (a little more :-)).

  13. (setf eins '((q g3 = = tie) (q g3 = =)))
    (get-time-signature eins)
    -->((4 4 1) (3 4 1))

     

    I don't understand the idea behind, counting beats in 'eins' I count 6 beats (overall), 'get-time-signature' tells me there are 7 beats (overall) (I would understand: -->((4 4 1) (2 4 1)))

    But what I was asking originally was the (imo) inconsistency that 'get-time-signature' reports different results when using pitch-symbols instead of pitch-symbol repeat signs (=) (third pitch-symbol in the example..)?

     

    (setf one '((q g3 = = tie)(q g3 = =)))

    (get-time-signature one)
    -->((4 4 1) (3 4 1))

     

    (setf two '((q g3 g3 g3 tie)(q g3 = =)))
    (get-time-signature two)
    -->((3 4 2))

    btw. how can I post my code also in a different font like in your examples..?

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy