猜猜这是什么~~~

「旅」 · 发表于 2011-11-26 22:53:44

您需要登录才可以下载或查看，没有账号？注册会员

×

def draw
$sprite.bitmap.fill_rect(0,240,640,2,Color.new(255,255,255))
$sprite.bitmap.fill_rect(320,0,2,480,Color.new(255,255,255))
for i in 0..640
$sprite.bitmap.fill_rect(i,238,1,3,Color.new(255,255,255)) if i % 10 == 0
$sprite.bitmap.draw_text(i-10,238,30,30,(i-320).to_s) if i % 40 == 0
end
for i in 0..480
$sprite.bitmap.fill_rect(320,i,3,1,Color.new(255,255,255)) if i % 10 == 0
$sprite.bitmap.draw_text(325,i+3,30,30,(240-i).to_s) if i % 40 == 0 and i != 240
end
for x0 in -10000..10000
x = x0 / 100.0
$sprite.bitmap.set_pixel(320+x*1.1,-(Math.sqrt(10000- x ** 2)+ x.abs ** 0.85)+260,Color.new(255,0,0))
$sprite.bitmap.set_pixel(320+x*1.1,-(x.abs ** 0.85 - Math.sqrt(10000- x ** 2))+260,Color.new(255,0,0))
end
end
$sprite = Sprite.new
$sprite.bitmap = Bitmap.new(640,480)
$sprite.bitmap.font.size = 14
$sprite.bitmap.font.bold = true
loop do
Graphics.update
Input.update
if Input.trigger?(Input::C)
draw
end
if Input.trigger?(Input::B)
exit
end
end

复制代码

老哥无聊写了一个脚本，不厚道地被我拿来分享了喵~有同学可以事先猜出是什么东西吗?

使用方法：插入到脚本空白页，打开游戏，点击确定~

皮卡星 · 发表于 2011-11-26 22:56:18

旅前辈好

话说这是……爱心？

越前リョーマ · 发表于 2011-11-26 22:58:59

这是程序员的告白诗么……

fux2 · 发表于 2011-11-26 23:57:27

首先看到了著名的爱心图像函数0 0

熊猫 · 发表于 2011-11-27 00:07:54

程序员的函数……嗯，貌似与数学中的函数不同的说……额
这个式子倒是蛮奇妙的。

灰常有爱，收藏了。

IamI · 发表于 2011-11-27 08:08:44

17 x^2 - 16|x|y + 17 y^2 + 150/|5 x + sin(5 y)| < 225
其实这个函数更棒。
FROM MATRIX67 2011/2/13

bbh · 发表于 2011-11-27 09:28:19

脚本白痴路过~
话说这脚本好雷人，可以用来做恶搞吐槽向的游戏！

失落迷白 · 发表于 2011-11-27 11:38:46

有点意思= =。

马莉露丽 · 发表于 2011-11-27 11:42:35

有点意思的说XD

fux2 · 发表于 2011-11-27 14:23:36

本帖最后由 fux2 于 2011-11-27 14:24 编辑

http://www.wolframalpha.com/inpu ... 281%2F3%29%29^2%3D1
这有个标准版的，咱记得柳啊群谁发过一个简记版的，很精简，不记得了囧Orz

[随意闲聊] 猜猜这是什么~~~