[Audacity-nyquist] I tried to change the beatfinderscript to a beatkiller, but im not able.
A free multi-track audio editor and recorder
Brought to you by:
aosiniao
From: A F <bla...@li...> - 2009-10-28 07:06:29
|
I tried to change the beatfinderscript to a beatkiller, but im not able. ;nyquist plug-in ;version 1 ;type process ;categories "http://audacityteam.org/namespace#OnsetDetector" ;name "Angels Beat Fucker..." ;action "Fucking beats..." ;info "Mi eiget scheiss zum experimentiere!!!!!!!!!" ;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)) (setq thres (* (/ thresval 100.0) max)) (setq s2 (signal)) (do ((c 0.0) (l NIL) (p T) (v (snd-fetch s2))) ((not v) l) (if (and p (> v thres)) (setq l (cons (list c "B") l))) <-Here it makes the label, in center of the beat, but i want to kill the beat, how to make this????? (setq p (< v thres)) (setq c (+ c 0.001)) (setq v (snd-fetch s2))) ; arch-tag: 2204686b-2dcc-4891-964a-2749ac30661b _________________________________________________________________ Aus Fotos und Videos super einfach mit der Auto-Film Funktion schöne Filme herstellen: Jetzt runterladen und ausprobieren! http://download.live.com/moviemaker |