/*********************************************************
*               TRANSFORM A 2D FIGURE                    *
* ------------------------------------------------------ *
* This program transforms a sparrow into its French name,*
* MOINEAU, with 50 intermediate views.                   *
* ------------------------------------------------------ *
* From "Graphisme dans le plan et dans l'espace avec     *
* Turbo Pascal 4.0 de R. Dony - MASSON 1990", page 211.  *
*                                                        *
* Visual C++ program in API style By J-P Moreau, Paris.  *
*********************************************************/
//Import with associated <deform.mak> file.
#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>

#define  nbdefor 50     // number of intermediate views
#define  LIM     44     // number of points (+1) in figure

HDC  hdc;
RECT rect;
HPEN hpen, hpenOld, WhitePen;


//Functions used here of module Gr2D.cpp
void Fenetre(double,double,double,double); 
void Cloture(int,int,int,int); 
void Bordure();
void MoveXY(double,double);
void LineXY(double,double);


//"home made" graphic commands for hdc environment used by above functions
void DrawPixel(int ix,int iy) {
  //sorry, no other available command found
  Rectangle(hdc,rect.left+ix,rect.top+iy,
	            rect.left+ix+2,rect.top+iy+1);
}

void Swap(int *i1,int *i2) {
  int it;
  it=*i1; *i1=*i2; *i2=it;
}

void DrawLine(int ix1,int iy1,int ix2,int iy2) {
  int i,il,ix,iy;
  float dx,dy;
  if (ix2<ix1) {
	Swap(&ix1,&ix2); Swap(&iy1,&iy2);
  }
  il=(int) sqrt((ix2-ix1)*(ix2-ix1)+(iy2-iy1)*(iy2-iy1));
  dx=(float) (ix2-ix1)/il; 
  dy=(float) (iy2-iy1)/il;
  ix=ix1; iy=iy1;
  for (i=1;i<il+1; i++) {
	DrawPixel(ix,iy);
	ix=(int) (ix1+i*dx); 
	iy=(int) (iy1+i*dy);
  }
}

void OutText(int ix,int iy,char *s) {
  RECT rct;
  rct.left=ix; rct.right=ix+10*strlen(s);
  rct.top=iy-5; rct.bottom=iy+15;
  DrawText(hdc, s, -1, &rct,
                DT_SINGLELINE | DT_CENTER | DT_VCENTER);
}


//begin specific section

