summaryrefslogtreecommitdiff
path: root/jni/ruby/sample/rcs.rb
blob: 0bdf81c45d4195f19d12bfc353b58141e93d878b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
# 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