mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-10-30 20:40:28 -04: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);
 | |
| }
 |