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

pip-wrap-balloon

Browse Source 
svn: r212
This commit is contained in:
Matthew Flatt 2005-06-17 16:07:28 +00:00
parent 5893e758fd
commit 4f98eeffc9
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/texpict/balloon.ss
View File

@ -6,7 +6,7 @@
(lib "etc.ss")
(lib "math.ss"))
(provide wrap-balloon
(provide wrap-balloon pip-wrap-balloon
place-balloon
pin-balloon
(rename mk-balloon balloon)
@ -140,6 +140,10 @@
p)
(balloon-point-x b)
(balloon-point-y b)))))
(define pip-wrap-balloon
(opt-lambda (p corner dx dy [color balloon-color][c-rad corner-size])
(pin-balloon (wrap-balloon p corner dx dy color c-rad) (blank 0) 0 0)))
(define (do-place-balloon flip-proc? balloon p to find-to)
(let-values ([(x y) (if (and (number? to)

5
collects/texpict/doc.txt
View File

@ -942,6 +942,11 @@ extracts a pict whose bounding box does not include the spike, but
includes the rest of the image. (The `balloon-point-x' and
`balloon-point-y' functions specify the location of the spike point.)
> (pip-wrap-balloon pict spike-sym dx dy [color corner-radius])
Like `wrap-balloon', but produces a zero-sized pict suitable for use
with `pin-over'.
> (pin-balloon balloon pict to-pict find-to-pos)
> (pin-balloon balloon pict x y)