loopyc Posted July 15, 2018 Share Posted July 15, 2018 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". lviklund, opmo and Stephane Boussuge 2 1 Quote Link to comment Share on other sites More sharing options...
loopyc Posted July 16, 2018 Author Share Posted July 16, 2018 ;;; 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. ... opmo 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.