Jump to content

Featured Replies

Posted

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".

  • Author
;;; 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.

 

 

...

Create an account or sign in to comment


Copyright © 2014-2025 Opusmodus™ Ltd. All rights reserved.
Product features, specifications, system requirements and availability are subject to change without notice.
Opusmodus, the Opusmodus logo, and other Opusmodus trademarks are either registered trademarks or trademarks of Opusmodus Ltd.
All other trademarks contained herein are the property of their respective owners.

Powered by Invision Community

Important Information

Terms of Use Privacy Policy