Jump to content
  • Opusmodus
  • singbowl-synth


    Banded Waveguide Tibetan Bowl Instrument.



    Source

    (progn
      (defparameter size 120)
      (defparameter partials (library 'marangona-partials 'partials nil :random 50))
      (defparameter par (rnd-sample size (partial :freq (flatten partials))))
      (defparameter freq (gen-divide (rnd-sample size '(2 3 4 5)) par))
      (defparameter length (rnd-sample size '(w h q e)))
      (defparameter velocity (rnd-number size .05 .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)))
      
      (with-sound (:reverb jc-reverb :scaled-to .7 :output "ma-partials")
        (singbowl-synth length freq velocity
                        :amp-env (rnd-sample size env)
                        :reverb-amount 0.30))
      )


    Output

     

     

     

    Next page fm-violin-synth




×
×
  • Create New...

Important Information

Terms of Use Privacy Policy