[pitch-variation]

Ok, thanks, I think I don't get what

pitch-variation

does and what the parameters do.

If someone is willing to explain, I would be very greatful, I think I don't have a clue..:-)

 

Thanks!

[pitch-variation]

Just play around a little with pitch-variation a little, why does it makes no difference in the output what

:type

I choose?

What am I missing?

(setf chords '((h a2a3c4 c4a3a3) (h d4f3g2 f4g3d4)))

(pitch-variation 0 1 4 (chord-pitch-unique chords)
                 :type 'c :seed 23)  
==>((h a3 c4 a2 a3) (h c4 a3 c4 a3) (h g2 f3 d4 f3) (h d4 f4 g3 f4))

(pitch-variation 0 1 4 (chord-pitch-unique chords)
                 :type 'm :seed 23) 
==>((h a3 c4 a2 a3) (h c4 a3 c4 a3) (h g2 f3 d4 f3) (h d4 f4 g3 f4))

(pitch-variation 0 1 4 (chord-pitch-unique chords)
                 :type '? :seed 23) 
==>((h a3 c4 a2 a3) (h c4 a3 c4 a3) (h d4 g2 f3 g2) (h d4 g3 d4 f4))

 

Thanks!

[length-modify]

hth

morse.opmo morse.rtfd.zip

[Documentation PDF copy paste problem]

Thanks!

Is the .rtfd format still possible?

[Documentation PDF copy paste problem]

I have lots of selfmade docs, which are embedded nicely in the old OM version (by putting them in the ~/Opusmodus/System Library folder).

Where do I put them in the 3.x version so I can access them via the search function (There is no System Library folder any more)?

And do they have to be in .pdf format (which will make them pretty useless too for me, because I often make new annotations, when calling them)?

 

Thanks for an answer!

[Matching length of lists]

(setf num '(4 3 2 2 3 4 5)) 
(setf pitch '(a4 b4 c4 d4 e4))

(if (< (length num) (length pitch)) pitch num) 
=>(4 3 2 2 3 4 5)
;;;;;;
(setf num '(4 3 2)) 
(setf pitch '(a4 b4 c4 d4 e4))

(if (< (length num) (length pitch)) pitch num) 
=>(a4 b4 c4 d4 e4)

hth

 

Edit: I think you need cond to compare the length of three lists with each other:

(setf durations '(q e q e s))

(setf chords '(c4e4g4 e4g4c5)) 

(setf repetitions '(7 1 6 2 5 3 4 4))

(cond ((> (length chords) (and (length durations) (length repetitions))) chords)
      ((> (length durations) (and (length chords) (length repetitions))) durations)
      ((> (length repetitions) (and (length chords) (length durations))) repetitions))

 

[Matching length of lists]

span is your friend

 

(setf num '(4 3 2)) 
 (setf pitch '(a4 b4 c4 d4 e4))

(span pitch num)
==>(4 3 2 4 3)

 

[Changelog for 2.2.26941]

Thanks!

[Changelog for 2.2.26941]

Hi, it would be nice to have a changelog for the last 2.2.26941 update..

 

Thanks a lot!

[remove rest(s) with dictum]

Thank you!

[remove rest(s) with dictum]

But I can do something like this and that changes the length of the bar:

(dictum '(:any e :apply q) '(e c4 d4 e4 fs4))

 

[remove rest(s) with dictum]

Is it possible to remove rest(s) with dictum?

 

Thanks!

 

 

Edit: Why this does not work?

(dictum '(:apply (length-rest-remove x)) '(w c5 ped -e))

 

[compound rhythms with ql possible?]

Thank you, I will study that!

[compound rhythms with ql possible?]

Hi,

Is it possible to create compound rhythms like this with ql?

(q_3q 3q 3q_q.)

 

 

Thanks!

[two scores side by side possible?]

Thanks Stéphane!

[two scores side by side possible?]

I found what I was after: No need to open another workspace, just rightclick the file and "open in new assistent"

But I would be also good to know, how I can open multiple (different) workspaces as you suggested..?

[two scores side by side possible?]

Thanks, how would I do that, when I try File/New Workspace, the workspaces are grayed out..? Is it possible to open the same workspace multiple times?

[two scores side by side possible?]

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"?

[Feature request: progress bar or something equivalent]

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?

[Subdivision display options?]

Thanks a bunch!!

[Subdivision display options?]

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

 

[Subdivision display options?]

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?

[Subdivision display options?]

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

[Dictum question]

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!

[Dictum question]

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!