利用bcb内建polybezier函数画出有4X4的控制点曲面方程式程式如何做.doc

利用bcb 內建polybezier 函數畫出有4X4的控制點曲面方程式程式如何做? 類似如下圖 下面是Bezier Surface它的數學式 這是上次請教你的問題 用bcb 內建polybezier 函數寫的程式 n 階貝茲曲線可如下推斷。給定點 P0、P1、…、Pn，其貝茲曲線即 其中Pi 是螢幕某點座標 #include vcl.h #pragma hdrstop TPoint p[4]; int m_flag=0; int Shp_flag=0; #include Unit1.h //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource *.dfm TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(m_flag==1) { switch(Shp_flag) { case 1: Shp1-Left=X-Shp1-Width; Shp1-Top=Y-Shp1-Height; p[0]=Point(Shp1-Left+4,Shp1-Top+4); break; case 2: Shp2-Left=X-Shp2-Width;Shp2-Top=Y-Shp2-Height; p[1]=Point(Shp2-Left+4,Shp2-Top+4); break; case 3: Shp3-Left=X-Shp3-Width;Shp3-Top=Y-Shp3-Height; p[2]=Point(Shp3-Left+4,Shp3-Top+4); break; case 4: Shp4-Left=X-Shp4-Width;Shp4-Top=Y-Shp4-Height; p[3]=Point(Shp4-Left+4,Shp4-Top+4); break; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::Shp1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { m_flag=1; Shp_flag=1; } //--------------------------------------------------------------------------- void __fastcall TForm1::Shp2MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { m_flag=1; Shp_flag=2; } //--------------------------------------------------------------------------- void __fastcall TForm1::Shp3MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { m_flag=1; Shp_flag=3;