Re: [foo-devel] Some buggies, examples to show

[Ramon Gonzalez-A. <ar...@ma...>]

Dearest all,

Yes, the reference/offset mess was  clarified some time ago. It was a  
conceptual error that managed to survive for ages.


> On Tue, Apr 10, 2007 at 05:17:20PM +0200, Ramon Gonzalez-Arroyo wrote:
>
>> Boogies.foo shows 2 things :
>>
>> 1) error with snd-extract/snd-region.
>>    Basically (snd-extract (snd-region ..)) gives an error
>>
>
> This one, I think, we solved sometime earlier...

I also thought this was corrected, but it seems to have been reversed :

Try these both

(define (doTest1b)
   (let* ((Outn "~/snd/bug1b")
	 (Inn "~/snd/ex1.aiff")
	 (dur (soundfile-length Inn))
	 (onam))
     (for-each
      (lambda (x)
        (set! onam (make-sndname (format #f "~a.~a" Outn x)))	
        (synt 1 2 onam 'aiff 'short 44100
	     (output~ 1
		(read-snd~
		  (snd-extract (snd-region (open-snd Inn) 1. 2.) 1)))))
      '(1 2))))

;
(define (doTest1a)
   (let* ((Outn "~/snd/bug1a")
	 (Inn "~/snd/ex1.aiff")
	 (dur (soundfile-length Inn))
	 (onam))
     (for-each
      (lambda (x)
        (set! onam (make-sndname (format #f "~a.~a" Outn x)))	
        (synt 1 2 onam 'aiff 'short 44100
	     (output~ 1
		(read-snd~
		  (snd-region (snd-extract (open-snd Inn) 1) 1. 2.)))))
      '(1 2))))
;

ALl the best,

Ramon