Disini nanti gw kasih carannya buat morphing dari huruf Y ke I he3 yang mudah2 aj. .ntr klo dah pinter baru buat yang aneh2.
morphing nie gw buat dengan jumlah framenya 10 ,agar nantinya tampak jelas perubahanya dari huruf Y ke I nya . program ni sebenernya adalah tgs gw juga waktu semester pendek kmaren, trus nie gw kasih ke blog buat ngeramein blog gw aja n sapa tau ada juga yang butuh,, itung2 bagi2 ilmu J perintah tgsnya yaitu disuruh buat morphing dengan menggunakan nama kita ,ywd gw pake Y ke I aja, sebenernya sich Y ke S :P tp ntr kelamaan dech selesainya,ywd gw putusin yang simple2 aja J . setelah nanti sobat coba otak-atik program nie sobat jg dapat mengganti hurufnya dengan yang lain :D
OK langsung aja nih programnya . . Selamat mencoba dan sukses .. ![]()
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::FormPaint(TObject *Sender)
{
x1=150;
y1=250;
x2=120;
y2=300;
x3=85;
y3=250;
x4=120;
y4=350;
x11=250;
y11=250;
x12=250;
y12=350;
PaintBox1->Canvas->Rectangle(0,0,PaintBox1->Width,PaintBox1->Height);
PaintBox1->Canvas->MoveTo(x1,y1);
PaintBox1->Canvas->LineTo(x2,y2);
PaintBox1->Canvas->LineTo(x3,y3);
PaintBox1->Canvas->LineTo(x2,y2);
PaintBox1->Canvas->MoveTo(x10,y10);
PaintBox1->Canvas->LineTo(x9,y9);
PaintBox1->Canvas->LineTo(x6,y6);
PaintBox1->Canvas->LineTo(x7,y7);
PaintBox1->Canvas->LineTo(x8,y8);
PaintBox1->Canvas->LineTo(x9,y9);
PaintBox1->Canvas->MoveTo(x11,y11);
PaintBox1->Canvas->LineTo(x12,y12);
}
{
x1=150;
y1=250;
x2=120;
y2=300;
x3=85;
y3=250;
x4=120;
y4=350;
x13=250;
y13=100;
x14=250;
y14=150;
x15=250;
y15=200;
double f=10;
for(int i=1;i<=10;i++)
{
Ax[i] = x1 + i/f*( x13 - x1 );
Ay[i] = y1 + i/f*( y13 - y1 );
Bx[i] = x2 + i/f*( x14 - x2 );
By[i] = y2 + i/f*( y14 - y2 );
Cx[i] = x3 + i/f*( x13 - x3 );
Cy[i] = y3 + i/f*( y13 - y3 );
Dx[i] = x4 + i/f*( x15 - x4 );
Dy[i] = y4 + i/f*( y15 - y4 );
PaintBox1->Canvas->MoveTo(Ax[i],Ay[i]);
PaintBox1->Canvas->LineTo(Bx[i],By[i]);
PaintBox1->Canvas->MoveTo(Cx[i],Cy[i]);
PaintBox1->Canvas->LineTo(Bx[i],By[i]);
PaintBox1->Canvas->MoveTo(Bx[i],By[i]);
PaintBox1->Canvas->LineTo(Dx[i],Dy[i]);
}
}
silahkan coba2 . . . . :P




