Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-31 06:03:49 +01:00
Code Issues Releases Wiki Activity

Fix printing headers in Sample Data Export

Browse Source
This commit is contained in:
Steve Daulton
2018-09-07 20:40:24 +01:00
parent ad19ca0fa2
commit 69fd566678
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
plug-ins/sample-data-export.ny
View File

@@ -158,6 +158,11 @@ $control messages (_ "Show messages") choice ((_ "Yes")
;; Print to file
(defun printdata ()
(case header
(0 (format t (normhead))(format fp (nohead)))
(1 (format t (normhead))(format fp (minhead)))
(2 (format t (normhead))(format fp (normhead)))
(3 (format t (normhead))(format fp (fullhead))))
(if (and (arrayp *track*)(= channel-layout 2))
;; Stereo and left channel first
(progn
@@ -208,8 +213,8 @@ $control messages (_ "Show messages") choice ((_ "Yes")
number ; number of samples
(get 'info 'duration) ; duration (seconds)
(if (> (length optext)0)
(format nil "~%~a~%~%" optext) ; optional text
(format nil "~%~%"))) ; no optional text
(format nil "~%~a~%~%" optext) ; optional text
(format nil "~%~%"))) ; no optional text
(format nil (_ "~a ~a~%~aSample Rate: ~a Hz. Sample values on ~a scale.~%~
Length processed: ~a samples ~a seconds.~a")
filename ; file name
@@ -220,8 +225,8 @@ $control messages (_ "Show messages") choice ((_ "Yes")
number ; number of samples
(get 'info 'duration) ; duration (seconds)
(if (> (length optext)0)
(format nil "~%~a~%~%" optext) ; optional text
(format nil "~%~%"))))) ; no optional text
(format nil "~%~a~%~%" optext) ; optional text
(format nil "~%~%"))))) ; no optional text
(defun fullhead ()
@@ -365,8 +370,8 @@ ul {
(get 'info 'srate) ; sample rate
(setq smax (stereomax *track*)) ; peak amplitude linear
(lin-to-db smax) ; peak amplitude dB
(srms *track*) ; rms
(let ((vals (dc-off *track*))) ; DC offset
(srms *track*) ; rms
(let ((vals (dc-off *track*))) ; DC offset
(if (= (length vals) 2) ; mono
(format nil (_ "~a linear,   ~a dB.")
(first vals)(second vals))