Re: Adding type hint causes compiler error

2009-07-06 Thread philip.hazel...@gmail.com
On Jul 6, 12:25 pm, Jarkko Oranen wrote: > (ints nil) might also work It does indeed. This seems to be as good a solution as could be hoped for, thank you. --~--~-~--~~~---~--~~ You received this message because you are subscribed to the Google Groups "Clojure" gr

Re: Adding type hint causes compiler error

2009-07-06 Thread Jarkko Oranen
On Jul 6, 1:26 pm, "philip.hazel...@gmail.com" wrote: > On Jul 5, 10:31 pm, Mark Triggs wrote: > > > (defn bi-get-pixels > >   [#^BufferedImage bi] > >   (let [raster (.getData bi) > >         pixels (.getPixels raster 0 0 (.getWidth bi) (.getHeight bi) > >                            (cast (Cl

Re: Adding type hint causes compiler error

2009-07-06 Thread philip.hazel...@gmail.com
On Jul 5, 10:31 pm, Mark Triggs wrote: > (defn bi-get-pixels >   [#^BufferedImage bi] >   (let [raster (.getData bi) >         pixels (.getPixels raster 0 0 (.getWidth bi) (.getHeight bi) >                            (cast (Class/forName "[I") nil))] >     (vec pixels))) This still generates a s

Re: Adding type hint causes compiler error

2009-07-05 Thread Kevin Downey
On Sun, Jul 5, 2009 at 5:18 AM, philip.hazel...@gmail.com wrote: > > 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)

Re: Adding type hint causes compiler error

2009-07-05 Thread Mark Triggs
Hi Phil, Part of me hopes there's a nicer way of doing this, but I was able to get it working using: (defn bi-get-pixels [#^BufferedImage bi] (let [raster (.getData bi) pixels (.getPixels raster 0 0 (.getWidth bi) (.getHeight bi) (cast (Class/forName "[I")

Adding type hint causes compiler error

2009-07-05 Thread philip.hazel...@gmail.com
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"))