正弦曲线的制作
下面我们制作一条折线,折线上面有很多个点,我们要用这条折线模拟正弦曲线。
制作方法:
一、在页面上画一条直线Line1。
二、在页面上放一个矩形单元,里面添加下面的文字:
Line1.PointCount=121
i=0
while i <= 120
Line1.X[i]=100+2*i
Line1.Y[i]=100+50*sin(i*3.1416/60)
i=i+1
wend
Line1.Refresh()
三、选择菜单“程序/命令行”。在调试窗口中输入:
Execute( rect1.text )
回车,直线变成一条正弦曲线,如下图:
四、把上面矩形里面的代码改为:
Line1.PointCount = 122
pi = 3.14159265359
i = 0
while i <= 120
Line1.X[i] = 100 + 50 * cos( i / 60 * pi )
Line1.Y[i] = 100 - 50 * sin( i / 60 * pi )
Line1.Bytes[i] = 6
Line1.X[i+1] = 100 + 60 * cos( i / 60 * pi )
Line1.Y[i+1] = 100 - 60 * sin( i / 60 * pi )
Line1.Bytes[i+1] = 2
i = i + 2
wend
Line1.Refresh()
在菜单“程序/命令行”中,再次输入Execute( Rect1.Text ),线条变成下面这样:
由于线条偶数顶点(0,2,4,6,8....)的顶点属性Bytes被定义成6,所以,此处为新线段的起始点,整个线条Line1内含很多段小短线,但仍然是一个对象,仍然算“一条线”。 |