import java.applet.Applet;
import java.applet.*;
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import javax.swing.event.*;
import java.awt.image.*;
import javax.imageio.ImageIO;
import java.io.*;
import java.awt.image.BufferedImage;
import java.util.Arrays;
import com.sun.image.codec.jpeg.*;//提供存檔時所用的JPEG編碼器
import com.sun.image.codec.jpeg.JPEGImageEncoder;
import java.awt.image.MemoryImageSource;
import java.util.*;
import java.nio.channels.*;
import java.nio.*;
import java.nio.channels.FileLock;
import java.net.URL;
public class m1 extends Applet implements ActionListener,ChangeListener,ItemListener
{	
	MediaTracker tracker;		
	int flg=0;
	JLabel lab1,laba,labb;
	JTextField txt1,txta,txtb;
	Image img,pic[][];
	String filename;	
	JButton but1,but2,but3;	
	int posX=0,posY=50,dx,dy,x,y;
	int xa,ya,xb,yb;	
	int H,W,w3,h3;		
	int a,b;		//a是列,b是行
	int imgx,imgy;	
   	JSlider zoom;   	
  	double ratio=1.0;
  	JLabel zo = new JLabel();   
  	int picrx[][],pcx[][];
  	int picry[][],pcy[][];  	
  			
	int pr,pg,pb,sr,sg,sb;	
	int hpr,hpg,hpb,hsr,hsg,hsb;	
	int set[],seta[],set1[],setb[];		  	
	int hset[],hseta[];	
	int up[][],down[][],left[][],right[][];
	int m=1000,g,q,gg;				//搜尋範圍
	int min,minup,mindown,minleft,minright;		//最小誤差	
	int jpx=300,jpy=300;				//每格幾點比對一次
	int pixels[];
	int leftpic[][][],rightpic[][][],uppic[][][],downpic[][][];	
	int X=5,w2=10,h2=10;; 
	int tempW,tempH,temp[],picr,picg,picb;
	int startY;	
	JComboBox cbox1;
	String cn1[];
	FileLock inLock = null;   
	RandomAccessFile inFile;
	int ln,on=0;
   	public void init()
   	{		
		lab1=new JLabel("目錄名稱：");		
		laba=new JLabel("列：");
		labb=new JLabel("行：");					
        	txt1=new JTextField(10);        	
        	txta=new JTextField(5);        	
        	txtb=new JTextField(5);        	        	
        	lab1.setBounds(10,10,100,20);
        	laba.setBounds(190,10,100,20);
        	labb.setBounds(260,10,100,20);
        	txt1.setBounds(100,10,80,20);
        	txta.setBounds(220,10,30,20);
        	txtb.setBounds(290,10,30,20);
        	but1=new JButton("切組");     
		but2=new JButton("組圖");     
		but3=new JButton("小圖");
		but1.setBounds(330,10,60,20);
		but2.setBounds(390,10,60,20);        
		but3.setBounds(450,10,60,20);        
		zoom=new JSlider(JSlider.HORIZONTAL,0,200,100);
		zoom.setMajorTickSpacing(10);//設定座標   	   	
        	zoom.setPaintTicks(true);//畫出座標 
        	zoom.setBounds(520,5,200,30);
		zo.setText("100%"); 
		zo.setBounds(730,10,60,30);	
		
		setLayout(null);
		//setLayout(new FlowLayout(FlowLayout.CENTER));//設定為流水版面設定		
		add(lab1);
		add(laba);
		add(labb);		
		//add(txt1);
		add(txta);
		add(txtb);
		add(zoom);
		add(zo);
		
		zoom.addChangeListener(this);
		addMouseMotionListener(new procmouse());
		addMouseListener(new checkmouse());	
		
		add(but1);
		add(but2);
		add(but3);
		but1.addActionListener(this);
		but2.addActionListener(this);						
		but3.addActionListener(this);	
		
	  	//列出目錄下的檔案
	  	//File dlist=new File("C:\" );
	  	//File dlist=new File("C:/" );
	  	//File dlist=new File("http://ana.vexp.idv.tw/~hsiao/" );
	  	File dlist;
	  	File content[];
	  	if (flg==1)	  	
	  	{  dlist=new File("C:/" );
	  	   content=dlist.listFiles();	
	  	}
	  	else 
	  	{
	  	   try{
	  	            dlist=new File(this.getDocumentBase().toString()); 
	  	            content=dlist.listFiles();	
	  	      }	  	      
	  	   catch(Exception e1) //如果沒有讀到
	          {System.out.println(e1);
	          return;
	           } 
	  	}   
	  	  	
	  	int cn1dn=1;
	  	for(int i=0;i<content.length;i++)
	  	{
			if(content[i].isDirectory())
			{		
				cn1dn++;
			}
	  	}
	  	cn1=new String[cn1dn];
	  	cn1dn=1;
	  	for(int i=0;i<content.length;i++)
	  	{
	  		if(content[i].isDirectory())
			{
				cn1[cn1dn]=content[i].getName() ;
				System.out.println(content[i].getName());	
				cn1dn++;
			}
	  	}
		
		cbox1=new JComboBox(cn1);// 設定選項
		cbox1.setBounds(80,10,100,20);
		cbox1.setMaximumRowCount(20);//設定下拉長度，比選項少，才能捲
		add(cbox1);
		cbox1.addItemListener(this);
	  	
   	}   	
   	public int lock()
   	{ 
   		
		try
		{
			File txtname=new File(filename+"/lock.txt");  
			  	
			if(txtname.exists())
			{				
				FileReader fr=new FileReader(filename+"/lock.txt");	//讀檔																
				BufferedReader bfr=new BufferedReader(fr);						
				String line=null;	
				System.out.println("t1");
				if((line=bfr.readLine())!=null)
		  		{
		  			System.out.println("t2");
		  			System.out.println(line);		
			  		long oldtime=Long.parseLong(line);
			  		long newtime=System.currentTimeMillis();
			  		System.out.println("file lock exists....");
					System.out.println("oldlock time="+oldtime);
					System.out.println("oldlock time="+newtime);
					long a=(newtime-oldtime)/1000;	//秒
					System.out.println("new-old="+a);
					long b=500;
					
					
					File aFile = new File(filename+"/info.txt");
					
					
					inFile = null;
					inFile = new RandomAccessFile(aFile,"rw");
					FileChannel inChannel = inFile.getChannel(); 		
					inLock = inChannel.tryLock();
					System.out.println(inLock);
					//判斷是否需要執行	  	
			  		//File txtname=new File(filename+"/"+filename+".txt");  		  	
			  		if(txtname.exists())
			  		{
				  		System.out.println("此張不需接圖");	
				  		ln =1;
				  	}
				  	else
				  	{
				  		if(a>b)
						{
							relock();						
							//File abc=new File(filename+"/lock.txt");  												
							int abcd=lock();
							ln= 0;
						}		
						else
						{
							ln= 1;
						}				
				  	}
					
		  		}
			}
			else
			{
				FileWriter fw=new FileWriter(filename+"/lock.txt");	//寫檔		
				long n1=System.currentTimeMillis();
				String n2=Long.toString(n1);		
				fw.write(n2);		
				fw.close();   
				File aFile = new File(filename+"/info.txt");
				inFile = null;
				inFile = new RandomAccessFile(aFile,"rw");
				FileChannel inChannel = inFile.getChannel(); 		
				inLock = inChannel.tryLock();
				if(inLock!=null)
		        	{
		        		System.out.println("file locking");
		        		ln =0;
		        	}
			}			
		}		
		catch (IOException e)
		{
		        e.printStackTrace(System.err);
		        System.exit(1);
		} 
		return ln; 				
   	}
   	
