Proyecto Zoom utilizando la clase UnidadII

//---------------------------------------------------------------------------

#include
#pragma hdrstop

#include "Unit1.h"
#include "UnidadII.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

vx1=0;
vx2=22;
vy1=0;
vy2=28;
}


//---------------------------------------------------------------------------

int xp1 = 180, yp1 = 200, xp2 = 280, yp2 = 300;
void TForm1::Corazon()
{
UnidadII *pv;
pv=new UnidadII();
pv->Ventana(vx1,vy1,vx2,vy2);//px1,py1,px2,py2);
pv->Puerto_Vision(xp1, yp2, xp2, yp1);

int fig [33][2]={{8,1},{8,2},{7,2},{7,3},{6,3},{6,4},{5,4},{5,5},{4,5},{4,8},{5,8},{5,9},{7,9},{7,8},{8,8},{8,7},{9,7},{9,8},{10,8},{10,9},{12,9},{12,8},{13,8},{13,5},{12,5},{12,4},{11,4},{11,3},{10,3},{10,2},{9,2},{9,1},{8,1}};
int ojo1[5][2]={{6,5},{6,7},{7,7},{7,5},{6,5}};
int ojo2[5][2]={{10,5},{10,7},{11,7},{11,5},{10,5}};


//Canvas->Pen->Width=3;
//Canvas->Rectangle(100,ezq_y1,321,ezq_y2);







//Transforma.Puerto_Vision(180,190,400,470);


int xx1,xx2,yy1,yy2;
int L = 0;
int M = 500;

pv->Mapeo(fig[0][0],fig[0][1],&xx1,&yy1,L,M);
PaintBox1->Canvas->MoveTo(xx1,yy1);
for(int i=1;i<33;i++)
{
pv->Mapeo(fig[i][0],fig[i][1],&xx1,&yy1,L,M);
PaintBox1->Canvas->LineTo(xx1,yy1);
}

pv->Mapeo(ojo1[0][0],ojo1[0][1],&xx1,&yy1,L,M);
PaintBox1->Canvas->MoveTo(xx1,yy1);


for(int i=1;i<5;i++)
{
pv->Mapeo(ojo1[i][0],ojo1[i][1],&xx1,&yy1,L,M);
PaintBox1->Canvas->LineTo(xx1,yy1);
}

pv->Mapeo(ojo2[0][0],ojo2[0][1],&xx1,&yy1,L,M);
PaintBox1->Canvas->MoveTo(xx1,yy1);


for(int i=1;i<5;i++)
{
pv->Mapeo(ojo2[i][0],ojo2[i][1],&xx1,&yy1,L,M);
PaintBox1->Canvas->LineTo(xx1,yy1);
}
}

void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
Corazon();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
this->Refresh();
if(Key == VK_UP)
{
yp1--;
yp2++;
}
if(Key == VK_DOWN)
{
yp2--;
yp1++;
}
if(Key == VK_LEFT)
{
xp1--;
xp2++;
}
if(Key == VK_RIGHT)
{
xp2--;
xp1 ++;

}

Corazon();
}
//---------------------------------------------------------------------------