diff options
author | knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-12-19 20:56:37 +0000 |
---|---|---|
committer | knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-12-19 20:56:37 +0000 |
commit | 02a8d06fa8833db3c266663f31a82deb6e89b2d9 (patch) | |
tree | f322774139b892603c027ac385f2d6e73852ca77 /sample/rcs.rb | |
parent | c37140b3519fd8028d3b720bbb76c14af2c4e093 (diff) | |
download | ruby-02a8d06fa8833db3c266663f31a82deb6e89b2d9.tar.gz |
Improve.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3186 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'sample/rcs.rb')
-rw-r--r-- | sample/rcs.rb | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/sample/rcs.rb b/sample/rcs.rb index 7c091936f3..0bdf81c45d 100644 --- a/sample/rcs.rb +++ b/sample/rcs.rb @@ -8,22 +8,23 @@ w = 20.0 # distance between eyes h =1.0 # distance from screen and base plane d = 0.2 # z value unit ss="abcdefghijklmnopqrstuvwxyz0123456789#!$%^&*()-=\\[];'`,./" -rnd = srand() +rnd = srand() # You don't actually need this in ruby - srand() is called + # on the first call of rand(). while gets() # print($_) xr = -hdw; y = h * 1.0; maxxl = -999 - s = ""; + s = "" while xr < hdw x = xr * (1 + y) - y * w / 2 i = (x / (1 + h) + sw / 2) - if (1 < i && i < $_.length); + if (1 < i && i < $_.length) c = $_[i, 1].to_i else c = 0 end y = h - d * c - xl = xr - w * y / (1 + y); + xl = xr - w * y / (1 + y) if xl < -hdw || xl >= hdw || xl <= maxxl tt = rand(ss.length) c = ss[tt, 1] @@ -36,14 +37,3 @@ while gets() end print(s, "\n") end - - - - - - - - - - - |