   	public void relock() 
   	{
   		try
   		{
   			inLock.release();
   			inFile.close();
   		}
   		catch (IOException e)
   		{
   		}
   		
		System.out.println("Released file lock.");
   	}
   	
   	public void itemStateChanged(ItemEvent e)
 	{
      		//System.out.println(cbox1.getSelectedItem());//看看選到哪個
      		filename=(String)cbox1.getSelectedItem();        	
      		//讀文字檔
      		try
      		{
			FileReader fr=new FileReader((String)cbox1.getSelectedItem()+"/info.txt");		
	  		BufferedReader bf=new BufferedReader(fr);
	  		StringTokenizer stk=null;
	  		String line=null;			  	
	  		if((line=bf.readLine())!=null)
	  		{
		  		stk=new StringTokenizer(line,",");			
		  		txta.setText(stk.nextToken());
		  		txtb.setText(stk.nextToken());
	  		}	
	  	}
	  	catch (IOException ae)
	  	{
	  	}
  			
 	} 	
     	public void actionPerformed(ActionEvent e) //按鈕事件的處理方法
     	{ 
	        JButton btn=(JButton) e.getSource();
		if(btn==but1)
		{
			orgset();
		}
        	if(btn==but2)
		{
			combine();				
		}	  	       		
		if(btn==but3)
		{	
			t();			
		}	  	       		
     	}     
     	
     	public void t()//小圖
     	{
     		//filename=txt1.getText();		//取得編號	
     		a=Integer.parseInt(txta.getText());	//取得列
		b=Integer.parseInt(txtb.getText());	//取得行	
     		pic=new Image[a][b];
     		if(flg==0)
	        {
	        	img=getImage(getDocumentBase(),filename+"/cut/"+"img_1_1.jpg");
	        }	
	        else
	        {
			img=Toolkit.getDefaultToolkit().createImage(filename+"/cut/"+"img_1_1.jpg");				
		}
        	tracker = new MediaTracker(this);
      		tracker.addImage(img,1);
      		try {	tracker.waitForAll();	}
      		catch (InterruptedException e){	}
      		tracker.removeImage(img,1); 
        	W =(int)(img.getWidth(this)*ratio);		//取得圖片的寬
	       	H =(int)(img.getHeight(this)*ratio);		//取得圖片的高	
	       	
		
		ImageIcon icon;
	       	for(int i=0; i<a; i++)				
		{			
			for(int j=0; j<b; j++)
			{
				if(flg==0)
	        		{
	        			img=getImage(getDocumentBase(),filename+"/cut/img"+"_"+(i+1)+"_"+(j+1)+".jpg");
	        		}	
	        		else
	        		{
					img=Toolkit.getDefaultToolkit().createImage(filename+"/cut/img"+"_"+(i+1)+"_"+(j+1)+".jpg"); 				
				}
				icon=new ImageIcon(img);
				BufferedImage preimage= new BufferedImage(W, H,BufferedImage.TYPE_INT_RGB);		
				Graphics g2 = preimage.getGraphics();
				g2.drawImage(icon.getImage(),0,0, W, H, this);
			       	FileOutputStream fileOut;				 
				File prefile = new File(filename+"/smallcut/"+"simg_"+(i+1)+"_"+(j+1)+".jpg"); 
				try    
				{     
					//將檔案存成JPEG格式 
					fileOut = new FileOutputStream(prefile); 
					JPEGImageEncoder jpeg = JPEGCodec.createJPEGEncoder(fileOut); 
					jpeg.encode(preimage);  			
					fileOut.close(); 
				} 	         
				catch (Exception e)  
				{    
					e.printStackTrace(); 
				}        	
			}
		}
		System.out.println("小圖OK!!");
	       		
     	}	
     	
