opmo

J.S. Bach, Chorale cantata, BWV 5 Four voices. (setf soprano '((-h. q g4) (q g4 a4 bb4 c5) (h. d5 fermata q d5) (q d5 c5 bb4 c5) (h. a4 fermata q a4) (q bb4 c5 d5 d5) (h c5 q d5 fermata d5) (q bb4 c5 d5 d5) (h c5 q bb4 fermata d5) (q f5 d5 d5 d5) (h c5 q c5 fermata c5) (q d5 c5 bb4 c5) (h a4 q g4 fermata))) (setf alto '((-h. q d4) (q eb4 e e4 gb4 q g4 g4) (h. gb4 fermata q gb4) (q g4 e g4 gb4 q g4 a4) (h. gb4 fermata q gb4) (q g4 a4 bb4 bb4) (q bb4 e a4 g4 q a4 fermata gb4) (q d4 c4 f4 g4) (q g4 e f4 eb4 q d4 fermata f4) (q f4 e f4 g4 q a4 g4) (e g4 f4 g4 e4 q f4 fermata e f4 eb4) (q d4 e e4 gb4 q g4 g4) (q g4 gb4 d4 fermata))) (setf tenor '((-h. q bb3) (q c4 c4 d4 eb4) (h. a3 fermata q a3) (q bb3 c4 d4 eb4) (h. d4 fermata q d4) (q d4 eb4 f4 f4) (q g4 e f4 eb4 q d4 fermata a3) (q bb3 e f4 eb4 d4 c4 q bb3) (q bb3 a3 f3 fermata bb3) (q c4 d4 e d4 c4 q bb3) (e bb3 a3 bb3 g3 q a3 fermata a3) (q bb3 a3 e g3 bb3 q eb4) (e d4 s c4 bb3 q c4 b3 fermata))) (setf bass '((-h. q g3) (e c4 bb3 q a3 e g3 f3 q eb3) (h. d3 fermata q c3) (q bb2 a2 g2 c3) (h. d3 fermata q d3) (q g3 e f3 eb3 d3 c3 q bb2) (q eb3 f3 gb3 fermata d3) (q g3 a3 e bb3 a3 g3 f3) (q eb3 f3 bb2 fermata bb3) (q a3 bb3 gb3 e g3 f3) (q e3 c3 f3 fermata f3) (q bb2 e c3 d3 q eb3 e d3 c3) (h d3 q g2 fermata)))DEF-SCORE function defines a score. (def-score bach-bwv-0005 (:title "Bach, BWV-0005" :composer "J. S. Bach" :key-signature '(g min) :time-signature '(4 4) :tempo 96 :layout (choir-satb-layout 'soprano 'alto 'tenor 'bass)) (soprano :omn soprano :channel 1 :sound 'gm :program 0) (alto :omn alto :channel 2) (tenor :omn tenor :channel 3) (bass :omn bass :channel 4))

An example of the direct conversion of OMN score to the standard notation.J.S. Bach, Goldberg-Variationen, Variation 18 a 1 Clav. Right hand (1st voices).(setf rh1 '((repeat (-h g5 tie) (h g5 fs5 tie) (q fs5 e g5 fs5 h e5 tie) (q e5 e d5 cs5 h d5) (-h e5 tie) (q e5 e d5 e5 h fs5 tie) (q fs5 e a5 g5 h a5 tie) (e a5 g5 a5 fs5 h g5) (-h e5 tie) (h e5 d5 tie) (q d5 e e5 fs5 h g5 tie) (e g5 fs5 g5 e5 h fs5 tie) (q fs5 fs5 h e5 tie) (q e5 e5 h d5 tie) (q d5 g5 e cs5 d5 q e5 tie) (h e5 d5)) (-h a5 tie) (h a5 g5 tie) (q g5 e a5 b5 h c6 tie) (e c6 b5 q c6 h b5) (-h e5 tie) (h e5 q ds5 e5) (h. fs5 e e5 fs5) (h_e g5 e fs5 e5 d5) (q c5 -q h a5 tie) (h a5 g5 tie) (q g5 e a5 b5 h c6 tie) (e c6 b5 c6 a5 h b5 tie) (q b5 b5 h a5 tie) (q a5 a5 h g5 tie) (q g5 c6 e fs5 g5 q a5 tie) (h a5 g5))) Right hand (2nd voice). (setf rh2 '((repeat (w b4) (h. a4 e b4 a4) (h. g4 e fs4 e4) (h fs4 -h) (h. g4 e fs4 g4) (h. a4 e c5 b4) (h_e c5 e b4 c5 a4) (h b4 -) (w g4) (h. fs4 e g4 a4) (h_e b4 e a4 b4 g4) (h. a4 q) (h. g4 q) (h. fs4 q b4) (e e4 fs4 h. g4) (w fs4)) (w c5) (h. b4 e c5 d5) (h_e e5 e ds5 q e5) (w ds5) (w g4) (q fs4 g4 h a4 tie) (q a4 e g4 a4 h b4 tie) (e b4 a4 g4 fs4 h e4) (w c5) (h. b4 e c5 d5) (h_e e5 e d5 e5 c5) (h. d5 q) (h. c5 q) (h. b4 q e5) (e a4 b4 h. c5) (w b4)))Left hand (setf lh '((repeat (-q e g3 a3 q b3 c4) (q d4 d3 h d4) (-q e e4 d4 q cs4 a3) (q d4 d3 d4 c4) (q b3 mordent1 e a3 b3 q c4 c3) (q c4 e b3 c4 q d4 a3) (q d3 e fs3 e3 q fs3 d3) (q g3 d3 g2 e g3 a3) (q b3 e a3 b3 q cs4 e b3 cs4) (q d4 cs4 b3 a3) (q g3 fs3 e3 d3) (q cs3 e b2 cs3 q d3 e cs3 d3) (q b2 e a2 b2 q cs3 e b2 cs3) (q as2 e gs2 as2 b2 a2 g2 fs2) (q g2 e2 a2 a1) (q d2 a2 h d3)) (-q e d3 e3 q fs3 d3) (q g3 g2 g3 e a3 b3) (q c4 b3 a3 e g3 a3) (q. b3 e a3 g3 fs3 e3 ds3) (q e3 e e4 d4 q c4 b3) (q a3 e b3 c4 q fs3 e g3 a3) (q ds3 e e3 fs3 q b2 e cs3 ds3) (q e3 e e4 ds4 q e4 e fs4 g4) (q a4 e g4 a4 q fs4 e e4 fs4) (q g4 fs4 e4 d4) (q c4 b3 a3 g3) (q fs3 e e3 fs3 q g3 e fs3 g3) (q e3 e d3 e3 q fs3 e e3 fs3) (q ds3 e cs3 ds3 e3 d3 c3 b2) (q c3 a2 d3 d2) (q g2 d3 h g3)))Defining a score with PIANO-SOLO-LAYOUT instrument. (def-score voices (:title "Goldberg-Variationen" :subtitle "Variation 18 a 1 Clav." :composer "J.S. Bach" :key-signature '(c maj) :time-signature '(2 2) :tempo '("Canone alla Sesta" q 182) :layout (piano-solo-layout '(pno-rh1 pno-rh2) 'pno-lh)) (pno-rh1 :omn rh1 :channel 1 :sound 'gm :program 0) (pno-rh2 :omn rh2) (pno-lh :omn lh))

Thank you for the report, should be fine now.

Yes, there was a permission error with the downloads page and it is fixed now. Once the software is installed this is when the demo period begins. As to now we didn't have any problems with the trial periods.

This sound-set below is part of the Opusmodus system and is used here to demonstrate what the group will be focussing on - creating new sound sets for old and new samples, synthesisers or any other software. Opusmodus can control any system that accepts MIDI CC. We have great results with Reaktor and Kyma system. ;;;--------------------------------------------------------- ;;; VIENNA INSTRUMENTS - UPRIGHT BASS ;;;--------------------------------------------------------- ;; Patches, keyswitches and controllers change events. (def-sound-set VSL-Upright :programs (:group Short-and-Long-Notes pizz-staccato (cc1 0 :key f7 :key c1 :key a0) pizz-sustain-novib (cc1 0 :key f7 :key cs1 :key a0) pizz-snap (cc1 0 :key f7 :key d1 :key a0) pizz-portato-short (cc1 64 :key f7 :key c1 :key a0) pizz-sustain-vib-light (cc1 64 :key f7 :key cs1 :key a0) pizz-damp (cc1 64 :key f7 :key d1 :key a0) pizz-portato-long (cc1 127 :key f7 :key c1 :key a0) pizz-sustain-vib (cc1 127 :key f7 :key cs1 :key a0) pizz-muted (cc1 127 :key f7 :key d1 :key a0) :group Legato-Performances pizz-perf-legato (cc1 0 :key e7 :key c1 :key a0) pizz-perf-legato-ghost (cc1 0 :key e7 :key cs1 :key a0) pizz-perf-gliss (cc1 64 :key e7 :key d1 :key a0) pizz-perf-gliss-slow (cc1 127 :key e7 :key c1 :key a0) :group Repetitions pizz-perf-rep-leg-novib (cc1 40 :key fs7 :key c1 :key a0) pizz-perf-rep-por-sl (cc1 40 :key fs7 :key cs1 :key a0) pizz-perf-rep-por-fa (cc1 40 :key fs7 :key d1 :key a0) pizz-perf-rep-leg-vib (cc1 80 :key fs7 :key c1 :key a0) :group Upbeats pizz-ub-a1-80 (cc1 0 :key g7 :key c1 :key a0) pizz-ub-a1-100 (cc1 0 :key g7 :key cs1 :key a0) pizz-ub-a1-120 (cc1 0 :key g7 :key d1 :key a0) pizz-ub-a1-140 (cc1 0 :key g7 :key ds1 :key a0) pizz-ub-a2-80 (cc1 64 :key g7 :key c1 :key a0) pizz-ub-a2-100 (cc1 64 :key g7 :key cs1 :key a0) pizz-ub-a2-120 (cc1 64 :key g7 :key d1 :key a0) pizz-ub-a2-140 (cc1 64 :key g7 :key ds1 :key a0) pizz-ub-a3-80 (cc1 127 :key g7 :key c1 :key a0) pizz-ub-a3-100 (cc1 127 :key g7 :key cs1 :key a0) pizz-ub-a3-120 (cc1 127 :key g7 :key d1 :key a0) pizz-ub-a3-140 (cc1 127 :key g7 :key ds1 :key a0) :group FX slides (:key gs7 :key c1 :key a0) finger-stop (:key gs7 :key cs1 :key a0) body-noises (:key gs7 :key d1 :key a0) arco-sustain-fx (:key gs7 :key ds1 :key a0) ) :controllers (:group Default-Settings Pitch 0 Velocity-XF 2 Volume 7 Pan 10 Expression 11 Reverb-Dry/Wet 14 Reverb-On/Off 15 Slot-XF 20 Start-Scaler 21 Master-Attack 22 Master-Release 23 Master-Filter 24 Delay-Scaler 25 Tuning-Scaler 26 Humanize 27 Velocity-XF-On-Off 28 Rsamp-On-Off 29 Dynamics-Scaler 30 :group Pedal Ped 64 :group Matrix cc1 1 ) )

Four voices. (setf vox1 '(q d4 g4 a4 b4 a4 h. g4)) (setf vox2 '(q b3 e4 g4 g4 fs4 h. d4)) (setf vox3 '(q g3 b3 d4 d4 d4 h. b3)) (setf vox4 '(q g3 e3 d3 g3 d3 h. g2)) 1st layout: (def-score layout1 (:key-signature '(g maj) :time-signature '((1 1 1 1) 4) :tempo 85 :layout (list (treble-layout 'inst1) (treble-layout 'inst2) (treble-layout 'inst3) (treble-layout 'inst4))) (inst1 :omn vox1 :channel 1 :sound 'gm :program 0) (inst2 :omn vox2) (inst3 :omn vox3) (inst4 :omn vox4) ) 2nd layout: (def-score layout2 (:key-signature '(g maj) :time-signature '((1 1 1 1) 4) :tempo 85 :layout (list (treble-layout 'inst1) (treble-layout 'inst2) (tenor-layout 'inst3) (bass-layout 'inst4))) (inst1 :omn vox1 :channel 1 :sound 'gm :program 0) (inst2 :omn vox2) (inst3 :omn vox3) (inst4 :omn vox4) ) 3rd layout: (def-score layout3 (:key-signature '(g maj) :time-signature '((1 1 1 1) 4) :tempo 85 :layout (bracket-group (treble-layout 'inst1) (treble-layout 'inst2) (tenor-layout 'inst3) (bass-layout 'inst4))) (inst1 :omn vox1 :channel 1 :sound 'gm :program 0) (inst2 :omn vox2) (inst3 :omn vox3) (inst4 :omn vox4) ) 4th layout: (def-score layout4 (:key-signature '(g maj) :time-signature '((1 1 1 1) 4) :tempo 85 :layout (choir-satb-layout 'inst1 'inst2 'inst3 'inst4)) (inst1 :omn vox1 :channel 1 :sound 'gm :program 0) (inst2 :omn vox2) (inst3 :omn vox3) (inst4 :omn vox4) )

The ASSEMBLE-SEQ function is particularly useful when a composer has collected and named short pieces of omn script material and wishes create one from all the pieces. (setf vox1 '(q d4 g4 a4 b4 a4 h. g4)) (setf vox2 '(q b3 e e4 q g4 e fs4 g4 s fs4 e4 q fs4 h. d4)) (setf vox3 '(q g3 b3 d4 d4 e d4 c4 h. b3)) (setf vox4 '(q g3 e3 d3 g3 d3 h. g2)) Now we assemble a new motive: (assemble-seq (list vox1 vox2 (gen-retrograde vox2) vox1 vox4))

This question is answered beautifully by Rainer Joswig on 'Stack Overflow' site. Difference between `set`, `setq`, and `setf` in Common Lisp? STACKOVERFLOW.COM What is the difference between "set", "setq", and "setf" in Common Lisp? (set 'mat '(c4 d4 e4)) (setq mat '(c4 d4 e4)) (setf mat '(c4 d4 e4))

To add a SEED to your own function and make it work you need to follow three simple rules: Add keyword SEED into the function arguments. (rnd-seed seed) should be placed at the beginning of the function. Nested functions that use seed need to use a (seed) function and not a seed argument. Example: (defun rnd-number (n low high &key seed) (do-verbose ("rnd-number") (rnd-seed seed) (if (zerop n) nil (cons (round (+ low (rnd-round 0 (- high low) :seed (seed)))) (rnd-number (decf n) low high :seed (seed)))))) Each time we evaluate the expression we get a different result. (rnd-number 12 0 5) => (0 3 2 5 3 3 4 3 2 2 4 4) Adding seed to the expression will produce always the same result. (rnd-number 12 0 5 :seed 45) => (2 2 5 4 5 0 5 3 5 3 1 1)

Download and start using the full version of the software right away. The 'Quick Start' will guide you and help you to get started! Please note: During the trial period each time you start the application you need to press the Demo button. Language: English, French, Italian and German. Requirements: Mac OS X 10.9 or higher. Go to Download page