在Authorware中画虚线

4/8/2006来源:Authorware教程人气:9408

利用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可极大地优化程序。将上述程序所属的运算图标放入自己的库,需要时调用之,根据要求修改参数即可画出满足要求的虚直线。