import java.applet.Applet;
import java.awt.*;
import java.awt.event.*;
import java.applet.*;
import java.awt.geom.*;
import java.math.*;

public class OuterBilliards {
    Manager M;

    public OuterBilliards(Manager MM) {
	this.M=MM;
    }



    public void polyOutline(Graphics2D g,Poly P,Color C,int thick) {
	GeneralPath gp1=P.toGeneralPathOpen();
	g.setStroke(new BasicStroke(thick));
	g.setColor(C);	 
                  gp1=transform(gp1,1);
	g.draw(gp1);
 	g.setStroke(new BasicStroke(1));
    }

    public void drawDisk(Graphics2D g,Complex z,double r,Color C) {
	GeneralPath gp=disk(z,r,20);
	gp=transform(gp,1);
	g.setColor(C);
	g.fill(gp);
	g.setColor(Color.white);
	g.draw(gp);
    }

    public GeneralPath disk(Complex z,double r, int N) {
	GeneralPath gp=new GeneralPath();
	for(int k=0;k<N;++k) {
	    double t=2.0*Math.PI*k/N;
	    double c=z.x+r*Math.cos(t);
	    double s=z.y+r*Math.sin(t);
	    if(k==0) gp.moveTo((float)(c),(float)(s));
	    if(k!=0) gp.lineTo((float)(c),(float)(s));
	}
	gp.closePath();
	return(gp);
    }

    public void render0(Graphics2D g,Complex S,int k) {
	int[] vec=new int[30];
	GeneralPath gp1=new GeneralPath();
	Poly P=initialOctagon();
	P=Poly.conjugate(P);
	EnhancedComplex z1=new EnhancedComplex(new Complex(S.x,-S.y),0);

	Poly Q1=new Poly();
	Poly Q2=new Poly();
	EnhancedComplex z2=new EnhancedComplex(z1);

	for(int i=0;i<k+1;++i) {
	    Q1.z[i]=new Complex(z2.z);
	    if(i%2==0)  Q2.z[i/2]=new Complex(z2.z);   
                      z2=BilliardsMap.nextPoint(z2,P);
	      int test=z2.n;
	       test=(3+test)%8;
	       vec[i]=test;
	}
	Q1.count=k+1;
	polyOutline(g,Q1,Color.black,1);
	Q2.count=(k+2)/2;
	polyOutline(g,Q2,Color.white,2);
	for(int i=0;i<Q2.count;++i) 
	drawDisk(g,Q2.z[i],.1,new Color(50,100,255));

	sequenceDraw(g,vec,k);
    }

    public void render1(Graphics2D g,int parity) {
	Color C1=new Color(0,200,0);
	Color C2=new Color(0,160,0);
	Color C3=new Color(100,0,200);
	Color C4=new Color(50,0,100);
	/**background**/
	g.setColor(C3);
	g.fillRect(0,0,260,260);
	double s=Math.sqrt(2)+1;

	/**central octagon**/
	GeneralPath gp1=makeOctagon(new Complex(0,0),1);
	gp1=transform(gp1,-1);
	g.setColor(Color.yellow);
	g.fill(gp1);
	g.draw(gp1);

	/**the region R1**/

	GeneralPath st=getStrip(1);
	st=transform(st,-1);
	g.setColor(C2);
 	if(parity==1) g.setColor(C1);
	g.fill(st);

	st=getStrip(0);
	st=transform(st,-1);
	g.setColor(C1);
	if(parity==1) g.setColor(C2);
	g.fill(st);


	/**periodic octagonal tiles**/
	Complex[] z=new Complex[10];
	double x=Math.sqrt(2);
	z[4]=new Complex(x/2,x/2);

	for(int k=1;k<5;++k) {
                     for(int j=0;j<2;++j) {
	        z[0]=new Complex(k+k*x,-2*j+k);
	        for(int i=0;i<8;++i) {
	          GeneralPath gp2=makeOctagon(z[0],1);
              	          gp2=transform(gp2,-1);
	          z[0]=Complex.times(z[0],z[4]);
 	          g.setColor(C4);
	          g.fill(gp2);
	     }
	   }
	}

    }

    public void sequenceDraw(Graphics2D g,int[] vec,int k) {  

	g.setColor(Color.black);
	g.fillRect(0,0,256,20);
	g.fillRect(0,240,256,20);
	g.setColor(new Color(200,100,255));
	g.drawRect(0,0,256,20);	
                  g.drawRect(0,240,256,20);


                    g.setFont(new Font("Helvetica",Font.PLAIN,14));

	int[] vec2=new int[8];

	for(int i=0;i<k;++i) {
	    Integer V=new Integer(vec[i]);
	    if(i%2==0) --vec2[vec[i]];
	    if(i%2==1) ++vec2[vec[i]];
	    if(i%2==1) g.setColor(Color.yellow);
	    if(i%2==0) g.setColor(new Color(110,180,255));
	    g.drawString(V.toString(),6+14*i,16);
	}

	g.setColor(Color.white);

	for(int i=0;i<8;++i) {
	    Integer V=new Integer(2*vec2[i]);
	    g.drawString(V.toString(),6+30*i,255);
	}

    }


