bug-mit-scheme
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Bug-mit-scheme] Bug in X11 graphics--10.1.6


From: Matt Birkholz
Subject: Re: [Bug-mit-scheme] Bug in X11 graphics--10.1.6
Date: Mon, 29 Apr 2019 13:57:28 -0700
User-agent: Evolution 3.30.1-1build1

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512

Sorry about that.  I've fixed it on master and release-10.

On Sat, 2019-04-27 at 23:44 -0400, Gerald Jay Sussman wrote:
> There is a very annoying bug in 10.1.6.  Here is the actual
> problem that I isolated in the sources.
> 
> In x11-device.scm the following code appears:
> 
> (define (x-graphics/draw-arc device x y radius-x radius-y
>                            angle-start angle-sweep fill?)
>   (x-graphics-draw-arc (x-graphics-device/xw device)
>                      (->flonum x)
>                      (->flonum y)
>                      (->flonum radius-x)
>                      (->flonum radius-y)
>                      (->flonum angle-start)
>                      (->flonum angle-sweep)
>                      fill?))
> 
> (define (x-graphics/draw-circle device x y radius)
>   (x-graphics-draw-arc (x-graphics-device/xw device)
>                      (->flonum x)
>                      (->flonum y)
>                      (->flonum radius)
>                      (->flonum radius)
>                      0.
>                      360.
>                      #f))
> 
> (define (x-graphics/fill-circle device x y radius)
>   (x-graphics-draw-arc (x-graphics-device/xw device)
>                      (->flonum x)
>                      (->flonum y)
>                      (->flonum radius)
>                      (->flonum radius)
>                      0.
>                      360.
>                      #t))
> 
> All the calls to x-graphics-draw-arc have 8 arguments.
> 
> But the definition of this procedure, in x11-graphics.scm
> takes only 6 arguments:
> 
> (define (x-graphics-draw-arc window x 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)))
> 
> _______________________________________________
> Bug-MIT-Scheme mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/bug-mit-scheme
-----BEGIN PGP SIGNATURE-----

iQGzBAEBCgAdFiEELKqfot8xyi0bi8Ssp/sTamsYs6IFAlzHZTgACgkQp/sTamsY
s6IfLgv/R5V4C3Jjdjk76EvZoDkdV6+B/rN2xvu0Lj/PBPPv4479Bd0gdwGpXUHQ
K0pWf+rMydRYkl3QfDu5z3Lp02uNutlb3Nkdw3ZFGNiP2s9th8+VjU6ikOjY+8bl
5Mj7mMOMezs/02sVZoHzKjBCdHmE2EzqntPB4Bc+u3y7TwzvZ8NF8fx8D7d4mjNA
FGaEOMBN6PiXMfqr8lr/uUmBgl8NoyvdsJbv9ui7Fa06yZQ/emtFP3wBK9zqgqbb
E4DXiOVOWWr9oqWJ+u+7JTqM7Pu0jAMCIZfIJZS1vWa9BpbSYZuqPcEDvRW4SwF7
oLJtg/LVjrZzfo6s/CHGYon9nEiy+0tkacZgGp+aE51qNk+cyYVsXEBcmXKVBk95
e5JbbC+0ruqI9ALn/7hpJ6YqkCoCagUdqfhiTiXUQgwOqD7FxODTzPzJVsi7YiJx
aOfu2nJLX8BJNhhO7oJ87JWQi5TrOiVqbrPuwcv3dn1nkIvcDCPLAeYr130N01wM
My3pg1oI
=44Kz
-----END PGP SIGNATURE-----




reply via email to

[Prev in Thread] Current Thread [Next in Thread]