Jump to content
  • Opusmodus
  • bandedwg-synth


    Banded Waveguide Instrument.



    Source

    (progn
      (setf row (library 'vienna 'berg 'r11))
      (setf degree '(0 3 4 0 -2 -3 -1 0 -2))
      (setf mat
            (relative-closest-path
             (gen-eval 6 '(harmonic-progression
                           (setf degree (gen-rotate 2 degree)) row))))
      
      (setf end1 (harmonic-progression '(-13 -13) row :relative t))
      (setf end2 (harmonic-progression '(-12 -12) row :relative t))
      (setf end3 (harmonic-progression '(-13 -13) row :relative t))
      (setf end4 (harmonic-progression '(-12) row :relative t))
      
      (defparameter omn (make-omn
                         :length '((q) (-h))
                         :pitch (assemble-seq mat end1 end2 end3 end4)
                         :velocity '(mp)
                         :span :pitch))
      
      (with-sound (:reverb jc-reverb)
        (bandedwg-synth omn omn omn :mode 1)
        )
      )


    Output

     

     

     

    Next page scanned-synth




×
×
  • Create New...

Important Information

Terms of Use Privacy Policy