在Authorware中画虚线

  • 来源: 互联网 作者: 若水   2008-03-22/09:21
  • 利用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可极大地优化程序。将上述程序所属的运算图标放入自己的库,需要时调用之,根据要求修改参数即可画出满足要求的虚直线。


    评论 {{userinfo.comments}}

    {{money}}

    {{question.question}}

    A {{question.A}}
    B {{question.B}}
    C {{question.C}}
    D {{question.D}}
    提交

    驱动号 更多