計(jì)算機(jī)圖形學(xué)畫圓方法

浙江大學(xué)城市學(xué)院實(shí)驗(yàn)報(bào)告課程名稱計(jì)算機(jī)圖形學(xué)實(shí)驗(yàn)項(xiàng)目名稱畫圓方法實(shí)驗(yàn)成績(jī)指導(dǎo)老師（簽名）日期一.實(shí)驗(yàn)?zāi)康暮鸵笸ㄟ^(guò)實(shí)驗(yàn)加深對(duì)Bresenham圓生成算法的理解。二.實(shí)驗(yàn)內(nèi)容和原理數(shù)據(jù)輸入項(xiàng)（或者函數(shù)參數(shù)）為：圓心坐標(biāo)與半徑輸出圓。三.實(shí)驗(yàn)設(shè)計(jì)與分析Besenham圓①創(chuàng)建一個(gè)application，將其全部保存，②雙擊劃圓按扭，定義參數(shù)如下：x,y,x0,y0,r,direction:integer;delta,delta1,delta2:integer;color1:integer;③編寫代碼如下ifself.Edit1.Text=''thenbeginApplication.MessageBox('圓心坐標(biāo)X沒(méi)有輸入！','提示',0);abort;endelseifself.Edit2.Text=''thenbeginApplication.MessageBox('圓心坐標(biāo)Y沒(méi)有輸入！','提示',0);abort;endelseifself.Edit3.Text=''thenbeginApplication.MessageBox('圓半徑?jīng)]有輸入！','提示',0);abort;endelsex0:=strtoint(Edit1.Text);y0:=strtoint(Edit2.Text);r:=strtoint(Edit3.Text);x:=0;y:=r;delta:=2*(1-r);color1:=clGreen;whiley>=0dobeginimage1.canvas.Pixels[x0+x,y0+y]:=color1;image1.canvas.Pixels[x0-x,y0+y]:=color1;image1.canvas.Pixels[x0+x,y0-y]:=color1;image1.canvas.Pixels[x0-x,y0-y]:=color1;ifdelta<0thenbegindelta1:=2*(delta+y)-1;ifdelta1<=0thendirection:=1elsedirection:=2;endelseifdelta>0thenbegindelta2:=2*(delta-x)-1;ifdelta2<=0thendirection:=2elsedirection:=3;endelsedirection:=2;casedirectionof1:begininc(x);delta:=delta+2*x+1;end;2:begininc(x);dec(y);delta:=delta+2*(x-y+1);end;3:begindec(y);delta:=delta+(-2*y+1);end;end;end;end;④雙擊演示按扭，定義參數(shù)如下：x,y,x0,y0,r,direction:integer;delta,delta1,delta2:integer;color1:integer;⑤編寫代碼如下 ifself.Edit1.Text=''thenbeginApplication.MessageBox('圓心坐標(biāo)X沒(méi)有輸入！','提示',0);abort;endelseifself.Edit2.Text=''thenbeginApplication.MessageBox('圓心坐標(biāo)Y沒(méi)有輸入！','提示',0);abort;endelseifself.Edit3.Text=''thenbeginApplication.MessageBox('圓半徑?jīng)]有輸入！','提示',0);abort;endelsex0:=strtoint(Edit1.Text);y0:=strtoint(Edit2.Text);r:=strtoint(Edit3.Text);x:=0;y:=r;delta:=2*(1-r);color1:=clGreen;whiley>=0dobeginimage1.canvas.Pixels[x0+x,y0+y]:=color1;image1.canvas.Pixels[x0-x,y0+y]:=color1;image1.canvas.Pixels[x0+x,y0-y]:=color1;image1.canvas.Pixels[x0-x,y0-y]:=color1;ifdelta<0thenbegindelta1:=2*(delta+y)-1;ifdelta1<=0thendirection:=1elsedirection:=2;endelseifdelta>0thenbegindelta2:=2*(delta-x)-1;ifdelta2<=0thendirection:=2elsedirection:=3;endelsedirection:=2;casedirectionof1:begininc(x);delta:=delta+2*x+1;end;2:begininc(x);dec(y);delta:=delta+2*(x-y+1);end;3:begindec(y);delta:=delta+(-2*y+1);end;end;end;⑥雙擊退出按扭，編寫代碼如下： Close；⑦雙擊清屏按扭，編寫代碼如下：image1.Canvas.Brush.Color:=clwhit