Jump to content
  • Sign in to follow this  

    circular-scanned-synth


    opmo

    Scanned synthesis Instrument with reverb and intensity panning (Butterfly) parameters.



    Source

    (progn
      (defparameter size 24)
      (setf partials1 (library 'tbn-cs3-partials 'partials nil :random 50))
      (setf partials2 (library 'tbn-cs3-partials 'partials nil :random 50))
      (setf par1 (rnd-sample size (partial :freq (flatten partials1))))
      (setf par2 (rnd-sample size (partial :freq (flatten partials2))))
      (defparameter dur1 (rnd-sample size '(1 2 3 4 5)))
      (defparameter dur2 (rnd-sample size '(1 2 3 4 5)))
      (defparameter freq1 (gen-divide (rnd-sample size '(2 3 4 5)) par1))
      (defparameter freq2 (gen-divide (rnd-sample size '(2 3 4 5)) par2))
      (defparameter amp1 (rnd-number size .05 .43))
      (defparameter amp2 (rnd-number size .05 .43))
      (defparameter env
        '((0 0 40 .1000 60 .2000 75 1 90 1 100 0)
          (0 0 60 .1000 80 .2000 90 1 100 0)
          (0 0 10 1 16 0 32 .1000 50 1 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 82 1 100 0)
          (0 0 10 1 32 .1000 50 1 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)
        (circular-scanned-synth
         dur1 freq1 amp1
         :wave (rnd-sample size '(1 2 3 4))
         :recompute-samps (rnd-sample size '(14 222 32 162 211 72))
         :pts (rnd-sample size '(192 256 512))
         :cycles (rnd-sample size '(1 2 3))
         :amp-env (rnd-sample size env))
        
        (circular-scanned-synth
         dur2 freq2 amp2
         :wave (rnd-sample size '(1 2 3 4))
         :recompute-samps (rnd-sample size '(14 222 32 162 211 72))
         :pts (rnd-sample size '(192 256 512))
         :cycles (rnd-sample size '(1 2 3))
         :amp-env (rnd-sample size env))
        )
      )


    Output

     

     

     

    Next page badd-synth


    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...