// ■透明のシミュレーション
#include "myWin.h"
#include "mySmodel.h"
#include "stdio.h"
#include "stdlib.h"
#include "locale.h"

// ラベル
#define LB_1 1001 // 方位角
#define LB_2 1002 // 仰角
#define LB_3 1003 // 距離
#define LB_4 1004 // 反射率
#define LB_5 1005 // 屈折率
#define LB_6 1006 // 物体色
// エディットボックス
#define ED_1 2001 // 方位角 
#define ED_2 2002 // 仰角
#define ED_3 2003 // 距離
#define ED_4 2004 // 反射率
#define ED_5 2005 // 屈折率
// ボタン
#define BT_1 3001 // ボタン１
#define BT_2 3002 // ボタン２
#define BT_3 3003 // ボタン３

static HWND bt1, bt2, bt3; // 実行指定用ボタン
static HWND editA, editB, editC, editD, editE;//変換用係数を指定するeditBox
static HDC hbuf; static HBITMAP hBM;//ビットマップ描画用
// 立体表示用
Point org, v0;        //原点、視点位置
TMatrix t, it;        //変換マトリックス
double dv;            //Z方向にずらす量
double size_x, size_y;//表示画面サイズ

//-----------------------------------------------------------
void clearBitmap(){   //■ビットマップクリア
	SelectObject(hbuf,GetStockObject(NULL_PEN));
	PatBlt(hbuf,0,0,2000,1000,WHITENESS);
}
void setView(double a,double e, double d){ // 角度による方向設定
	Point P1=setPoint(0,0,1);
	TMatrix PP=perspect(d), RX=rot_x(e-90), RZ=rot_z(-90-a);
	t=mlt(mlt(perspect(d),rot_x(e-90)),rot_z(-90-a));
	v0=mlt(mlt(rot_z(90+a),rot_x(90-e)),mlt(P1,d));
}
void setview(Point p){//■視点位置による方向設定
	Point P1=setPoint(0,0,1); dv=len(p);
	Point wa=unit(p); v0=p;
	if((wa.X==0) &&(wa.Y==0)){ t=perspect(dv);return;}
    double wd=sqrt(wa.X*wa.X+wa.Y*wa.Y);
    t=mlt(mlt(perspect(dv),rot_x(-wd,wa.Z)),rot_z(-wa.X/wd,-wa.Y/wd));
	it=mlt(rot_z(wa.X/wd,-wa.Y/wd),rot_x(wd,wa.Z));
}
Point screen(Point p){//■スクリーン座標系への変換
	Point a=mlt(t,p);
	double s=(t.mat[3][0]*p.X+t.mat[3][1]*p.Y+t.mat[3][2]*p.Z+t.mat[3][3]);
	return setPoint(org.X+a.X/s,org.Y-a.Y/s,a.Z);
}
Point world(Point p){ //■View座標をWorld座標に変換
	double sz=-p.Z/dv;
	return mlt(it,(setPoint((p.X-org.X)*sz,(-p.Y+org.Y)*sz,p.Z+dv)));
}
void init2D(int x, int y){//■描画初期設定
	size_x=x; size_y=y;	org.X=size_x/2-0.5;	org.Y=size_y/2-1.5; org.Z=0;
	setView(30,30,1000);
}
void origin(int x, int y){ org = setPoint(x+0.5F , y-0.5F,0); }//■原点設定
void drawPoint(double x,double y, int C){//■点を描く
	SetPixel(hbuf,(int)(x+0.5), (int)(y+0.5),C);
}
//---------------------------------------------------------------------
//■透明のシミュレーション
//  以下の係数を用いる
//　　diffuse：拡散反射係数, specular: 鏡面反射係数, ambient: 環境光,
//    reflect: 反射率, refract: 屈折率, matColor:　物体色
//
void drawBall(){  //球体
	Scene sc=setScene(0x191900);
	Attr Ac=setAttr(matColor,diffuse,specular,ambient,reflect  ,refract );
	sc=regist(sc, setBall(setPoint(0,0,70),70),Ac);
	Poly Wp=setPoly(setPoint(200,200,-50),setPoint(-200,200,-50),setPoint(-200,-200,-50),setPoint(200,-200,-50));
	sc=regist(sc,setWall(Wp),setAttr(RGB(100,100,150)));
	init2D(500,400); origin(250,200);
	Point L0 = setPoint(0,400,1000);                 //照明光源位置
	Point V0 = setPoint(500,500,500);                //視点
	setview(V0);
	HCURSOR hc=LoadCursor(NULL,IDC_WAIT); SetCursor(hc);
	for(int x=0;x<size_x;x++) for(int y=0; y<size_y;y++){
		Point V=unit(sub(world(setPoint(x,y,-dv)),V0));
		Ray VR=setRay(V0,V);
		drawPoint(x,y,color(sc, VR, &L0,6)); 
	}
	hc=LoadCursor(NULL,IDC_ARROW); SetCursor(hc);
}
//-----------------------------------------------------------------------------------------
void createLabel(HWND hw, LPARAM lp, HMENU hm, int X, int Y,TCHAR *str){//ラベル生成
	CreateWindow(TEXT("STATIC"),str,
		WS_CHILD|WS_VISIBLE|SS_RIGHT, X,Y,100,20,hw,hm,
		hInstance, NULL);
}
HWND createEdit(HWND hw, LPARAM lp,HMENU hm, int X, int Y, TCHAR *str){//エディットボックス生成
	return CreateWindow(TEXT("EDIT"),str, 
		WS_CHILD|WS_VISIBLE|WS_BORDER|ES_RIGHT, 
		X,Y,50,20,hw,hm,hInstance, NULL);
}
HWND createButton(HWND hw, LPARAM lp,HMENU hm, int X, int Y, TCHAR str[]){//ボタン生成
	return CreateWindow(TEXT("BUTTON"),str,
		WS_CHILD|WS_VISIBLE|WS_BORDER|BS_PUSHBUTTON, 
		X,Y,140,30,hw,hm,hInstance, NULL);
}
void createBitmap(HWND hw){
	HDC hdc=GetDC(hw); hBM=CreateCompatibleBitmap(hdc,500,700);
	hbuf=CreateCompatibleDC(hdc);SelectObject(hbuf,hBM);
	ReleaseDC(hw, hdc);
}
void windowSize(HWND hw, int width,int height){
	RECT r;	GetWindowRect(hw, &r);
	MoveWindow(hw, r.left, r.top, width, height,TRUE);
}
void initBitMap(HWND hw){// ビットマップ作成とメモリデバイスコンテキスト作成
	createBitmap(hw); clearBitmap();
	windowSize(hw,700,450);
}
void procCreate(HWND hw, WPARAM wp, LPARAM lp){
	initBitMap(hw);
	SetWindowText(hw,TEXT("透明描画"));
	createLabel(hw,lp,(HMENU) LB_1,510, 45,TEXT("拡散反射係数"));//ラベル生成
	createLabel(hw,lp,(HMENU) LB_2,510, 85,TEXT("鏡面反射係数"));
	createLabel(hw,lp,(HMENU) LB_3,510,120,TEXT("環境光係数"));
	createLabel(hw,lp,(HMENU) LB_4,510,160,TEXT("反射率"));
	createLabel(hw,lp,(HMENU) LB_5,510,200,TEXT("屈折率"));
	editA=createEdit(hw,lp,(HMENU) ED_1,620,45,TEXT("0.7"));//エディットボックス生成
	editB=createEdit(hw,lp,(HMENU) ED_2,620,85,TEXT("0.2"));
	editC=createEdit(hw,lp,(HMENU) ED_3,620,120,TEXT("0.3"));
	editD=createEdit(hw,lp,(HMENU) ED_3,620,160,TEXT("0.2"));
	editE=createEdit(hw,lp,(HMENU) ED_3,620,200,TEXT("1.03"));
	bt1  =createButton(hw,lp,(HMENU) BT_1,520, 5,TEXT("描画"));//ボタン生成
	matColor =0xFF;
}
double getValue(HWND editBox){//エディットボックスの値を取り出す。
	TCHAR str[128];char ansi[256];double X;
	GetWindowText(editBox,str,127);//文字列を取り出し
	WideCharToMultiByte(CP_ACP, 0, str,-1,ansi,255,NULL,NULL);//char配列に変換
	sscanf(ansi,"%lf",&X); //浮動小数点変換
	return X;
}
void procPaint(HWND hw, WPARAM wp, LPARAM lp){//ビットマップを画面に表示
	PAINTSTRUCT ps; HDC hdc=BeginPaint(hw, &ps);
	BitBlt(hdc,10,10,490,390,hbuf,0,0,SRCCOPY);
	EndPaint(hw,&ps);
}
// diffuse: 拡散反射係数, specular: 鏡面反射係数, ambient: 環境光
// reflect: 反射率, refract: 屈折率, matColor:　物体色
void getValue(){
	diffuse= getValue(editA); specular = getValue(editB); ambient = getValue(editC);
	reflect= getValue(editD); refract  = getValue(editE);
}
void procBall(HWND hw){//透明描画
	clearBitmap(); getValue();
	drawBall();
	InvalidateRect(hw, NULL, TRUE);
}

void procCommand(HWND hw, WPARAM wp, LPARAM lp){
	switch(LOWORD(wp)){
	case BT_1: procBall(hw) ; return;
	}
}
LRESULT CALLBACK WndProc(HWND hw, UINT msg, WPARAM wp, LPARAM lp){
	switch(msg){
	case WM_DESTROY : PostQuitMessage(0)    ; return 0;
	case WM_CREATE  : procCreate (hw, wp, lp); return 0;
	case WM_PAINT   : procPaint  (hw, wp, lp); return 0;
	case WM_COMMAND : procCommand(hw, wp, lp);
	}
	return DefWindowProc(hw, msg, wp, lp);
}