resize pixels, pack colors, reduce colors modified

Author: tsulej

CHANGELOG.md

@@ -1,6 +1,17 @@
 # Change Log
 All notable changes to this project will be documented in this file. This change log follows the conventions of [keepachangelog.com](http://keepachangelog.com/).
 
+## 1.0.2
+
+### Added
+
+* `pack` color into 32 bit integer
+* `resize` Pixels
+
+### Changed
+
+* `reduce-colors` - selects color from cluster using `mode` rather than centroid
+
 ## 1.0.1
 
 ### Added

example/clojure2d/color_example.clj

@@ -125,6 +125,14 @@
 (add-examples format-hex
   (example-session "Usage" (format-hex :maroon) (format-hex (color 4 55 222))))
 
+(add-examples pack
+  (example-session "Pack colors into 32 bit int"
+    (pack :green)
+    (pack 1233456)
+    (pack 0x1122ff)
+    (pack (to-color 0x1122ff))
+    (pack (color 12 33 255))))
+
 ;; -- thing
 
 (add-examples to-thing-rgba

generateme/colors.clj

@@ -2,7 +2,11 @@
   (:require [clojure2d.core :refer :all]
             [clojure2d.color :as c]
             [fastmath.core :as m]
-            [fastmath.vector :as v]))
+            [fastmath.vector :as v]
+            [clojure2d.extra.utils :as u]
+            [fastmath.clustering :as cl]
+            [clojure2d.pixels :as p]
+            [fastmath.stats :as stat]))
 
 (def canv (canvas 800 300))
 
@@ -18,3 +22,17 @@
         (line c x 0 x 150)
         (set-color c (p1 t))
         (line c x 150 x 300)))))
+
+;;
+
+(def img (p/load-pixels "docs/samurai.jpg"))
+
+(u/show-palette (c/reduce-colors :LUV (resize (p/load-pixels "bbb1.jpg") 600 600) 5) )  
+
+;;
+
+(save (:buffer (u/show-gradient (c/gradient :LAB :cubic-spline (c/reduce-colors :LAB (resize (p/load-pixels "b5.jpg") 600 600) 5)))) "b5grad.jpg")
+
+(u/show-gradient (c/gradient :LAB :cubic-spline (c/reduce-colors :LUV (resize (p/load-pixels "bbb1.jpg") 600 600) 4)))
+
+;;

project.clj

@@ -1,4 +1,4 @@
-(defproject clojure2d "1.0.1"
+(defproject clojure2d "1.0.2"
   :description "Creative coding / glitch library backed by Java2D"
   :url "https://github.com/Clojure2D/clojure2d"
   :license {:name "MIT"

src/clojure2d/color.clj

@@ -459,6 +459,14 @@
   [c]
   (str "#" (format "%02x" (lclamp255 (red c))) (format "%02x" (lclamp255 (green c))) (format "%02x" (lclamp255 (blue c)))))
 
+(defn pack
+  "Pack color to ARGB 32bit integer."
+  [c]
+  (unchecked-int (bit-or (<< (lclamp255 (alpha c)) 24)
+                         (<< (lclamp255 (red c)) 16)
+                         (<< (lclamp255 (green c)) 8)
+                         (lclamp255 (blue c)))))
+
 ;; ---------- blending
 
 (def ^:dynamic ^{:metadoc/categories #{:bl} :doc "Some blend functions can be parametrized with `threshold` value. Default `0.5`."} ^double *blend-threshold* 0.5)
@@ -2549,14 +2557,19 @@ See [[blends-list]] for names."}
 (defn reduce-colors
   "Reduce colors using x-means clustering in given `colorspace` (default `:RGB`).
 
-  Use for long sequences."
-  ([xs number-of-colors]
-   (sort-by luma (for [{:keys [representative]} (cl/regroup (cl/x-means xs number-of-colors))]
-                   representative)))
+  Use for long sequences (for example to generate palette from image)."
+  ([xs number-of-colors] (reduce-colors :RGB xs number-of-colors))
   ([colorspace xs number-of-colors]
    (let [[to from] (colorspaces* colorspace)]     
-     (sort-by luma (for [{:keys [representative]} (cl/regroup (cl/x-means (map (comp to to-color) xs) number-of-colors))]
-                     (from representative))))))
+     (sort-by luma ;; sort by brightness
+              (for [{:keys [data]} (-> (map to xs) ;; convert to given colorspace
+                                       (cl/x-means number-of-colors) ;; clustering
+                                       (cl/regroup))] ;; reshape
+                (->> (map pack data) ;; pack colors into integers
+                     (stat/modes) ;; find colors which appears most often
+                     (map (comp to-color unchecked-long)) ;; convert back to colors
+                     (v/average-vectors) ;; average vectors if necessary
+                     (from))))))) ;; convert back to RGB
 
 ;; colors
 
@@ -2759,7 +2772,7 @@ See [[blends-list]] for names."}
 
   Grandient function accepts value from 0 to 1 and returns interpolated color.
 
-  Optionally interpolate in given `colorspace` and 1d `interpolator` as keyword or function.
+  Optionally interpolate in given `colorspace` and 1d [interpolator](https://generateme.github.io/fastmath/fastmath.interpolation.html#var-interpolators-1d-list) as keyword or function.
 
   To make irregular spacings between colors, provide own `domain`."
   {:metadoc/categories #{:grad}}

src/clojure2d/pixels.clj

@@ -174,6 +174,7 @@
     px)
   (convolve [_ t]
     (core/convolve (clojure2d.java.Pixels/imageFromPixels p w h) t))
+  (resize [_ wi he] (to-pixels (core/resize (clojure2d.java.Pixels/imageFromPixels p w h) wi he)))
 
   Counted
   (count [_] size)