[Chicken-hackers] imlib2 image-draw-ellipse, image-fill-ellipse

[John J Foerch]

Hello,

This patch provides two more bindings for the imlib2 egg.  I would
appreciate if a release of the egg could be tagged after adding this
patch.

Thanks!

>From 329487577305bed1b6df78a4b0c2db30d3516af3 Mon Sep 17 00:00:00 2001
From: "John J. Foerch" <address@hidden>
Date: Sun, 11 Sep 2016 10:06:32 -0400
Subject: [PATCH] image-draw-ellipse, image-fill-ellipse: new bindings

---
 imlib2.scm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/imlib2.scm b/imlib2.scm
index 950dbd0..27b119e 100644
--- a/imlib2.scm
+++ b/imlib2.scm
@@ -50,7 +50,7 @@
    image-crop&scale image-pixel/rgba image-pixel/hsva image-pixel/hlsa
    image-pixel/cmya color/rgba color/hsva color/hlsa color/cmya color?
    image-draw-pixel image-draw-line image-draw-rectangle image-draw-text
-   image-fill-rectangle 
+   image-fill-rectangle image-draw-ellipse image-fill-ellipse
    font-load make-image image-ptr gc-collect-image)
 
 (import chicken scheme foreign)
@@ -471,9 +471,16 @@
   (context-set-color color)
   ((foreign-lambda void imlib_image_fill_rectangle int int int int) x y width 
height))
 
+(define/img (image-draw-ellipse img color xc yc a b)
+  (context-set-color color)
+  ((foreign-lambda void imlib_image_draw_ellipse int int int int) xc yc a b))
+
+(define/img (image-fill-ellipse img color xc yc a b)
+  (context-set-color color)
+  ((foreign-lambda void imlib_image_fill_ellipse int int int int) xc yc a b))
+
 ; XXX: TODO: imlib_clip_line, imlib_image_copy_alpha_(rectangle_)to_image
-;           imlib_image_scroll_rect, imlib_image_copy_rect,
-;           imlib_image_draw_ellipse, imlib_image_fill_ellipse
+;           imlib_image_scroll_rect, imlib_image_copy_rect
 ;
 ; Polygon drawing functions
 
-- 
2.9.3