Расчет RGB Vals для BufferedImage
-
21-09-2019 - |
Вопрос
Я использую следующие фрагменты, чтобы построить 32 -битное целое число для использования с SetRGB BufferedImage
(bit-or (bit-shift-left a 24)
(bit-or (bit-shift-left r 16)
(bit-or (bit-shift-left g 8) b)))
После написания цветов, чтение их обратно показывает неправильные цвета, есть ли в моей логике ошибка?
Решение
Вы уверены, что у вас есть проблема? Я попытался генерировать несколько значений на основе вашего метода и функционально эквивалентной альтернативы:
(defn argbval
[a r g b]
(bit-or (bit-shift-left a 24)
(bit-or (bit-shift-left r 16)
(bit-or (bit-shift-left g 8) b))))
(defn altargbval
[a r g b]
(+ (* 16777216 a) (* 65536 r) (* 256 g) b))
(defn -main
([& args]
(println "(argbval 25 21 23 29): " (argbval 25 21 23 29))
(println "(altargbval 25 21 23 29): " (altargbval 25 21 23 29))
(println "(argbval 0 0 0 0): " (argbval 0 0 0 0))
(println "(altargbval 0 0 0 0): " (altargbval 0 0 0 0))
(println "(argbval 255 255 255 255): " (argbval 255 255 255 255))
(println "(altargbval 255 255 255 255): " (altargbval 255 255 255 255))))
и получил идентичные значения.
(argbval 25 21 23 29): 420812573
(altargbval 25 21 23 29): 420812573
(argbval 0 0 0 0): 0
(altargbval 0 0 0 0): 0
(argbval 255 255 255 255): 4294967295
(altargbval 255 255 255 255): 4294967295
Я получил те же числа на своем карманном какуляторе.
Существуют ли конкретные аргументы, которые вы видели, чтобы получить неправильные результаты?
Возможно, это не вина в этой логике, но в письменной форме/чтении значений в BufferedImage.
Другие советы
Я держу функцию байтов к интуиции, которая преобразует последовательность байтов в число в моем misc.clj:
(defn bytes-to-int [bytes]
(let [powers (iterate #(* % 256) 1)]
(reduce + 0 (map * bytes powers))))
Это пригодится довольно часто.