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" <jjfoe...@earthlink.net>
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
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
