时间:2014-10-28 13:17:14 来源: 复制分享
我们在做多媒体作品时,自然少不了用渐变色来装饰自己。可是,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,执行一下,体验一下那种成功的快乐吧!