     	public void orgset()
	{
		for(int i=on;i<cn1.length;i++)
		{
	      		try
	      		{
	      			//判斷是否需要執行	
	      			filename=cn1[i];  	
			  	File txtname=new File(filename+"/"+filename+".txt");  		  	
			  	if(txtname.exists())
			  	{
			  		System.out.println("此張不需接圖");	
			  		i++;
			  		on=i;  	
			  		filename=cn1[i];  	
			  		if(i==cn1.length)
			  		{
			  			System.out.println("所有目錄已經處理完畢");
			  			break;
			  		}
			  	}
				FileReader fr=new FileReader(cn1[i]+"/info.txt");		
		  		BufferedReader bf=new BufferedReader(fr);
		  		StringTokenizer stk=null;
		  		String line=null;			  	
		  		if((line=bf.readLine())!=null)
		  		{
			  		stk=new StringTokenizer(line,",");			
			  		txta.setText(stk.nextToken());
			  		txtb.setText(stk.nextToken());
		  		}	
		  		if(flg==0)
	        		{
	        			img=getImage(getDocumentBase(),filename+"/"+"0101.jpg");
	        		}	
	        		else
	        		{
		  			img=Toolkit.getDefaultToolkit().createImage(filename+"/"+"0101.jpg");	
		  		}
		  		
		        	tracker = new MediaTracker(this);
		      		tracker.addImage(img,1);
		      		try {	tracker.waitForAll();	}
		      		catch (InterruptedException e){	}
		      		tracker.removeImage(img,1); 
		        	W =img.getWidth(this);		//取得圖片的寬
			       	H =img.getHeight(this);		//取得圖片的高		
				a=Integer.parseInt(txta.getText());	//取得列
				b=Integer.parseInt(txtb.getText());	//取得行
				pic=new Image[a][b];		 			
				pcx=new int[a][b];	
				pcy=new int[a][b];  	
				picrx=new int[a][b];			
				picry=new int[a][b]; 		
				pixels=new int[W*H];	
				leftpic	=new int[3][H][X];
				rightpic=new int[3][H][m];  
				
				uppic	=new int[3][X][W];
				downpic	=new int[3][m][W];      
				
				startY = b/2;
			  	picrx[0][startY]=startY*W;
			  	picry[0][startY]=0;
			  	
			  	/*
			  	//判斷是否需要執行	  	
			  	File txtname=new File(filename+"/"+filename+".txt");  		  	
			  	if(txtname.exists())
			  	{
			  		System.out.println("此張不需接圖");	
			  		on++;
			  		orgset();
			  			  		
			  	}
			  	else
			  	*/
			  	
				  	int locknum=lock();			  	
				  	switch (locknum)
				  	{
				  		case 1: System.out.println("跳過 執行其它目錄");
				  			break;
				  		case 0: System.out.println("執行this目錄");
				  		//建立資料夾	
					  	File cut=new File(filename+"/cut");
					  	File smallcut=new File(filename+"/smallcut");  	
					  	if(cut.mkdir())
					  	System.out.println("cut mkdir!!");	
					  	if(smallcut.mkdir())
					  	System.out.println("smallcut mkdir!!");	
				  		go(0,startY);
				  		System.out.println("0,"+startY);
				  	}
		  	}
		  	catch (IOException ae)
		  	{
		  	}
		}
		System.out.println("all is over");	  	
	}
		
	//判斷執行哪一張圖片
	public void go(int x,int y) 
	{	
		System.out.println("處理中......");	
		long start=System.currentTimeMillis();
		////////////////由中往右
	  	for(int i=x;i<a;i++)
	  	{
	  		for(int j=y;j<b;j++)
	  		{	  			
				if(i==x && j>y)
				{
					grab_left(i,j);
					grab_right(i,j-1);		
					up_down(i,j,1);							
				}				
				else if(i>x && j==y)
				{
					grab_up(i,j);
					grab_down(i-1,j);
					left_right(i,j,1);					
				}				
				else if(i>x && j>y)
				{
					grab_left(i,j);
					grab_right(i,j-1);				
					grab_up(i,j);
					grab_down(i-1,j);
					all(i,j,1);	
				}		
				
			}
		}	
		////////////////由中往左		
		for(int i=x;i<a;i++)
	  	{
	  		for(int j=y-1;j>=0;j--)
	  		{
	  			if(i==x && j<y)
				{
					grab_left(i,j+1);
					grab_right(i,j);		
					up_down(i,j,0);
				}														
				else if(i>x && j<y)
				{
					grab_left(i,j+1);
					grab_right(i,j);				
					grab_up(i,j);
					grab_down(i-1,j);
					all(i,j,0);
				}		
			}
		}	
		cutpic();	      	
	       	t();
	       	combine();  	
	       	
		try
		{
		  	FileWriter fw=new FileWriter(filename+"/"+filename+".txt");	//寫檔
			BufferedWriter bfw=new BufferedWriter(fw);
			int ta=picrx[0][0];
			int tb=picry[0][0];		
		  	System.out.println("以下是重疊");
			for(int i=0 ;i<a;i++)
			{
				for(int j=0 ;j<b;j++)			
				{
					//picrx[i][j]=picrx[i][j]-ta;
					//picry[i][j]=picry[i][j]-tb;
					//System.out.println("x"+i+"="+picrx[i][j]+","+"y"+j+"="+picry[i][j]);									
					System.out.print("x"+i+"="+pcx[i][j]+","+"y"+j+"="+pcy[i][j]);
					System.out.print("\t");
					bfw.write("x"+i+"="+pcx[i][j]+","+"y"+j+"="+pcy[i][j]+"\t");		
				}	
				System.out.println("");		
				bfw.newLine();
				//bfw.write("Time：" + (end - start));
				
		       	}		
		       	long end=System.currentTimeMillis();			
			System.out.println("Time：" + (end - start));
			bfw.write("Time：" + (end - start));		
		       	bfw.flush();
			fw.close();
		}		
		catch (IOException e)
		{
		}
	       	/*
	       	System.out.println("以下是座標");
		for(int i=0 ;i<a;i++)
		{
			for(int j=0 ;j<b;j++)			
			{
				System.out.print("x"+i+"="+picrx[i][j]+","+"y"+j+"="+picry[i][j]+"\t");				
			}			
			System.out.println("");
	       	}
	       	*/	       
	       	
	       	
		
	}
	//算出左右2張
	public void up_down(int a1 ,int b1,int c1)
	{			
		deal_left_right();
		up=ud_avg(up,X);		
		minup=min(up);	
		down=ud_avg(down,X);
		mindown=min(down);		
		if(minup<=mindown)		//往上座標差
		{
			up_set(minup,up,a1,b1,c1);
		}
		else if(mindown<minup)		//往下座標差
		{
			down_set(mindown,down,a1,b1,c1);
		}
	}//算出上下2張
	public void left_right(int a1, int b1, int c1)
	{
		deal_up_down();
		left=lr_avg(left,X);
		minleft=min(left);			
		right=lr_avg(right,X);
		minright=min(right);			
		if(minleft<=minright)		//往左座標差	
		{
			left_set(minleft,left,a1,b1,c1);			
		}
		else if(minright<minleft)	//往右座標差		
		{
			right_set(minright,right,a1,b1,c1);	
		}	
	}
	
	//算出全部最小值	
	public void all(int a1 ,int b1,int c1)
	{		
		deal_left_right();
		up=ud_avg(up,X);
		minup=min(up);		
		down=ud_avg(down,X);
		mindown=min(down);	
		
		deal_up_down();		
		left=lr_avg(left,X);
		minleft=min(left);	
		right=lr_avg(right,X);
		minright=min(right);
		if(minup<=mindown && minup<=minleft && minup<=minright)			//往上座標差
		{
			up_set(minup,up,a1,b1,c1);			
		}
		else if(mindown<minup && mindown<=minleft && mindown<=minright)		//往下座標差
		{			
			down_set(mindown,down,a1,b1,c1);			
		}		
		else if(minleft<=minright && minleft<minup && minleft<mindown)		//往左座標差	
		{
			left_set(minleft,left,a1,b1,c1);				
		}
		else if(minright<minleft && minright<minup && minright<mindown)		//往右座標差
		{
			right_set(minright,right,a1,b1,c1);			
		}
	}
     	//取出圖片的pixels
     	public void getp(Image img)         	 	
     	{     				
		PixelGrabber pg= new PixelGrabber(img,0,0,W,H,pixels,0,W);
		try 
		{
        		pg.grabPixels(); //取得資料
		}
		catch (InterruptedException e)
		{
			System.out.println("Interrupted!");
			return;
		};
		if ((pg.getStatus() & ImageObserver.ABORT) != 0)
		{
	   		System.err.println("image fetch aborted or errored");
	    		return;
	    	}			
	}	

	public void aaa(int x,int y)
	{
		if(x<9 && y<9)
		{		
			if(flg==0)
        		{
        			img=getImage(getDocumentBase(),filename+"/"+"0"+(y+1)+"0"+(x+1)+".jpg");
        		}	
        		else
        		{
				img=Toolkit.getDefaultToolkit().createImage(filename+"/"+"0"+(y+1)+"0"+(x+1)+".jpg"); 		
			}
		}
		else if(x>8 && y<9)
		{			
			if(flg==0)
			{
        			img=getImage(getDocumentBase(),filename+"/"+"0"+(y+1)+(x+1)+".jpg");
        		}
        		else
        		{
				img=Toolkit.getDefaultToolkit().createImage(filename+"/"+"0"+(y+1)+(x+1)+".jpg"); 					
			}
		}
		else if(x<9 && y>8)
		{
			if(flg==0)
        		{
        			img=getImage(getDocumentBase(),filename+"/"+(y+1)+"0"+(x+1)+".jpg");
        		}
        		else
        		{
				img=Toolkit.getDefaultToolkit().createImage(filename+"/"+(y+1)+"0"+(x+1)+".jpg"); 		
			}
		}
		else if(x>8 && y>8)
		{
			if(flg==0)
        		{
        			img=getImage(getDocumentBase(),filename+"/"+(y+1)+(x+1)+".jpg");
        		}
        		else
        		{
				img=Toolkit.getDefaultToolkit().createImage(filename+"/"+(y+1)+(x+1)+".jpg"); 		
			}
		}
	}
	
	
	//取圖片左邊的pixels     
	public void grab_left(int x,int y)
	{
		aaa(x,y);
		getp(img);			
		for (int i=0;i<X;i++)				
		{
			for (int j=0;j<H;j++)
			{
				int p=pixels[j*W+i];	
				leftpic[0][j][i]=0xff & (p>>16);
				leftpic[1][j][i]=0xff & (p>>8);
				leftpic[2][j][i]=0xff & (p);	
			}
			
		}	
	}	
	//取圖片右邊的pixels
	public void grab_right(int x,int y)
	{	
		aaa(x,y);
		getp(img);				
		int k=0;
		for (int i=W-m;i<W;i++)				
		{
			for(int j=0;j<H;j++)
			{
				int p=pixels[j*W+i];
				rightpic[0][j][k]=0xff & (p>>16);
				rightpic[1][j][k]=0xff & (p>>8);
				rightpic[2][j][k]=0xff & (p);					
			}			
			k++;
		}	
	}
	//取圖片上面的pixels     
	public void grab_up(int x,int y)	
	{		
		aaa(x,y);
		getp(img);				
		for (int i=0;i<W;i++)				
		{			
			for (int j=0;j<X;j++)
			{				
				int p=pixels[j*W+i];
				uppic[0][j][i]=0xff & (p>>16);
				uppic[1][j][i]=0xff & (p>>8);
				uppic[2][j][i]=0xff & (p);			
			}
			
		}	
	}
	//取圖片下面的pixels		
	public void grab_down(int x,int y)
	{	
		aaa(x,y);
		getp(img);				
		for (int i=0;i<W;i++)				
		{	
			int L=0;
			for(int j=H-m;j<H;j++)
			{
				int p=pixels[j*W+i];
				downpic[0][L][i]=0xff & (p>>16);
				downpic[1][L][i]=0xff & (p>>8);
				downpic[2][L][i]=0xff & (p);
				L++;
			}						
		}		
	}
	//上下陣列做平均
	static int[][] ud_avg(int[][] avg,int X)
	{
		for(int i=0;i<avg.length;i++)
		{			
			for(int j=0;j<avg[i].length;j++)			
			{	
				int d;
				if(j<X-1)
				{
					d=j+1;
				}
				else 
				{
					d=X;
				}
				avg[i][j]=avg[i][j]/d;			
			}				
		}
		return avg;
	}
	//左右陣列做平均
	static int[][] lr_avg(int[][] avg,int X)
	{
		for(int i=0;i<avg.length;i++)
		{		
			int d;
			if(i<X-1)
			{
				d=i+1;
			}
			else 
			{
				d=X;
			}	
			for(int j=0;j<avg[i].length;j++)			
			{					
				avg[i][j]=avg[i][j]/d;			
			}				
		}
		return avg;
	}
	//找出陣列最小值
	static int min(int[][] min)
	{
		int min_number=min[0][0];	
		for(int i=0;i<min.length;i++)
		{
			for(int j=0;j<min[i].length;j++)
			{	
				if(min[i][j]<min_number)
				{
					min_number=min[i][j];
				}
			}	
		}		
		return min_number;
	}
	
	//求往上座標
	public void up_set(int min,int[][] up_array,int a1,int b1,int c1)
	{
		for(int i=0;i<up_array.length;i++)
		{
			for(int j=0;j<up_array[i].length;j++)
			{					
				if(min==up_array[i][j])
				{	
									
					if(c1==0)
					{	
						picrx[a1][b1]=(picrx[a1][b1+1]-W)+(j+1);																			
						picry[a1][b1]=(picry[a1][b1+1])+(i+1);	
						pcx[a1][b1]=j+1;						
						pcy[a1][b1]=-(i+1);	
						break;
					}	
					else if(c1==1)
					{						
						picrx[a1][b1]=(picrx[a1][b1-1]+W)-(j+1);																			
						picry[a1][b1]=(picry[a1][b1-1])-(i+1);						
						pcx[a1][b1]=j+1;						
						pcy[a1][b1]=i+1;					
						break;
					}
				}
			}		
		}
	}
	//求往下座標
	public void down_set(int min,int[][] down_array,int a1,int b1,int c1)
	{
		for(int i=0;i<down_array.length;i++)
		{
			for(int j=0;j<down_array[i].length;j++)
			{					
				if(min==down_array[i][j])
				{						
					if(c1==0)
					{						
						picrx[a1][b1]=(picrx[a1][b1+1]-W)+(j+1);																	
						picry[a1][b1]=(picry[a1][b1+1])-(i+1);	
						pcx[a1][b1]=j+1;
						pcy[a1][b1]=i+1;														
						break;	
					}	
					else if(c1==1)
					{						
						picrx[a1][b1]=(picrx[a1][b1-1]+W)-(j+1);																	
						picry[a1][b1]=(picry[a1][b1-1])+(i+1);						
						pcx[a1][b1]=j+1;						
						pcy[a1][b1]=-(i+1);		
						break;	
					}					
				}
			}		
		}
	}
	//求往左座標
	public void left_set(int min,int[][] left_array,int a1,int b1,int c1)
	{
		for(int i=0;i<left_array.length;i++)
		{
			for(int j=0;j<left_array[i].length;j++)
			{					
				if(min==left_array[i][j])
				{						
					if(c1==0)
					{
						picrx[a1][b1]=picrx[a1-1][b1]-(j+1);
						picry[a1][b1]=(picry[a1-1][b1]+H)-(i+1);						
						pcx[a1][b1]=j+1;
						pcy[a1][b1]=i+1;	
						break;	
					}
					else if(c1==1)
					{
						picrx[a1][b1]=picrx[a1-1][b1]-(j+1);
						picry[a1][b1]=(picry[a1-1][b1]+H)-(i+1);
						pcx[a1][b1]=j+1;
						pcy[a1][b1]=i+1;
						break;
					}
				}
			}		
		}
	}
	//求往右座標
	public void right_set(int min,int[][] right_array,int a1,int b1,int c1)
	{
		for(int i=0;i<right_array.length;i++)
		{
			for(int j=0;j<right_array[i].length;j++)
			{					
				if(min==right_array[i][j])
				{	
					if(c1==0)
					{					
						picrx[a1][b1]=picrx[a1-1][b1]+(j+1);
						picry[a1][b1]=(picry[a1-1][b1]+H)-(i+1);
						pcx[a1][b1]=-(j+1);
						pcy[a1][b1]=i+1;
						break;	
					}
					else if(c1==1)
					{
						picrx[a1][b1]=picrx[a1-1][b1]+(j+1);
						picry[a1][b1]=(picry[a1-1][b1]+H)-(i+1);	
						pcx[a1][b1]=-(j+1);
						pcy[a1][b1]=i+1;
						break;	
					}
				}
			}		
		}
	}
	//處理左右圖片
	public void deal_left_right()
	{		
		up=new int[h2][m];
		down=new int[h2][m];				
		int ur,ug,ub,usr,usg,usb,dr,dg,db,dsr,dsg,dsb;
		int m1=m;					
		for(int i=0;i<m;i++)			//m
		{	
			m1--;
			for(int k=0;k<h2;k++)		//執行h2次
			{
				up[k][i]=0;
				down[k][i]=0;
			}			
			for(int x=0;x<=i;x++)		//同m值
			{
				if(x==X)			
				break;
				int t1=0;	
				int m2=H;
				for(int k=0;k<h2;k++)	//執行h2次
				{		
					ur=0;ug=0;ub=0;usr=0;usg=0;usb=0;
					dr=0;dg=0;db=0;dsr=0;dsg=0;dsb=0;						
					for(int j=t1,yw=0; (j<H)&&(yw<m2)  ;j=j+jpy,yw=yw+jpy)									
					{						
						ur=leftpic[0][j][x]-rightpic[0][yw][m1+x]; 
						ug=leftpic[1][j][x]-rightpic[1][yw][m1+x];
						ub=leftpic[2][j][x]-rightpic[2][yw][m1+x];
						
						dr=leftpic[0][yw][x]-rightpic[0][j][m1+x];  
						dg=leftpic[1][yw][x]-rightpic[1][j][m1+x];  
						db=leftpic[2][yw][x]-rightpic[2][j][m1+x]; 						
						if(ur<0){ur=ur*(-1);}	
						if(ug<0){ug=ug*(-1);}	
						if(ub<0){ub=ub*(-1);}	
						if(dr<0){dr=dr*(-1);}	
						if(dg<0){dg=dg*(-1);}	
						if(db<0){db=db*(-1);}	
						usr=usr+ur;	
						usg=usg+ug;
						usb=usb+ub;					
						dsr=dsr+dr;	
						dsg=dsg+dg;
						dsb=dsb+db;		
					}	
					up[k][i]=up[k][i]+(usr+usg+usb)/(int)(m2/jpy);	
					down[k][i]=down[k][i]+(dsr+dsg+dsb)/(int)(m2/jpy);										
					t1++;			
					m2--;						
				}		
			}		
		}
	}
	//處理上下圖片
	public void deal_up_down()
	{
		left=new int[m][w2];
		right=new int[m][w2];		
		int lr,lg,lb,lsr,lsg,lsb,rr,rg,rb,rsr,rsg,rsb;
		int m1=m;
		for(int i=0;i<m;i++)			//m
		{	
			m1--;
			for(int k=0;k<w2;k++)		//執行w2次
			{
				left[i][k]=0;
				right[i][k]=0;
			}
			for(int x=0;x<=i;x++)		//同m值
			{
				if(x==X)			
				break;
				int t1=0;	
				int m2=W;
				for(int k=0;k<w2;k++)	//執行w2次
				{	
					lr=0;lg=0;lb=0;lsr=0;lsg=0;lsb=0;
					rr=0;rg=0;rb=0;rsr=0;rsg=0;rsb=0;
					for(int j=t1,yw=0; (j<W)&&(yw<m2)  ;j=j+jpx,yw=yw+jpx)					
					{
						lr=downpic[0][m1+x][yw]-uppic[0][x][j];
						lg=downpic[1][m1+x][yw]-uppic[1][x][j];
						lb=downpic[2][m1+x][yw]-uppic[2][x][j];
						
						rr=downpic[0][m1+x][j]-uppic[0][x][yw];  
						rg=downpic[1][m1+x][j]-uppic[1][x][yw];
						rb=downpic[2][m1+x][j]-uppic[2][x][yw];
						
						if(lr<0){lr=lr*(-1);}	
						if(lg<0){lg=lg*(-1);}	
						if(lb<0){lb=lb*(-1);}		
						if(rr<0){rr=rr*(-1);}	
						if(rg<0){rg=rg*(-1);}	
						if(rb<0){rb=rb*(-1);}		
						lsr=lsr+lr;	
						lsg=lsg+lg;
						lsb=lsb+lb;					
						rsr=rsr+rr;	
						rsg=rsg+rg;
						rsb=rsb+rb;
					}						
					left[i][k]=left[i][k]+(lsr+lsg+lsb)/(int)(m2/jpx);
					right[i][k]=right[i][k]+(rsr+rsg+rsb)/(int)(m2/jpx);					
					t1++;
					m2--;	
				}		
			}		
		}
	}
	///bbb
	public void bbb(int x,int y)
	{
		if (flg==0)
        	{
        		img=getImage(getDocumentBase(),filename+"/smallcut/simg"+"_"+(x+1)+"_"+(y+1)+".jpg");
        	}
        	else
        	{
			img=Toolkit.getDefaultToolkit().createImage(filename+"/smallcut/simg"+"_"+(x+1)+"_"+(y+1)+".jpg"); 
		}
	}	
	
	//合併
	public void combine()
	{	
	/*
		System.out.println("以下是座標");
		for(int i=0 ;i<a;i++)
		{
			for(int j=0 ;j<b;j++)			
			{
				System.out.println("x"+i+"="+picrx[i][j]+","+"y"+j+"="+picry[i][j]);				
			}			
	       	}	       	
		System.out.println("以下是重疊差");
		for(int i=0 ;i<a;i++)
		{
			for(int j=0 ;j<b;j++)			
			{
				System.out.println("x"+i+"="+pcx[i][j]+","+"y"+j+"="+pcy[i][j]);
			}			
	       	}
	       	*/
	       	long start=System.currentTimeMillis();
	       	System.out.println("開始合圖");
		//filename=txt1.getText();		//取得編號	
		if (flg==0)
        	{
        		img=getImage(getDocumentBase(),filename+"/smallcut/"+"simg_1_1.jpg");
        	}
        	else
        	{			
			img=Toolkit.getDefaultToolkit().createImage(filename+"/smallcut/"+"simg_1_1.jpg");	
		}
        	tracker = new MediaTracker(this);
      		tracker.addImage(img,1);
      		try {	tracker.waitForAll();	}
      		catch (InterruptedException e){	}
      		tracker.removeImage(img,1); 
        	W =img.getWidth(this);		//取得圖片的寬
	       	H =img.getHeight(this);		//取得圖片的高		
		a=Integer.parseInt(txta.getText());	//取得列
		b=Integer.parseInt(txtb.getText());	//取得行
		pic=new Image[a][b];
		picrx=new int[a][b];			
		picry=new int[a][b]; 
		tempW=W*b;
		tempH=H*a;
		System.out.println("W="+W);
		System.out.println("H="+H);
		System.out.println("tempW="+tempW);
		System.out.println("tempH="+tempH);						  		
		temp=new int[tempW * tempH];		//合併陣列
		int pixels[]=new int[W*H];		
		for(int i=0; i<a; i++)				
		{			
			for(int j=0; j<b; j++)
			{					
        			bbb(i,j);        			
        			PixelGrabber pg= new PixelGrabber(img,0,0,W,H,pixels,0,W);
				try 
				{
        				pg.grabPixels(); //取得資料
				}
				catch (InterruptedException e)
				{
					System.out.println("Interrupted!");
					return;
				}				

        			for (int y=0;y<H;y++)				
				{						
					for (int x=0;x<W;x++)
					{	
						int p=pixels[y*W+x];//////////////===============										
						int picr=0xff & (p>>16);
						int picg=0xff & (p>>8);	
						int picb=0xff & (p);													
						temp[i*tempW*H+y*tempW+(x+j*W)]=(0xff000000|picr<<16|picg<<8|picb);//放入暫存矩陣										
					}				
				}
			}
        	}
	
	
	//平滑	
	System.out.println("開始平滑");
	for(int i=0;i<a;i++)
	{
		int sumr,sumg,sumb;
		int range,r,sumdw=0;
		int range_count=0;
		for(int j=0;j<b;j++)
		{					
			if(i==0 && j>=1)
			{							
				for(int y=0;y<tempH;y++)
				{
					
					int dw=W*j-5;											
					for(int w=0;w<4*2-1;w++)						
					{
						//dx=dw;
						sumr=0;sumg=0;sumb=0;
						range_count=0;
						if(y==0)
						{
							range=2;
							r=0;
						}
						else if(y>=tempH-1)
						{
							range=1;
							r=-1;
						}
						else
						{
							range=2;
							r=-1;
						}
						
						for(int count=r;count<range;count++)
						{
							range_count++;
							dx=dw;							
							for(int x=0;x<3;x++)					
							{														
								int p=temp[(count+y)*tempW+dx];			
								picr=0xff & (p>>16);
								picg=0xff & (p>>8);	
								picb=0xff & (p);
								dx++;		
								sumr=sumr+picr;								
								sumg=sumg+picg;
								sumb=sumb+picb;
							}			
						}									
						picr=sumr/(3*range_count);
						picg=sumg/(3*range_count);
						picb=sumb/(3*range_count);						
						dw++;
						temp[y*tempW+dw]=(0xff000000|picr<<16|picg<<8|picb);//放入暫存矩陣
						
					}
					
				}			         
			}
			////////////
			if(i>=1 && j==0)
			{								
				for(int y=0;y<tempW;y++)
				{					
					int dw=H*i-5;											
					for(int w=0;w<4*2-1;w++)										
					{
						//dx=dw;
						sumr=0;sumg=0;sumb=0;
						range_count=0;
						if(y==0)
						{
							range=2;
							r=0;
						}
						else if(y>=tempW-1)
						{
							range=1;
							r=-1;
						}
						else
						{
							range=2;
							r=-1;
						}
						int dy=y;
						for(int count=r;count<range;count++)
						{
							range_count++;
							dx=dw;
							dy++;
							//for(int x=pcx[i][j];x<pcx[i][j]+3;x++)	
							for(int x=0;x<3;x++)					
							{														
								int p=temp[(count+dx)*tempW+dy];			
								picr=0xff & (p>>16);
								picg=0xff & (p>>8);	
								picb=0xff & (p);
								dx++;		
								sumr=sumr+picr;								
								sumg=sumg+picg;
								sumb=sumb+picb;
							}			
						}									
						picr=sumr/(3*range_count);
						picg=sumg/(3*range_count);
						picb=sumb/(3*range_count);						
						dw++;
						temp[dw*tempW+y]=(0xff000000|picr<<16|picg<<8|picb);//放入暫存矩陣
						
					}
					
				}			         
			}
		}
	}
	
	        System.out.println("寫檔開始");
        	BufferedImage buf1 = new BufferedImage(tempW,tempH,BufferedImage.TYPE_INT_RGB);
        	buf1.setRGB(0,0,tempW,tempH,temp,0,tempW);
		FileOutputStream fileOut;		
		File file = new File(filename+"/"+filename+".jpg");
		try    
		{     
			//將檔案存成JPEG格式 
			fileOut = new FileOutputStream(file); 
			JPEGImageEncoder jpeg = JPEGCodec.createJPEGEncoder(fileOut); 
			jpeg.encode(buf1);  			
			fileOut.close(); 
		} 	         
		catch (Exception e)  
		{    
			e.printStackTrace(); 
		}   		
	        System.out.println("寫檔OK!!");	
	        long end=System.currentTimeMillis();					        
	}
	
	
	public void cutpic()
	{			
	        int cutW=2064;		  				
	       	int cutH=1554;
		int cut[]=new int[cutW * cutH];
		int pixels[]=new int[W*H];
		int X=(W-cutW)/2;
		int Y=(H-cutH)/2;						
		System.out.println("切圖開始");	
		for(int i=0; i<a; i++)				
		{
			for(int j=0; j<b; j++)
			{			
				//PixelGrabber pg= new PixelGrabber(pic[i][j],0,0,W,H,pixels,0,W);
				aaa(i,j);
				PixelGrabber pg= new PixelGrabber(img,0,0,W,H,pixels,0,W);
				try 
				{
	        			pg.grabPixels(); //取得資料
				}
				catch (InterruptedException e)
				{
					System.out.println("Interrupted!");
					return;
				}	
				int sh=0,eh=0,sw=0,ew=0;
			if(i==0 && j==startY)//初始張			
			{	
				sh=Y;
				eh=Y+cutH;
				sw=X;
				ew=X+cutW;
			}
			if(i==0 && j<startY)//左
			{				
				sh=Y+pcy[i][j];
				eh=sh+cutH;	
				if(pcx[i][j]>X)
				{						
					if((pcx[i][j]-X)>(X/2))
					{
						sw=pcx[i][j]-X;
					}
					else
					{					
						sw=pcx[i][j]-(pcx[i][j]-X);
					}
				}	
				else
				{						
					sw=pcx[i][j]-(pcx[i][j]-X);
				}			
				ew=sw+cutW;
			}	
			if(i==0 && j>startY)//右
			{				
				sh=Y+pcy[i][j];
				eh=sh+cutH;	
				if(pcx[i][j]>X)
				{						
					if((pcx[i][j]-X)>(X/2))
					{
						sw=pcx[i][j]-X;
					}
					else
					{					
						sw=X;
						//sw=pcx[i][j]-(pcx[i][j]-X);
					}
				}
				else
				{						
					sw=X;
					//sw=pcx[i][j]-(pcx[i][j]-X);
				}
				ew=sw+cutW;
			}	
			if(i>0 && j<startY)//左下
			{
				if(pcy[i][j]<pcx[i][j])
				{						
					sh=Y+pcy[i][j];				
					eh=sh+cutH;										
					if(pcx[i][j]>X)
					{							
						if((pcx[i][j]-X)>(400))
						{
							sw=pcx[i][j]-X;
						}
						else
						{						
							//sw=pcx[i][j]-(pcx[i][j]-X);
							sw=X;
						}
					}					
					else
					{
						//sw=pcx[i][j];
						//sw=pcx[i][j]-(pcx[i][j]-X);
						sw=X;
					}
					ew=sw+cutW;
				}
				else
				{
					sh=pcy[i][j]-(pcy[i][j]-Y);					
					eh=sh+cutH;				
					sw=X+pcx[i][j];					
					ew=sw+cutW;
				}
			}							
			if(i>0 && j>startY)//右下
			{
				if(pcy[i][j]<pcx[i][j])
				{	
					sh=Y+pcy[i][j];
					eh=sh+cutH;									
					if(pcx[i][j]>X)
					{	
						//sw=X-((pcx[i][j]-X)-X);												
						if((pcx[i][j]-X)>(400))
						{
							sw=pcx[i][j]-X;
						}
						else
						{						
							sw=pcx[i][j]-(pcx[i][j]-X);
						}
					}
					else
					{					
						sw=X;
					}					
					ew=sw+cutW;
				}
				else
				{
					sh=pcy[i][j]-(pcy[i][j]-Y);					
					eh=sh+cutH;				
					sw=X+pcx[i][j];
					ew=sw+cutW;
				}
			}				
			if(i>0 && j==startY)//下
			{	
				sh=pcy[i][j]-(pcy[i][j]-Y);				
				eh=sh+cutH;				
				sw=X+pcx[i][j];
				ew=sw+cutW;
			}	
				int tx,ty=0;
				for (int y=sh;y<eh;y++)
				{	
					tx=0;
					for (int x=sw;x<ew;x++)				
					{							
						int p=pixels[y*W+x];//////////////===============										
						int picr=0xff & (p>>16);
						int picg=0xff & (p>>8);	
						int picb=0xff & (p);																		
						cut[ty*cutW+tx]=(0xff000000|picr<<16|picg<<8|picb);//放入暫存矩陣
						tx++;
					}		
					ty++;												
				}
			
			BufferedImage buf1 = new BufferedImage(cutW,cutH,BufferedImage.TYPE_INT_RGB);
        		buf1.setRGB(0,0,cutW,cutH,cut,0,cutW);
			FileOutputStream fileOut;	 
			File file = new File(filename+"/cut/"+"img_"+(i+1)+"_"+(j+1)+".jpg");
			try    
			{     
				//將檔案存成JPEG格式 
				fileOut = new FileOutputStream(file); 
				JPEGImageEncoder jpeg = JPEGCodec.createJPEGEncoder(fileOut); 
				jpeg.encode(buf1);  			
				fileOut.close(); 
			} 	         
			catch (Exception e)  
			{    
				e.printStackTrace(); 
			}
        		}
		} 
	        System.out.println("切圖OK!!");	       
	}


	//放大與縮小
	public void stateChanged(ChangeEvent e1)
 	{  
		int i;
		ratio=(zoom.getValue())/100.0;//設定比例
		i=(int)(ratio*100.0);
		zo.setText(i+"%");	   
		repaint();			
     	}     	
     	
	//以下show 圖
	public void paint(Graphics g)
   	{
   		
		super.paint(g);							
		for(int i=0; i<a; i++)				
		{		
			
			for(int j=0; j<b; j++)			
			{	
				//H=(int)(pic[0][0].getHeight(this)*ratio);
				//W=(int)(pic[0][0].getWidth(this)*ratio);
				H=(int)(img.getHeight(this)*ratio);
				W=(int)(img.getWidth(this)*ratio);
				picry[i][j]=posY+(int)(H*i);
				picrx[i][j]=posX+(int)(W*j);
				g.drawImage(pic[i][j],picrx[i][j],picry[i][j],(int)W,(int)H,this);											
			}
	        }	        
	}  
	public void show()
     	{
     		filename=txt1.getText();		//取得編號		
		img=Toolkit.getDefaultToolkit().createImage("cut/"+filename+"_1_1.jpg");		
        	tracker = new MediaTracker(this);
      		tracker.addImage(img,1);
      		try {	tracker.waitForAll();	}
      		catch (InterruptedException e){	}
      		tracker.removeImage(img,1); 
        	W =(int)(img.getWidth(this)*ratio);		//取得圖片的寬
	       	H =(int)(img.getHeight(this)*ratio);		//取得圖片的高		
		a=Integer.parseInt(txta.getText());	//取得列
		b=Integer.parseInt(txtb.getText());	//取得行
		picrx=new int[a][b];			
		picry=new int[a][b]; 
		pic=new Image[a][b];
		for(int x=0;x<a;x++)
		{
			for(int y=0;y<b;y++)
			{	
				pic[x][y]=Toolkit.getDefaultToolkit().createImage("cut/"+filename+"_"+(x+1)+"_"+(y+1)+".jpg"); 			
				picry[x][y]=posY+(int)(H*x);
				picrx[x][y]=posX+(int)(W*y);
			}
		}
		repaint();
     	}	
        class checkmouse extends MouseAdapter
  	{     		
     		public void mousePressed(MouseEvent e)     		
     		{	     	
     			imgx=posX+W*b;
     			imgy=posY+H*a;
     			xa=e.getX();
     			ya=e.getY();	
     			if (((xa>posX) && (xa<imgx)) && ((ya>posY) && (ya<imgy)))
     			{
				dx=e.getX()-posX;   // 取得滑鼠按下之點與基準點x方向的距離
      				dy=e.getY()-posY;   // 取得滑鼠按下之點與基準點y方向的距離
      			}
      			
     		}
  	}        
  	class procmouse extends MouseMotionAdapter
  	{     	
     		public void mouseDragged(MouseEvent e)
     		{  	    			
     			if (((xa>posX) && (xa<imgx)) && ((ya>posY) && (ya<imgy)))
     			{      		
     				posX=e.getX()-dx;    // 取得拖曳時的基準點x座標
     				posY=e.getY()-dy;    // 取得拖曳時的基準點y座標      				
     				xb=x-posX;
     				yb=y-posY;
     				for(int i=0;i<a;i++)
     				{
     					for(int j=0;j<b;j++)
     					{
     						if(i==0 && j==0)
     						{
     							picrx[0][0]=posX;
     							picry[0][0]=posY;
     						}
     						else	
     						{     							
     							picry[i][j]=posY+(int)(H*i);
							picrx[i][j]=posX+(int)(W*j);
     						}
     					}
     				}     	  				
				repaint();
			}
     		}
  	}   	
  	public static void main(String args[]) //程式起點
   	{   		
		m1 app=new m1(); //畫圖
		JFrame f = new JFrame("m1");
    		// To close the application:
    		f.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
		f.getContentPane().add(app);//把Applet 加進去
		f.setSize(800,600);
		app.flg=1;
		app.init();//呼叫init()
		app.start();//呼叫start()
		f.show();
    	}
}