| 利用Authorware制作几何课件时,我们经常需要画虚线,但Authorware并没有提供画虚线的工具,怎样画虚线呢?在此介绍两种方法。
利用图形工具箱画虚椭圆
用椭圆工具画出椭圆,再用矩形工具画一长约等于椭圆长轴长、宽稍大于椭圆短半轴的矩形,将矩形移去遮住椭圆的上半部分。
选择矩形(注意只选择矩形),双击直线工具,打开线形工具箱,点击最顶上的线形(无线,去除矩形边框);双击矩形工具,打开填充模式工具箱,选择第二行中的第二或第三种填充图;双击绘图工具箱中的选择工具,打开遮蔽方式工具箱,选择透明方式;双击椭圆工具,打开颜色工具箱,设置此矩形的填充色与展示窗口的背景色相同,此时便可见到上半部分为虚线的椭圆了。为图形移动的需要,此时最好将椭圆与矩形组合。
这种方法的基本要点是叠加,但要注意叠加图形的线型、遮蔽方式、填充模式及填充颜色等因素。
用函数做虚直线
原理:将一条直线等分为若干段,利用直线的定比分点坐标公式求出各分点的坐标,从第一段起,交替采用前景色和背景色来画前后两段,则可画出虚直线。
方法:在流程线上添加一运算图标,双击该图标,输入下面这段程序,运行该图标可在展示窗口中从(x1,y1)到(x2,y2)画一条虚直线。
--画虚直线程序
--参数:
p:=40 --将直线分成的段数 x1:=50 --起点坐标 y1:=100 x2:=450 --终点坐标 y2:=400 xk:=1 --线宽 fc:=RGB(255,0,0) --前景色 bc:=RGB(255,255,255) --背景色
--语句:
Line(xk,x1,y1,x1,y1) --产生LastX和LastY repeat with i:=1 to p-1 b:=1/(p-i) --分点的定比 xc:=(LastX+b*x2)/(1+b) --分点坐标 yc:=(LastY+b*y2)/(1+b) if i/2<>INT(i/2) then --判断前后段,交替设置为前景色和背景色 SetFrame(1,fc) else SetFrame(1,bc) end if Line(xk,LastX,LastY,xc,yc) end repeat
用程序作虚线时,利用系统变量LastX和LastY可极大地优化程序。将上述程序所属的运算图标放入自己的库,需要时调用之,根据要求修改参数即可画出满足要求的虚直线。 |