Hi,

 

Is it possible to have two scores (workspaces?) side by side, that would be handy to compare, copy between  2 scores (like when I open for example "Counterpoint 1.opmo"?

Hi,

Sometimes OM needs a long time for calculating (for example counterpoint).

It would be nice to have an indication that OM is working or did I overlook something?

Thanks a bunch!!

Just compiled your score from than and it has the same problem (the subdivision of the notes is better, but the rests don't follow):

(setf some-pitches (integer-to-pitch (gen-integer-step 7 145 '(0))))
(setf some-lengths (span some-pitches '(e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e e -e -e -e -e -e -e -e -e -e e e e e -e -e -e -e -e -e -e -e -e e -e - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - - = = = = = = = = = - - - - = = = = = = = = = -)))
;(setf some-division '(12))
;(setf length-div (gen-divide some-division some-lengths))
(setf time-sig '((3 3 3 3) 8))
(def-score time
           (
            :key-signature 'chromatic
            :time-signature time-sig
            :tempo 112
            :layout (clarinet-layout 'clarinet)
            ) 
(clarinet
 :length some-lengths
 :pitch some-pitches
 :channel 1
 :sound 'gm
 :program 'clarinet
 )) 

 

Thanks!

But how do I have to implement it?

 

(setf rhy '((e a4 mf - - gs4 f - - g4 p - -)
 (-e a4 p - - gs4 - - e4 -)))

(ps 'vep
    :p1 (list rhy)
    :time-signature '((3 3 3) 8))

This does not work (see screenshot of ps), what am I missing?

Hi,

 

This code:

((e a4 mf - - gs4 f - - g4 p - -)
 (-e a4 p - - gs4 - - e4 -))

 is displayed like you see in the 2 screenshots, the second of the snippet notation, the first of the ps function (with :timesignature '(9 8))

Also in the xml-file are quarter-rests* written (as in the screenshots), is there a way to set the subdivision (which looks right in the code)?

 

Thanks!

 

*which is "ok" in the first bar, but very hard to read in the second one..

Ok, thanks  for the explanation!

And in the meantime I did get why position-insert does not work on the omn level,  so sorry for the noise!

I see a second cs4 in Julios second example and can't find it in Stéphanes solution, what am I missing?

 

And should'nt that work:

(:apply (position-insert 1 'cs4 x) :bar 7)

? It does give a strange result..

 

Thanks for an answer!

Ok, so I have a (so far ready)OM-score and I want to mute (= change into a rest) every other note (regardless of changing meters). How would I do that?

 

Thanks!

Hi,

 

(setf test-flatten (flatten 
                   '((q a4 -e gs4 e4 -)
                    (q a4 e - e4 d4) 
                    (-e g4 e4 - q a4) 
                    (-h.) 
                    (-q e a4 gs4 - g4))))

(setf por (length-rest-position test-flatten)) 
==>(1 4 7 10 13 15 16 19)

  (setf sr (position-filter por test-flatten))
==>(-e - - -)
;should be this:
;  (-e - - - - -h. -q -e)
;or do I miss something?

Thanks for assistance!

Its an  accent grave and a comma, right?

How can  get some background knowledge about that, what is it called, I remember I saw that  before..

Anyway thanks a lot Stéphane!!

 

best

 

ole

Hi,

 

(setf test '((q a4 mf e a4 p e gs4 f  e4 mp g4 p) 
               (q a4 e e gs4 e4 d4)))
(setf one '(1 3))
(dictum '(:remove :event :bar 1 :event one) test)

This gives an error, is there a way to use variables for keywords?

 

Thanks and Happy Easter everybody 🙂

 

Edit: Just checked another function (randomly choosen). Here a variable for a keyword works fine.

My guess is that it has to do with the quotation mark inside the dictum, is there a way around this?

 

(setf test-2  '((q a4 mf e a4 p e gs4 f  e4 mp g4 p) 
               (q a4 e e gs4 e4 d4) 
               (e e4 g4 e4 g4 q a4)))
(setf sec '(0 2))
(pitch-transpose '(7 -5 ) test-2 :section sec)
==>((q e5 e p eb5 f b4 mp d5 p) (q a4 p e e gs4 e4 d4) (e b3 p d4 b3 d4 q e4))

 

Sorry, but I don't get what you are after 😞

 (loop
     for (a b) on '((q e3) (q. e3) (q g3) (q d3) (q. a3))  by #'cddr
     when a collect (fit-to-span 3/8 a) 
     when b collect (fit-to-span 2/8 b))
=> ((q e3 -e) (q e3) (q g3 -e) (q d3) (q. a3))

 

 

 

I know, but can tbe user set it to nil? Is there maybe a preference?

@André: isnt it so, that the length value is valid until the next length value regardless if its a rest or not?

Please correct me if I'am wrong..

(omn :length '((-e a3f4d5 q f4d5a5) (q a3e4c5 q e4c5a5) (-e a3g4e5 h g4e5a5))) 
==>((-1/8 1/8 1/4) (1/4 1/4) (-1/8 1/8 1/2))

 

Thanks, as I wrote above, I've already discovered this, but what about the snippet preview? Is it possible to set it to nil there?

Thanks, but where to put this? I know I can put this inside ps, but what about the snippet preview?

Hi,

 

Sometimes I got so many clef changes in the snippet preview that it is hard to read (at a glance), is there a way to surpress this?

 

Thanks!

Hi,

Does dechord only work for triads (as described in the docs)?

(dechord '(h c4e4g4b4 d4f4a4c4))   ;default :pitch 'root
=>(h b4 a4)

thanks!

 

That evaluating one after the other def-score did the trick, thank you very much!

I like these Conlon Nancarrow possibilities a lot  🙂

Thanks for the super quick answer!

So you don't have latency?

I've tried it both with Vienna Ensemble and GM-MIDI Player- same result

 

@Andre: Can you explain what do you mean by evaluating step by step, please?

Did you tried the example that I posted?

 

 

Hi,

 

When I run the following code I get a terrible latency between the voices. Do I miss something or is it a bug?

 

Thanks!

 

(setf pattern (gen-repeat 50 '(s e4 fs4 b4 cs5 d5 fs4 e4 cs5 b4 fs4 d5 cs5)))
(setf tempo (mclist (gen-integer 10 70) (gen-repeat 100 1)))

(def-score score1
           (
            :key-signature 'chromatic
            :time-signature '(1 4)                             
            :tempo tempo
            )
  
  (inst1 :omn pattern
         :sound 'gm
         :channel 1
         :program 0
         :pan 127))

(def-score score2
           (
            :key-signature 'chromatic
            :time-signature '(1 4)                             
            :tempo tempo
            )
  
  (inst1 :omn pattern
         :sound 'gm
         :channel 2
         :program 12
         :pan 1))



(progn
  (score-player 'score1)
  (score-player 'score2))

 

I try to evaluate score1 and score2 seperatly but the DAW can only read one tempo map at a time 😞

So, I don't see a way beside recording the midi-stream..?