首页 画圆算法

画圆算法

举报
开通vip

画圆算法画圆算法 //将以下内容复制黏贴到按键精灵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,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_594905
暂无简介~
格式:doc
大小:27KB
软件:Word
页数:4
分类:生活休闲
上传时间:2017-11-13
浏览量:28