欢迎来到天天文库
浏览记录
ID:38046599
大小:192.00 KB
页数:4页
时间:2019-05-25
《计算机图形学画圆的程序》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、#include#pragmahdrstop#include"Unit1.h"//---------------------------------------------------------------------------#pragmapackage(smart_init)#pragmaresource"*.dfm"TForm1*Form1;//--------------------------------------------------------------------------
2、-__fastcallTForm1::TForm1(TComponent*Owner):TForm(Owner){}//---------------------------------------------------------------------------void__fastcallTForm1::Button1Click(TObject*Sender){intr,x,y;floatd;r=StrToInt(Edit1->Text);x=0;y=r;d=5.0/4-r;Image1->Canvas->
3、Pixels[250][175]=clBlack;while(y>x){if(d<0){d+=2.0*x+3;x++;}else{d+=(x-y)*2.0+5;x++;y--;}Image1->Canvas->Pixels[250+x][175-y]=clBlack;}x=r;y=0;d=5.0/4-r;while(yCanvas->Pixels[250+x][175-y]=clBlac
4、k;}x=0;y=r;d=5.0/4-r;while(y>(-x)){if(d<0){d+=2.0*(-x)+3;x--;}else{d+=(-x-y)*2.0+5;(x--);y--;}Image1->Canvas->Pixels[250+x][175-y]=clBlack;}x=-r;y=0;d=5.0/4-r;while(y<-x){if(d<0){d+=2.0*y+3;y++;}else{d+=(y+x)*2.0+5;y++;x++;}Image1->Canvas->Pixels[250+x][175-y]
5、=clBlack;}x=0;y=-r;d=5.0/4-r;while(-y>x){if(d<0){d+=2.0*x+3;x++;}else{d+=(x+y)*2.0+5;x++;y++;}Image1->Canvas->Pixels[250+x][175-y]=clBlack;}x=r;y=0;d=5.0/4-r;while(-yCanvas->Pixels[250+x][175
6、-y]=clBlack;}x=0;y=-r;d=5.0/4-r;while(-y>-x){if(d<0){d+=2.0*(-x)+3;x--;}else{d+=(-x+y)*2.0+5;x--;y++;}Image1->Canvas->Pixels[250+x][175-y]=clBlack;}x=-r;y=0;d=5.0/4-r;while(-y<-x){if(d<0){d+=2.0*(-y)+3;y--;}else{d+=(-y+x)*2.0+5;y--;x++;}Image1->Canvas->Pixels[
7、250+x][175-y]=clBlack;}}//---------------------------------------------------------------------------void__fastcallTForm1::Button2Click(TObject*Sender){Image1->Canvas->Brush->Color=clWhite;Image1->Canvas->FillRect(Rect(0,0,500,350));}//------------------------
8、---------------------------------------------------void__fastcallTForm1::Button3Click(TObject*Sender){Form1->Close();}//------------------------------------------------------
此文档下载收益归作者所有