Score and Notation

Goodbye Pork Pie Hat Theme (setq theme '((-h.. e c4) (e f4 e_3q ab4 3q f4 ab4 e bb4 q ab4 s f4 db4) (e f4 q ab4 s f4 eb4 q. f4 e c4) (e f4 e_3q ab4 3q f4 ab4 e b4 q bb4 s f4 eb4) (e f4 q ab4 s f4 eb4 q. f4 e) (e c5 e_3q eb5 3q f4 ab4 e bb4 q ab4 s f4 ab4) (e c5 e_3q f5 3q f4 bb4 3h eb5 3q c4 ab4 e4 db4) (3h ab4 b4 f4 e4 b4 g4) (h ab4 q. f4 s b4 bb4) (h ab4 f4) (e bb4 ab4 f4 eb4 b4 bb4 ab4 f4) (h ab4 f4) (3h c4 bb4 ab4 f4 eb4 c4) (w f4))) Chords (setf chords '((-w) (h (f3 7s9) p (d…

Round Midnight Theme (setq theme '(-q s bb3 eb4 f4 bb4 q. gb4 e bb3 q. eb4 s d4 eb4 e bb4 ab4 -q - s eb4 gb4 bb4 db5 q. c5 e eb4 a4 s fs4 d4 q gs4 e s f4 db4 q g4 - s ab4 b4 eb5 gb5 q. f5 e b4 h._e bb4 s eb4 f4 q. gb4 s f4 eb4 q. f4 e eb4 d4 hq. bb3 -q s bb3 eb4 f4 bb4 q. gb4 e bb3 q. eb4 s d4 eb4 e bb4 ab4 -q - s eb4 gb4 bb4 db5 q. c5 e eb4 a4 s fs4 d4 q gs4 e s f4 db4 q g4 - s ab4 b4 eb5 gb5 q. f5 e b4 h._e bb4 s eb4 f4 q gb4 e f4 eb4 q f4 e eb4 d4 h._e eb4 e f4 …

My Funny Valentine Theme (setq theme '((h c4 q d4 eb4) (q. d4 e eb4 h d4) (h c4 q d4 eb4) (q. d4 e eb4 h d4) (h c4 q d4 eb4) (h bb4 q ab4 g4) (w f4 tie) (w f4) (h eb4 q f4 g4) (q. f4 e g4 h f4) (h eb4 q f4 g4) (q. f4 e g4 h f4) (h eb4 q f4 g4) (q. d5 e c5 q. bb4 e a4) (w ab4 tie) (h ab4 q g4 f4) (q. d5 e eb4 q eb4 d4) (h eb4 q eb4 d4) (q. c5 e eb4 q eb4 d4) (h eb4 q eb4 d4) (q. d5 e eb4 q eb4 d4) (h eb4 q f4 g4) (w c5 tie) (h c5 d4) (h c4 q d4 eb4) (q. d4 e eb4 h d4) (h eb4 q f4 g4) (h c5 q d5 eb5) (q. d5 e eb5 h d5) (w eb…

An example with DEF-CASE and Vienna Symphonic Library sound sets. Initialise random seed to all the other functions which may also use random seed. (init-seed 98) Global value 20 assign to a variable LEN. (setf len '20) Complex length generator using cartesian sets - combinatory possibilities. (setf v1-gcl (gen-length-cartesian 2 3 'm 'n (rnd-sample len '(q q h)) (rnd-sample len '(2 3)) (rnd-sample len (primes 5 3)) (rnd-sample len '(1 2 3 4 5)))) (setf v2-gcl (gen-length-cartesian 2 3 'd '? (rnd-sample len '(q q h)) (rnd-sample len '(2 3)) …

Algorithmic 'play' with the song "Alle meine Entchen" (All my little ducklings) popular german children song. An example with TONALITY-MAP and GEN-PAUSE functions. A fun exercise for four voices in five parts. Global seed. (init-seed 35) Song in OMN script. (setf song '((e c4 d4 e4 f4) (q g4 =) (e a4 = = =) (q g4 -) (e a4 = = =) (q g4 -) (e f4 = = =) (q e4 =) (e g4 = = =) (q c4 -))) Creating four voices based on the original song. Processing three voices, each with its own random order of its bars. (setf s-rnd (rnd-order song :list t)) (setf a-rnd (rnd-order song :list t)) (setf t-rnd (rnd-order song :list t)) The fourth voice is 10 repe…

An example of algorithmic composition in a few simple steps. Initialise random seed to all functions which may use random seed. (init-seed 8975) Six lists (bars) of note-length values. (setf len '((s s q s) (s q -s s) (s s s s) (s s -s s) (s e s) (s -s e))) The GEN-SINE function generates a sequence of vectors that describe and simulate the characteristics of a sine wave. (setf sine1 (gen-sine 12 2 0.3)) (setf sine2 (gen-sine 24 3 0.4)) (setf sine3 (gen-sine 30 4 0.5)) (setf sine4 (gen-sine 36 5 0.6)) Generate a graph from t…

Initialise random seed to all functions which may use random seed. (init-seed 347) The GEN-SINE function generates a sequence of vectors that describe and simulate the characteristics of a sine wave. (setf sine1 (gen-sine 60 2 0.6)) (setf sine2 (gen-sine 60 3 0.3)) (setf sine3 (gen-sine 60 4 1.3)) (setf sine4 (gen-sine 60 5 0.4)) (setf sine5 (gen-sine 60 6 0.5)) (setf sine6 (gen-sine 60 7 1.6)) (setf sine7 (gen-sine 60 8 0.7)) (setf sine8 (gen-sine 60 9 0.8)) (setf sine9 (gen-sine 60 4 0.9)) Generate a graph from the data provided in these nine sine sequences. (list-plot (list sine1 sine2 si…

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

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