Jump to content
  • Opusmodus
  • grani-synth


    A comprehensive granular synthesis instrument geared towards granulation of sound-files.



    Source

    (progn
      (defparameter dur '(q h w d -q -h))
      (defparameter amp '(pppp p pp f mp))
      
      (with-sound (:reverb jc-reverb :reverb-channels 2)
        (grani-synth (rnd-sample 12 dur) "v"
                     (rnd-sample 12 amp)
                     :grain-envelope '(0 0 .2 .2 .5 1 .8 .2 1 0))
        
        (grani-synth (rnd-sample 12 dur) "v"
                     (rnd-sample 12 amp)
                     :grains 10)
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-start '(0 .1 .3 .1 1 .6)
                     :amp-envelope '(0 1 1 1)
                     :grain-density 8
                     :grain-envelope '(0 0 .2 .2 .5 1 .8 .2 1 0)
                     :grain-envelope-end '(0 0 .01 1 .99 1 1 0)
                     :grain-envelope-transition '(0 0 .4 1 .8 0 1 0))
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp) 
                     :grain-start '(0 0 1 1)
                     :amp-envelope '(0 1 1 1)
                     :grain-density 20
                     :grain-duration '(0 .003 .2 .01 1 .3))
        
        (grani-synth (rnd-sample 12 dur) "v"
                     (rnd-sample 12 amp)
                     :grain-start '(0 0 1 1) 
                     :amp-envelope '(0 1 1 1)
                     :grain-density 20
                     :grain-duration '(0 .003 .2 .01 1 .3)
                     :grain-duration-limit .02)
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :amp-envelope '(0 1 1 1)
                     :grain-density 40
                     :grain-start '(0 .1 .3 .1 1 .6))
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :amp-envelope '(0 1 1 1)
                     :grain-density 40
                     :grain-start '(0 .1 .3 .1 1 .6)
                     :grain-start-spread .01)
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-start '(0 0 1 1)
                     :grain-start-spread 0.01
                     :amp-envelope '(0 1 1 1)
                     :grain-density 40
                     :srate '(0 0 .2 0 .6 5 1 5))
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-start '(0 0 1 1)
                     :grain-start-spread .01
                     :amp-envelope '(0 1 1 1)
                     :grain-density (rnd-sample 12 '(40 30 20))
                     :srate-base 2
                     :srate '(0 0 .2 0 .6 -1 1 -1))
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-start '(0 0 1 1)
                     :grain-start-spread .01
                     :amp-envelope '(0 1 1 1)
                     :grain-density (rnd-sample 12 '(40 30 20))
                     :srate-linear t
                     :srate (list 0 1 .2 1 .6 (expt 2 5/12) 1 (expt 2 5/12)))
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-start '(0 0 1 1)
                     :grain-start-spread .01
                     :amp-envelope '(0 1 1 1)
                     :grain-envelope '(0 0 .2 .2 .5 1 .8 .2 1 0)
                     :grain-density (rnd-sample 12 '(40 30 20))
                     :grain-duration '(0 .02 1 0.1) 
                     :grain-duration-spread '(0 0 .5 .1 1 0))
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-start '(0 0 1 1)
                     :grain-start-spread 0.01
                     :amp-envelope '(0 1 1 1)
                     :grain-density (rnd-sample 12 '(40 30 20))
                     :grain-degree '(0 0 1 90)
                     :grain-degree-spread 10)
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-duration .06
                     :grain-density 20
                     :grain-density-spread 2
                     :srate 0)
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-duration .08
                     :grain-density (rnd-sample 12 '(40 30 20))
                     :grain-density-spread 2
                     :srate 5  
                     :grain-degree 0
                     :grain-envelope '(0 0 .2 .2 .5 1 .8 .2 1 0)
                     :grain-envelope-end '(0 0 .01 1 .99 1 1 0))
        
        (grani-synth (rnd-sample 12 dur) "oboe"
                     (rnd-sample 12 amp)
                     :grain-duration .05
                     :grain-density 35
                     :grain-density-spread 3
                     :srate -5
                     :grain-degree 90
                     :srate (list 0 1 .3 1 .3 (expt 2 5/12) 1 (expt 2 5/12))))
      )


    Output

     

     

     

    Next page expsrc-synth

    Edited by opmo




×
×
  • Create New...

Important Information

Terms of Use Privacy Policy