    public GeneralPath transform(GeneralPath gp1,int sign) {
	AffineTransform[] AFF=new AffineTransform[2];
	AFF[0]=AffineTransform.getScaleInstance(26,26*sign);
	AFF[1]=AffineTransform.getTranslateInstance(130,130);
	GeneralPath gp2=new GeneralPath(gp1);
	gp2.transform(AFF[0]);
	gp2.transform(AFF[1]);
	double s=Math.pow(2,.5);
                  for(int j=0;j<M.PD2.COUNT;++j) {
                      gp2=ScaleCanvas.expand(M.PD2.STACK[j],s,gp2);
	}
	return(gp2);
    }

    public GeneralPath getStrip(double u) {

	double x=Math.sqrt(2);
	Complex z1=new Complex(1+x,2-2*u);
	Complex z2=new Complex(1+x,0-2*u);

	Complex z3=new Complex(2+2*x,3-2*u);
	Complex z4=new Complex(2+2*x,1-2*u);

	Poly P=new Poly();
	P.count=4;
	P.z[0]=new Complex(z1);
	P.z[1]=new Complex(z2);
	P.z[2]=new Complex(z4);
	P.z[3]=new Complex(z3);
	return(P.toGeneralPath());
    }


    public GeneralPath getSpecial() {


	double x=Math.sqrt(2)/2;
	Complex z1=new Complex(0,1);
	Complex z2=new Complex(-x,x);

	Complex z3=new Complex(30*z1.x-29*z2.x,30*z1.y-29*z2.y);
	Complex z4=new Complex(30*z2.x-29*z1.x,30*z2.y-29*z1.y);

	Complex z5=new Complex(-z3.x,-2-z3.y);
	Complex z6=new Complex(-z4.x,-2-z4.y);

	z3=new Complex(1+Math.sqrt(2),2);
	z6 =new Complex(1+Math.sqrt(2),-2);

	Poly P=new Poly();
	P.count=4;
	P.z[0]=new Complex(z3);
	P.z[1]=new Complex(z4);
	P.z[2]=new Complex(z5);
	P.z[3]=new Complex(z6);
	return(P.toGeneralPath());
    }






	public GeneralPath makeOctagon(Complex z,double r) {
	    Poly P=new Poly();
	    P.count=8;
	    for(int i=0;i<8;++i) {
		double t=2*Math.PI*i/8;
		double c=Math.cos(t);
		double s=Math.sin(t);
		P.z[i]=new Complex(z.x+r*s,z.y+r*c);
	    }
	    return(P.toGeneralPath());
	}

	public Poly initialOctagon() {
	    Poly P=new Poly();
	    P.count=8;
	    for(int i=0;i<8;++i) {
		double t=2*Math.PI*i/8;
		double c=Math.cos(t);
		double s=Math.sin(t);
		P.z[i]=new Complex(s,c);
	    }
	    return(P);
	}

    public static int suggestedReturn(int k,int parity) {

      if(parity==0) {
	if(k==0) return(6);
	if(k==1) return(6);
	if(k==2) return(5);
	if(k==3) return(5);
	if(k==4) return(6);
	if(k==5) return(6);
	if(k==6) return(6);
	if(k==7) return(5);
	if(k==8) return(5);
	if(k==9) return(5);
	if(k==10) return(6);

	if(k==11) return(6);
	if(k==12) return(6);
	if(k==13) return(6);
	if(k==14) return(7);
	if(k==15) return(5);
	if(k==16) return(6);
	if(k==17) return(5);
	if(k==18) return(6);
	if(k==19) return(6);
	if(k==20) return(6);
	if(k==21) return(6);
      }


      if(parity==1) {
	if(k==0) return(6);
	if(k==1) return(6);
	if(k==2) return(6);
	if(k==3) return(5);
	if(k==4) return(7);
	if(k==5) return(6);
	if(k==6) return(7);
	if(k==7) return(6);
	if(k==8) return(6);
	if(k==9) return(6);
	if(k==10) return(6);

	if(k==11) return(6);
	if(k==12) return(6);
	if(k==13) return(7);
	if(k==14) return(7);
	if(k==15) return(6);
	if(k==16) return(6);
	if(k==17) return(6);
	if(k==18) return(7);
	if(k==19) return(7);
	if(k==20) return(7);
	if(k==21) return(6);
      }







	return(5);
    }

}