mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-11-03 21:40:52 -05:00 
			
		
		
		
	git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2635 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
		
			
				
	
	
		
			19 lines
		
	
	
		
			244 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			19 lines
		
	
	
		
			244 B
		
	
	
	
		
			C
		
	
	
	
	
	
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);
 | 
						|
}
 |