我们在做多媒体作品时，自然少不了用渐变色来装饰自己。可是，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，执行一下，体验一下那种成功的快乐吧！ |
