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