Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-08-01 08:29:27 +02: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
Show Stats 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 ;; Print to file
(defun printdata () (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)) (if (and (arrayp *track*)(= channel-layout 2))
;; Stereo and left channel first ;; Stereo and left channel first
(progn (progn
@ -208,8 +213,8 @@ $control messages (_ "Show messages") choice ((_ "Yes")
number ; number of samples number ; number of samples
(get 'info 'duration) ; duration (seconds) (get 'info 'duration) ; duration (seconds)
(if (> (length optext)0) (if (> (length optext)0)
(format nil "~%~a~%~%" optext) ; optional text (format nil "~%~a~%~%" optext) ; optional text
(format nil "~%~%"))) ; no optional text (format nil "~%~%"))) ; no optional text
(format nil (_ "~a ~a~%~aSample Rate: ~a Hz. Sample values on ~a scale.~%~ (format nil (_ "~a ~a~%~aSample Rate: ~a Hz. Sample values on ~a scale.~%~
Length processed: ~a samples ~a seconds.~a") Length processed: ~a samples ~a seconds.~a")
filename ; file name filename ; file name
@ -220,8 +225,8 @@ $control messages (_ "Show messages") choice ((_ "Yes")
number ; number of samples number ; number of samples
(get 'info 'duration) ; duration (seconds) (get 'info 'duration) ; duration (seconds)
(if (> (length optext)0) (if (> (length optext)0)
(format nil "~%~a~%~%" optext) ; optional text (format nil "~%~a~%~%" optext) ; optional text
(format nil "~%~%"))))) ; no optional text (format nil "~%~%"))))) ; no optional text
(defun fullhead () (defun fullhead ()
@ -365,8 +370,8 @@ ul {
(get 'info 'srate) ; sample rate (get 'info 'srate) ; sample rate
(setq smax (stereomax *track*)) ; peak amplitude linear (setq smax (stereomax *track*)) ; peak amplitude linear
(lin-to-db smax) ; peak amplitude dB (lin-to-db smax) ; peak amplitude dB
(srms *track*) ; rms (srms *track*) ; rms
(let ((vals (dc-off *track*))) ; DC offset (let ((vals (dc-off *track*))) ; DC offset
(if (= (length vals) 2) ; mono (if (= (length vals) 2) ; mono
(format nil (_ "~a linear,   ~a dB.") (format nil (_ "~a linear,   ~a dB.")
(first vals)(second vals)) (first vals)(second vals))