From 00e36aa09f54925c2f9c30524b48f4f54a9adb23 Mon Sep 17 00:00:00 2001 From: Yukihiro Matsumoto Date: Thu, 8 Dec 1994 14:17:29 +0900 Subject: version 0.60 https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.60.tar.gz Thu Dec 8 14:17:29 1994 Yukihiro Matsumoto (matz@ix-02) * 0.60 released - alpha test baseline. --- sample/rcs.awk | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 sample/rcs.awk (limited to 'sample/rcs.awk') diff --git a/sample/rcs.awk b/sample/rcs.awk deleted file mode 100644 index 08979285c9..0000000000 --- a/sample/rcs.awk +++ /dev/null @@ -1,33 +0,0 @@ -BEGIN { - sw = 40.0; - dw = 78.0; - hdw = dw / 2.0; - w = 20.0; - h =1.0; - d = 0.2; - ss="abcdefghijklmnopqrstuvwxyz0123456789!#$%^&*()-=\\[];'`,./"; - rnd = srand(); -} - -{ - 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); - c = (0 < i && i < length($0)) ? substr($0, i, 1) : "0"; - y = h - d * c; - xl = xr - w * y / (1 + y); - if (xl < -hdw || xl >= hdw || xl <= maxxl) { - t = rand() * length(ss); - c = substr(ss, t, 1); - } - else { - c = substr(s, xl + hdw, 1); - maxxl = xl; - } - s = s c; - xr = xr + 1; - } - print s; -} -- cgit v1.2.3