<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css" style="display:none;"> P {margin-top:0;margin-bottom:0;} </style>
</head>
<body dir="ltr">
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);">
Hi,<br>
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.<br>
Thank You.<br>
<br>
(let ((gen (make-file->sample "myMono.wav"))<br>
(v0 (make-float-vector 128)) )<br>
(do ((i 0 (+ i 1)))<br>
((= i 128))<br>
(set! (v0 i) (file->sample gen i) )<br>
(format #t "~%~F: file->sample output: ~F" i (v0 i) ) ) )<br>
<br>
<br>
</div>
<div class="BodyFragment"><font size="2"><span style="font-size:11pt;">
<div class="PlainText"><br>
</div>
</span></font></div>
</body>
</html>