double xa[LIM], ya[LIM], xd[LIM], yd[LIM], code[LIM];

  //draw a polynome of LIM-1 summits
  void TracePoly(double *xr, double *yr) {
    int i;
    for (i=1; i<LIM; i++)
      if (code[i]==0.0) 
	    MoveXY(xr[i],yr[i]);
	  else 
	    LineXY(xr[i],yr[i]);
  }

  //to regulate speed
  void Delay(int d) {
    int i; long k, duree; double zz;
	duree=100000;
	for (i=1; i<=d; i++) {
      zz=1.0;                 // delay loop
      for (k=1; k<=duree; k++)  zz=sin(zz)+cos(zz);
    }
  }

  // define and draw starting figure
  void FigDepart() {
    extern MaxX, MaxY;
    xd[1]=95;    yd[1]=85;    code[1]=0.0;
    xd[2]=87.5;  yd[2]=85;    code[2]=1.0;
    xd[3]=82.5;  yd[3]=87.5;  code[3]=1.0;
    xd[4]=77.5;  yd[4]=87.5;  code[4]=1.0;
    xd[5]=70;    yd[5]=80;    code[5]=1.0;

    xd[6]=70;    yd[6]=80;    code[6]=0.0;
    xd[7]=50;    yd[7]=65;    code[7]=1.0;
    xd[8]=35;    yd[8]=45;    code[8]=1.0;
    xd[9]=20;    yd[9]=30;    code[9]=1.0;
    xd[10]= 5;   yd[10]=15;   code[10]=1.0;

    xd[11]= 5;   yd[11]=15;   code[11]=0.0;
    xd[12]=15;   yd[12]=20;   code[12]=1.0;

    xd[13]=15;   yd[13]=20;   code[13]=0.0;
    xd[14]=10;   yd[14]=10;   code[14]=1.0;
    xd[15]=30;   yd[15]=25;   code[15]=1.0;

    xd[16]=30;   yd[16]=25;   code[16]=0.0;
    xd[17]=25;   yd[17]=15;   code[17]=1.0;
    xd[18]=45;   yd[18]=30;   code[18]=1.0;
    xd[19]=60;   yd[19]=40;   code[19]=1.0;

    xd[20]=60;   yd[20]=40;   code[20]=0.0;
    xd[21]=70;   yd[21]=50;   code[21]=1.0;
    xd[22]=75;   yd[22]=60;   code[22]=1.0;
    xd[23]=75;   yd[23]=65;   code[23]=1.0;
    xd[24]=70;   yd[24]=67.5; code[24]=1.0;
    xd[25]=60;   yd[25]=65;   code[25]=1.0;
    xd[26]=50;   yd[26]=55;   code[26]=1.0;

    xd[27]=50;   yd[27]=55;   code[27]=0.0;
    xd[28]=40;   yd[28]=40;   code[28]=1.0;
    xd[29]=30;   yd[29]=25;   code[29]=1.0;

    xd[30]=52.5; yd[30]=35;   code[30]=0.0;
    xd[31]=60;   yd[31]=35;   code[31]=1.0;

    xd[32]=60;   yd[32]=35;   code[32]=0.0;
    xd[33]=75;   yd[33]=45;   code[33]=1.0;
    xd[34]=85;   yd[34]=60;   code[34]=1.0;
    xd[35]=87.5; yd[35]=70;   code[35]=1.0;
    xd[36]=90;   yd[36]=80;   code[36]=1.0;
    xd[37]=95;   yd[37]=85;   code[37]=1.0;
    xd[38]=85;   yd[38]=80;   code[38]=1.0;

    xd[39]=82.5; yd[39]=82.5; code[39]=0.0;
    xd[40]=80;   yd[40]=82.5; code[40]=1.0;
    xd[41]=80;   yd[41]=80;   code[41]=1.0;
    xd[42]=82.5; yd[42]=80;   code[42]=1.0;
    xd[43]=82.5; yd[43]=82.5; code[43]=1.0;

    OutText(400,50,"STARTING FIGURE");
    SelectObject(hdc,hpen);  //blue pen 
    Bordure();
    TracePoly(xd,yd);
    Delay(100);
    Rectangle(hdc,0,0,MaxX,MaxY); //to erase
  }

  //define and draw ending figure
  void FigArrivee() {
    extern MaxX, MaxY;
    xa[1]= 5;    ya[1]=75;
    xa[2]= 5;    ya[2]=90;
    xa[3]=10;    ya[3]=80;
    xa[4]=15;    ya[4]=90;
    xa[5]=15;    ya[5]=75;

    xa[6]=20;    ya[6]=80;
    xa[7]=20;    ya[7]=65;
    xa[8]=30;    ya[8]=65;
    xa[9]=30;    ya[9]=80;
    xa[10]=20;   ya[10]=80;

    xa[11]=37.5; ya[11]=75;
    xa[12]=37.5; ya[12]=75;

    xa[13]=37.5; ya[13]=70;
    xa[14]=37.5; ya[14]=65;
    xa[15]=37.5; ya[15]=55;

    xa[16]=45;   ya[16]=45;
    xa[17]=45;   ya[17]=60;
    xa[18]=55;   ya[18]=45;
    xa[19]=55;   ya[19]=60;

    xa[20]=70;   ya[20]=50;
    xa[21]=60;   ya[21]=50;
    xa[22]=60;   ya[22]=42.5;
    xa[23]=65;   ya[23]=42.5;
    xa[24]=60;   ya[24]=42.5;
    xa[25]=60;   ya[25]=35;
    xa[26]=70;   ya[26]=35;

    xa[27]=70;   ya[27]=25;
    xa[28]=75;   ya[28]=40;
    xa[29]=80;   ya[29]=25;

    xa[30]=78;   ya[30]=30;
    xa[31]=72;   ya[31]=30;

    xa[32]=85;   ya[32]=30;
    xa[33]=85;   ya[33]=25;
    xa[34]=85;   ya[34]=15;
    xa[35]=90;   ya[35]=15;
    xa[36]=95;   ya[36]=15;
    xa[37]=95;   ya[37]=25;
    xa[38]=95;   ya[38]=30;

    xa[39]=40;   ya[39]=77.5;
    xa[40]=35;   ya[40]=77.5;
    xa[41]=35;   ya[41]=72.5;
    xa[42]=40;   ya[42]=72.5;
    xa[43]=40;   ya[43]=77.5;

    OutText(410,50,"ENDING FIGURE");
    SelectObject(hdc,hpen);  //blue pen
    Bordure();
    TracePoly(xa,ya);
    Delay(100);
    Rectangle(hdc,0,0,MaxX,MaxY); //to erase
  }

  // draw successive intermediate views
  void Deformation(double *xd, double *yd, double *xa, double *ya) {
    int i,j;
    double xr[LIM], yr[LIM];
    SelectObject(hdc,hpen);       //blue pen
    Bordure();
    for (i=1; i<=nbdefor+1; i++) {
	  for (j=1; j<LIM; j++) {
        xr[j]=xd[j]+i*(xa[j]-xd[j])/(nbdefor+1);
	    yr[j]=yd[j]+i*(ya[j]-yd[j])/(nbdefor+1);
      }
      SelectObject(hdc,hpen);     //blue pen
      TracePoly(xr,yr);
      Delay(5);
      SelectObject(hdc,WhitePen); //white pen to erase
      TracePoly(xr,yr);
    }
    SelectObject(hdc,hpen);       //blue pen
    TracePoly(xr,yr);
  }


  // main subroutine
  void Exec_Deform() {
    extern MaxX, MaxY;
    //client drawing zone in pixels
    MaxX=(rect.right-rect.left);
    MaxY=(rect.bottom-rect.top);
    Fenetre(0,100,0,100);
    Cloture(100,MaxX-100,100,MaxY-100);
    FigDepart();
    FigArrivee();
    Deformation(xd,yd,xa,ya);
    OutText(150,MaxY-150,"Nice transformation!");
  }

