opmo

You need to use other software for that.

This one is a custom one and should not be used - really :-) #! Can't have this comment inside def-score !# This is the correct block comment: #| This is fine |#

I don't see any error. Please make sure you are not commenting out an instruments with :sound, :channel :program etc... which might be the default for the other instruments. Good practice is to write :port (if set) :sound :channel and :program in all instruments.

GEN-TENDENCY bug fix. RND-WALK function name changed to GEN-WALK. JP

Version 1.1.18269 fixed the bug. (gen-tendency 4 '(0.1 0.4 0.1 0.6 0.45 0.16 0.75 0.8 1.0 0.01)) => (0.104359165 0.39429432 0.100798346 0.62476647) The keyword :list t (gen-tendency 200 '(.1 .4 .1 .6 .45 .16 .75 .8 .3 .1 .3) :list t) => ((0.099984944 0.11387764 0.12642343 0.15168415 0.16709633 0.17213513 0.20150061 0.20113012 0.22009951 0.24273156 0.24970572 0.26174247 0.29066756 0.2949897 0.3182366 0.32001048 0.36540088 0.38404274 0.37335125 0.395081) (0.40168363 0.4027923 0.3534013 0.36953956 0.33620408 0.32654497 0.31987086 0.2750282 0.26821807 0.25287652 0.2305816 0.23579317 0.21963972 0.19107936 0.17604227 0.16835307 0.14399202 0.13120309 0.12043448 0.10099858) (0.104623474 0.12658577 0.15724719 0.18591632 0.20704637 0.22502314 0.26414487 0.27049297 0.3242868 0.34762508 0.37690502 0.38912776 0.43080842 0.44741648 0.4646992 0.47246978 0.5189676 0.5399884 0.5959707 0.59006417) (0.59877604 0.60479724 0.59807795 0.5648324 0.5628536 0.57000697 0.56562454 0.5500809 0.53328985 0.5401389 0.5340367 0.4983033 0.4960597 0.4741703 0.47969928 0.4706994 0.46525732 0.483455 0.46858826 0.4471839) (0.4514977 0.4515268 0.42210388 0.38424483 0.37056237 0.35909954 0.34682003 0.3376925 0.3404684 0.3257542 0.2869065 0.29342115 0.27931863 0.2496801 0.2260354 0.22754745 0.21243395 0.18543491 0.17326142 0.16407411) (0.16382262 0.19071864 0.22944735 0.2538253 0.2846997 0.30921304 0.33887538 0.3880936 0.4071452 0.42525348 0.49097368 0.478957 0.5473903 0.5486322 0.61640805 0.65693796 0.65814406 0.6791474 0.68797225 0.7805864) (0.7649956 0.7267248 0.7757771 0.78305274 0.78292584 0.7920915 0.7688278 0.7739545 0.74275744 0.80063826 0.8047114 0.77123123 0.7454085 0.821381 0.8253731 0.78862077 0.76019764 0.8322831 0.8030416 0.80841434) (0.8009649 0.8081998 0.7778132 0.68643016 0.6752312 0.6505827 0.64000016 0.6219439 0.5883376 0.5374011 0.53596956 0.5195632 0.48053336 0.46700454 0.45202953 0.38633415 0.38672185 0.36435723 0.3319517 0.3003397) (0.31268612 0.29726848 0.26501524 0.27600855 0.259484 0.25435746 0.2297746 0.21695139 0.21359655 0.20274277 0.18695429 0.18331508 0.16981517 0.15769583 0.15289773 0.14061573 0.13783191 0.12532899 0.10563707 0.09527511) (0.10104806 0.109473445 0.12113774 0.13803397 0.14912757 0.15490127 0.16247588 0.175438 0.175498 0.2026452 0.19566765 0.20675719 0.23508456 0.23689798 0.24815793 0.26074827 0.27547508 0.2826829 0.2997529 0.29699332)) List size: (mapcar #'length (gen-tendency 200 '(.1 .4 .1 .6 .45 .16 .75 .8 .3 .1 .3) :list t)) => (20 20 20 20 20 20 20 20 20 20) Each given value will generate a list of 20 tendency's values. N: = 200 values: (-1 11) = 10 (/ 200 10) = 20 I hope this clarifies the keyword :list t

This is correct. With 2 you get the first two values with the fluctuation of the variance. This is a bug and will be fixed in the next update.

New functions: gen-tendency n values &key variance type list seed rnd-variance value variance &key type seed Best wishes, JP

The bug is fixed in Opusmodus 1.1.18209

New functions: binary-rhythm level decimal-number ratio &key type rotate variant seed omn euclidean-rhythm level low high ratio &key type rotate variant seed omn gen-pink-noise n &key octave seed pink-noise-sample n sequence &key octave seed gen-brownian-motion n &key amp prob output seed brownian-motion-sample n sequence &key prob seed expand-tonality tonality-form &key type chord Plus minor bug fixes.

You should use option or keyword only.

Bravo!

PITCH-MELODIZE is the main function. (pitch-melodize (expand-chord '(c4 major)))

EXPAND-CHORD solution: (melodize (expand-chord '(c4 major))) => (c4 d4 e4 f4 g4 a4 b4) (melodize (expand-chord '(d4 phrygian-greek))) => (d4 e4 f4 g4 a4 b4 c5) I will change the name of the function to EXPAND-TONALITY and will add few more options :-) Example: (expand-tonality '(c4 major)) => (c4 d4 e4 f4 g4 a4 b4) (expand-tonality '(d4 phrygian-greek) :type :integer) => (2 4 5 7 9 11 12) (expand-tonality '((c4 major) (d4 phrygian-greek)) :type :interval) => ((2 2 1 2 2 2) (-9 2 1 2 2 2 1)) (expand-tonality '(c4 phrygian-greek :add '(1 3) :variant '? :seed 67)) => (as4 ds4 cs4 b4 a4 d4 g4 c4)

This is useful for developers only. Some of the functions working with atom.

Perfect, this is a library file. Now I will try your score and see why the oboe etc... is not displaying in notation score. I found an error in your layout. The alto flute layout is no closed (parenthesis missing).

1.1.17992 fixed the bug found in the HARMONIC-PROGRESSION. Pluse: (harmonic-progression '(0 3 5 4) '((c4 major) (c3 lydian))) => ((c4e4g4 f4a4c5 a4c5e5 g4b4d5) (c3e3g3 fs3a3c4 a3c4e4 g3b3d4)) (harmonic-progression '((0 3 5 4) (4 5 3 4)) '((c4 major) (c3 lydian))) => ((c4e4g4 f4a4c5 a4c5e5 g4b4d5) (g3b3d4 a3c4e4 fs3a3c4 g3b3d4)) (harmonic-progression '((1 3 4 2)) '((cb3 messiaen-mode6 :rotate 1) (b3 messiaen-mode6 :rotate 4) (bb3 messiaen-mode4))) => ((eb3f3a3 f3a3b3 g3bb3cs4 e3g3bb3) (g4bb4cs5 bb4cs5e5 b4eb5f5 a4b4eb5) (b3eb4f4 eb4f4a4 e4fs4bb4 c4e4fs4)) (setf partials (partial-row (library 'tbn-cs3-frames 'partials nil :random 4))) (harmonic-progression '(1 4 5 1 3 4 2 4 3) partials :size '((3 4) (3 5)) :root '(-6 -2 3 -3 2 0 3 -2)) => ((b3gs4g5 f5cs6e6gs6 e6g6b6 d4b4bb5cs6 e5eb6fs6 g5eb6fs6bb6 c5bb5fs6 f5cs6e6gs6 gs4g5bb5) (b3gs4e5 fs5d6a6cs7bb4 cs6a6e7 d4b4g5eb6bb6 e5c6gs6 gs5e6b6eb7c5 c5b5g6 fs5d6a6cs7bb4 gs4e5c6) (b3bb4g5 f5c6fs6cs7 e6a6cs7 d4cs5bb5eb6 fs5eb6gs6 g5d6gs6eb7 c5bb5f6 f5c6fs6cs7 bb4g5c6) (b3d5f5 gs5b5g6cs7bb4 d6g6f7 d4f5gs5cs6b6 bb5cs6fs6 bb5cs6a6eb7c5 bb4cs6e6 gs5b5g6cs7bb4 d5f5bb5)) (harmonic-progression '(1 4 5 1 3 4 2 4 3) partials :size '((3 4) (3 5)) :root '((-6 -2 3) (-3 2 0) (3 -2)) :relative '(c2 c3 c4 c5 c6)) => ((b1g3gs4 e2cs3gs4f6 b1g3e6 gs1bb4b5g6 d1c5b5 cs1bb5fs6a6 cs1eb6a6 e6f6gs6cs7 e6g6f7) (d3g3b4 bb2cs3d5f5fs6 cs3bb4fs5 bb2g4d5eb5b6 e2gs4c5 eb2e4gs4b4c7 fs2cs4f4 f2cs4d4bb4fs7 fs2bb3d5) (g1gs2e4 cs1c3fs4f6 cs4a4e6 e4b4d5eb6 g4e5a6 f5c6fs6cs7 f5bb5c6 c5cs6f6fs7 e5g6a6) (f2d3b5 g2gs3bb4b5cs6 f2g4d6 d2f4gs5bb5b5 d2fs5a5 e2fs5c6cs6eb6 e5cs6g6 cs5bb5b5g6gs6 b5d6g6))

To remove a file completely from the workspace you need to remove the file from the navigator and close the file - if opened- in a composer/assistant panel.

looks like a bug. The result should be '(-e), even with expression like that :-) This is working: (make-omn :pitch '(bb4) :length '(-e) :span :pitch)

Solution: (harmonic-progression '(0 3 0 4) (expand-chord '(cs4 major))) If we would deal with scales names only then this will be not necessary. I found the bug and will make new update soon.

New: rnd-walk n &key backward forward step start seed [Function] Arguments and Values: n an integer. Amount of intervals to generate. backward a floating-point. The default is 0.5. Maximum 1.0. forward a floating-point. The default is 0.5. Maximum 1.0. step an integer (an interval). The default is 1. start an integer or pitch symbol. seed an integer or NIL. The default is NIL. Description: This function returns a series of intervals of given step and probability values (backward and forward). The backward and forward are floating-points in range between 0.1 and 1.0 With default values: -1 with probability backward 1 with probability forward 0 with probability 1 - (forward + backward) - same as being stationary. (rnd-walk 16) => (1 1 -1 1 -1 1 1 1 1 -1 1 1 1 -1 1) (rnd-walk 16 :start 0) => (0 1 0 1 2 1 0 -1 0 1 0 -1 -2 -3 -2 -1) (rnd-walk 16 :start 'c4) => (c4 cs4 c4 b3 c4 b3 c4 b3 c4 cs4 c4 cs4 c4 cs4 c4 b3) Examples: Get 16 pitches with :start 'c4 based on a given :seed value and with default step 1: (rnd-walk 16 :start 'c4 :seed 76) => (c4 b3 c4 b3 bb3 b3 c4 b3 bb3 a3 gs3 a3 gs3 g3 fs3 f3) In this example the step values are 1 and 2 (randomly selected): (rnd-walk 16 :step '(1 2) :seed 234) => (-1 -2 -1 -2 1 2 -2 2 -1 1 -1 2 2 -2 -2) (rnd-walk 16 :step '(1 2) :start 'c4 :seed 234) => (c4 b3 a3 gs3 fs3 g3 a3 g3 a3 gs3 a3 gs3 bb3 c4 bb3 gs3) In the next two examples the probability to move forward is bigger then going backward. (rnd-walk 16 :step '(1 2) :backward 0.3 :forward 0.9 :start 'c4 :seed 234) => (c4 b3 cs4 d4 e4 f4 g4 f4 g4 fs4 g4 fs4 gs4 bb4 gs4 fs4) (rnd-walk 16 :step '(1 13) :backward 0.3 :forward 0.7 :start 'c4 :seed 234) => (c4 b3 c5 cs5 d6 eb6 e7 eb6 e7 eb7 e7 eb7 d6 cs5 d6 eb7) ---------------------------------------------------------------------------------------- Bug fix in EXPAND-CHORD-NAME ---------------------------------------------------------------------------------------- All Contributes to Opusmodus are acknowledged now in the "About Opusmodus" window.

looks good.

Have you tried ⌘. -build in completion.

I will see what I can do, I think we can add this to the system.

You could write: ((e d4 f> > > >) (e d4 > > > > pp -)) or ((e d4 f> > > mp) (e d4 mp> > > > pp -)) or ((e d4 f> > > >) (e d4 mp > > > pp -)) or ((e d4 f> > > mp) (e d4 > > > > pp -)) The hairpin with velocity needs to end on a velocity symbol and not on other hairpins.

Try the HARMONIC-PROGRESSION function.