在Authorware中做出渐变效果

来源:不详 责任编辑:栏目编辑 发表时间:2013-07-01 16:39 点击:

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

速度条渐变

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

 


SetFrame(1,RGB(255,b,0))
Line(20,x,k,x1,k)
x:=x+1
b:=b+1
end repeat

 


怎么样,带红黄渐变的进度条效果是不是很酷啊?

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


径向渐变

拖一个计算图标到流程线上,双击打开其输入窗口,输入如下的内容:
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


执行一下,效果怎么样?还不错吧?

    如果您想改变一下渐变色,是非常简单的。只要您把上面程序中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


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,执行一下,体验一下那种成功的快乐吧!

    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    用户名: 验证码:点击我更换图片
    最新评论 更多>>

    媒体动画导航

    Authorware
    网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
    Copyright © 2008-2015 计算机技术学习交流网. 版权所有

    豫ICP备11007008号-1