Jump to content
  • Sign in to follow this  

    grani-synth


    opmo

    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


    Sign in to follow this  



  • Introduction to OMN the language

    OMN is designed as a scripting language for musical events. It’s not about sounds themselves, it is about their control and organisation in a musical composition. As a linear script rather than a graphic stave, musical events can be transformed, extended, reorganised by powerful computer algorithms. Some sequencers and score writers provide basic algorithms, but they do not represent the way composers now think about the process of music composition. Composing has become such a multi-faceted pro

    opmo
    opmo
    OMN The Language 0
  • Introduction to Opusmodus

    Contents A Contemporary Language for Making Music The Parametric World of Music The Parametric Instrument Learning Opusmodus : A Strategy Important Questions: Necessary Answers

    opmo
    opmo
    Tutorial Guide 0
  • CLM Installation

    Contents CLM Installation Command Line Tools Load and Compile Instruments CLM Installation Common Lisp Music, by William Schottstaedt is a powerful sound synthesis language implemented in Lisp and C. CLM is essentiall

    opmo
    opmo
    CLM Examples 0
×
×
  • Create New...