Jump to content
  • Opusmodus
  • scanned-synth


    Scanned synthesis Instrument.



    Source

    (progn
      (defparameter size 120)
      (setf partials1 (library 'tbn-cs3-partials 'partials nil :random 64))
      (setf partials2 (library 'tbn-cs3-partials 'partials nil :random 64))
      (setf freq1 (rnd-sample size (partial :freq (flatten partials1))))
      (setf freq2 (rnd-sample size (partial :freq (flatten partials2))))
      (defparameter dur1 (rnd-sample size '(s s s s)))
      (defparameter dur2 (rnd-sample size '(q e s s s -s)))
      (defparameter amp1 (rnd-number size .005 .13))
      (defparameter amp2 (rnd-number size .005 .13))
      (defparameter waves '(1 2 3 4 5 6 7 8 9 10 11 12 13))
      
      (with-sound (:reverb jc-reverb)
        (scanned-synth
         dur1 freq1 amp1
         :wave (rnd-sample size waves) :bpm 96
         :pts (rnd-sample size '(192 256 512)))
        
        (scanned-synth
         dur2 freq2 amp2
         :wave (rnd-sample size waves) :bpm 96
         :pts (rnd-sample size '(192 256 512)))
        )
      )


    Output

     

     

     

    Next page pvoc-synth




×
×
  • Create New...

Important Information

Terms of Use Privacy Policy