1
0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-27 15:50:10 +01:00

Rewrite prompts in ;control lines

This commit is contained in:
Paul Licameli
2018-03-01 14:44:39 -05:00
parent cc455fac16
commit 4018e3b87b
23 changed files with 99 additions and 99 deletions

View File

@@ -11,7 +11,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;control thresval "Threshold Percentage" int "" 65 5 100
$control thresval (_"Threshold Percentage") int "" 65 5 100
(setf s1 (if (arrayp s) (snd-add (aref s 0) (aref s 1)) s))
(defun signal () (force-srate 1000 (lp (snd-follow (lp s1 50) 0.001 0.01 0.1 512) 10)))
(setq max (peak (signal) NY:ALL))