suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed exponential slowdown bug

Browse Source 
svn: r12547
This commit is contained in:
Robby Findler 2008-11-20 22:03:43 +00:00
parent f0b72082eb
commit 2382712f3f
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/slideshow/pict.ss
View File

@ -44,9 +44,9 @@
#:line-width [lw #f] #:line-width [lw #f]
#:color [col #f] #:color [col #f]
#:under? [under? #f]) #:under? [under? #f])
(finish-pin (t:pin-line (ghost p) (finish-pin (launder (t:pin-line (ghost p)
src find-src src find-src
dest find-dest) dest find-dest))
p lw col under?)) p lw col under?))
(define (pin-arrow-line sz p src find-src dest find-dest (define (pin-arrow-line sz p src find-src dest find-dest
@ -54,10 +54,10 @@
#:color [col #f] #:color [col #f]
#:under? [under? #f] #:under? [under? #f]
#:solid? [solid? #t]) #:solid? [solid? #t])
(finish-pin (t:pin-arrow-line sz (ghost p) (finish-pin (launder (t:pin-arrow-line sz (ghost p)
src find-src src find-src
dest find-dest dest find-dest
#f #f #f solid?) #f #f #f solid?))
p lw col under?)) p lw col under?))
(define (pin-arrows-line sz p src find-src dest find-dest (define (pin-arrows-line sz p src find-src dest find-dest
@ -65,10 +65,10 @@
#:color [col #f] #:color [col #f]
#:under? [under? #f] #:under? [under? #f]
#:solid? [solid? #t]) #:solid? [solid? #t])
(finish-pin (t:pin-arrows-line sz (ghost p) (finish-pin (launder (t:pin-arrows-line sz (ghost p)
src find-src src find-src
dest find-dest dest find-dest
#f #f #f solid?) #f #f #f solid?))
p lw col under?)) p lw col under?))
(define (finish-pin l p lw col under?) (define (finish-pin l p lw col under?)