Hi,
The following code works as expected:
(import 'javax.imageio.ImageIO 'java.io.File
'java.awt.image.BufferedImage)
(defn bi-get-pixels
[bi]
(vec (.. bi (getData) (getPixels 0 0 (.getWidth bi) (.getHeight bi)
nil))))
(bi-get-pixels (. ImageIO read (File. "/home/phil/prog/small-
test.png")))
But if *warn-on-reflection* is true, it generates four warnings. If we
try to shut it up with a type hint:
(defn bi-get-pixels
[#^BufferedImage bi]
(vec (.. bi (getData) (getPixels 0 0 (.getWidth bi) (.getHeight bi)
nil))))
Exception in thread "main" java.lang.IllegalArgumentException: More
than one matching method found: getPixels (imagio-test.clj:7)
at clojure.lang.Compiler.analyzeSeq(Compiler.java:4558)
...
Caused by: java.lang.IllegalArgumentException: More than one matching
method found: getPixels
at clojure.lang.Compiler.getMatchingParams(Compiler.java:2122)
at clojure.lang.Compiler$InstanceMethodExpr.<init>
(Compiler.java:1159)
at clojure.lang.Compiler$HostExpr$Parser.parse(Compiler.java:
810)
at clojure.lang.Compiler.analyzeSeq(Compiler.java:4551)
... 34 more
The problem here is that getPixels has three forms: (
http://java.sun.com/j2se/1.4.2/docs/api/java/awt/image/Raster.html )
double[] getPixels(int x, int y, int w, int h, double[] dArray)
Returns a double array containing all samples for a
rectangle of pixels, one sample per array element.
float[] getPixels(int x, int y, int w, int h, float[] fArray)
Returns a float array containing all samples for a rectangle
of pixels, one sample per array element.
int[] getPixels(int x, int y, int w, int h, int[] iArray)
Returns an int array containing all samples for a rectangle
of pixels, one sample per array element.
In each case, if the final argument is NULL it is ignored, and if not
the array is populated with the return data from the call (generating
an error if it's not large enough).
Is it possible to specify which invocation of getPixels I intend
without passing an array? I've tried putting #^ints in some likely-
looking places, but nil can't be type-hinted and the others seem to
have no effect. I've also tried splitting the .. up:
(defn bi-get-pixels
[#^BufferedImage bi]
(let [rast (.getData bi)
#^ints pi (.getPixels rast 0 0 (.getWidth bi) (.getHeight bi) nil)]
pi))
But this doesn't work either. I could do manual reflection on Raster
to get the correct method and .invoke it, but that seems far more
complicated than necessary. Any other ideas?
-Phil
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
