vba-clojure: clojure/com/aurellem/run/image.clj comparison

saving progress

comparison

equal deleted inserted replaced

-:e9a63daf680a
+:4703b74f1fb1
 (defn gb-tiles [^BufferedImage image]
 (for [tile (range 360)]
 (for [x (range 8) y (range 8)]
 (vga-rgb->gb-rgb
 (rgb->triplet
-(.getRGB image (+ x (rem (* tile 8 8) 160))
+(.getRGB image (+ x (* 8 (rem tile 20)))
-(+ y (int (/ (* tile 8 8) 144)))))))))
+(+ y (* 8 (int (/ tile 20))))))))))
+(defn tile->palette [tile]
+(sort (set tile)))
+(require 'clojure.set)
+(defn absorb-contract [objs]
+(reduce
+(fn [accepted new-element]
+(if (some
+(fn [obj]
+(clojure.set/subset? (set new-element) (set obj)))
+accepted)
+accepted
+(conj accepted new-element)))
+[]
+(sort-by (comp - count) objs)))
+(defn absorb-combine-4 [objs]
+)
+(defn palettes [^BufferedImage image]
+(let [palettes (map tile->palette (gb-tiles image))
+unique-palettes (absorb-contract (set palettes))]
+unique-palettes))
 (defn display-image-kernel [^BufferedImage image]

Mercurial > vba-clojure