苏州市旅游局领导班子:关于Authorware请大家帮我解释一下里面的内容!多谢拉

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/02 12:44:42
(1)
x0:=80
y0:=240
r:=3
SetLine(1)
SetFrame(1,RGB(0,0,250))
Line(4,600,y0,10,y0)
Line(4,x0,40,x0,400)
Movable:=0
SetFrame(2,RGB(250,0,0))
SetFill(1,RGB(250,0,0))
switch:=1
(2)
a:=INT(PathPosition@"hua kuai1")
b:=PathPosition@"hua kuai2"
repeat with n:=0 to 63
if switch=1 then
x:=x0+n*8
y:=y0+a*SIN(b-0.2*n)
Circle(1,x-r,y-r,x+r,y+r)
else
x:=x0+(n+0.5)*8
y:=y0+a*SIN(b-0.2*(n+0.5))
Circle(1,x-r,y-r,x+r,y+r)
end if
end repeat
switch:=~switch