From 5fa5b272b93335ff4d6e2beb0bd37ebe96c13c27 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 21 Jan 2009 17:28:56 +0000 Subject: [PATCH] fixed a bug in a call to update-arrowhead-polygon svn: r13250 original commit: 265f75379a45f82309d2a094da86f1f0d042c486 --- collects/mrlib/graph.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss index 214259d2..9a36a277 100644 --- a/collects/mrlib/graph.ss +++ b/collects/mrlib/graph.ss @@ -536,7 +536,7 @@ [(b45x b45y) (values s5x s4y)] [(b56x b56y) (values s5x s6y)]) - (update-arrowhead-polygon s4x s4y sx s4y) + (update-arrowhead-polygon s4x s4y sx s4y point1 point2 point3 point4) (send dc draw-spline (+ dx s1x) (+ dy s1y) (+ dx b12x) (+ dy b12y) (+ dx s2x) (+ dy s2y)) (send dc draw-spline (+ dx s2x) (+ dy s2y) (+ dx b23x) (+ dy b23y) (+ dx s3x) (+ dy s3y)) (send dc draw-line (+ dx s3x) (+ dy s3y) (+ dx s6x) (+ dy s6y))