opmo
-
Posts
2,903 -
Joined
-
Last visited
Content Type
Forums
Events
Store
Video Gallery
Posts posted by opmo
-
-
(expand-chord-name 'Arabic) => (0 1 4 5 7 8 10) (expand-chord-name 'Arabic :type :pitch) => (c4 cs4 e4 f4 g4 gs4 bb4)
-
The _ tie is fine. The time signature you will define in DEF-SCORE section.
-
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.
You could do:
(setf laengen-oben-zwei '(q. e_q 3q 3q_3q_q. e_q. e_h_e q._h)) (setf toene-oben-zwei '(c4 d4 e4 fs4 gs4 bb4)) (setf mat (make-omn :length laengen-oben-zwei :pitch toene-oben-zwei)) (omn-to-time-signature mat '(4 4))Of course you can use the time signature on the DEF-SCORE level :-)
-
(expand-chord-name 'acoustic-scale :type :pitch) => (c4 d4 e4 fs4 g4 a4 bb4) (expand-chord-name 'acoustic-scale) => (0 2 4 6 7 9 10)
In the Library 'Scales' you will find examples how to use and expand the tonality etc... names.
-
Other way to score:
(setf dur '((e - = =) (e -) (3q = =) (5e = = = =) (7q = = = = = =) (7eee = = = = = =) (7h = = = = = =))) (init-seed 356) (setq r1 (gen-eval 4 '(rnd-order (rnd-pick dur)))) (setq r2 (gen-eval 4 '(rnd-order (rnd-pick dur)))) (setq r3 (gen-eval 4 '(rnd-order (rnd-pick dur)))) (setq r4 (gen-eval 4 '(rnd-order (rnd-pick dur)))) (init-seed nil) (setf sl-1 '(c4 d4 eb4 fs4 gs4 b4)) (setf p-group1 (sort-asc (find-unique (flatten (pitch-transpose '(-12 0) (gen-repeat 5 (list sl-1))))))) (setf p1 (gen-eval 5 '(pitch-transpose-n '(12) (rnd-sample 11 p-group1)))) (setf p2 (gen-eval 5 '(pitch-transpose-n '(0 1 3) (rnd-sample 11 p-group1)))) (setf p3 (gen-eval 5 '(pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (setf p4 (gen-eval 5 '(pitch-transpose-n '(0 1 6) (rnd-sample 11 p-group1)))) (setf length (assemble-seq r1 r2 r3 r4)) (setf pitch (assemble-seq p1 p2 p3 p4)) (setf seq (make-omn :length length :pitch pitch)) (setf ts-list (get-time-signature seq)) (def-score score-name (:title "GUITAR_SECTION_X" :key-signature '(c maj) :time-signature ts-list :tempo 52 :layout (guitar-down8-layout 'guitar)) (guitar :omn seq :channel 1 :sound 'gm :program 'acoustic-guitar-nylon :pan 64)) -
The use of ASSEMBLE-SEQ here, is correct.
Or:
(setf lengths (assemble-seq r1 r2 r3 r4)) (setf pitches (assemble-seq p1 p2 p3 p4)) (setf output (make-omn :length lengths :pitch pitches))
There are no errors in your score.
-
The notation and the playback is absolutely the same.
After the playback or notation display (what ever you do first) chose 'Last Score' shortcut, ⌃⌥⌘P for playback and ⌃⌥⌘N for notation.
You find the short keys in the Tools menu as well, look for 'Last Score' menu. -
Add (init-seed nil) after each gen-loop or gen-eval expression. Those two function/macro are very spacial.
This is a bug and it is fixed in version 1.1 and you will not needed to use (init-seed nil) function each time but for now you must in order to get the desired result.
Copy the score below and try few times.
(setq rhy3 (gen-eval 16 '(rnd-pick '((-h -) (q - - ) (q -) (5qqq = - = -) (5qq = = = =) (5ss = = = =) (7eee = = = = = =))) :seed 123)) (init-seed nil) (setf sl-1 '(c4 cs4 fs4 g4)) (setf p-group (sort-asc (find-unique (flatten (pitch-transpose '(-12 0) (gen-repeat 5 (list sl-1))))))) (setf p-group-rand (rnd-order p-group)) (setf p-group-rand-1 (gen-eval 8 '(rnd-order p-group))) (span rhy3 p-group-rand-1) (setf output (make-omn :length rhy3 :pitch p-group-rand-1)) (def-score score-name (:title "GUITAR_SECTION_X" :key-signature '(c maj) :time-signature (get-time-signature rhy3) :tempo 102 :layout (guitar-down8-layout 'guitar)) (guitar :omn output :channel 1 :sound 'gm :program 'acoustic-guitar-nylon :pan 64))This is a bug and it is fixed in version 1.1 and you will not needed to use (init-seed nil) function each time.
-
The GEN-LOOP is marco and is bit confusing because of the compile warnings.
I think in version 1.0 you could use GEN-EVAL function which will produce the same result but without any compile warnings and without the need to use (init-seen nil) reset each time you use the function.
Try this:
(setq rhy3 (gen-eval 16 '(rnd-pick '((-h -) (q - - ) (q -) (5qqq = - = -) (5qq = = = =) (5ss = = = =) (7eee = = = = = =))) :seed 123)) (setf sl-1 '(c4 cs4 fs4 g4)) (setf p-group (sort-asc (find-unique (flatten (pitch-transpose '(-12 0) (gen-repeat 5 (list sl-1))))))) (setf p-group-rand (rnd-order p-group)) (setf p-group-rand-1 (gen-eval 8 '(rnd-order p-group))) (span rhy3 p-group-rand-1) (setf output (make-omn :length rhy3 :pitch p-group-rand-1)) (def-score score-name (:title "GUITAR_SECTION_X" :key-signature '(c maj) :time-signature (get-time-signature rhy3) :tempo 102 :layout (guitar-down8-layout 'guitar)) (guitar :omn output :channel 1 :sound 'gm :program 'acoustic-guitar-nylon :pan 64)) -
The 'PR is the name of the sound set define by the DEF-SOUND-SET function.
The names pr0, pr1 ... pr127 and cc0, cc1 ...cc127 are part of the Opusmodus system like any other attribute: gliss, ttrem, leg etc...((s g4 f pr7) (e e6f6cs6 p pr4) (-5q bb5a5 mp pr5 - - -) (-5e 5q b6eb7d7 fff pr9 -5e - -e))
therefore the name can't be change, but the values of the programs and controllers can be modified by the user to control the own virtual instruments like Reaktor, Kontakt ... or any outboard synth.
The sound set file "General OMN Programs.lisp" you find in the Utilities Library.
(in-package :Opusmodus) ;;;--------------------------------------------------------- ;;; GENERAL OMN PROGRAMS (PR) ;;;--------------------------------------------------------- ;; Program and bank change events (def-sound-set PR :programs (:group Prog-0-9 pr0 0 pr1 1 pr2 2 pr3 3 pr4 4 pr5 5 pr6 6 pr7 7 pr8 8 pr9 9 :group Prog-10-19 pr10 10 pr11 11 pr12 12 pr13 13 pr14 14 pr15 15 pr16 16 pr17 17 pr18 18 pr19 19 :group Prog-20-29 pr20 20 pr21 21 pr22 22 pr23 23 pr24 24 pr25 25 pr26 26 pr27 27 pr28 28 pr29 29 :group Prog-30-39 pr30 30 pr31 31 pr32 32 pr33 33 pr34 34 pr35 35 pr36 36 pr37 37 pr38 38 pr39 39 :group Prog-40-49 pr40 40 pr41 41 pr42 42 pr43 43 pr44 44 pr45 45 pr46 46 pr47 47 pr48 48 pr49 49 :group Prog-50-59 pr50 50 pr51 51 pr52 52 pr53 53 pr54 54 pr55 55 pr56 56 pr57 57 pr58 58 pr59 59 :group Prog-60-69 pr60 60 pr61 61 pr62 62 pr63 63 pr64 64 pr65 65 pr66 66 pr67 67 pr68 68 pr69 69 :group Prog-70-79 pr70 70 pr71 71 pr72 72 pr73 73 pr74 74 pr75 75 pr76 76 pr77 77 pr78 78 pr79 79 :group Prog-80-89 pr80 80 pr81 81 pr82 82 pr83 83 pr84 84 pr85 85 pr86 86 pr87 87 pr88 88 pr89 89 :group Prog-90-99 pr90 90 pr91 91 pr92 92 pr93 93 pr94 94 pr95 95 pr96 96 pr97 97 pr98 98 pr99 99 :group Prog-100-109 pr100 100 pr101 101 pr102 102 pr103 103 pr104 104 pr105 105 pr106 106 pr107 107 pr108 108 pr109 109 :group Prog-110-119 pr110 110 pr111 111 pr112 112 pr113 113 pr114 114 pr115 115 pr116 116 pr117 117 pr118 118 pr119 119 :group Prog-120-127 pr120 120 pr121 121 pr122 122 pr123 123 pr124 124 pr125 125 pr126 126 pr127 127 ) :controllers (:group cc-0-9 cc0 0 cc1 1 cc2 2 cc3 3 cc4 4 cc5 5 cc6 6 cc7 7 cc8 8 cc9 9 :group cc-10-19 cc10 10 cc11 11 cc12 12 cc13 13 cc14 14 cc15 15 cc16 16 cc17 17 cc18 18 cc19 19 :group cc-20-29 cc20 20 cc21 21 cc22 22 cc23 23 cc24 24 cc25 25 cc26 26 cc27 27 cc28 28 cc29 29 :group cc-30-39 cc30 30 cc31 31 cc32 32 cc33 33 cc34 34 cc35 35 cc36 36 cc37 37 cc38 38 cc39 39 :group cc-40-49 cc40 40 cc41 41 cc42 42 cc43 43 cc44 44 cc45 45 cc46 46 cc47 47 cc48 48 cc49 49 :group cc-50-59 cc50 50 cc51 51 cc52 52 cc53 53 cc54 54 cc55 55 cc56 56 cc57 57 cc58 58 cc59 59 :group cc-60-69 cc60 60 cc61 61 cc62 62 cc63 63 cc64 64 cc65 65 cc66 66 cc67 67 cc68 68 cc69 69 :group cc-70-79 cc70 70 cc71 71 cc72 72 cc73 73 cc74 74 cc75 75 cc76 76 cc77 77 cc78 78 cc79 79 :group cc-80-89 cc80 80 cc81 81 cc82 82 cc83 83 cc84 84 cc85 85 cc86 86 cc87 87 cc88 88 cc89 89 :group cc-90-99 cc90 90 cc91 91 cc92 92 cc93 93 cc94 94 cc95 95 cc96 96 cc97 97 cc98 98 cc99 99 :group cc-100-109 cc100 100 cc101 101 cc102 102 cc103 103 cc104 104 cc105 105 cc106 106 cc107 107 cc108 108 cc109 109 :group cc-110-119 cc110 110 cc111 111 cc112 112 cc113 113 cc114 114 cc115 115 cc116 116 cc117 117 cc118 118 cc119 119 :group cc-120-127 cc120 120 cc121 121 cc122 122 cc123 123 cc124 124 cc125 125 cc126 126 cc127 127 :group Pedal Ped 64 Sost-Ped 66 Una-Corda 67 ) ) -
This is already fixed in ver.1.1
-
-
Just added the possibility to use list.
(gen-interleave '(1 2 2 3) '(c4 d4 e4 f4 g4 a4)) => ((c4) (d4 e4) (e4 f4) (f4 g4 a4) (g4))
Examples:
(ambitus '(g3 g5) (gen-interleave '(3 5 3 4) (integer-to-pitch (gen-accumulate '(2 7) :start -5 :count 16))) :type :invert) => ((g3 a3 e4) (a3 e4 fs4 cs5 eb5) (e4 fs4 cs5) (fs4 cs5 eb5 gs4) (cs5 eb5 gs4) (eb5 gs4 fs4 b3 a3) (bb4 c5 g5) (c5 g5 f5 bb4) (g5 f5 bb4) (a4 e5 fs5 b4 a4) (e5 fs5 b4) (fs5 b4 a4 d4) (cs5 eb5 gs4))now with random size:
(ambitus '(g3 g5) (gen-interleave (rnd-sample 15 '(3 5 3 4) :seed 45) (integer-to-pitch (gen-accumulate '(2 7) :start -5 :count 16))) :type :invert) => ((g3 a3 e4) (a3 e4 fs4 cs5 eb5) (e4 fs4 cs5 eb5) (fs4 cs5 eb5 gs4 fs4) (cs5 eb5 gs4) (eb5 gs4 fs4 b3) (bb4 c5 g5) (c5 g5 f5 bb4) (g5 f5 bb4 gs4 cs4) (a4 e5 fs5) (e5 fs5 b4 a4) (fs5 b4 a4 d4) (cs5 eb5 gs4 fs4) (eb5 gs4 fs4))This is part of version 1.1 now.
-
You will see it in the score.
((-h -q fermata) (q c4))
-
Yes, it is, just write fermata after the rest.
-
how can I make it 4/4 instead of two 2/4?
Could you send an example please.
Time signature you control in the DEF-SCORE.
-
(q f5 leg e f5 cturn22-5e+leg s ab5 leg f5 q eb5 leg e. f5 leg s d5)
simple :-)
cturn = classical turn, quintuplets the default is 5q
-
This is already fixed :-)
-
This is a bug, and will be fixed in ver. 1.1. Thank you.
-
I will have a look if we can make some correction to the simple cases.
-
There is no need in your score to use GET-TIME-SIGNATURE function
(setf timesigs (get-time-signature piano-righthand))
because there is only one list.
change
:time-signature timesigs
to
:time-signature '(4 4)
-
Here is the list of new score Templates:
Band
Brass Band.opmoConcert Band Small.opmoConcert Band.opmoSchool Band 6-8.opmoSchool Band 9-12.opmoChamber GroupsBrass Choir.opmoBrass Quartet.opmoBrass Quintet.opmoBrass Trio.opmoSaxophone Quartet.opmoString Quartet.opmoString Trio.opmoWind Quartet.opmoWind Quintet.opmoWoodwind Choir.opmoWoodwind Trio.opmoChoral and SongChoir SATB + Organ.opmoChoir SATB + Piano.opmoChoir SATB.opmoChoir SSA + Piano.opmoChoir SSA.opmoChoir TTBB + Piano.opmoChoir TTBB.opmoHymn.opmoDuo2 Pianos.opmo2 Violins.opmoAlto and Piano.opmoBaritone and Piano.opmoClarinet and Violoncello.opmoFlute and Piano.opmoOboe and Piano.opmoSoprano and Piano.opmoTenor and Piano.opmoTrombone and Piano.opmoTrumpet and Piano.opmoViola and Piano.opmoViolin and Piano.opmoVioloncello and Piano.opmoElectroacousticJazzBig Band.opmoCombo 2 Horns.opmoCombo 3 Horns.opmoCombo 4 Horns.opmoQuartet.opmoTrio.opmoVoice + Trio.opmoOrchestralOrchestral Classical.opmoOrchestral Film.opmoOrchestral Modern.opmoString Orchestra.opmoPercussionDrum Corps Battery.opmoDrum Corps Brass.opmoMarching Band.opmoPercussion Corps 1.opmoPercussion Corps 2.opmoRock and PopPop Group.opmoR&B Band.opmoRock Band 1.opmoRock Band 2.opmoSingle StaffBass.opmoTreble.opmoSolo InstrumentsGuitar.opmoHarp.opmoOrgan + Bass.opmoOrgan.opmoPiano.opmoMore to come :-) -
-
The problem with key signature, glissando etc... is part of the Sibelius bug.
I have tested the file with Finale and the glissando lines were displayed.
Sadly the musicxml - import/export - need more work on site of the developers.
Hopefully Music XML 4.0 (future) will solve some of the problems (standard).
like bells
in Function Examples
Posted · Edited by opmo
Take the original score and try to rewrite in omn first.