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

PR 10209

Browse Source 
svn: r14554
This commit is contained in:
Robby Findler 2009-04-18 17:53:56 +00:00
parent 699d1c2ea8
commit c33870fa04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/slideshow/pict.ss
View File

@ -42,7 +42,7 @@
(list? p)
(andmap pict? p))))
(define (pin-line sz p
(define (pin-line p
src src-find
dest dest-find
#:start-angle [sa #f] #:end-angle [ea #f]
@ -57,7 +57,7 @@
dest dest-find))
p lw col under?)
(pin-curve* #f #f p src src-find dest dest-find
sa ea sp ep sz col lw under? #t)))
sa ea sp ep 0 col lw under? #t)))
(define (pin-arrow-line sz p
src src-find