Fix printing headers in Sample Data Export
This commit is contained in:
parent
ad19ca0fa2
commit
69fd566678
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user