Changeset e8d0c06

Timestamp:

Feb 15, 2006, 11:31:46 AM (18 years ago)

Author:

Paul Brossier <piem@altern.org>

Branches:

feature/autosink, feature/cnn, feature/cnn_org, feature/constantq, feature/crepe, feature/crepe_org, feature/pitchshift, feature/pydocstrings, feature/timestretch, fix/ffmpeg5, master, pitchshift, sampler, timestretch, yinfft+

Children:

d9101a5

Parents:

ada5baf

Message:

updated audacity plugin
updated audacity plugin

File:

• plugins/audacity/plug-ins/aubioonset.ny (modified) (2 diffs)

plugins/audacity/plug-ins/aubioonset.ny

@@ -5 +5 @@
 ;action "Generate onset label track using aubioonset..."
 ;info "Aubio onset detector:\n Generates a label track with markers at the beginning of audio events"
-;control threshold "Detection threshold" real "[0.001-0.900...]" 0.1 0.001 1.0
+;control dmode "Detection Beats/Onsets" int "0=Beats 1=Onsets" 1 0 1
+;control threshold "Detection threshold" real "[0.001-0.900...]" 0.3 0.001 1.0
+;control omode "Mode" int "0=ComplexDomain 1=HFC 2=Specdiff 3=Phase 4=Energy" 0 0 3
+
+;Create a function to make the sum the two channels if they are stereo
+(defun mono-s (s-in) 
+  (if (arrayp s-in) (snd-add (aref s-in 0) (aref s-in 1)) s-in)
+)
+
+; path to aubio commands
+(cond 
+  ((= dmode 0)(setf aubiocmd "/home/piem/aubio/aubio/examples/aubiotrack"))
+  (t (setf aubiocmd "/home/piem/aubio/aubio/examples/aubioonset"))
+)
+
+(cond 
+  ((= omode 0)(setf onsetmode "complexdomain"))
+  ((= omode 1)(setf onsetmode "hfc"))
+  ((= omode 2)(setf onsetmode "specdiff"))
+  (t (setf onsetmode "dual"))
+)
 
 ; largest number of samples 
 (setf largenumber 1000000000) 
+
 ; some temporary files
-(setf infile "/tmp/test.wav")
-(setf tmfile "/tmp/test.txt")
+;(setf infile (system "mktmp tmp-aubio-XXXXXX"))
+;(setf tmfile (system "mktmp tmp-aubio-XXXXXX"))
+(setf infile "/tmp/aubio-insecure.wav")
+(setf tmfile "/tmp/aubio-insecure.txt")
+
 ; our command lines
-(setf aubiocmd (strcat "aubioonset -t " (ftoa threshold) " -i " infile " > " tmfile))
-(setf deletcmd "rm -f /tmp/test.wav /tmp/test.txt")
+(setf aubiocmd (strcat 
+        aubiocmd
+        " -O " onsetmode
+        " -t " (ftoa threshold) 
+        " -i " infile 
+        " > "  tmfile))
+(setf deletcmd (strcat "rm -f " infile " " tmfile))
 
-; save current selection in /tmp
-; bug: should check the sound is mono
-(s-save s (snd-length s largenumber) "/tmp/test.wav")
+; save current sound selection into mono infile 
+(s-save (mono-s s) (snd-length (mono-s s) largenumber) infile)
+
 ; run aubio
 (system aubiocmd)
@@ -24 +53 @@
 ; read the file and build the list of label in result
 (let* (
-        (fp (open "/tmp/test.txt"  :direction :input))
-        (result '())
-        (n 1)
-        (c (read-line fp))
+        (fp (open tmfile :direction :input))
+        (result '())
+        (n 1)
+        (c (read-line fp))
       )
  (read-line fp)
+ 
+ ;(setf oldc c)
  (while (not (not c))
    (setq result 
-        (append
-        result
-        (list (list (atof c) ""))
-        ))
+        (append
+        result
+        ;(list (list (strcat oldc "     " c) ""))
+        (list (list (atof c) ""))
+        ))
+   ;(setf oldc c)
    (setf c (read-line fp))
    (setq n (+ n 1))
   )
-(close fp)
-(system deletcmd)
-;uncomment to debug
-;(print result) 
-result)
+  (close fp)
+
+  (system deletcmd)
+
+  ;uncomment to debug
+  ;(print result) 
+
+
+  ;If no silence markers were found, return a message
+  (if (null result)
+   (setq result "No onsets or beats found, no passages marked")
+  )
+  
+  result
+
+)
+