Project1

标题: 猜猜这是什么~~~ [打印本页]

作者: 「旅」 时间: 2011-11-26 22:53
标题: 猜猜这是什么~~~

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
旅前辈好

话说这是……爱心？

作者: 越前リョーマ 时间: 2011-11-26 22:58
这是程序员的告白诗么……

作者: fux2 时间: 2011-11-26 23:57
首先看到了著名的爱心图像函数0 0

作者: 熊猫 时间: 2011-11-27 00:07
程序员的函数……嗯，貌似与数学中的函数不同的说……额
这个式子倒是蛮奇妙的。

灰常有爱，收藏了。

作者: IamI 时间: 2011-11-27 08:08
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
脚本白痴路过~
话说这脚本好雷人，可以用来做恶搞吐槽向的游戏！

作者: 失落迷白 时间: 2011-11-27 11:38
有点意思= =。

作者: 马莉露丽 时间: 2011-11-27 11:42
有点意思的说XD

作者: fux2 时间: 2011-11-27 14:23
本帖最后由 fux2 于 2011-11-27 14:24 编辑

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

作者: DeathKing 时间: 2011-11-27 14:41
可惜了，介货不是你哥哥的原创，咋们的老辈子，笛卡尔，当年把妹就用得这招：http://page.renren.com/600632881 ... amp;tagid=719409202

小旅妹子有没有人给你画心形函数呢？

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1