/******************************************************************************

  * FirstRibbon.java - Make a Mosaic

  * 

  * PicMan - The BuckoSoft Picture Manager in Java

  * Copyright(c) 2008 - Dick Balaska

  * 

  */

 package com.buckosoft.PicMan.business.mosaic.engine;

 import java.awt.Graphics2D;

 import java.awt.image.BufferedImage;

 import java.util.Iterator;

 import java.util.List;

 import org.apache.commons.logging.Log;

 import org.apache.commons.logging.LogFactory;

 import com.buckosoft.PicMan.business.mosaic.MosaicEngine;

 import com.buckosoft.PicMan.domain.MosaicTile;

 import com.buckosoft.PicMan.domain.Pic;

 /** After 8 years, finally make a Mosaic.

  * This engine walks through each row of a Pic and places the best tile there.

  * "Best" is determined by subtracting the tile from the Pic and summing the difference in each pixel.

  * This is performed from each tile in the set, and the one with the least difference is chosen.  

  * @author Dick Balaska

  * @since 2008/01/20

  * @see <a href="http://cvs.buckosoft.com/Projects/java/PicMan/PicMan/src/main/java/com/buckosoft/PicMan/business/mosaic/engine/FirstRibbon.java">FirstRibbon.java</a>

  */

 public class FirstRibbon extends MosaicEngine {

         private static final boolean DEBUG = true;

         private final Log logger = LogFactory.getLog(getClass());

         private        int                curRow = 0;

         private        int                curCol = 0;

         private        int                maxRow;

         private        int                maxCol;

         private        int                p;

         private        List<Pic>        picList;

         private        String        info = "N/A";

         private        long[]        used;

         /** Return our current build status

          * @return The status

          */

         public        String        getStatus() {

                 StringBuilder sb = new StringBuilder();

                 sb.append("curRow = ");

                 sb.append(curRow);

                 sb.append(" curCol = ");

                 sb.append(curCol);

                 sb.append(" p=");

                 sb.append(p);

                 return(sb.toString());

         }

         public String getInfo() {

                 return(info);

         }

         protected boolean _build() {

                 Graphics2D        gd = bi.createGraphics();

                 // 75, pull from this size set even though the size calc should be able to deal with, say, a 50 and figure it out.

                 picList = pmf.getDB().getPics(this.mosaicSet, this.tileHeight);

                 if (DEBUG)

                         logger.info("Working from " + picList.size() + " pics");

                 maxRow = this.masterPic.getHeight();

                 maxCol = this.masterPic.getWidth();

                 //int                rowHeight = maxRow / tileHeight;

                 long[]        rate = new long[picList.size()];                // rate each pic for this location

                                 used = new long[picList.size()];                // number of times each pic is used

                 info = "maxRow=" + maxRow + " maxCol=" + maxCol + " pics=" + picList.size();

                 if (DEBUG)

                         logger.info("maxRow=" + maxRow + " rowHeight=" + tileHeight);

                 restoreBuild(gd);

                 for (; curRow<maxRow; curRow += tileHeight, curCol=0) {

                         for (; curCol<maxCol; ) {

                                 int        x,y;

                                 for (p=0; p<picList.size(); p++) {

                                         BufferedImage mbi = pmf.getMosaicThumbNail(picList.get(p), tileHeight).getImage();

                                         //BufferedImage mbi = pmf.getThumbNail(null, tileHeight).getImage();

                                         rate[p] = used[p]*1;

                                         for (x=0; x<mbi.getWidth(); x++) {

                                                 for (y=0; y<mbi.getHeight(); y++) {

                                                         int mpx = mbi.getRGB(x, y);

                                                         int        ppx;

                                                         if (x+curCol >= bi.getWidth() || y+curRow >= bi.getHeight())

                                                                 ppx = mpx;

                                                         else

                                                                 ppx = bi.getRGB(x+curCol, y+ curRow);

 //                                                        rate[p] += Math.abs(((mpx)&0xFF)     - ((ppx)&0xFF))     * 30;

 //                                                        rate[p] += Math.abs(((mpx>>8)&0xFF)  - ((ppx>>8)&0xFF))  * 59;

 //                                                        rate[p] += Math.abs(((mpx>>16)&0xFF) - ((ppx>>16)&0xFF)) * 11;

                                                         rate[p] += Math.abs(((mpx)&0xFF)     - ((ppx)&0xFF))     * 1;

                                                         rate[p] += Math.abs(((mpx>>8)&0xFF)  - ((ppx>>8)&0xFF))  * 1;

                                                         rate[p] += Math.abs(((mpx>>16)&0xFF) - ((ppx>>16)&0xFF)) * 1;

                                                 }

                                         }

                                         // Portrait always wins over landscape because there is less pixels to go wrong.

                                         // Give equal weight per pixel column

                                         rate[p] /= mbi.getWidth();

                                         //logger.info("rate[" + p + "]=" + rate[p] + " ("+ picList.get(p).getName() + ")");

                                 }

                                 long best = Long.MAX_VALUE;

                                 int        besti = 0;

                                 int        besti2 = 0;

                                 for (x=0; x<rate.length; x++) {

                                         if (rate[x] < best) {

                                                 besti2 = besti;

                                                 best = rate[x];

                                                 besti = x;

                                         }

                                 }

                                 if (DEBUG) {

                                         logger.info("besti  = " + besti + " (" + picList.get(besti).getName() + ") = " + rate[besti]);

                                         logger.info("besti2 = " + besti2 + " (" + picList.get(besti2).getName() + ") = " + rate[besti2]);

                                 }

                                 used[besti]++;

                                 BufferedImage mbi = pmf.getThumbNail(picList.get(besti), tileHeight).getImage();

                                 if (!mosaic.isBatch()) {

                                         MosaicTile        tile = new MosaicTile(this.mid, picList.get(besti).getPid(), curCol, curRow, mbi.getWidth(), mbi.getHeight());

                                         pmf.getDB().storeMosaicTile(tile);

                                 }

                                 gd.drawImage(mbi, null, curCol, curRow);

                                 curCol += mbi.getWidth();

                                 setLastMosaicUpdate();

                                 if (!pmf.getDB().getSystem().isEngineOn())

                                         return(true);

                         }

                 }

                 return(false);

         }

         private        void restoreBuild(Graphics2D gd) {

                 List<MosaicTile> lmt = pmf.getDB().getMosaicTiles(this.mid);

                 if (DEBUG)

                         logger.info("Restoring " + lmt.size() + " tiles");

                 for (; curRow<maxRow; curRow += tileHeight, curCol=0) {

                         for (; curCol<maxCol; ) {

                                 boolean found = false;

                                 Iterator<MosaicTile> iter = lmt.iterator();

                                 while (iter.hasNext()) {

                                         MosaicTile mt = iter.next();

                                         if (mt.getX() == curCol && mt.getY() == curRow) {

                                                 int besti = getPicListIndex(mt.getPid());

                                                 if (DEBUG)

                                                         logger.info("restore: besti = " + besti + " (" + picList.get(besti).getName() + ")");

                                                 used[besti]++;

                                                 BufferedImage mbi = pmf.getThumbNail(picList.get(besti), tileHeight).getImage();

                                                 gd.drawImage(mbi, null, curCol, curRow);

                                                 curCol += mbi.getWidth();

                                                 setLastMosaicUpdate();

                                                 found = true;

                                                 break;

                                         }

                                 }

                                 if (!found)

                                         return;

                         }

                 }

         }

         private        int        getPicListIndex(int pid) {

                 for (int i=0; i<picList.size(); i++) {

                         Pic p = picList.get(i);

                         if (p.getPid() == pid)

                                 return(i);

                 }

                 return(-1);

         }

 }