Jump to content
  • Opusmodus
  • 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

    Edited by opmo




×
×
  • Create New...

Important Information

Terms of Use Privacy Policy