Re: [CM] txt file I/O

2018-04-26 Thread bil 

Here's one way:

(call-with-output-file "test.data"
  (lambda (port)
(let ((gen (make-file->sample "myMono.wav")))
  (do ((i 0 (+ i 1)))
  ((= i 128))
	(format port "~%~D: file->sample output:  ~F" i (file->sample gen 
i))



___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
https://cm-mail.stanford.edu/mailman/listinfo/cmdist

[CM] txt file I/O

2018-04-26 Thread James Hearon 
  Hi,
I'm having trouble trying to figure out how to write samples as txt to a file.  
I have it working to the console, in emacs, but I can't seem to find the magic 
to save it to a file.  Hoping I could get some help.  Most of my efforts only 
result in saving .snd file to disk.  I'm trying to get just txt.
Thank You.

(let ((gen (make-file->sample "myMono.wav"))
  (v0 (make-float-vector 128)) )
  (do ((i 0 (+ i 1)))
  ((= i 128))
(set! (v0 i) (file->sample gen i) )
 (format #t "~%~F: file->sample output:  ~F" i (v0 i) ) ) )



___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
https://cm-mail.stanford.edu/mailman/listinfo/cmdist