import java.applet.*;
import java.awt.*;
import java.io.*;
import java.net.*;
import Vertex2D;
import Triangle;
import ppmDecoder;

public class TriTest extends Applet {
    static int CHUNKSIZE = 100;
    Raster reference, raster;
    Triangle[] triList;
    int triangles;
    Color background;
    Image screen;
    int state;

    public void init( ) {
        // Read in the reference image
        ppmDecoder ppmDecoder = new ppmDecoder();
        screen = ppmDecoder.getImage(getDocumentBase(), getParameter("image"));
        reference = new Raster(screen);

        // Create a raster for rendering
        background = new Color(0xFF000066);
        raster = new Raster(reference.getWidth(), reference.getHeight());

        // Read in the triangle file
        triList = new Triangle[CHUNKSIZE];
        triangles = 0;
        InputStream is = null;
        try {
            is = new URL(getDocumentBase(), getParameter("datafile")).openStream();
            ReadInput(is);
            is.close();
        } catch (IOException e) {
            showStatus("Error reading "+getParameter("datafile"));
        }
        state = 0;
    }

    // parse a floting point number
    private float getNumber(StreamTokenizer st) throws IOException {
        st.nextToken();
        return (Float.valueOf(st.sval).floatValue());
    }

    // parse a packed integer in hex, octal, or decimal
    private int getColor(StreamTokenizer st) throws IOException {
        st.nextToken();
        int pix;
        if (st.sval.startsWith("0x") || st.sval.startsWith("0X")) {
	        pix = (int) Long.parseLong(st.sval.substring(2), 16);
	    } else
	    if (st.sval.startsWith("0") || st.sval.length() > 1) {
	        pix = (int) Long.parseLong(st.sval.substring(1), 8);
	    } else
	        pix = Integer.parseInt(st.sval);
        return pix;
    }

    // extend the triangle array if needed
    private void growList() {
        Triangle newList[] = new Triangle[triList.length+CHUNKSIZE];
        System.arraycopy(triList, 0, newList, 0, triList.length);
        triList = newList;
        CHUNKSIZE = (3*CHUNKSIZE)/2;
    }
    
    // define legal characters for our parser
    // The remainder of a line after a '#' is ignored
    // you might find this helpful for debugging
    private void configureParser(StreamTokenizer st) {
	    st.ordinaryChars(0, 255);
	    st.wordChars('a', 'f');
	    st.wordChars('A', 'F');
	    st.wordChars('0', '9');
	    st.wordChars('-', '-');
	    st.wordChars('.', '.');
	    st.wordChars('x', 'x');
	    st.wordChars('X', 'X');
	    st.whitespaceChars(' ', ' ');
	    st.whitespaceChars('\t', '\t');
	    st.whitespaceChars('\n', '\n');
	    st.whitespaceChars('\r', '\r');
    	st.eolIsSignificant(false);
    	st.commentChar('#');
    }

    // Scan the triangle file
    public void ReadInput(InputStream is) throws IOException {
        Vertex2D v1, v2, v3;
        int currentvert = 0;
        float x, y;
        int pix;

	    StreamTokenizer st = new StreamTokenizer(is);
	    configureParser(st);
        while (st.nextToken() != StreamTokenizer.TT_EOF) {
            st.pushBack();
            x = getNumber(st);
            y = getNumber(st);
            pix = getColor(st);
            v1 = new Vertex2D(x, y, pix);
            x = getNumber(st);
            y = getNumber(st);
            pix = getColor(st);
            v2 = new Vertex2D(x, y, pix);
            x = getNumber(st);
            y = getNumber(st);
            pix = getColor(st);
            v3 = new Vertex2D(x, y, pix);
            if (triangles == triList.length) growList();
            triList[triangles++] = new Triangle(v1, v2, v3);
	    }
	}
	
	
	String message[] = { "Reference", "Outline",
			     "Filled", "Interpolated along Edges",
			     "Interpolated using Planar Equations (default)",
			     "Difference" };

