我正在尝试制作一个函数，该函数将使用BufferedImage并返回一个ByteBuffer，然后可以将其用作OpenGL纹理。为此，我了解到我必须进行一些字节移位，这与我的问题并没有真正的关系。它与BufferedImage值为ARGB和需要RGBA的OpenGL有关。
我要实现的功能（从Java）是这样的：
public static ByteBuffer toByteBuffer(BufferedImage img){
byte[] byteArray = new byte[img.getWidth()*img.getHeight()*4];
for(int i = 0; i < img.getWidth()*img.getHeight(); i++){
int value = img.getRGB(i%img.getWidth(), (i-(i%img.getWidth()))/img.getWidth() );
byteArray[i*4] = (byte) ((value<<8)>>24);
byteArray[i*4+1] = (byte) ((value<<16)>>24);
byteArray[i*4+2] = (byte) ((value<<24)>>24);
byteArray[i*4+3] = (byte) (value>>24);
}
return (ByteBuffer) ByteBuffer.allocateDirect(byteArray.length).put(byteArray).flip();
}
这是我对clojure的尝试：
(defn sub-byte [^long b ^long x]
(unchecked-byte (-> x
(bit-shift-left (* 8 b))
(bit-shift-right 24))))
(defn bufferedimage->bytebuffer [^BufferedImage img]
(binding [*unchecked-math* true]
(let [w (.getWidth img)
h (.getHeight img)
^bytes arr (make-array Byte/TYPE (* 4 w h))]
(loop [i 0]
(let [img-i (mod i w)
img-j (quot i w)
value (.getRGB img img-i img-j)]
(aset arr (* i 4) (sub-byte 1 value))
(aset arr (+ 1 (* i 4)) (sub-byte 2 value))
(aset arr (+ 2 (* i 4)) (sub-byte 3 value))
(aset arr (+ 3 (* i 4)) (sub-byte 0 value))
(when (< (+ i 1) (* w h)) (recur (+ i 1)))
))
(cast ByteBuffer (-> (ByteBuffer/allocateDirect (count arr))
(.put arr)
(.flip))))))
加载512 * 512切片集需要10秒钟，这是完全不能接受的。我正在尝试以不到一秒钟的速度运行该程序。
请注意，一直花费时间的部分是循环。
我不妨提及那些时间是使用REPL进行的。
另外，请注意，我很清楚我可以在代码的性能关键部分使用java，因此这更多是一个理论问题，因此我可以学习如何优化clojure代码。
当您设置使用功能的解决方案的问题显露*warn-on-reflection*于true：
(set! *warn-on-reflection* true)
加载代码时，编译器将告诉您sub-byte函数返回Object，并且无法静态解析匹配方法。
Reflection warning, web_app/so.clj:26:11 - call to static method aset on clojure.lang.RT can't be resolved (argument types: [B, int, java.lang.Object).
不幸的是，你不能用一个类型提示byte返回值，你的函数，因为只有long和double图元支持作为返回类型：
(defn sub-byte ^byte [^long b ^long x]
(unchecked-byte (-> x
(bit-shift-left (* 8 b))
(bit-shift-right 24))))
CompilerException java.lang.IllegalArgumentException: Only long and double primitives are supported, compiling:(web_app/so.clj:7:1)
您可能会尝试将提示^long作为返回类型，但提示的结果类型不是您的函数体返回的内容（byte）：
(defn sub-byte ^long [^long b ^long x]
(unchecked-byte (-> x
(bit-shift-left (* 8 b))
(bit-shift-right 24))))
CompilerException java.lang.IllegalArgumentException: Mismatched primitive return, expected: long, had: byte, compiling:(web_app/so.clj:7:1)
但是，您可以使函数返回，long但随后您必须将其包装在任何地方，unchecked-byte这样您就可以消除所有反射警告：
(defn sub-byte ^long [^long b ^long x]
(-> x
(bit-shift-left (* 8 b))
(bit-shift-right 24))))
(unchecked-byte (sub-byte ...))
另一种解决方案是使用已经发现的宏，这样可以避免函数调用及其返回类型出现任何问题。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句