Jump to content
  • Opusmodus
  • fm-insect-synth


    FM (frequency modulation synthesis) instrument.

    Computed sound sounds insect like.



    Source

    (progn
      (defparameter par (library 'tbn-cs3-partials 'partials nil :random 12))
      (defparameter dur '(rnd-sample 12 '(-q q. h -h. -w w. d -d.)))
      (defparameter freq '(rnd-sample 12 (flatten (partial :freq par))))
      (defparameter amp '(rnd-sample 12 '(pppp ppp p mp)))
      (defparameter mod-freq-env '(0 0 40 1 95 1 100 .5))
      (defparameter mod-index-env '(0 1 25 .7 75 .78 100 1))
      (defparameter amp-env '(0 0 25 1 75 .7 100 0))
      (defparameter fm-index '(rnd-number 12 .01 .6))
      (defparameter mod-skew '(rnd-number 12 -20.0 -1.0))
      (defparameter mod-freq '(rnd-number 12 20 60))
      
      (with-sound '()
        (fm-insect-synth (eval dur) (eval freq) (eval amp) amp-env
                         (eval mod-freq) (eval mod-skew) mod-freq-env
                         500.866 mod-index-env (eval fm-index) .500)
        
        (fm-insect-synth (eval dur) (eval freq) (eval amp) amp-env
                         (eval mod-freq) (eval mod-skew) mod-freq-env
                         649.490 mod-index-env (eval fm-index) .500)
        
        (fm-insect-synth (eval dur) (eval freq) (eval amp) amp-env
                         (eval mod-freq) (eval mod-skew) mod-freq-env
                         562.087 mod-index-env (eval fm-index) .500)
        
        (fm-insect-synth (eval dur) (eval freq) (eval amp) amp-env
                         (eval mod-freq) (eval mod-skew) mod-freq-env
                         300.866 mod-index-env (eval fm-index) .500)
        )
      )


    Output

     

     

     

    Next page ring-modulate-file-synth

    Edited by opmo




×
×
  • Create New...

Important Information

Terms of Use Privacy Policy