    public void paint(Graphics g) {
        g.drawImage(screen, 0, 0, this);
	if (state != 5)
	  g.setColor(Color.white);
	else g.setColor(Color.black);
        g.drawString(message[state], 10, 20);
	if (state > 0)
	  g.drawString("Time  = "+time+" ms", 10, 68);
        if (state == 5) {
            double t = (badpixels*100.0)/pixels;
            g.drawString("Bad pixels = "+t+"%", 10, 36);
            if (badpixels > 0)
                t = ((double)pixelerror)/badpixels;
            else
                t = 0;
            g.drawString("Ave error  = "+t, 10, 52);
            
        }
    }

  public void update(Graphics g) {
    paint(g);
  }

    long time;
    int pixels;
    int badpixels;
    int pixelerror;

    public boolean mouseDown(Event e, int x, int y) {
      switch(state) {
      case 0:
	// gridded
	raster.fill(background);
	time = System.currentTimeMillis();
	for (int i = 0; i < triangles; i++) {
	  triList[i].setDrawer
	    (new OutlineTriDrawer(triList[i].v[0],
				  triList[i].v[1],
				  triList[i].v[2]));
	  triList[i].Draw(raster);
	}
	time = System.currentTimeMillis() - time;
	screen = raster.toImage( );
	break;
      case 1: 
	// filled
	raster.fill(background);
	time = System.currentTimeMillis();
	for (int i = 0; i < triangles; i++) {
	  triList[i].setDrawer
	    (new FilledTriDrawer(triList[i].v[0],
				 triList[i].v[1],
				 triList[i].v[2]));
	  triList[i].Draw(raster);
	}
	time = System.currentTimeMillis() - time;
	screen = raster.toImage( );
	break;
      case 2: 
	// interpolated using edge interpolation
	raster.fill(background);
	time = System.currentTimeMillis();
	for (int i = 0; i < triangles; i++) {
	  triList[i].setDrawer
	    (new InterpolateTriDrawer(triList[i].v[0],
				      triList[i].v[1],
				      triList[i].v[2]));
	  triList[i].Draw(raster);
	}
	time = System.currentTimeMillis() - time;
	screen = raster.toImage( );
	break;
      case 3:
	// interpolated using plane eq
	raster.fill(background);
	time = System.currentTimeMillis();
	for (int i = 0; i < triangles; i++) {
	  triList[i].setDrawer
	    (new PlaneEqnTriDrawer(triList[i].v[0],
				   triList[i].v[1],
				   triList[i].v[2]));
	  triList[i].Draw(raster);
	}
	time = System.currentTimeMillis() - time;
	screen = raster.toImage( );
	break;
      case 4:
	int pixa, pixb, t;
	pixels = raster.pixel.length;
	badpixels = 0;
	pixelerror = 0;
	for (int i = 0; i < pixels; i++) {
	  pixa = raster.pixel[i];
	  pixb = reference.pixel[i];
	  // if (pixa != pixb) {
	  if (Math.abs(pixa - pixb) > 1) {
	    badpixels += 1;
	    
	    t = Math.abs((pixa & 255) - (pixb & 255));
	    t += Math.abs(((pixa >> 8) & 255) - ((pixb >> 8) & 255));
	    t += Math.abs(((pixa >> 16) & 255) - ((pixb >> 16) & 255));
	    pixelerror += t;
	    int b = (255 - t);
	    if (b < 0) b = 0;
	    int g = (t > 382) ? (637 - t) : (t - 127);
	    if (g < 0) g = 0;
	    int r = (t - 510);
	    if (r < 0) r = 0;
	    
	    //b = 256 - ((pixa & 255) - (pixb & 255));
	    //g = 256 - (((pixa >> 8) & 255) - ((pixb >> 8) & 255));
	    //r = 256 - (((pixa >> 16) & 255) - ((pixb >> 16) & 255));
	    // System.out.println(r + " " + g + " " + b);
	    raster.pixel[i] = ((((0xff00 + r) << 8) + g) << 8) + b;
	  } else {
	    raster.pixel[i] = 0xffffffff;
	  }
	}
	screen = raster.toImage( );
	break;
      case 5:
	screen = reference.toImage( );
	break;
      }
      state = (state + 1) % 6;
      repaint();
      return true;
    }
}