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

change pin-line pull to a ratio

Browse Source 
svn: r13821
This commit is contained in:
Matthew Flatt 2009-02-24 17:47:24 +00:00
parent 5c957f915c
commit b2ae4264e3
2 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -287,8 +287,8 @@ argument for consistency with the other functions.}
[find-dest (pict? pict-path? . -> . (values real? real?))]
[#:start-angle start-angle (or/c real? #f) #f]
[#: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]
[#:start-pull start-pull real? 1/4]
[#:end-pull end-pull real? 1/4]
[#: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])
@ -300,8 +300,8 @@ argument for consistency with the other functions.}
[find-dest (pict? pict-path? . -> . (values real? real?))]
[#:start-angle start-angle (or/c real? #f) #f]
[#: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]
[#:start-pull start-pull real? 1/4]
[#:end-pull end-pull real? 1/4]
[#: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]
@ -314,8 +314,8 @@ argument for consistency with the other functions.}
[find-dest (pict? pict-path? . -> . (values real? real?))]
[#:start-angle start-angle (or/c real? #f) #f]
[#: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]
[#:start-pull start-pull real? 1/4]
[#:end-pull end-pull real? 1/4]
[#: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]
@ -343,9 +343,7 @@ The @scheme[start-angle], @scheme[end-angle], @scheme[start-pull], and
@item{The @scheme[start-pull] and @scheme[end-pull] arguments specify
a kind of momentum for the starting and ending angles; larger
values preserve the angle longer. If @scheme[start-pull] or
@scheme[end-pull] is @scheme[#f], then it is replaced with
one-fourth of the distance between the start and end points.}
values preserve the angle longer.}
]

4
collects/slideshow/pict.ss
View File

@ -108,8 +108,8 @@
[ea (or ea
(atan (- sy0 dy0) (- dx0 sx0)))]
[d (sqrt (+ (* (- dy0 sy0) (- dy0 sy0)) (* (- dx0 sx0) (- dx0 sx0))))]
[sp (or sp (* 1/4 d))]
[ep (or ep (* 1/4 d))])
[sp (* (or sp 1/4) d)]
[ep (* (or ep 1/4) d)])
(let ([dx (if end-arrow? (- dx0 (* sz (cos ea))) dx0)]
[dy (if end-arrow? (+ dy0 (* sz (sin ea))) dy0)]
[sx (if start-arrow? (+ sx0 (* sz (cos sa))) sx0)]