计算机图形学画圆公式推导,计算机图形学画圆方法.doc

计算机图形学画圆方法.doc

(5页)

本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！

9.90 积分

浙江大学城市学院实验报告课程名称 计算机图形学 实验工程名称 画圆方法实验成绩 指导老师。 abort。 endelse if self.Edit3.Text = '' then begin Application.MessageBox('圆半径没有输入！','提示',0>。 abort。 endelse x0:= strtoint(Edit1.Text>。 y0:=strtoint(Edit2.Text>。 r:=strtoint(Edit3.Text>。 x:=0。 y:=r。 delta:=2*(1-r>。 color1:= clGreen。 while y>=0 do begin image1.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。 if delta-1。 if delta10 then begin delta2:=2*(delta-x>-1。 if delta2。 delta:=delta+2*x+1。 end。 2 : begin inc(x>。 dec(y>。 delta:=delta+2*(x-y+1>。 end。 3 : begin dec(y>。 delta:=delta+(-2*y+1>。 end。 end。 end。end。④双击演示按扭，定义参数如下：x,y,x0,y0,r,direction : integer。 delta,delta1,delta2 : integer。 color1 : integer。⑤编写代码如下if self.Edit1.Text = '' then begin Application.MessageBox('圆心坐标X没有输入！','提示',0>。 abort。 endelse if self.Edit2.Text = '' then begin Application.MessageBox('圆心坐标Y没有输入！','提示',0>。 abort。 endelse if self.Edit3.Text = '' then begin Application.MessageBox('圆半径没有输入！','提示',0>。 abort。 endelse x0:= strtoint(Edit1.Text>。 y0:=strtoint(Edit2.Text>。 r:=strtoint(Edit3.Text>。 x:=0。 y:=r。 delta:=2*(1-r>。 color1:= clGreen。 while y>=0 do begin image1.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。 if delta-1。 if delta10 then begin delta2:=2*(delta-x>-1。 if delta2。 delta:=delta+2*x+1。 end。 2 : begin inc(x>。 dec(y>。 delta:=delta+2*(x-y+1>。 end。 3 : begin dec(y>。 delta:=delta+(-2*y+1>。 end。 end。 end。⑥双击退出按扭，编写代码如下：Close；⑦双击清屏按扭，编写代码如下：image1.Canvas.Brush.Color:=clwhite。image1.Canvas.FillRect(Rect(0,0,350,250>>。Form3.Edit1.Clear。Form3.Edit2.Clear。Form3.Edit3.Clear。⑧保存，完成。四. 实验结果与分析五. 讨论、心得记录实验感受、上机过程中遇到的困难及解决办法、遗留的问题、意见和建议等。申明：所有资料为本人收集整理，仅限个人学习使用，勿做商业用途。5 / 5 关 键 词： 方法 画圆 图形 计算机

 天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。