10章图形图像处理.pptVIP

第11章　图形图像处理 贺向前 主要内容 计算机坐标系统 常用作图方法 作图相关属性 作图的相关函数 计算机坐标系统 显示器坐标系统 计算机坐标系统 窗口等容器的坐标系统 计算机坐标系统 坐标系统的度量单位 object.ScaleMode = value 计算机坐标系统 自定义度量单位 Object.ScaleWidth=w 把对象的宽度定义为有w个刻度单位 Object.ScaleHight=h 把对象的高度定义为有h个刻度单位 Object.ScaleLeft=X 当X0，对象的坐标系统的横坐标向左平移X个度量单位 当X0，对象的坐标系统的横坐标向右平移X个度量单位 Object.ScaleTop=Y 当Y0，对象的坐标系统的纵坐标向上平移Y个度量单位 当Y0，对象的坐标系统的纵坐标向下平移Y个度量单位 计算机坐标系统 自定义度量单位 Object.Scale(x1,y1)-(x2,y2) (x1,y1)：新坐标系下对象左上角的坐标 (x2,y2)：新坐标系下对象右下角的坐标 计算机坐标系统 例 把窗体的坐标系统的长宽分别定义为100个单位，坐标原点移动到窗体的中央 计算机坐标系统 把窗体的坐标系统的长宽分别定义为100个单位，坐标原点移动到窗体的中央 计算机坐标系统 如何把上例中的纵坐标的方向设置为向上?并标出如图所示的原点和X、Y 常用作图方法 画线Line方法 Object.Line(x1,y1)-(x2,y2),Color 画矩形Line方法 Object.Line(x1,y1)-(x2,y2),Color,BF 如果没有使用参数F，则填充模式和填充颜色分别由Object的FillStyle和FillColor决定，否则画一个实心的矩形，边框线颜色和填充颜色均由Color决定； 例 画出5条长度相同平行的线段 Option Explicit Private Sub Form_Click() Dim i% For i = 1 To 5 Line (500, 500 * i + 100)-(2500, 500 * i + 100) Next i End Sub 例 画出5个同心矩形 Option Explicit Private Sub Form_Click() Dim i%, x1%, y1%, x2%, y2% Me.Scale (-50, 50)-(50, -50) Me.Line (-50, 0)-(50, 0) Me.Line (0, 50)-(0, -50) For i = 1 To 5 x1 = -50 + 5 * i y1 = 50 - 5 * i x2 = 50 - 5 * i y2 = -50 + 5 * i Me.Line (x1, y1)-(x2, y2), , B Next i End Sub 例：画出如图所示图形 Line方法中的Step关键字 Private Sub Form_Load() Me.AutoRedraw = True Me.Scale (-200, 200)-(200, -200) Dim i% Me.CurrentX = -180 Me.CurrentY = 150 For i = 1 To 9 Me.Line -Step(20, 0) Me.Line -Step(0, -200) Me.Line -Step(20, 0) Me.Line -Step(0, 200) Next i End Sub 常用作图方法 画圆Circle方法 Object.Circle(x,y),R,Color,Start,End,Aspect 按逆时针方向画圆 Start,End为画圆弧起始和结束的弧度。如果为负数，则先要画一条半径，然后把Start,End处理成正数； Aspect决定画一个椭圆的纵横坐标比（为1画圆） 例 画出5个同心圆 Option Explicit Private Sub Form_Click() Dim i%, x%, y% x = Me.ScaleWidth / 2 y = Me.ScaleHeight / 2 Me.ScaleLeft = -x Me.ScaleTop = -y Me.Line (-x, 0)-(x, 0) Me.Line (0, y)-(0, -y) For i = 1 To 5 Me.Circle