Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,18 @@
+int igray_(int *n0, int *idir)
+{
+  int n;
+  unsigned long sh;
+  unsigned long nn;
+  n=*n0;
+
+  if(*idir>0) return (n ^ (n >> 1));
+
+  sh = 1;
+  nn = (n >> sh);
+  while (nn > 0) {
+    n ^= nn;
+    sh <<= 1;
+    nn = (n >> sh);
+  }
+  return (n);
+}