From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 29 Apr 2019 20:34:18 +0000 (-0700)
Subject: x-graphics-draw-arc: Add missing parameters.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7aad907a88698430a660fd3e088584019834e312;p=mit-scheme.git

x-graphics-draw-arc: Add missing parameters.
---

diff --git a/src/x11/x11-graphics.scm b/src/x11/x11-graphics.scm
index 06feffba1..9ca2a0f1a 100644
--- a/src/x11/x11-graphics.scm
+++ b/src/x11/x11-graphics.scm
@@ -112,13 +112,14 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
   ;; Subsequently move the graphics cursor to those coordinates.
   (C-call "x_graphics_draw_point" window x y))
 
-(define (x-graphics-draw-arc window x y start-angle sweep-angle fill?)
+(define (x-graphics-draw-arc window x y radius-x radius-y
+			     start-angle sweep-angle fill?)
   ;; Draw an arc at the given coordinates, with given X and Y radii.
   ;; START-ANGLE and SWEEP-ANGLE are in degrees, anti-clocwise.
   ;; START-ANGLE is from 3 o'clock, and SWEEP-ANGLE is relative to the
   ;; START-ANGLE.  If FILL? is true, the arc is filled.
   (C-call "x_graphics_draw_arc" window
-	  x y start-angle sweep-angle (if fill? 1 0)))
+	  x y radius-x radius-y start-angle sweep-angle (if fill? 1 0)))
 
 (define (x-graphics-draw-string window x y string)
   ;; Draw characters in the current font at the given coordinates, with