audacia/audacia
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

patch for http://bugzilla.audacityteam.org/show_bug.cgi?id=522 (P4)

Browse Source
This commit is contained in:
v.audacity 2012-06-23 01:34:21 +00:00
parent e45c780953
commit 614b6b0fee
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
nyquist/fileio.lsp
View File

@ -292,10 +292,10 @@
`(let ((ny:fname (soundfilename ,filename))
(ny:peak 0.0)
ny:input ny:rslt ny:offset)
(format t "Overwriting ~A at offset ~A~%" ny:fname ny:offset)
(format t "Overwriting ~A at offset ~A~%" ny:fname ,time-offset)
(setf ny:offset (s-read-byte-offset ny:rslt))
(setf ny:peak (snd-overwrite `,expr ,maxlen ny:fname time-offset
0, 0, 0, 0.0, 0))
(setf ny:peak (snd-overwrite `,expr ,maxlen ny:fname ,time-offset
0, 0, 0, 0))
(format t "Duration written: ~A~%" (car *rslt*))
ny:peak))