预览加载中，请您耐心等待几秒...

计算机图形学画直线的程序.doc

预览
1/2
2/2

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

//--------------------------------------------------------------------------- #include<vcl.h> #pragmahdrstop #include"Unit1.h" //--------------------------------------------------------------------------- #pragmapackage(smart_init) #pragmaresource"*.dfm" TForm1*Form1; //--------------------------------------------------------------------------- __fastcallTForm1::TForm1(TComponent*Owner) :TForm(Owner) { } //--------------------------------------------------------------------------- void__fastcallTForm1::Button1Click(TObject*Sender) {intdx,dy,E,NE,d,x,y,x0,x1,y0,y1; x0=StrToInt(Edit1->Text); y0=StrToInt(Edit2->Text); x1=StrToInt(Edit3->Text); y1=StrToInt(Edit4->Text); dx=x1-x0; dy=y1-y0; d=2*dy-dx; E=2*dy; NE=(dy-dx)*2; x=x0; y=y0; Image1->Canvas->Pixels[250][175]=clBlack; while(x<x1) {if(d<=0) {d+=E; x++; } else {d+=NE; x++; y++; } Image1->Canvas->Pixels[250+x][175-y]=clBlack;} } //--------------------------------------------------------------------------- void__fastcallTForm1::Button2Click(TObject*Sender) { Image1->Canvas->Brush->Color=clWhite; Image1->Canvas->FillRect(Rect(0,0,500,350)); } //--------------------------------------------------------------------------- void__fastcallTForm1::Button3Click(TObject*Sender) { Form1->Close(); } //-------------------------------------