piano-synth

Piano physical modeling instrument.

Source

(progn
  (setf frames1 (library 'marangona-partials 'partials nil :random 48))
  (setf frames2 (library 'marangona-frames 'partials nil :random 48))
  (setf par1 (remove-partial frames1 :type :freq :min 27.5 :max 4186))
  (setf par2 (remove-partial frames2 :type :freq :min 27.5 :max 4186))
  
  (defparameter freq1
    (rnd-order
     (gen-collect
      (rnd-sample 24 '(3 5 6 7 8)) (partial :freq par1))))
  
  (defparameter freq2
    (rnd-order
     (gen-collect
      (rnd-sample 38  '(2 3 4)) (partial :freq par2))))
  
  (with-sound (:reverb jc-reverb)
    (piano-synth '(3e) (flatten freq1) '(.2 .3 .4)
                 :bpm 72
                 :drypedalresonancefactor .25
                 :singlestringdecayrate-table
                 '(21 -5 24.000 -5.000 36.000 -5.4
                   41.953 -5.867 48.173 -7.113 53.818 -8.016
                   59.693 -8.875 66.605 -9.434 73.056 -10.035
                   78.931 -10.293 84.000 -12.185)
                 :singlestringpole-table
                 '(21 .8 24 0.7 36.000 .6 48 .5
                   60 .3 84 .1 96 .03 108 .03)
                 :stiffnesscoefficient-table
                 '(21.000 -0.920 24.000 -0.900 36.000 -0.700
                   48.000 -0.250 60.000 -0.100 75.179 -0.040
                   82.986 -0.040 92.240 .3 96.000 .5
                   99.000 .7 108.000 .7))
    (piano-synth '(e) freq2 '(0.1 0.2 0.3)
                 :bpm 72
                 :drypedalresonancefactor .55
                 :detuningfactor-table
                 '(24 5 36 7.0 48 7.5 60 12.0 72
                   20 84 30 96 100 108 300)))
  )

Output

Next page grani-synth