Jump to content

Recommended Posts

Score example from the Opusmodus home page 'Made in Opusmodus'.
Focus: PITCH-FIGURATE

 

Theme

(setf theme '((-e eb4 stacc s gb3 d3 -e)
              (e eb4 stacc s gb3 q d3 stacc -s)
              (-s e eb4 stacc s gb3 d3 -e s eb4 tie+stacc)
              (s eb4 gb3 d3 stacc gb3 eb4 a3 -e)
              (-e eb4 stacc s gb3 d3 -e)
              (e eb4 stacc s gb3 q d3 tie s tie+stacc)
              (s d3 -e eb4 stacc s gb3 d3 -)
              (-s e eb4 stacc s gb3 d3 stacc gb3 eb4 a3)))

 

Baritone

(setf barsax1 (length-span 8/4 '(s - s s e e - s s t t t t e -q)))
(setf barsax2
      (ambitus '(c2 gs4)
       (pitch-figurate '(3 2)
       (make-omn :pitch (randomize-octaves 'baritone-sax
                         (rnd-order (gen-loop 16 (rnd-row :type :pitch))))
                 :length (rnd-order (gen-repeat 16 (list barsax1)))
                 :velocity '(f)
                 :articulation (rnd-order
                                (gen-loop 16 '(- - stacc - stacc - - - - stacc stacc))))
       :interval '((1 -1) (1 13 -13)) :variant '?)))

(setf baritone
      (assemble-seq
       theme
       (sort-asc (subseq barsax2 0 4) :section 0)
       theme
       (sort-desc (subseq barsax2 4 12) :section 0)
       theme))

 

Contrabass

(setf bass1 (length-span 8/4 '(e - s s e e - s s e)))
(setf bass2 
      (ambitus 'bass
               (pitch-figurate
                '(1 2)
                (make-omn :pitch (pitch-transpose
                                  -24
                                  (rnd-order (gen-loop 16 (rnd-row :type :pitch))))
                          :length (rnd-order (gen-repeat 16 (list bass1)))
                          :velocity '(f))
                :interval '((1 -1) (1 6 -6)) :variant '?)))

(setf contrabass
      (assemble-seq
       (pitch-transpose -12 theme)
       (subseq bass2 0 4)
       (pitch-transpose -12 theme)
       (subseq bass2 4 12)
       (pitch-transpose -12 theme)))

 

Drums

(setf hh1 (length-span 8/4 '(-s gs2 ff)))
(setf oh1 (length-span 8/4 '(-s - bb2 ff -)))
(setf ch1 (length-span 8/4 '(s fs2 ff -)))
(setf sn1 (length-span 8/4 '(-e d2 - - a2 - - s = q f2 e)))
(setf bd1 (length-span 8/4 '(-s b1 ff e c2 = -e. e = -e. -s)))

(setf hh (rnd-order (gen-repeat 18 (list hh1))))
(setf oh (rnd-order (gen-repeat 18 (list oh1))))
(setf ch (rnd-order (gen-repeat 18 (list ch1))))
(setf sn (pitch-figurate '(3 2) (rnd-order (gen-repeat 18 (list sn1))) :interval '(-1 -2 14)))
(setf bd (rnd-order (gen-repeat 18 (list bd1))))

 

Def-Score

(def-score trio-atonal
           (:title "Trio Atonal"
            :composer "Opmo"
            :copyright "Copyright © 2015 Opusmodus"
            :key-signature 'atonal
            :time-signature '(4 8)
            :tempo 100
            :layout (list
                     (baritone-sax-layout 'baritone)
                     (contrabass-layout 'contrabass :name "Bass" :abbr "Bass")))
  
  (baritone :omn baritone :channel 1 :sound 'gm :program 'Baritone-Sax :volume 100)
  (contrabass :omn contrabass :channel 2 :sound 'gm :program 'Acoustic-Bass :volume 70)
  (hh :omn hh :channel 10 :sound 'gm :program 0 :volume 100)
  (oh :omn oh)
  (ch :omn oh)
  (sn :omn sn)
  (bd :omn bd)
  )

 

 

Trio Atonal.opmo

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy