#include <windows.h>
#include <windowsx.h>
#include <string.h>
#include <stdio.h>
#include "pixiadll.h"
#include "px_samp.h"
#include "math.h"

HINSTANCE	hInst;



int CALLBACK _DllMainCRTStartup(
	HINSTANCE hInstance, DWORD fdwReason, LPVOID lpReserved )
{
	hInst = hInstance;
	return(1);
}



/*
	テスト用の設定パラメータ
	何らかの設定ダイアログをもつフィルタの場合にはこのように使用します。
*/
typedef struct tagSAMPLE{
	int a;
	int b;
}SAMPLE;
SAMPLE sample;







/*
	設定パラメータをもつフィルタでは、このように設定パラメータを読み書きする。
*/
BOOL ReadData( LPSTR szDir )
{
	unsigned char szDataDir[256];
	HFILE hFile;

	strcpy( szDataDir, szDir );
	strcat( szDataDir, "px_samp.dat" );
	if(-1==(hFile=_lopen( szDataDir,OF_READ|OF_SHARE_DENY_WRITE))){
		sample.a = 0;
		sample.b = 0;
		return( TRUE );
	}
	_lread( hFile,(LPBYTE)&sample, sizeof(SAMPLE));
	_lclose( hFile );
	return( TRUE );
}





BOOL WriteData( LPSTR szDir )
{
	unsigned char szDataDir[256];
	HFILE hFile;
	strcpy( szDataDir, szDir );
	strcat( szDataDir, "px_samp.dat" );
	if(-1==(hFile=_lcreat(szDataDir,0))) return( FALSE );
	_lwrite( hFile,(LPBYTE)&sample, sizeof(SAMPLE));
	_lclose( hFile );
    return( TRUE );
}





/*------------------------------------------------------------
	フィルタのタイトルを得る
入力：
	hWnd..	オーナーウインドウハンドル
	通常は使用しないが，NULLの場合も考慮すること
出力：
	fOpt..	詳細設定をもつかどうかのフラグ
	ver..	DLL仕様のバージョン(Pixiaでは１０にする。)
	info..	リストボックスに表示する文字列
*/
BOOL FilterGetTitle( HWND hWnd, LPSTR info, BOOL *opt, int *ver )
{
	strcpy( info, "テストフィルタ" );
	*opt = TRUE;
	*ver = 10;
	return( TRUE );
}





/*------------------------------------------------------------
	フィルタの実行
入力：
*/
BOOL FilterProc(HWND hWnd, LAYERINFO *li, 
	SETLINEFUNC *sf, GETLINEFUNC *gf, LPSTR szDir,LPBYTE lpExt)
{
	int i, j;
	int buff_size;
    LPBYTE lpWork;
	ReadData( szDir );	// 設定したパラメータを読み込む

	buff_size = (li->cx * 3 + 100);
	lpWork = (LPBYTE)GlobalAllocPtr( GHND, buff_size );
    unsigned char ps[li->cy][li->cx][2]; //データを配列に移す作業 j行i列、ＲＧＢの赤、緑、青
	int ps2[li->cy][li->cx][2];

    if( lpWork == NULL ) return( FALSE );


	for(j = 0; j < li->cy; j ++ ){

		// 進行状況の表示
		if( j % 5 ==0 ){
			SendMessage( hWnd, MM_DISPINFO, INFO_PERCENTAGE,
				j * 100 / li->cy );
		}
		// 画素情報を得る
		gf->GetLine( j, 0, li->cx-1, lpWork,  -1 );
		for( i = 0; i < li->cx;i ++ ){
			// 赤ゲット
			ps[j][i][0] = lpWork[i*3];
			// 青ゲット
			ps[j][i][1] = lpWork[i*3+1];
			// 緑ゲット
			ps[j][i][2] = lpWork[i*3+2];
		}

	}
    

    if(pictChange(li,ps,ps2)){
    }

		// 画素情報を保存する。
	for( j = 0; j < li->cy; j ++ ){
		// 進行状況の表示
		if( j % 5 ==0 ){
			SendMessage( hWnd, MM_DISPINFO, INFO_PERCENTAGE,
				j * 100 / li->cy );
		}
		// 画素情報を戻す
		for( i = 0; i < li->cx;i ++ ){
			// 赤青緑セット
			lpWork[i*3]   = ps2[j][i][0];
			lpWork[i*3+1] = ps2[j][i][1] ;
			lpWork[i*3+2] = ps2[j][i][2];
		}
        sf->SetLine( j, 0, li->cx-1, lpWork,  -1 );
	}
    
    
    //
	GlobalFreePtr( lpWork );
	// 進行状況表示の終了
	SendMessage( hWnd, MM_DISPINFO, INFO_NONE, 0 );
	return( TRUE );
}







BOOL pictChange(LAYERINFO *li,unsigned char *ps,int *ps2)
{
//絵のサイズから必要な円の数と計算回数を求める
//int splitSizeX;
//int splitSizeY;
//splitSizeX=li->cx/2;
//splitSizeY=li->cy/2;


//1*1画像とか入ったらバグが出そうだけど、その場合は何もしないで終了



int stdSize=1;//碁盤の目に区切るときの基準サイズ


if(li->cx > li->cy){
    stdSize=li->cy/3;
}else{
    stdSize=li->cx/3;
}



while(stdSize>=2)
    {
        RAND_MAX=stdSize/2;
        for(int j=0;j<li->cy/stdSize;j++){
            for(int i=0;i<li->cx/stdSize;i++){
                for(int k=0;k<4;k++){
                    if(pictToCircle(li,ps,ps2,stdSize,i*stdSize+rand()-stdSize/4,j*stdSize+rand()-stdSize/4)==true){
                    }
                }
            }
        }
    }
    stdSize/=2;
    return (true);
}




BOOL pictToCircle(LAYERINFO *li,unsigned char *ps,int *ps2,int size,int x,int y)
{
    int startX;
    int startY;
    int endX;
    int endY;
    int i;
    int j;
    startX=CutNum(0,li->cx,x-size);
    startY=CutNum(0,li->cy,y-size);
    endX  =CutNum(0,li->cx,x+size);
    endY  =CutNum(0,li->cy,y+size);
    int sizeX=endX-startX;
    int sizeY=endY-startY;


    float ar=0;
    float ag=0;
    float ab=0;


    for(j=0;j<sizeY;j++){
        for(i=0;i<sizeX;i++){
            //ここで画像処理を行う、まずは色空間の色の平均を取り、平均から一定距離以内にたくさんの色があればその色を基準色とする、この処理には色々な関数があるよね
            //実はこのコードを書いた人間のプログラマ適正は0に近く、そして私にはプログラム書いてくれるような友達がいないのだった（爆）だからコードにミスがあっても許してね
            //人間が3原色で色を認識しているのはよかったのか悪かったのか、4原色だったら、4次元空間で勉強が大変になったかも？
            ar+=ps[j+startY][i+startX][0];
            ag+=ps[j+startY][i+startX][1];
            ab+=ps[j+startY][i+startX][2];
        }
    }
    float areaSize=((sizeX+1)*(sizeY+1));
    ar/=areaSize;
    ag/=areaSize;
    ab/=areaSize;
 
    float   count=0;
    float   temp=0;
    int k=1;
    int l=1;


    //計算のショートカット、処理が重そうな気がして、本当は関数使うべきだけどとりあえずの値
    if(sizeY>4){
        k=2;
    }
    if(sizeX>4){
        l=2;
    }
    if(sizeY>7){
        k=3;
    }
    if(sizeX>7){
        l=3;
    }




    for(j=0;j<sizeY;j+=k){
        for(i=0;i<sizeX;i+=l){
            temp =(ps[j+startY][i+startX][0]-ar)^2;
            temp+=(ps[j+startY][i+startX][1]-ag)^2;
            temp+=(ps[j+startY][i+startX][2]-ab)^2;
            //色空間内での平均からの距離が50以下ならcountする、何回か実験して値を変えても良いよな
                if(temp<2500){
                    count++;
                }
            //処理ここまで
        }
    }
    //色空間内での散らばりが十分に小さいなら色を認める。
    //比率を求める計算式を設定しても良いかもしれない？
    if (count/areaSize>0.8){
        return (CirclePaint(ps2,x,y,startX,startY,endX,endY,size,ar,ag,ab));
    }else{
        return (false);
    } 
}


BOOL function CirclePaint(int *ps2,int x,int y,int sx,int sy,int ex,int ey,int r,int ar,int ag,int ab){
//x,yから一定距離以内にある点を全て円で壁画する関数
//実はここは独自処理を追加したいので、後で色々いじれたらいいなあと思う、予定だけだけど
//全部計算後値のエラーが起きたときにそなえ、全ての点の数値を最後に整える予定
//円だけならライブラリでいいのだがそのうち、エリア範囲を判断して他の形を選んだり、色の塗り方選んだり独自処理を追加する予定なので、数値レベルで直接いじくっている

    bool ans=false;
    int hekigaOk=0;
    int r2=r^2;
    for(int j=sy;j<ey;j++){
        for(int i=sx;i<ex;i++){
            if((y-j)^2+(x-i)^2<r2){
                hekigaOk=1;
                ans=true;
            }
            if(hekigaOk==1){
                if(ps2[i][j][0]==0){
                    ps2[i][j][0]=ar;
                    ps2[i][j][1]=ag;
                    ps2[i][j][2]=ab;
                }else{
                    ps2[i][j][0]=ar*0.9+ps2[i][j][0]*0.1;
                    ps2[i][j][1]=ag*0.9+ps2[i][j][1]*0.1;
                    ps2[i][j][2]=ab*0.9+ps2[i][j][2]*0.1;
                }
            }
        }
    }
    return ans;
}






int function CutNum(int min,int max,int l){
    if(min>l){
        l=min;
    }
    if(max<l){
        l=max;
    }
    return (l);
}







static BOOL CALLBACK OptDlgProc( HWND hDlg, UINT uMessage, 
	WPARAM wParam, LPARAM lParam )
{
	switch( uMessage ){
	case WM_COMMAND:
		switch( LOWORD(wParam)){
		case IDOK:
			EndDialog( hDlg, TRUE );
			break;
		case IDCANCEL:
			EndDialog( hDlg, FALSE );
			break;
		}
		break;

	case WM_SYSCOMMAND:
		if( LOWORD( wParam ) == SC_CLOSE ){
			EndDialog( hDlg, FALSE );
		}
		break;
	}
	return( FALSE );
}







/*
	詳細設定
*/
BOOL FilterOption( HWND hWnd, LPSTR szDir, BYTE *lpExt )
{
	ReadData( szDir );
	// ダイアログでのパラメータ設定の例
	if( DialogBox( hInst, "sampledlg", hWnd, OptDlgProc )){
		WriteData( szDir );
	}
	return( TRUE );
}