画圆算法画圆算法
//将以下内容复制黏贴到按键精灵9.0下打开画图板就能画出以上同心圆。。更改参数想画多
少就画多少。。。可以用来实现鼠标搜索怪物等操作
UserVar O="640,512" "圆心"
UserVar SR=80 "短半径"
UserVar L=50 "半径增量"
UserVar LR=300 "长半径"
//定义圆心坐标x0,y0,和圆边界坐标x,y,temp为临时变量数组 Dim x0, y0, x, y,temp,w,t,r
temp = split(O, ",")
setInit...
画圆算法
//将以下内容复制黏贴到按键精灵9.0下打开画图板就能画出以上同心圆。。更改参数想画多
少就画多少。。。可以用来实现鼠标搜索怪物等操作
UserVar O="640,512" "圆心"
UserVar SR=80 "短半径"
UserVar L=50 "半径增量"
UserVar LR=300 "长半径"
//定义圆心坐标x0,y0,和圆边界坐标x,y,temp为临时变量数组 Dim x0, y0, x, y,temp,w,t,r
temp = split(O, ",")
setInit
Sub setInit//初始化参数
r=int(SR)
x0 = int(temp(0))
y0 = int(temp(1))
x = int(x0)+int(r)
y = int(y0)
pi = 3.1415926
w = 1
t = 1
End Sub
While x < (x0 + int(LR))//画圆
MoveTo x, y0
Delay 100
LeftDown 1
While int(x - x0) > 0 and int(y - y0) >= 0
x1 = Abs(Abs((int(r) * cos(w * (pi / 180))))-Abs((int(r) * cos((w-t) * (pi / 180)))))
y1 = Abs(Abs((int(r) * sin(w * (pi / 180))))-Abs((int(r) * sin((w-t) * (pi / 180)))))
y = y +y1
x = x -x1
MoveTo x, y
w = w + t
Delay 0.3
Wend
While int(x - x0) <= 0 and int(y - y0) > 0
x1 = Abs(Abs((int(r) * cos((180-w) * (pi / 180))))-Abs((int(r) * cos(((180-w)-t) * (pi /
180)))))
y1 = Abs(Abs((int(r) * sin((180-w) * (pi / 180))))-Abs((int(r) * sin(((180-w)-t) * (pi /
180)))))
y = y -y1
x = x -x1
MoveTo x, y
w = w + t
Delay 0.3
Wend
Delay 100
While int(x - x0) < 0 and int(y - y0) <= 0
x1 = Abs(Abs((int(r) * cos((w-180) * (pi / 180))))-Abs((int(r) * cos(((w-180)-t) * (pi /
180)))))
y1 = Abs(Abs((int(r) * sin((w-180) * (pi / 180))))-Abs((int(r) * sin(((w-180)-t) * (pi /
180)))))
y = y -y1
x = x +x1
MoveTo x, y
w = w + t
Delay 0.3
Wend
While int(x - x0) >= 0 and int(y - y0) < 0
x1 = Abs(Abs((int(r) * cos((360-w) * (pi / 180))))-Abs((int(r) * cos(((360-w)-t) * (pi /
180)))))
y1 = Abs(Abs((int(r) * sin((360-w) * (pi / 180))))-Abs((int(r) * sin(((360-w)-t) * (pi /
180)))))
y = y +y1
x = x +x1
MoveTo x, y
w = w + t
Delay 0.3
Wend
LeftUp 1
w = t
Delay 100
x = int(x + L)
r =r+ int( L)
Wend
本文档为【画圆算法】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。