import java.awt.*;
import java.applet.*;
import java.util.*;

/**
 * cubes demo
 * @author Filip Pizlo <pizlo@purdue.edu>
 */
public class stim1
    extends Applet
    implements Runnable {

    Thread t;

    Image dbuf;
    Graphics g2;

    double unit;
    int numDots;

    double[][] upperLeft;
    double[][] upperRight;
    double[][] lowerLeft;
    double[][] lowerRight;

    boolean second;

    static Random rand=new Random();

    static double deg(double deg) {
	return deg*Math.PI/180.0;
    }

    static void rotate(int d1,int d2,double[] point,double angle) {
	double t1,t2;
	t1=Math.cos(angle)*point[d1]+Math.sin(angle)*point[d2];
	t2=-Math.sin(angle)*point[d1]+Math.cos(angle)*point[d2];
	point[d1]=t1;
	point[d2]=t2;
    }

    static void rotateAll(int d1,int d2,double[][] points,double angle) {
	for (int i=0;i<points.length;++i) {
	    rotate(d1,d2,points[i],angle);
	}
    }

    static int projX(double[] point) {
	return (int)point[0];
    }
    
    static int projY(double[] point) {
	return (int)point[1];
    }

    static int projX(double[] point1,
		     double[] point2,
		     double where) {
	return (int)((1.0-where)*point1[0]+where*point2[0]);
    }
    
    static int projY(double[] point1,
		     double[] point2,
		     double where) {
	return (int)((1.0-where)*point1[1]+where*point2[1]);
    }

    static void drawWires(Graphics g,
			  double[][] cube) {
	g.drawLine(projX(cube[0]),projY(cube[0]),
		   projX(cube[1]),projY(cube[1]));
	g.drawLine(projX(cube[1]),projY(cube[1]),
		   projX(cube[2]),projY(cube[2]));
	g.drawLine(projX(cube[2]),projY(cube[2]),
		   projX(cube[3]),projY(cube[3]));
	g.drawLine(projX(cube[0]),projY(cube[0]),
		   projX(cube[3]),projY(cube[3]));
	g.drawLine(projX(cube[1]),projY(cube[1]),
		   projX(cube[5]),projY(cube[5]));
	g.drawLine(projX(cube[2]),projY(cube[2]),
		   projX(cube[4]),projY(cube[4]));
	g.drawLine(projX(cube[3]),projY(cube[3]),
		   projX(cube[6]),projY(cube[6]));
	g.drawLine(projX(cube[4]),projY(cube[4]),
		   projX(cube[5]),projY(cube[5]));
	g.drawLine(projX(cube[4]),projY(cube[4]),
		   projX(cube[6]),projY(cube[6]));
    }

    static void drawWiresWithStuffMissing(Graphics g,
					  double[][] cube) {
	g.drawLine(projX(cube[0]),projY(cube[0]),
		   projX(cube[1]),projY(cube[1]));
	g.drawLine(projX(cube[1]),projY(cube[1]),
		   projX(cube[1],cube[2],0.3),
		   projY(cube[1],cube[2],0.3));
	g.drawLine(projX(cube[2]),projY(cube[2]),
		   projX(cube[1],cube[2],0.7),
		   projY(cube[1],cube[2],0.7));
	g.drawLine(projX(cube[2]),projY(cube[2]),
		   projX(cube[2],cube[3],0.3),
		   projY(cube[2],cube[3],0.3));
	g.drawLine(projX(cube[3]),projY(cube[3]),
		   projX(cube[2],cube[3],0.7),
		   projY(cube[2],cube[3],0.7));
	g.drawLine(projX(cube[0]),projY(cube[0]),
		   projX(cube[3]),projY(cube[3]));
	g.drawLine(projX(cube[1]),projY(cube[1]),
		   projX(cube[5]),projY(cube[5]));
	g.drawLine(projX(cube[2]),projY(cube[2]),
		   projX(cube[2],cube[4],0.3),
		   projY(cube[2],cube[4],0.3));
	g.drawLine(projX(cube[4]),projY(cube[4]),
		   projX(cube[2],cube[4],0.7),
		   projY(cube[2],cube[4],0.7));
	g.drawLine(projX(cube[3]),projY(cube[3]),
		   projX(cube[6]),projY(cube[6]));
	g.drawLine(projX(cube[4]),projY(cube[4]),
		   projX(cube[5]),projY(cube[5]));
	g.drawLine(projX(cube[4]),projY(cube[4]),
		   projX(cube[6]),projY(cube[6]));
    }

    static void drawLessWiresAndDot(Graphics g,
				    double[][] cube) {
	g.drawLine(projX(cube[0]),projY(cube[0]),
		   projX(cube[1]),projY(cube[1]));
	g.drawLine(projX(cube[0]),projY(cube[0]),
		   projX(cube[3]),projY(cube[3]));
	g.drawLine(projX(cube[1]),projY(cube[1]),
		   projX(cube[5]),projY(cube[5]));
	g.drawLine(projX(cube[3]),projY(cube[3]),
		   projX(cube[6]),projY(cube[6]));
	g.drawLine(projX(cube[4]),projY(cube[4]),
		   projX(cube[5]),projY(cube[5]));
	g.drawLine(projX(cube[4]),projY(cube[4]),
		   projX(cube[6]),projY(cube[6]));
	g.fillOval(projX(cube[2]),projY(cube[2]),6,6);
    }

    static void drawDots(Graphics g,
			 double[][] dots) {
	for (int i=0;i<dots.length;++i) {
	    int x=projX(dots[i]);
	    int y=projY(dots[i]);
	    g.drawLine(x-1,y,x+1,y);
	    g.drawLine(x,y-1,x,y+1);
	}
    }

    double[][] makeCube(double offset) {
	double[][] result=new double[][]{
	    new double[]{unit,unit,unit},
	    new double[]{unit,-unit,unit},
	    new double[]{-unit,-unit,unit},
	    new double[]{-unit,unit,unit},
	    new double[]{-unit,-unit,-unit},
	    new double[]{unit,-unit,-unit},
	    new double[]{-unit,unit,-unit}
	};
	rotateAll(0,2,result,deg(30+offset));
	rotateAll(1,2,result,deg(30));
	return result;
    }

    double[][] clonePoints(double[][] points) {
	double[][] result=new double[points.length][];
	for (int i=0;i<result.length;++i) {
	    double[] thisPt=new double[points[i].length];
	    for (int j=0;j<thisPt.length;++j) {
		thisPt[j]=points[i][j];
	    }
	    result[i]=thisPt;
	}
	return result;
    }
    
    double[][] makeDottedCube(double offset) {
	double[][] result=new double[numDots*3][];
	for (int i=0;i<numDots;++i) {
	    result[i]=new double[3];
	    result[i][0]=rand.nextDouble()*unit*2-unit;
	    result[i][1]=rand.nextDouble()*unit*2-unit;
	    result[i][2]=unit;
	}
	for (int i=numDots;i<numDots*2;++i) {
	    result[i]=new double[3];
	    result[i][2]=rand.nextDouble()*unit*2-unit;
	    result[i][1]=rand.nextDouble()*unit*2-unit;
	    result[i][0]=-unit;
	}
	for (int i=numDots*2;i<numDots*3;++i) {
	    result[i]=new double[3];
	    result[i][0]=rand.nextDouble()*unit*2-unit;
	    result[i][2]=rand.nextDouble()*unit*2-unit;
	    result[i][1]=-unit;
	}
	rotateAll(0,2,result,deg(30+offset));
	rotateAll(1,2,result,deg(30));
	return result;
    }

    int intParam(String name,int def) {
	int result;
	String param=getParameter(name);
	if (param==null) {
	    result=def;
	} else {
	    try {
		result=Integer.parseInt(param);
	    } catch (NumberFormatException e) {
		System.err.println("Bad format for "+name+": "+param);
		result=def;
	    }
	}
	return result;
    }

    public void init() {
	dbuf=createImage(getSize().width,
			 getSize().height);
	g2=dbuf.getGraphics();

	unit=intParam("unit",50);
	numDots=intParam("numDots",50);

	String modeParam=getParameter("mode");
	if (modeParam==null) {
	    second=false;
	} else {
	    if (modeParam.equals("second")) {
		second=true;
	    } else if (modeParam.equals("first")) {
		second=false;
	    } else {
		second=false;
		System.err.println("Bad format for mode: "+modeParam);
	    }
	}

	upperLeft=makeCube(-4);
	upperRight=makeCube(4);
	if (second) {
	    lowerLeft=makeDottedCube(-4);
	    lowerRight=clonePoints(lowerLeft);
	    rotateAll(0,2,lowerRight,deg(8));
	} else {
	    lowerLeft=makeCube(-4);
	    lowerRight=makeCube(4);
	}
    }

    public void start() {
	t=new Thread(this);
	t.start();
    }

    public void stop() {
	t.interrupt();
	try {
	    t.join();
	} catch (InterruptedException e) {
	    System.err.println("stim1: error joining thread: "+e);
	}
	t=null;
    }

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

    public void paint(Graphics g) {
	synchronized (dbuf) {
	    g.drawImage(dbuf,0,0,this);
	}
    }

    void redraw() {
	synchronized (dbuf) {
	    g2.setColor(Color.black);
	    g2.fillRect(0,0,
			getSize().width,
			getSize().height);
	    
	    g2.setColor(Color.white);

	    Graphics g3;
	    
	    g3=g2.create();
	    g3.translate(getSize().width/2+(int)-unit*3,
			 getSize().height/2+(int)-unit*3);
	    if (second) {
		drawWiresWithStuffMissing(g3,upperLeft);
	    } else {
		drawWires(g3,upperLeft);
	    }
	    g3.dispose();
	    
	    g3=g2.create();
	    g3.translate(getSize().width/2+(int)unit*3,
			 getSize().height/2+(int)-unit*3);
	    if (second) {
		drawWiresWithStuffMissing(g3,upperRight);
	    } else {
		drawWires(g3,upperRight);
	    }
	    g3.dispose();
	    
	    g3=g2.create();
	    g3.translate(getSize().width/2+(int)-unit*3,
			 getSize().height/2+(int)unit*3);
	    if (second) {
		drawDots(g3,lowerLeft);
	    } else {
		drawLessWiresAndDot(g3,lowerLeft);
	    }
	    g3.dispose();
	    
	    g3=g2.create();
	    g3.translate(getSize().width/2+(int)unit*3,
			 getSize().height/2+(int)unit*3);
	    if (second) {
		drawDots(g3,lowerRight);
	    } else {
		drawLessWiresAndDot(g3,lowerRight);
	    }
	    g3.dispose();
	}
	repaint();
    }

    public void run() {
	try {
	    while (!t.isInterrupted()) {
		for (int i=0;i<16 && !t.isInterrupted();++i) {
		    redraw();
		    rotateAll(0,2,lowerLeft,deg(1));
		    rotateAll(0,2,upperLeft,deg(1));
		    Thread.sleep(30);
		}
		for (int i=0;i<16 && !t.isInterrupted();++i) {
		    redraw();
		    rotateAll(0,2,lowerLeft,deg(-1));
		    rotateAll(0,2,upperLeft,deg(-1));
		    Thread.sleep(30);
		}
	    }
	    Thread.interrupted();
	} catch (InterruptedException e) {
	    // done
	} catch (Throwable t) {
	    System.err.println("Error in stim1 thread:");
	    t.printStackTrace(System.err);
	    showStatus("Error in stim1 thread: "+t);
	}
    }
}