/*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed with
* this work for additional information regarding copyright ownership.
* The ASF licenses this file to You under the Apache License, Version 2.0
* (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
package org.apache.sanselan.palette;
import java.util.ArrayList;
import java.util.Collections;
import java.util.Comparator;
import java.util.HashMap;
import java.util.Map;
import org.apache.sanselan.ImageWriteException;
import org.apache.sanselan.util.Debug;
import com.jgraph.gaeawt.java.awt.image.BufferedImage;
public class MedianCutQuantizer
{
private final boolean ignoreAlpha;
public MedianCutQuantizer(boolean ignore_alpha)
{
this.ignoreAlpha = ignore_alpha;
}
private static class ColorCount
{
public final int argb;
public int count = 0;
public final int alpha, red, green, blue;
public ColorCount(int argb)
{
this.argb = argb;
alpha = 0xff & (argb >> 24);
red = 0xff & (argb >> 16);
green = 0xff & (argb >> 8);
blue = 0xff & (argb >> 0);
// super.hashCode();
}
public int hashCode()
{
return argb;
}
public boolean equals(Object o)
{
ColorCount other = (ColorCount) o;
return other.argb == this.argb;
}
}
private class ColorGroup
{
// public final ColorGroup parent;
public ColorGroupCut cut = null;
// public final ArrayList children = new ArrayList();
public int palette_index = -1;
public final ArrayList color_counts;
public int min_red = Integer.MAX_VALUE;
public int max_red = Integer.MIN_VALUE;
public int min_green = Integer.MAX_VALUE;
public int max_green = Integer.MIN_VALUE;
public int min_blue = Integer.MAX_VALUE;
public int max_blue = Integer.MIN_VALUE;
public int min_alpha = Integer.MAX_VALUE;
public int max_alpha = Integer.MIN_VALUE;
public final int alpha_diff;
public final int red_diff;
public final int green_diff;
public final int blue_diff;
public final int max_diff;
public final int diff_total;
public ColorGroup(final ArrayList color_counts)
throws ImageWriteException
{
this.color_counts = color_counts;
if (color_counts.size() < 1)
throw new ImageWriteException("empty color_group");
for (int i = 0; i < color_counts.size(); i++)
{
ColorCount color = (ColorCount) color_counts.get(i);
min_alpha = Math.min(min_alpha, color.alpha);
max_alpha = Math.max(max_alpha, color.alpha);
min_red = Math.min(min_red, color.red);
max_red = Math.max(max_red, color.red);
min_green = Math.min(min_green, color.green);
max_green = Math.max(max_green, color.green);
min_blue = Math.min(min_blue, color.blue);
max_blue = Math.max(max_blue, color.blue);
}
alpha_diff = max_alpha - min_alpha;
red_diff = max_red - min_red;
green_diff = max_green - min_green;
blue_diff = max_blue - min_blue;
max_diff = Math.max(ignoreAlpha ? red_diff : Math.max(alpha_diff,
red_diff), Math.max(green_diff, blue_diff));
diff_total = (ignoreAlpha ? 0 : alpha_diff) + red_diff + green_diff
+ blue_diff;
}
public boolean contains(int argb)
{
int alpha = 0xff & (argb >> 24);
int red = 0xff & (argb >> 16);
int green = 0xff & (argb >> 8);
int blue = 0xff & (argb >> 0);
if (!ignoreAlpha && (alpha < min_alpha || alpha > max_alpha))
return false;
if (red < min_red || red > max_red)
return false;
if (green < min_green || green > max_green)
return false;
if (blue < min_blue || blue > max_blue)
return false;
return true;
}
public int getMedianValue()
{
long count_total = 0;
long alpha_total = 0, red_total = 0, green_total = 0, blue_total = 0;
for (int i = 0; i < color_counts.size(); i++)
{
ColorCount color = (ColorCount) color_counts.get(i);
count_total += color.count;
alpha_total += color.count * color.alpha;
red_total += color.count * color.red;
green_total += color.count * color.green;
blue_total += color.count * color.blue;
}
int alpha = ignoreAlpha ? 0xff : (int) Math
.round((double) alpha_total / count_total);
int red = (int) Math.round((double) red_total / count_total);
int green = (int) Math.round((double) green_total / count_total);
int blue = (int) Math.round((double) blue_total / count_total);
return (alpha << 24) | (red << 16) | (green << 8) | blue;
}
public String toString()
{
return "{ColorGroup. min_red: " + Integer.toHexString(min_red)
+ ", max_red: " + Integer.toHexString(max_red)
+ ", min_green: " + Integer.toHexString(min_green)
+ ", max_green: " + Integer.toHexString(max_green)
+ ", min_blue: " + Integer.toHexString(min_blue)
+ ", max_blue: " + Integer.toHexString(max_blue)
+ ", min_alpha: " + Integer.toHexString(min_alpha)
+ ", max_alpha: " + Integer.toHexString(max_alpha)
+ ", max_diff: " + Integer.toHexString(max_diff)
+ ", diff_total: " + diff_total + "}";
}
}
public Map groupColors1(BufferedImage image, int max, int mask)
throws ImageWriteException
{
Map color_map = new HashMap();
int width = image.getWidth();
int height = image.getHeight();
int row[] = new int[width];
for (int y = 0; y < height; y++)
{
image.getRGB(0, y, width, 1, row, 0, width);
for (int x = 0; x < width; x++)
{
int argb = row[x];
if (ignoreAlpha)
argb &= 0xffffff;
argb &= mask;
ColorCount color = (ColorCount) color_map
.get(new Integer(argb));
if (color == null)
{
color = new ColorCount(argb);
color_map.put(new Integer(argb), color);
if (color_map.keySet().size() > max)
return null;
}
color.count++;
}
}
return color_map;
}
public Map groupColors(BufferedImage image, int max_colors)
throws ImageWriteException
{
int max = Integer.MAX_VALUE;
for (int i = 0; i < 8; i++)
{
int mask = 0xff & (0xff << i);
mask = mask | (mask << 8) | (mask << 16) | (mask << 24);
Debug.debug("mask(" + i + ")", mask + " ("
+ Integer.toHexString(mask) + ")");
Map result = groupColors1(image, max, mask);
if (result != null)
return result;
}
throw new Error("");
}
public Palette process(BufferedImage image, int max_colors, boolean verbose)
throws ImageWriteException
{
Map color_map = groupColors(image, max_colors);
int discrete_colors = color_map.keySet().size();
if (discrete_colors <= max_colors)
{
if (verbose)
Debug.debug("lossless palette: " + discrete_colors);
int palette[] = new int[discrete_colors];
ArrayList color_counts = new ArrayList(color_map.values());
for (int i = 0; i < color_counts.size(); i++)
{
ColorCount color_count = (ColorCount) color_counts.get(i);
palette[i] = color_count.argb;
if (ignoreAlpha)
palette[i] |= 0xff000000;
}
return new SimplePalette(palette);
}
if (verbose)
Debug.debug("discrete colors: " + discrete_colors);
ArrayList color_groups = new ArrayList();
ColorGroup root = new ColorGroup(new ArrayList(color_map.values()));
{
color_groups.add(root);
final Comparator comparator = new Comparator()
{
public int compare(Object o1, Object o2)
{
ColorGroup cg1 = (ColorGroup) o1;
ColorGroup cg2 = (ColorGroup) o2;
if (cg1.max_diff == cg2.max_diff)
return cg2.diff_total - cg1.diff_total;
return cg2.max_diff - cg1.max_diff;
}
};
while (color_groups.size() < max_colors)
{
Collections.sort(color_groups, comparator);
ColorGroup color_group = (ColorGroup) color_groups.get(0);
if (color_group.max_diff == 0)
break;
if (!ignoreAlpha
&& color_group.alpha_diff > color_group.red_diff
&& color_group.alpha_diff > color_group.green_diff
&& color_group.alpha_diff > color_group.blue_diff)
{
doCut(color_group, ALPHA, color_groups);
}
else if (color_group.red_diff > color_group.green_diff
&& color_group.red_diff > color_group.blue_diff)
{
doCut(color_group, RED, color_groups);
}
else if (color_group.green_diff > color_group.blue_diff)
{
doCut(color_group, GREEN, color_groups);
}
else
{
doCut(color_group, BLUE, color_groups);
}
}
}
{
int palette_size = color_groups.size();
if (verbose)
Debug.debug("palette size: " + palette_size);
int palette[] = new int[palette_size];
for (int i = 0; i < color_groups.size(); i++)
{
ColorGroup color_group = (ColorGroup) color_groups.get(i);
palette[i] = color_group.getMedianValue();
color_group.palette_index = i;
if (color_group.color_counts.size() < 1)
throw new ImageWriteException("empty color_group: "
+ color_group);
// if(color_group.)
// Debug.debug("color_group", color_group);
// Debug.debug("palette[" + i + "]", palette[i] + " ("
// + Integer.toHexString(palette[i]) + ")");
}
if (palette_size > discrete_colors)
throw new ImageWriteException("palette_size>discrete_colors");
return new MedianCutPalette(root, palette);
}
}
private static final int ALPHA = 0;
private static final int RED = 1;
private static final int GREEN = 2;
private static final int BLUE = 3;
private void doCut(ColorGroup color_group, final int mode,
final ArrayList color_groups) throws ImageWriteException
{
int count_total = 0;
for (int i = 0; i < color_group.color_counts.size(); i++)
{
ColorCount color_count = (ColorCount) color_group.color_counts
.get(i);
count_total += color_count.count;
}
Comparator comparator = new Comparator()
{
public int compare(Object o1, Object o2)
{
ColorCount c1 = (ColorCount) o1;
ColorCount c2 = (ColorCount) o2;
switch (mode)
{
case ALPHA :
return c1.alpha - c2.alpha;
case RED :
return c1.red - c2.red;
case GREEN :
return c1.green - c2.green;
case BLUE :
return c1.blue - c2.blue;
default :
return 0;
}
}
};
Collections.sort(color_group.color_counts, comparator);
int count_half = (int) Math.round((double) count_total / 2);
int old_count = 0, new_count = 0;
int median_index;
for (median_index = 0; median_index < color_group.color_counts.size(); median_index++)
{
ColorCount color_count = (ColorCount) color_group.color_counts
.get(median_index);
new_count += color_count.count;
if (new_count < count_half)
{
old_count = new_count;
continue;
}
break;
}
if (median_index == color_group.color_counts.size() - 1)
median_index--;
else if (median_index > 0)
{
int new_diff = Math.abs(new_count - count_half);
int old_diff = Math.abs(count_half - old_count);
if (old_diff < new_diff)
median_index--;
}
color_groups.remove(color_group);
{
ArrayList color_counts1 = new ArrayList(color_group.color_counts
.subList(0, median_index + 1));
ArrayList color_counts2 = new ArrayList(color_group.color_counts
.subList(median_index + 1, color_group.color_counts.size()));
ColorGroup less, more;
{
less = new ColorGroup(new ArrayList(color_counts1));
color_groups.add(less);
}
{
more = new ColorGroup(new ArrayList(color_counts2));
color_groups.add(more);
}
ColorCount median_value = (ColorCount) color_group.color_counts
.get(median_index);
int limit;
switch (mode)
{
case ALPHA :
limit = median_value.alpha;
break;
case RED :
limit = median_value.red;
break;
case GREEN :
limit = median_value.green;
break;
case BLUE :
limit = median_value.blue;
break;
default :
throw new Error("Bad mode.");
}
color_group.cut = new ColorGroupCut(less, more, mode, limit);
}
}
private class ColorGroupCut
{
public final ColorGroup less, more;
public final int mode, limit;
public ColorGroupCut(ColorGroup less, ColorGroup more, int mode,
int limit)
{
this.less = less;
this.more = more;
this.mode = mode;
this.limit = limit;
}
public ColorGroup getColorGroup(int argb)
{
int value;
switch (mode)
{
case ALPHA :
value = 0xff & (argb >> 24);
break;
case RED :
value = 0xff & (argb >> 16);
break;
case GREEN :
value = 0xff & (argb >> 8);
break;
case BLUE :
value = 0xff & (argb >> 0);
break;
default :
throw new Error("bad mode.");
}
if (value <= limit)
return less;
return more;
}
}
public class MedianCutPalette extends SimplePalette
{
private final ColorGroup root;
public MedianCutPalette(ColorGroup root, int palette[])
{
super(palette);
this.root = root;
}
public int getPaletteIndex(int rgb)
{
ColorGroup cg = root;
while (cg.cut != null)
{
ColorGroup next = cg.cut.getColorGroup(rgb);
cg = next;
}
return cg.palette_index;
}
}
}