Score and Notation

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