Jump to content

Recommended Posts

Basic row definition 

(setf row '(c4 e4 g4 bb4 d5 fs5 a5 gs5 f5 eb4 cs4 b4))

 

Extract some subsets from the row.

(setf set1 (subseq row 0 6))
(setf set2 (subseq row 3 9))
(setf set3 (subseq row 6 12))

 

Chords generation from sets

(setf couleur1 (gen-chord 12 5 5 -6 6 (gen-repeat 12 set1)))
(setf couleur2 (gen-chord 12 5 5 -6 6 (gen-repeat 12 set2)))
(setf couleur3 (gen-chord 12 5 5 -6 6 (gen-repeat 12 set3)))

 

Preparing tonality-series for futur mapping (create harmonics paths)

(setf path1 (tonality-series couleur1))
(setf path2 (tonality-series couleur2))
(setf path3 (tonality-series couleur3))


Section1

Define ch1, a repeated generative process with GEN-LOOP

(setf ch1
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1 '((q h -q) (h =) (e = = = h) (w) (q =) (q e = q) (q -)))
           :pitch (rnd-sample 6 couleur1)
           :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

Define un1, a repeated generative process with GEN-LOOP

(setf un1
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1 '((h -q) (w) (q -h)))
           :pitch (pitch-transpose -48 (rnd-sample 1 (melodize (rnd-sample 1 couleur1))))
           :velocity '((ffff))))))))

 

Define ar1, a repeated generative process with GEN-LOOP

(setf ar1
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1
                    '((t = = = = q -) (t = = = = = = = = = = =)
                       (s = = = = = = =) (t = = = = = e = q -)))
           :pitch (pitch-transpose
                   (rnd-pick '(10 11 12 13 14 15 16 17))
                   (tonality-map
                    (rnd-sample 1 path1)
                    (rnd-sample 1
                     '((c2 e2 g2 b2 d3 fs3 c4 e4 g4 b4 d5 fs5)
                       (c2 e2 g2 b2 d3 fs3 d3 fs3 a4 e5 b5)
                       (fs5 d5 b4 g4 e4 c4 b4 g4 e4 c4 b3 g3 e3 c3)
                       (fs5 d5 b4 d5 b4 g4 b4 g4 e4 g4 e4 c4 g3 c3)))))
           :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

Define ar1b, a repeated generative process with GEN-LOOP

(setf ar1b
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1
                    '((t = = = = q -) (t = = = = = = = = = = =)
                      (s = = = = = = =) (t = = = = = e = q -)))
          :pitch (filter-repeat 1
                  (pitch-transpose 12
                   (tonality-map (rnd-sample 1 path1)
                    (rnd-sample 6 '(c4 d4 e4 f4 g4 a4 b4 c5 d5 e4 fs5)))))
         :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

Assembly section1.

(setf s1 (rnd-sample 24 (append ch1 un1 ar1 ar1b)))

 

Score FormeEtrange-s1

(def-score FormeEtrange-s1
           (:title "FormeEtrange"
            :composer "S.Boussuge"
            :copyright "Copyright © 2014 S.Boussuge"
            :key-signature atonal
            :time-signature (get-time-signature s1)
            :tempo 108
            :layout (piano-grand-layout 'piano))
  
  (piano :omn s1
         :channel 1
         :sound 'gm
         :program 'acoustic-grand-piano))


Section2

(setf ch2
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1 '((q h -q) (h =) (e = = = h) (w) (q =) (q e = q) (q -)))
           :pitch (rnd-sample 6 couleur2)
           :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

(setf un2
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1 '((h -q) (w) (q -h)))
           :pitch (pitch-transpose -48 (rnd-sample 1 (melodize (rnd-sample 1 couleur2))))
           :velocity '((ffff))))))))

 

(setf ar2
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1
                    '((t = = = = q -)
                      (t = = = = = = = = = = =)
                      (s = = = = = = =)
                      (t = = = = = e = q -)))
           :pitch (pitch-transpose
                   (rnd-pick '(10 11 12 13 14 15 16 17))
                   (tonality-map (rnd-sample 1 path2)
                    (rnd-sample 1
                     '((c2 e2 g2 b2 d3 fs3 c4 e4 g4 b4 d5 fs5)
                       (c2 e2 g2 b2 d3 fs3 d3 fs3 a4 e5 b5)
                       (fs5 d5 b4 g4 e4 c4 b4 g4 e4 c4 b3 g3 e3 c3)
                       (fs5 d5 b4 d5 b4 g4 b4 g4 e4 g4 e4 c4 g3 c3)))))
           :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

(setf ar2b
      (mclist
       (position-insert
        '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1 
                    '((t = = = = q -)
                      (t = = = = = = = = = = =)
                      (s = = = = = = =)
                      (t = = = = = e = q -)))
           :pitch (filter-repeat 1
                   (pitch-transpose 12
                    (tonality-map
                     (rnd-sample 1 path2)
                     (rnd-sample 6 '(c4 d4 e4 f4 g4 a4 b4 c5 d5 e4 fs5)))))
           :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

Assembly section2.

(setf s2 (rnd-sample 24 (append ch2 un2 ar2 ar2b)))

 

Score FormeEtrange-s2

(def-score FormeEtrange-s2
           (:title "FormeEtrange"
            :composer "S.Boussuge"
            :copyright "Copyright © 2014 S.Boussuge"
            :key-signature atonal
            :time-signature (get-time-signature s2)
            :tempo 108
            :layout (piano-grand-layout 'piano))
  
  (piano :omn s2
         :channel 1
         :sound 'gm
:program 'acoustic-grand-piano))

 

Section3

(setf ch3
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1 '((q h -) (h =) (e = = = h) (w) (q =) (q e = q) (q -)))
           :pitch (rnd-sample 6 couleur3)
           :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

(setf un3
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1 '((h -q) (w) (q -h)))
           :pitch (pitch-transpose -48 (rnd-sample 1 (melodize (rnd-sample 1 couleur3))))
           :velocity '((ffff))))))))

 

(setf ar3
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1 
                    '((t = = = = q -)
                      (t = = = = = = = = = = =)
                      (s = = = = = = =)
                      (t = = = = = e = q -)))
           :pitch (pitch-transpose
                   (rnd-pick '(10 11 12 13 14 15 16 17))
                   (tonality-map (rnd-sample 1 path3)
                                 (rnd-sample 1
                                  '((c2 e2 g2 b2 d3 fs3 c4 e4 g4 b4 d5 fs5)
                                    (c2 e2 g2 b2 d3 fs3 d3 fs3 a4 e5 b5)
                                    (fs5 d5 b4 g4 e4 c4 b4 g4 e4 c4 b3 g3 e3 c3)
                                    (fs5 d5 b4 d5 b4 g4 b4 g4 e4 g4 e4 c4 g3 c3)))))
           :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

(setf ar3b
      (mclist
       (position-insert '(0) '(ped)
        (assemble-seq
         (gen-loop 24
          (make-omn
           :length (rnd-sample 1
                    '((t = = = = q -)
                      (t = = = = = = = = = = =)
                      (s = = = = = = =)
                      (t = = = = = e = q -)))
           :pitch (filter-repeat 1
                   (pitch-transpose 12
                    (tonality-map
                     (rnd-sample 1 path3)
                      (rnd-sample 6 '(c4 d4 e4 f4 g4 a4 b4 c5 d5 e4 fs5)))))
           :velocity (rnd-sample 1 '((f) (ff) (fff) (mf) (mp) (p) (pp)))))))))

 

Assembly Section 3

(setf s3 (rnd-sample 24 (append ch3 un3 ar3 ar3b)))

 

Score FormeEtrange-s3

(def-score FormeEtrange-s3
           (:title "FormeEtrange"
            :composer "S.Boussuge"
            :copyright "Copyright © 2014 S.Boussuge"
            :key-signature atonal
            :time-signature (get-time-signature s3)
            :tempo 108
            :layout (piano-grand-layout 'piano))

  (piano :omn s3
         :channel 1
         :sound 'gm
         :program 'acoustic-grand-piano))
 
Final score
(compile-score '(FormeEtrange-s1
                 FormeEtrange-s2
                 FormeEtrange-s3))

SB.

FormeEtrange.opmo

Link to post
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