Please find enclosed a patch which adds a lisp interface to get-pixel.
I have attempted to conform to your style, I hope I have succeeded.
Thank you for the great work,
Alan Shields
diff -u cl-gd-0.4.6-old/drawing.lisp cl-gd-0.4.6/drawing.lisp
--- cl-gd-0.4.6-old/drawing.lisp 2005-03-09 08:17:56.000000000 -0600
+++ cl-gd-0.4.6/drawing.lisp 2005-05-06 17:29:49.000000000 -0500
@@ -39,6 +39,14 @@
(gd-image-set-pixel (img image) x y color)))
(values x y))
+(defun get-pixel (x y &key (image *default-image*))
+ "Gets the color associated with point \(X,Y)."
+ (check-type image image)
+ (with-transformed-alternative
+ ((x x-transformer)
+ (y y-transformer))
+ (gd-image-get-pixel (img image) x y)))
+
(defgeneric set-pixels (points &key color image)
(:documentation "Draws a list \(X1 Y1 X2 Y2 ...) or vector #\(X1 Y1
X2 Y2 ...) of pixels."))
diff -u cl-gd-0.4.6-old/packages.lisp cl-gd-0.4.6/packages.lisp
--- cl-gd-0.4.6-old/packages.lisp 2005-03-09 03:11:30.000000000 -0600
+++ cl-gd-0.4.6/packages.lisp 2005-05-06 17:38:25.432847326 -0500
@@ -51,6 +51,7 @@
#:draw-line
#:set-pixel
#:set-pixels
+ #:get-pixel
#:draw-rectangle
#:draw-rectangle*
#:draw-arc
