| | |
| | | ; === sox-hoaencode ============= |
| | | |
| | | (defmethod! sox-process ((sox-input sox-hoaencode) (sox-effect string) &key output filetype samplerate bitdepth recursive batch-mode) |
| | | |
| | | ; would be more consistent with OO programming to have a function sox-hoaencode->sox-merge |
| | | ; (consider how to deal with multiple sounds to be hoaencoded and mixed later on... sox-mix might be better done in an explicit way rather than via the class directly. |
| | | ; in that case a 3DC would have to be used by using points (point-pairs) in a loop |
| | | |
| | | (if (probe-file *sox-path*) |
| | | (progn |
| | | (when |
| | | (not (listp (sound sox-input))) |
| | | (om-message-abort "sound must be a list.") |
| | | (om-message-abort "sound must be a list.") ; use list! instead |
| | | ) |
| | | (when |
| | | (not |
| | |
| | | (if (= (order sox-input) 0) |
| | | ; case: order = 0 |
| | | (progn |
| | | (setf str (string+ str " -m")) |
| | | (setf str (string+ str " -m")) ; this is the mixer. e.g. sox-mix |
| | | (loop for filename in filenames do |
| | | (setf str (string+ str (format nil " ~s" filename))) |
| | | ) |
| | |
| | | (loop |
| | | for filename in filenames |
| | | for position in positions-ae do |
| | | |
| | | ; in Object-Oriented Programming we would call-next-method i.e. set a sox-merge input class with the corresponding params. |
| | | ; e.g. (make-instance 'sox-merge ... (more redundancy and compactness, less error-prone) ... possible? |
| | | ; for multiple sound inputs if possible we would then call a sox-mix to mix the sox merge pipes. everything |
| | | |
| | | (progn |
| | | (setf str_component (format nil " ~s ~a -M" (namestring *sox-path*) *sox-options*)) |
| | | (loop |
| | |
| | | (setf str (string+ str sox-effect)) |
| | | (print str) |
| | | (sox-out str sox-input output outfile recursive) |
| | | |
| | | ;optional removal of temp file |
| | | ; (add-tmp-file outfile_tmp) |
| | | ; (when *delete-inter-file* (clean-tmp-files)) |
| | | |
| | | ) |
| | | ) |
| | | ) |
| | |
| | | ; === sox-mix-console ============= |
| | | |
| | | |
| | | ; Notes |
| | | ; Notes on polymorphism |
| | | ; I could make this sox-mix-console (non-consistent) a method where a list of effects will be applied to each sound in the mix-console |
| | | ; OR: keep this as an extra function for the player |
| | | ; I can't use pipe-input to the mix-console as it makes sox-remix instances with pipe-outputs ->is a pipe in a pipe not possible? |