Hi,

Just make some attempts to code the trill and the acciaccatura from the attached example.

Get only errors.

Can you please complete my code line (if it is possible to realize the example)?

Thanks,

 

ole

(e.. c5 leg t f5 e f5 s e5 leg f5)

 

is this useful?

;;; piano phase steve reich beginning bars

(setf pitches '(e4 fs4 b4 cs5 d5 fs4 e4 cs5 b4 fs4 d5 cs5))

(setf phase (make-omn
 :length '(1/16)
 :pitch pitches
 :span :pitch))

;;; piano1
(assemble-seq (gen-repeat 4 phase)(gen-repeat 28 phase))

;;; piano2 
(assemble-seq '(-12/16)(gen-repeat 28 phase);in the 28 repetitions the second piano gradually 
;shifts so that after 28 repetitions it is a 16th note later e.g. the f-sharp (second pitch) 
;is sounding together with the e (first pitch) from the 1. piano 


;tempo q.=72

 

May be like that:

(setf phrase1 (gen-repeat 24 '((16/128 d4 fs4 gs4 b4 a4 fs4 gs4 e4))))
(setf phrase2 (gen-repeat 24 '((8/63 d4 fs4 gs4 b4 a4 fs4 gs4 e4))))

(def-score phases
    (:time-signature '(4 4)
     :key-signature 'atonal
     :tempo 132)

(p1 :omn phrase1 :channel 1 :sound 'gm :program 0)
(p2 :omn phrase2 :channel 2 :sound 'gm :program 0))

 

Hi Stephane,

I just listened to your example, sounds like it is the direction I would like to go. Thanks!

How did you come up with the length-values, can you explain a little?

best

ole

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

Overlooked half of your reply! Thanks for the pointer to the

omn-to-time-signature function. Very handy!

 

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?

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

ole

Very nice and extremely helpful example!

The only thing I don't understand is

:sound 'PR

 

what is 'PR?

thanks anyway!

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

I can't live without- just curious- is a fermata on a rest possible?

I'am bumping my question concerning the turns..it seems that it will be forgotten otherwise.

Means I have to wait for the next update? When will this be released (approximatly)?

ok, thanks for the quick reply, but how can I make it 4/4 instead of two 2/4?

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))

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

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

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

I don't get the other shortcut,  command+alt+ what?

thanks!

ole

what I know is that you can mark the function, then press control+tab and than the function will pop up in the most right window. But than you have to open it (one more click). Maybe this  can serve as a workaround.

best

ole

Hi,

When I use a midi-file produced by OM in Logic, changes of data like Volume or Panorama I make in Logic are overwritten by the data stored in the midi-file. Is there a way to change this behaviour? Or is there a way to erase all those data in Logic?

Thanks for help!

best

ole

Thanks! I knew it was easy and I had used it before..

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

Thank you Stephane!

Only problem is that  if my 'timepoints' list is starting with rests than they will be swallowed. But I think I can handle this somehow.

ole

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))

thanks!!

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 -))