图形交互技术

《图形交互技术》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验报告撰写要求实验报告要求具有以下内容：一、实验目的二、实验内容与要求三、程序中使用的函数说明四、程序流程图五、实验体会或对改进实验的建议要求附程序代码（可以打印）实验2图形交互技术一、实验目的了解图形交互技术的概念，掌握windows程序设计中橡皮筋技术的实现方法。二、实验内容及要求1、代码实现直线橡皮筋技术。直线的橡皮筋技术是指在起点确定后，光标移动确定终点时，在屏幕上始终显示一条连接起点和光标中心的直线，这条直线随着光标中心位置的变动而变动，它就像在起点和光标中心之间紧紧的拉着一根橡皮筋一样，如下图。仅供参

2、考橡皮筋技术是计算机图形系统经常应用的构造技术，通过动态来显示几何图形，最终确定几何图形的基本尺寸。橡皮筋技术常常用来构造直线段。按下定位器(如鼠标器)的键，得到一线段的起点位置。当光标移动时，线段的终点也在移动。松开按键，这条线段就确定下来了。在平面上确定一条直线一般是先定下起点再定下终点，最后把起点和终点连成直线。如果要求这条直线能通过平面上某一点或和一已知圆相切，上述方法便不易做得很准确。所谓橡皮筋技术就是在起点确定后，光标移出去定终点时，在屏幕上始终显示一条连接起点和光标中心的直线，这条直线随着光标中心位置

3、的变动而变动，它就像在起点和光标中心之间紧紧地拉着一根橡皮筋，有了这根橡皮筋便比较容易地找到通过一个点或和一个圆相切的直线的位置。　　橡皮筋技术实际上是简易动画的实现，它不断地进行：画－擦－画的过程。即：　　（1）从起点到光标中心点（x，y）处画图；　　（2）擦除起点到光标中心点（x，y）处图形；　　（3）光标移动到新的位置：x=x+△x，y=y+△y　　（4）转第（1）步，重复这个过程，直到按下确认键为止。　　下面是实现橡皮筋技术构造直线段的VB程序：　　OptionExplicit　　’显式声明模块中的所有变量

4、　　DimmxAsSingle,myAsSingle,flagAsInteger　　’mx,my为线段的起点位置(x,y)　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　mx=X　　my=Y　　flag=1　　Form1.MousePointer=2　　’定义鼠标指针为十字型指针　　EndSub　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsIntege

5、r,XAsSingle,YAsSingle)　　Ifflag=1Then　　Form1.Cls　　Line(mx,my)-(X,Y)　　’X,Y为线段的移动光标位置(X,Y)　　EndIf　　EndSub　　PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　flag=0　　Form1.MousePointer=0　　EndSub　　橡皮筋技术还可以应用于橡皮筋矩形、橡皮筋圆等交互技术。要实现橡皮筋技术构造矩形，只需

6、将画线的部分改为“Line(mx,my)-(X,Y),,B”即可；要实现橡皮筋技术构造圆，只需将画线的部分改为“r=Sqr((X-mx)^2+(Y-my)^2)：Circle(mx,my),r”即可。　　以上程序在VB6.0运行通过。