// end specific section


//Handle window Paint and Destroy messages
long FAR PASCAL /*_export*/ WndProc(HWND hwnd,
    UINT message, UINT wParam, LONG lParam) 
{
   
    PAINTSTRUCT ps;

    switch (message) {
        case WM_PAINT:
	    hdc = BeginPaint(hwnd, &ps);
	    GetClientRect(hwnd, &rect);
            hpen = CreatePen(PS_SOLID, 1, RGB(0, 0, 255));
			WhitePen=CreatePen(PS_SOLID,1,RGB(255,255,255));
            hpenOld = SelectObject(hdc,hpen);
            
            Exec_Deform();
               
            SelectObject(hdc,hpenOld);
            DeleteObject(hpen);
			DeleteObject(WhitePen);
            EndPaint(hwnd, &ps);
            return 0;
        case WM_DESTROY:
            PostQuitMessage(0);
            return 0;
    }
    return DefWindowProc(hwnd, message, wParam, lParam);
}

// main program
int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
    LPSTR lpszCmdParam, int nCmdShow)
{
    static char szAppName[] = "Mandzoom";
    HWND        hwnd;
    MSG         msg;
    WNDCLASS    wndclass;

    if (!hPrevInstance) {
        wndclass.style         = CS_HREDRAW | CS_VREDRAW;
        wndclass.lpfnWndProc   = WndProc;
        wndclass.cbClsExtra    = 0;
        wndclass.cbWndExtra    = 0;
        wndclass.hInstance     = hInstance;
        wndclass.hIcon         = LoadIcon(NULL, IDI_APPLICATION);
        wndclass.hCursor       = LoadCursor(NULL, IDC_ARROW);
        wndclass.hbrBackground = GetStockObject(WHITE_BRUSH);
        wndclass.lpszMenuName  = NULL;
        wndclass.lpszClassName = szAppName;

        RegisterClass(&wndclass);
    }

    hwnd = CreateWindow(szAppName,  // window class name
        " TRANSFORM 2D",            // window caption
        WS_OVERLAPPEDWINDOW,        // window style                       
        CW_USEDEFAULT,              // initial x position
        CW_USEDEFAULT,              // initial y position
        CW_USEDEFAULT,              // initial x size
        CW_USEDEFAULT,              // initial y size
        NULL,                       // parent window handle
        NULL,                       // window menu handle
        hInstance,                  // program instance handle
        NULL);                      // creation parameters

   ShowWindow(hwnd, nCmdShow);
   UpdateWindow(hwnd);

   while (GetMessage(&msg, NULL, 0, 0)) {
       TranslateMessage(&msg);
       DispatchMessage(&msg);
   }
   return msg.wParam;
}

// Jean-Pierre Moreau - last update august 1998

//end of file deform.cpp