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

fix pin-curve, etc. to better match pin-line

Browse Source 
svn: r13819
This commit is contained in:
Matthew Flatt 2009-02-24 17:29:46 +00:00
parent b6f3bab025
commit 8dae35d46b
2 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scribblings/slideshow/picts.scrbl
View File

@ -319,7 +319,8 @@ the existing @scheme[pict] drawing, instead of on top. If
@scheme[solid?] is false, then the arrowheads are hollow instead of
filled.}
@defproc*[([(pin-curve [pict pict?]
@defproc*[([(pin-curve [arrow-size real? 12]
[pict pict?]
[src pict-path?]
[find-src (pict? pict-path? . -> . (values real? real?))]
[dest pict-path?]
@ -328,12 +329,12 @@ filled.}
[#:end-angle end-angle (or/c real? #f) #f]
[#:start-pull start-pull (or/c real? #f) #f]
[#:end-pull end-pull (or/c real? #f) #f]
[#:arrow-size arrow-size real? 12]
[#:line-width line-width (or/c #f real?) #f]
[#:color color (or/c #f string? (is-a/c? color%)) #f]
[#:under? under? any/c #f])
pict?]
[(pin-arrow-curve [pict pict?]
[(pin-arrow-curve [arrow-size real? 12]
[pict pict?]
[src pict-path?]
[find-src (pict? pict-path? . -> . (values real? real?))]
[dest pict-path?]
@ -342,13 +343,13 @@ filled.}
[#:end-angle end-angle (or/c real? #f) #f]
[#:start-pull start-pull (or/c real? #f) #f]
[#:end-pull end-pull (or/c real? #f) #f]
[#:arrow-size arrow-size real? 12]
[#:line-width line-width (or/c #f real?) #f]
[#:color color (or/c #f string? (is-a/c? color%)) #f]
[#:under? under? any/c #f]
[#:solid? solid? any/c #t])
pict?]
[(pin-arrows-curve [pict pict?]
[(pin-arrows-curve [arrow-size real? 12]
[pict pict?]
[src pict-path?]
[find-src (pict? pict-path? . -> . (values real? real?))]
[dest pict-path?]
@ -357,7 +358,6 @@ filled.}
[#:end-angle end-angle (or/c real? #f) #f]
[#:start-pull start-pull (or/c real? #f) #f]
[#:end-pull end-pull (or/c real? #f) #f]
[#:arrow-size arrow-size real? 12]
[#:line-width line-width (or/c #f real?) #f]
[#:color color (or/c #f string? (is-a/c? color%)) #f]
[#:under? under? any/c #f]

9
collects/slideshow/pict.ss
View File

@ -73,12 +73,11 @@
#f #f #f solid?))
p lw col under?))
(define (pin-curve p
(define (pin-curve sz p
src src-find
dest dest-find
#:start-angle [sa #f] #:end-angle [ea #f]
#:start-pull [sp #f] #:end-pull [ep #f]
#:arrow-size [sz 12]
#:color [col #f]
#:line-width [lw #f]
#:under? [under? #f]
@ -86,12 +85,11 @@
(pin-curve* #f #f p src src-find dest dest-find
sa ea sp ep sz col lw under? #t))
(define (pin-arrow-curve p
(define (pin-arrow-curve sz p
src src-find
dest dest-find
#:start-angle [sa #f] #:end-angle [ea #f]
#:start-pull [sp #f] #:end-pull [ep #f]
#:arrow-size [sz 12]
#:color [col #f]
#:line-width [lw #f]
#:under? [under? #f]
@ -99,12 +97,11 @@
(pin-curve* #f #t p src src-find dest dest-find
sa ea sp ep sz col lw under? solid?))
(define (pin-arrows-curve p
(define (pin-arrows-curve sz p
src src-find
dest dest-find
#:start-angle [sa #f] #:end-angle [ea #f]
#:start-pull [sp #f] #:end-pull [ep #f]
#:arrow-size [sz 12]
#:color [col #f]
#:line-width [lw #f]
#:under? [under? #f]