荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: hellrock (魔岩), 信区: Multimedia
标 题: 哪位大侠能帮忙编一个AW里用的画虚线的外部?
发信站: 荔园晨风BBS站 (Mon Jun 3 19:52:58 2002), 转信
在Authorware中画虚线
赛迪网闫融
利用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可极大地优化程序。将上述程序所属的运
算图标放入自己的库，需要时调用之，根据要求修改参数即可画出满足要求的虚直线。
【 在 eleven (星古) 的大作中提到: 】
: 怎么样啊？
: 【 在 hellrock (魔岩) 的大作中提到: 】
: : 不用外部函数也可以画的呀
--
————————————————————————————————————
● _ _
○ /○\ ( ˇ )
/■\/▲\ ╲╱ 如果一份真挚的爱情摆在我面前，我定会珍惜......
≡//≡//≡〓≡
————————————————————————————————————
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 202.192.157.41]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店