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

correct drawing of balloon spikes in some directions

Browse Source 
svn: r4809
This commit is contained in:
Matthew Flatt 2006-11-08 21:49:47 +00:00
parent 6ca71b6035
commit 2700ead795
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/texpict/balloon.ss
View File

@ -71,15 +71,15 @@
(/ w 2) 1
1 -1 1 1
0 1)]
[(sw) (values 0 (- h dh)
[(sw) (values 0 (- (sub1 h) dh)
dw (sub1 h)
0 (sub1 h)
0.5 -1 0.5 -1
(dxbig 1) (dybig -1))]
[(se) (values (- w dw) h
w (- h dh)
w h
1 -1 1 -1
[(se) (values (- w dw) (sub1 h)
w (- (sub1 h) dh)
w (sub1 h)
0.5 -1 -1 0.5
(dxbig -1) (dybig -1))])])
(let ([xf (+ xc dx)]
[yf (+ yc dy)]