Jump to content
  • Opusmodus
  • Additive synthesis Instrument.



    Source

    (progn
      (defparameter size 12)
      (setf partials (library 'marangona-partials 'partials nil :random 64))
      (setf mpar (remove-partial partials :type :freq :max 1800.0))
      (setf par (partial :freq mpar))
      (setf freq '(rnd-sample size (flatten par)))
      (defparameter dur '(rnd-sample size '(1 2 3 4 5)))
      (defparameter amp '(rnd-number size .12 .33))
      
      (with-sound (:reverb jc-reverb)
        (badd-synth (eval dur) (eval freq) (eval amp))
        (badd-synth (eval dur) (eval freq) (eval amp))
        (badd-synth (eval dur) (eval freq) (eval amp))
        (badd-synth (eval dur) (eval freq) (eval amp))
        (badd-synth (eval dur) (eval freq) (eval amp))
        (badd-synth (eval dur) (eval freq) (eval amp))
        )
      )


    Output

     

     

     

    Next page bandedwg-synth




×
×
  • Create New...

Important Information

Terms of Use Privacy Policy