Search the Community

A new CIRCLE-PITCH-PLOT function (examples below) will be part of the forthcoming Opusmodus 1.3. The function CIRCLE-PIOTCH-PLOT returns a geometrical representation of relationships among the 12 pitch classes of the chromatic scale in pitch class space and provides an easy way to identify patterns and similarities between harmonic structures. Clockwise motion represents ascending pitch motion, and counterclockwise motion represents descending pitch motion. Examples: Major Triad (circle-pitch-plot '(c4e4g4)) Minor Triad (circle-pitch-plot '(c4f4ab4)) Augmented Triad (circle-pitch-plot '(c4e4gs4)) All 4 augmented triads (circle-pitch-plot '(c4e4gs4 db4f4a4 d4fs4bb4 eb4g4b4)) With :style :fill (circle-pitch-plot '(c4e4gs4 db4f4a4 d4fs4bb4 eb4g4b4) :style :fill) Example with chord names. Fully-Diminished 7th Chord (circle-pitch-plot 'dim7) All 3 fully-diminished 7th chords (circle-pitch-plot '((c4 dim7) (cs4 dim7) (d4 dim7))) Whole-Tone Scale (circle-pitch-plot '(0 2 4 6 8 10)) The complex of 2 Whole-Tone Scale (circle-pitch-plot '((0 2 4 6 8 10) (1 3 5 7 9 11)) :style :fill) Chromatic Scale (circle-pitch-plot 'chromatic :point-radius 4) The complex of 6 tritones (circle-pitch-plot '((0 6) (1 7) (2 8) (3 9) (4 10) (5 11)) :point-radius 4) Tonalities (circle-pitch-plot 'mixolydian-greek :point-radius 4) (circle-pitch-plot 'bartok :point-radius 4) (circle-pitch-plot 'messiaen-mode3 :point-radius 4) (circle-pitch-plot 'hyojo :point-radius 4) Contrary Motion (circle-pitch-plot '(0 1 11 2 10 3 9 4 8 5 7 6) :sort nil :join-first nil) (circle-pitch-plot '((0 1) (0 2) (0 3) (0 4) (0 5) (0 6) (0 7) (0 8) (0 9) (0 10) (0 11)) :point-radius 4) Example with Forte notation (circle-pitch-plot '(6-32 6-7)) Example with omn-form sequence and :type :pitches (circle-pitch-plot '(((leg s g2 p dbow+sul d3 sul b3 dig1 a3 b3 d3 b3 d3) (leg g2 d3 b3 a3 b3 d3 b3 d3))) :type :pitches) Circle types (circle-pitch-plot '((4 9 11) (3 5 10) (0 3 6 9)) :style :fill) (circle-pitch-plot '((4 9 11) (3 5 10) (0 3 6 9)) :type :pitches :style :fill) (circle-pitch-plot '((4 9 11) (3 5 10) (0 3 6 9)) :type :fifths :style :fill) Examples with :sort and :remove-duplicates set to nil (circle-pitch-plot '(0 2 6 0 3 7 0 4 8)) (circle-pitch-plot '(0 2 6 0 3 7 0 4 8) :sort nil) (circle-pitch-plot '(0 2 6 0 3 7 0 4 8) :sort nil :remove-duplicates nil) (circle-pitch-plot '(0 2 6 0 3 7 0 4 8) :sort nil :remove-duplicates nil :join-first nil) (circle-pitch-plot '(8 4 2 0 10 2 8 10 4 6 8) :sort nil :remove-duplicates nil) Best wishes, Janusz

Since some time we are working on implementing Bill's Schottstaedt 'Synthesis package CLM' into Opusmodus. As expected we make the CLM working with OMN form sequence or with single parameters - example below. The score is using partials from The Bells of the Campanile: La Marangona. Below you will find an audio file of the score which is rendered each time you make evaluation. Best wishes to all, Janusz ;; --------------------------------------------------------- ;; MARANGONA ;; --------------------------------------------------------- ;; Parameters (defparameter count 50) (setf partials1 (library 'marangona-partials 'partials nil :random 50)) (setf partials2 (library 'marangona-partials 'partials nil :random 50)) (setf partials3 (library 'marangona-partials 'partials nil :random 50)) (setf partials4 (library 'marangona-partials 'partials nil :random 50)) (setf par1 (rnd-sample count (partial :freq (flatten partials1)))) (setf par2 (rnd-sample count (partial :freq (flatten partials2)))) (setf par3 (rnd-sample count (partial :freq (flatten partials3)))) (setf par4 (rnd-sample count (partial :freq (flatten partials4)))) (defparameter freq1 (gen-divide (rnd-sample count '(2 3 4 5)) par1)) (defparameter freq2 (gen-divide (rnd-sample count '(1 2 3 4 5)) par2)) (defparameter freq3 (gen-divide (rnd-sample count '(1 2 3 1 4 5)) par3)) (defparameter freq4 (gen-divide (rnd-sample count '(1 2 3 1 4 5)) par3)) (defparameter len1 (list (length-span 42 (rnd-sample count '(w h q w))))) (defparameter len2 (list (length-span 42 (rnd-sample count '(d h h))))) (defparameter len3 (list (length-span 42 (rnd-sample count '(h. w q))))) (defparameter len4 (list (length-span 42 (rnd-sample count '(d d h))))) (do-timeline '( len1 (---xxx-xx- ---xxx---- --x--xx--- ---x------ x-) len2 (---xxx-xx- ---xx-x--- --x--xx--- ---x------ x-) len3 (---xxx-xx- ---xx--x-- --x--xx--- ---x------ --) len4 (---xxx-xx- ---xx---x- --x--xx--- ---x------ --) ) '(gen-pause x) :time '(w)) (defparameter dur1 (omn :length (flatten len1))) (defparameter dur2 (omn :length (flatten len2))) (defparameter dur3 (omn :length (flatten len3))) (defparameter dur4 (omn :length (flatten len4))) (defparameter amp1 (rnd-number count 0.05 0.43)) (defparameter amp2 (rnd-number count 0.05 0.43)) (defparameter amp3 (rnd-number count 0.05 0.43)) (defparameter amp4 (rnd-number count 0.05 0.43)) (defparameter env '((0 0 40 .1000 60 .2000 75 .4000 82 1 90 1 100 0) (0 0 60 .1000 80 .2000 90 .4000 95 1 100 0) (0 0 10 1 16 0 32 .1000 50 1 56 0 60 0 90 .3000 100 0) (0 0 30 1 56 0 60 0 90 .3000 100 0) (0 0 50 1 80 .3000 100 0) (0 0 40 .1000 60 .2000 75 .4000 82 1 90 1 100 0) (0 0 10 1 32 .1000 50 1 90 .3000 100 0) (0 0 60 .1000 80 .3000 95 1 100 0) (0 0 80 .1000 90 1 100 0))) ;; --------------------------------------------------------- ;; Score (with-sound (:play nil :reverb jc-reverb :scaled-to .7 :statistics t :channels 2 :output "marangona-series") (fm-violin-synth dur1 freq1 amp1 :degree (rnd-number count 45 85) :fm-index (rnd-number count 0.10 1.0) :reverb-amount 0.30 :noise-amount (rnd-number count 0.00 0.004) :amp-env (rnd-sample count env) :fm1-rat (rnd-number count 0.00 6.718) :fm2-rat (rnd-number count 0.00 4.414) :fm3-rat (rnd-number count 0.00 1.141) :glissando-amount (rnd-number count 0.00 0.8) ) (fm-violin-synth dur2 freq2 amp2 :degree (rnd-number count 45 85) :fm-index (rnd-number count 0.10 1.0) :reverb-amount 0.30 :noise-amount (rnd-number count 0.00 0.004) :amp-env (rnd-sample count env) :fm1-rat (rnd-number count 0.00 4.718) :fm2-rat (rnd-number count 0.00 6.414) :fm3-rat (rnd-number count 0.00 1.141) :glissando-amount (rnd-number count 0.00 0.8) ) (fm-violin-synth dur3 freq3 amp3 :degree (rnd-number count 45 85) :fm-index (rnd-number count 0.10 1.0) :reverb-amount 0.30 :noise-amount (rnd-number count 0.00 0.004) :amp-env (rnd-sample count env) :fm1-rat (rnd-number count 0.00 1.718) :fm2-rat (rnd-number count 0.00 4.414) :fm3-rat (rnd-number count 0.00 6.141) :glissando-amount (rnd-number count 0.00 0.8) ) (fm-violin-synth dur4 freq4 amp4 :degree (rnd-number count 45 85) :fm-index (rnd-number count 0.10 1.0) :reverb-amount 0.30 :noise-amount (rnd-number count 0.00 0.004) :amp-env (rnd-sample count env) :fm1-rat (rnd-number count 0.00 4.718) :fm2-rat (rnd-number count 0.00 6.414) :fm3-rat (rnd-number count 0.00 1.141) :glissando-amount (rnd-number count 0.00 0.8) ) ) Score with omn-form sequence: (with-sound (:play nil :channels 2 :reverb jc-reverb :scaled-to .6 :statistics t :output "quartet") (fm-violin-omn vn1 :reverb-amount 0.20 :bpm 44) (fm-violin-omn vn2 :reverb-amount 0.20 :bpm 44) (fm-violin-omn va :reverb-amount 0.20 :bpm 44) (fm-violin-omn vc :reverb-amount 0.20 :bpm 44) )

To add a SEED to your own function and make it work you need to follow three simple rules: Add keyword SEED into the function arguments. (rnd-seed seed) should be placed at the beginning of the function. Nested functions that use seed need to use a (seed) function and not a seed argument. Example: (defun rnd-number (n low high &key seed) (do-verbose ("rnd-number") (rnd-seed seed) (if (zerop n) nil (cons (round (+ low (rnd-round 0 (- high low) :seed (seed)))) (rnd-number (decf n) low high :seed (seed)))))) Each time we evaluate the expression we get a different result. (rnd-number 12 0 5) => (0 3 2 5 3 3 4 3 2 2 4 4) Adding seed to the expression will produce always the same result. (rnd-number 12 0 5 :seed 45) => (2 2 5 4 5 0 5 3 5 3 1 1)