《图形图像处理》PPT课件.ppt

《图形图像处理》PPT课件.ppt

ID:51645200

大小:309.00 KB

页数:30页

时间:2020-03-27

《图形图像处理》PPT课件.ppt_第1页
《图形图像处理》PPT课件.ppt_第2页
《图形图像处理》PPT课件.ppt_第3页
《图形图像处理》PPT课件.ppt_第4页
《图形图像处理》PPT课件.ppt_第5页
资源描述:

《《图形图像处理》PPT课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第11章 图形图像处理贺向前主要内容计算机坐标系统常用作图方法作图相关属性作图的相关函数计算机坐标系统显示器坐标系统计算机坐标系统窗口等容器的坐标系统计算机坐标系统坐标系统的度量单位object.ScaleMode=valueValue描述0指出ScaleHeight、ScaleWidth、ScaleLeft和ScaleTop属性中的一个或多个被设置为自定义的值1(缺省值)缇(每英寸为1440缇;每厘米为567个缇)。(Twip)2磅(每英寸为72个磅)。(Point)3像素(分辨率的最小单位)。(Pixel)4字符(Character)5英寸。(Inch)6毫

2、米。(Millimeter)7厘米。(Centimeter)计算机坐标系统自定义度量单位Object.ScaleWidth=w把对象的宽度定义为有w个刻度单位Object.ScaleHight=h把对象的高度定义为有h个刻度单位Object.ScaleLeft=X当X>0,对象的坐标系统的横坐标向左平移X个度量单位当X<0,对象的坐标系统的横坐标向右平移X个度量单位Object.ScaleTop=Y当Y>0,对象的坐标系统的纵坐标向上平移Y个度量单位当Y<0,对象的坐标系统的纵坐标向下平移Y个度量单位计算机坐标系统自定义度量单位Object.Scale(x1,y

3、1)-(x2,y2)(x1,y1):新坐标系下对象左上角的坐标(x2,y2):新坐标系下对象右下角的坐标计算机坐标系统例把窗体的坐标系统的长宽分别定义为100个单位,坐标原点移动到窗体的中央PrivateSubForm_Load()Me.AutoRedraw=TrueMe.ScaleWidth=100Me.ScaleHeight=100Me.ScaleLeft=-50Me.ScaleTop=-50Me.Line(-50,0)-(50,0)Me.Line(0,-50)-(0,50)EndSub计算机坐标系统把窗体的坐标系统的长宽分别定义为100个单位,坐标原点移动

4、到窗体的中央PrivateSubForm_Load()Me.AutoRedraw=TrueMe.Scale(-50,-50)-(50,50)Me.Line(-50,0)-(50,0)Me.Line(0,-50)-(0,50)EndSub计算机坐标系统如何把上例中的纵坐标的方向设置为向上?并标出如图所示的原点和X、Y常用作图方法画线Line方法Object.Line(x1,y1)-(x2,y2),Color画矩形Line方法Object.Line(x1,y1)-(x2,y2),Color,BF如果没有使用参数F,则填充模式和填充颜色分别由Object的FillSt

5、yle和FillColor决定,否则画一个实心的矩形,边框线颜色和填充颜色均由Color决定;例画出5条长度相同平行的线段OptionExplicitPrivateSubForm_Click()Dimi%Fori=1To5Line(500,500*i+100)-(2500,500*i+100)NextiEndSub例画出5个同心矩形OptionExplicitPrivateSubForm_Click()Dimi%,x1%,y1%,x2%,y2%Me.Scale(-50,50)-(50,-50)Me.Line(-50,0)-(50,0)Me.Line(0,50)-

6、(0,-50)Fori=1To5x1=-50+5*iy1=50-5*ix2=50-5*iy2=-50+5*iMe.Line(x1,y1)-(x2,y2),,BNextiEndSub例:画出如图所示图形PrivateSubForm_Click()Dimi%,j%,t#,N%,r#,xi#,yi#,xj#,yj#Constpi#=3.14159265358979N=15:r=3t=2*pi/NFori=1ToNForj=1ToNIfi<>jThenxi=r*Cos(i*t)+0yi=r*Sin(i*t)+0xj=r*Cos(j*t)+0yj=r*Sin(j*t)+0

7、Line(xi,yi)-(xj,yj)EndIfNextjNextiEndSubPrivateSubForm_Load()Me.Width=Me.HeightMe.Scale(-4,4)-(4,-4)EndSubLine方法中的Step关键字PrivateSubForm_Load()Me.AutoRedraw=TrueMe.Scale(-200,200)-(200,-200)Dimi%Me.CurrentX=-180Me.CurrentY=150Fori=1To9Me.Line-Step(20,0)Me.Line-Step(0,-200)Me.Line-Step

8、(20,0)Me.Lin

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。