From 2700ead795b17ff00d1c15a5ac1ebf492b2c69c9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 8 Nov 2006 21:49:47 +0000 Subject: [PATCH] correct drawing of balloon spikes in some directions svn: r4809 --- collects/texpict/balloon.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/texpict/balloon.ss b/collects/texpict/balloon.ss index 95f81e872c..0d83e90d97 100644 --- a/collects/texpict/balloon.ss +++ b/collects/texpict/balloon.ss @@ -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)]