| | |
|---|
| | | |
|---|
| | | (if (probe-file *sox-path*) |
|---|
| | | (progn |
|---|
| | | (let* ((sound (list! (sound sox-input)))) |
|---|
| | | (let ((sound (sound sox-input))) |
|---|
| | | |
|---|
| | | (when (and (find-if 'stringp sound) (equal output "pipe")) |
|---|
| | | (when (and (stringp sound) (equal output "pipe")) |
|---|
| | | (om-message-abort "Pipe output not possible with this type of input.")) |
|---|
| | | |
|---|
| | | (let* ((filenames (loop for soundfile in sound collect (namestring soundfile))) ; not needed - soundfile should be an atom |
|---|
| | | (let ((filename (namestring sound)) |
|---|
| | | (outfile (create-path nil output filetype))) |
|---|
| | | |
|---|
| | | (setf str (format nil " ~s ~a" (namestring *sox-path*) *sox-options*)) |
|---|
| | | (if (= (length filenames) 1) |
|---|
| | | ; case: one file |
|---|
| | | (let* ((filename (first filenames))) |
|---|
| | | ; (position positions-ae)) |
|---|
| | | |
|---|
| | | (if (= (order sox-input) 0) |
|---|
| | | ; case: order = 0 |
|---|
| | | (setf str (string+ str (format nil " ~s" filename))) |
|---|
| | |
|---|
| | | do (setf str (string+ str (format nil " -v~d ~s" gain filename)))) |
|---|
| | | ) |
|---|
| | | ) |
|---|
| | | )) |
|---|
| | | ; ) |
|---|
| | | |
|---|
| | | (setf str |
|---|
| | | (cond |
|---|
| | |
|---|
| | | (sox-samplebits (string+ str " -q ") bitdepth samplerate *sox-audio-device*)) |
|---|
| | | ((equal output "pipe") |
|---|
| | | (sox-samplebits str bitdepth samplerate "-p")) |
|---|
| | | (t |
|---|
| | | (sox-samplebits str bitdepth samplerate outfile)) |
|---|
| | | (t (sox-samplebits str bitdepth samplerate outfile)) |
|---|
| | | ) |
|---|
| | | ) |
|---|
| | | (setf str (string+ str sox-effect)) |
|---|
