Jump to content
Sign in to follow this  
loopyc

Euclidean Rotations ('My Opus In The Modus Of Ghosts")

Recommended Posts

Eno/Byrne-esque 'Beat-Betas' as audition tape (i.e. 60 second continuous excerpts).

 

Opusmodus generated MIDI...Mixed as "prototypes" in Logic 9.1.8,'auditioned' in iTunes 'live' to "Audio Hijack Pro".

Share this post


Link to post
Share on other sites
;;; SET Variables

(setf pitch-1 '(c2 cs2 d2 ds2 e2 f2 fs2 g2 gs2 a2 as2 b2 c3 cs3 d3 ds3 e3 f3 fs3 g3 gs3 a3 as3 b3))
(setf pitch-2 '(c2 cs2 d2 ds2 e2 f2 fs2 g2 gs2 a2 as2 b2 c3 cs3 d3 ds3 e3 f3 fs3 g3 gs3 a3 as3 b3 c4))
(setf reverse-p (nreverse pitch-2))

(setf rotation-p-1 (gen-rotate :left pitch-1 :type :seq))
(setf rotation-p-2 (gen-rotate :right reverse-p :type :seq))

(setf rotation-p-3 (gen-rotate :right pitch-1 :type :seq))
(setf rotation-p-4 (gen-rotate :left reverse-p :type :seq))

(setf rotation-combo-A (gen-repeat 17 (append rotation-p-1 rotation-p-3)))
(setf rotation-combo-B (gen-repeat 16 (append rotation-p-2 rotation-p-4)))

(setf bin-map-1 (binary-map (gen-binary-euclidean 1 8 5 7) 's))
(setf bin-map-2 (binary-map (gen-binary-euclidean 1 8 5 8) 's))

;;-----------------

(setf drum-rotation-1 (make-omn
             :pitch rotation-combo-A
             :length (span rotation-combo-A bin-map-1)
             :velocity '(ff mp = = = = = =)))

(setf drum-rotation-2 (make-omn
             :pitch rotation-combo-B
             :length (span rotation-combo-B bin-map-2)
             :velocity '(ff mp = = = = = =)))

;;; SET Voices


(setf Voice1 drum-rotation-1)
(setf Voice2 drum-rotation-2)

;;;--------------------------


(def-score Euclidean-Rotations 
           (
            :key-signature 'chromatic 
            :time-signature '(4 4) 
            :composer "Loopy C"
            :copyright "Copyleft © 2017 Chris R Gibson"
            :tempo 106
            :flexible-clef t
            :ignore-velocity t
            )
   (inst1
             :omn Voice1
             :port 0
             :channel 1
             :sound 'Logic
             :program '1
             :volume 90)

   (inst2
             :omn Voice2
             :port 0
             :channel 2
             :sound 'Logic
             :program '1
             :volume 90)
  )

 

Really, REALLY basic code...but indulges my interests in shifting rhythm patterns.

 

Pitch-lists are designed for the triggering of Spectrasonics 'Stylus RMX', the mixes then taking three stereo pairs and applying separate fx processing for final bounce in Logic 9.1.8.

 

As I said, pure indulgence of a personal compulsion...shared here simply as example of the variety of Opusmodus application as applied to beat creation.

 

 

...

Share this post


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.

Sign in to follow this  

  • Similar Topics

    • By born
      Hi,
      how can I convert binaries to intervals?
       
      (gen-binary-euclidean 1 14 8 8) => (1 0 1 1 0 1 0 1 0 1 1 0 1 0)
       
      Each set of (1 0) shoud be replaced by 2 resulting in  '(2 1 2 2 2 1 2 2).
       
      Thanks for help.
      Achim
    • By TangoTango
      Hello!
       
      I'm very interested in the Euclidean Generator but not sure how to use it. I see a video mentioned by Stephane here:
       
      http://composersforum.ning.com/forum/topics/new-video-tutorial-epic-euclidean-percussion-generator-with
       
      But I could not find it in the link:
       
      http://algorithmicmusiccomposer.blogspot.fr/
       
      Is this video still available? I would love to see it.
       
      Thanks!
       
      Tom
×
×
  • Create New...