|
From: Martin R. <ru...@us...> - 2005-02-27 20:06:43
|
Update of /cvsroot/foo/foo/elkfoo/scm/control/envelope In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8357/envelope Modified Files: envelope.foo Log Message: raw checkin of new control Index: envelope.foo =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/scm/control/envelope/envelope.foo,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** envelope.foo 11 Aug 2004 12:26:18 -0000 1.2 --- envelope.foo 27 Feb 2005 20:06:32 -0000 1.3 *************** *** 560,567 **** (let ((xmax (+ (send self 'get-Xmin) (send self 'get-Xlength))) (xi) (yi) (env (send self 'get-Envelope)) (Qtum) (rsl) ! (aux) (xl (send self 'get-Xlast)) (yl (send self 'get-Ylast))) (if (and (not (null? Args)) (number? (car Args))) (send self 'set-Quantum (car Args))) (send self 'set-Xlast (send self 'default-Xlast)) (set! Qtum (send self 'get-Quantum)) --- 560,570 ---- (let ((xmax (+ (send self 'get-Xmin) (send self 'get-Xlength))) (xi) (yi) (env (send self 'get-Envelope)) (Qtum) (rsl) ! (aux) (xl (send self 'get-Xlast)) (yl (send self 'get-Ylast)) ! (lpair) (lval)) (if (and (not (null? Args)) (number? (car Args))) (send self 'set-Quantum (car Args))) + (set! lpair (last-pair env)) + ; (set! lval (caar lpair)) (send self 'set-Xlast (send self 'default-Xlast)) (set! Qtum (send self 'get-Quantum)) *************** *** 570,578 **** (begin (set! xi (send self 'get-Xlast)) ! (while (<= (+ xi Qtum) xmax) (set! yi (send self 'Envnext)) (set! xi (send self 'get-Xlast)) (set! rsl (cons (list xi yi) rsl))) ! (reverse rsl)) (send self 'invent-a-bpf))) (send self 'set-Xlast xl) --- 573,581 ---- (begin (set! xi (send self 'get-Xlast)) ! (while (< (+ xi Qtum) (- xmax (/ Qtum 2.))) (set! yi (send self 'Envnext)) (set! xi (send self 'get-Xlast)) (set! rsl (cons (list xi yi) rsl))) ! (reverse (append lpair rsl))) (send self 'invent-a-bpf))) (send self 'set-Xlast xl) |