From e404a3254638369a7ccb6331390c472f7d3d5421 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 29 Apr 2019 13:34:18 -0700 Subject: [PATCH] x-graphics-draw-arc: Add missing parameters. --- src/x11/x11-graphics.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.25.1