Jump to content
  • Opusmodus
  • circular-scanned-synth


    Scanned synthesis Instrument with reverb and intensity panning (Butterfly) parameters.



    Source

    (progn
      (defparameter size 24)
      (setf partials1 (library 'tbn-cs3-partials 'partials nil :random 50))
      (setf partials2 (library 'tbn-cs3-partials 'partials nil :random 50))
      (setf par1 (rnd-sample size (partial :freq (flatten partials1))))
      (setf par2 (rnd-sample size (partial :freq (flatten partials2))))
      (defparameter dur1 (rnd-sample size '(1 2 3 4 5)))
      (defparameter dur2 (rnd-sample size '(1 2 3 4 5)))
      (defparameter freq1 (gen-divide (rnd-sample size '(2 3 4 5)) par1))
      (defparameter freq2 (gen-divide (rnd-sample size '(2 3 4 5)) par2))
      (defparameter amp1 (rnd-number size .05 .43))
      (defparameter amp2 (rnd-number size .05 .43))
      (defparameter env
        '((0 0 40 .1000 60 .2000 75 1 90 1 100 0)
          (0 0 60 .1000 80 .2000 90 1 100 0)
          (0 0 10 1 16 0 32 .1000 50 1 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 82 1 100 0)
          (0 0 10 1 32 .1000 50 1 100 0)
          (0 0 60 .1000 80 .3000 95 1 100 0)
          (0 0 80 .1000 90 1 100 0)))
      
      (with-sound (:reverb jc-reverb)
        (circular-scanned-synth
         dur1 freq1 amp1
         :wave (rnd-sample size '(1 2 3 4))
         :recompute-samps (rnd-sample size '(14 222 32 162 211 72))
         :pts (rnd-sample size '(192 256 512))
         :cycles (rnd-sample size '(1 2 3))
         :amp-env (rnd-sample size env))
        
        (circular-scanned-synth
         dur2 freq2 amp2
         :wave (rnd-sample size '(1 2 3 4))
         :recompute-samps (rnd-sample size '(14 222 32 162 211 72))
         :pts (rnd-sample size '(192 256 512))
         :cycles (rnd-sample size '(1 2 3))
         :amp-env (rnd-sample size env))
        )
      )


    Output

     

     

     

    Next page badd-synth




×
×
  • Create New...

Important Information

Terms of Use Privacy Policy