config root man

Current Path : /usr/local/share/examples/ruby18/

FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64
Upload File :
Current File : //usr/local/share/examples/ruby18/rcs.rb

# random dot steraogram
# usage: rcs.rb rcs.dat

sw = 40.0	# width of original pattern
dw = 78.0	# width of generating Random Character Streogram
hdw = dw / 2.0
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()	# 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 = ""
  while xr < hdw
    x = xr * (1 + y) - y * w / 2
    i = (x / (1 + h) + sw / 2)
    if (1 < i && i < $_.length)
      c = $_[i, 1].to_i
    else
      c = 0
    end
    y = h - d * c
    xl = xr - w * y / (1 + y)
    if xl < -hdw || xl >= hdw || xl <= maxxl
      tt = rand(ss.length)
      c = ss[tt, 1]
    else
      c = s[xl + hdw, 1]
      maxxl = xl
    end
    s += c
    xr += 1
  end
  print(s, "\n")
end

Man Man