在Authorware中也能做渐变效果

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

我们在做多媒体作品时,自然少不了用渐变色来装饰自己。可是,Authorware中却没有现成的东东来画渐变颜色。本着DIY的精神,咱仔细地想了又想,终于可以在Authorware中直接做出渐变效果了。以下是三个小例子:一个是线性渐变、一个是圆的径向渐变以及一个扇形渐变。


  速度条渐变


  首先利用其他软件(比如Windows自带的画图板)得到红色和黄色的RGB值。打开画图板,点击“颜色→编辑颜色…”菜单,弹出“编辑颜色”对话框,单击其中的“规定自定义颜色”按钮,然后选中红色,您就会在最右侧看到这个颜色的RGB值了(如图1)。现在您看到了吧,纯红色的RGB值是(255,0,0),而纯黄色的RGB值是(255,255,0)。

  您只要把这些内容写到一个计算图标里就行了。

  h:=100

  k:=80

  x:=h

  b:=0

  repeat while x〈=400

  x1:=x+1

  if b〉255 then

  b:=255

  end if


  图1 颜色设置窗口

  SetFrame(1,RGB(255,b,0))

  Line(20,x,k,x1,k)

  x:=x+1

  b:=b+1

  end repeat

  怎么样,带红黄渐变的进度条效果是不是很酷啊?如图2所示。

  如果想调整色块的宽度,就调整Line(20,x,k,x1,k)语句中那个“20”的数值就可以了,而如果您想调整长度呢,就请调整repeat while x〈=400语句中那个“400”的数值。


  图2 进度条渐变


  径向渐变


  拖一个计算图标到流程线上,双击打开其输入窗口,输入如下的内容:

  h:=400

  k:=250

  p:=0

  c:=0

  repeat while p〈=130

   if c〉=255 then

   c:=255

   end if

   SetFrame(1,RGB(255,c,0))

  Circle(2,h-p,k-p,h+p,k+p)

  p:=p+1

  c:=c+2

  end repeat


  图3 径向渐变

  执行一下,效果怎么样?还不错吧?如图3所示。

  如果您想改变一下渐变色,是非常简单的。只要您把上面程序中RGB(255,c,0)中的三个数值做个调整就可以了。您可以试试RGB(255,c,c)或RGB(c,c,c),甚至RGB(c,255-c,c)。此外,调整一下c:=c+2一句中的数字,可能有意想不到的效果出现喔!


  扇形渐变


  您先看看效果,如图4所示。在photoshop中我们常见这种效果,是不是?在Authorware中咱们照样可以把它做出来。您只要在计算图标中写入如下的内容:

  h:=200

  k:=200

  x:=0

  b:=0

  r:=150

  angle:=0


  图4 扇形渐变

  repeat while angle〈=2*Pi

   x:=r*COS(angle)+h

   y:=r*SIN(angle)+k

   if b〉255 then

   b:=255-(b-255)

   end if

   SetFrame(1,RGB(255,b,0))

   Line(5,h,k,x,y)

  b:=b+1

  x:=x+1

  angle:=angle+0.02

  end repeat

  OK,执行一下,体验一下那种成功的快乐吧!