From: Matt Birkholz Date: Mon, 29 Apr 2019 20:34:18 +0000 (-0700) Subject: x-graphics-draw-arc: Add missing parameters. X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~28 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e404a3254638369a7ccb6331390c472f7d3d5421;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