audacia/audacia
1
0
Fork 0
Code Issues Pull Requests Projects 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

5
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