Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-07-05 15:09:08 +02:00
Code Issues Releases Wiki Activity

Fix Bug 2706 - Win: Vocal Reduction and Isolation most options fail

Browse Source
This commit is contained in:
SteveDaulton 2021-03-22 10:45:09 +00:00
parent d72a10ddc1
commit de95635b4b
1 changed files with 3 additions and 1 deletions

4
plug-ins/vocalrediso.ny

@ -37,6 +37,8 @@ $control low-transition (_ "Low Cut for Vocals (Hz)") real "" 120 1 24000
$control high-transition (_ "High Cut for Vocals (Hz)") real "" 9000 1 24000 $control high-transition (_ "High Cut for Vocals (Hz)") real "" 9000 1 24000
(setf bignum 1000000000)
;;control rotation "Rotation (Degrees)" real "" 0 -180 180 ;;control rotation "Rotation (Degrees)" real "" 0 -180 180
(setf rotation 0.0) (setf rotation 0.0)
@ -204,7 +206,7 @@ $control high-transition (_ "High Cut for Vocals (Hz)") real "" 9000 1 24000
(wt-exp (s-exp (scale strength (diff power-dif power-sum)))) (wt-exp (s-exp (scale strength (diff power-dif power-sum))))
(weight (shape wt-exp *map* 0)) (weight (shape wt-exp *map* 0))
;(weight (shape (db-to-linear power-dif) (s-exp (mult 2 (s-log *map2*))) 1)) ;(weight (shape (db-to-linear power-dif) (s-exp (mult 2 (s-log *map2*))) 1))
(weight (snd-samples weight ny:all))) (weight (snd-samples weight bignum))) ;Fix for bug 2706
(do ((i low-transition (+ i 2))) (do ((i low-transition (+ i 2)))
((>= i high-transition)) ((>= i high-transition))
(setf (: out i) (: weight (/ (1+ i) 2))) (setf (: out i) (: weight (/ (1+ i) 2)))