TRANS_RASTER                                                    22-APR-1986 14:39:40    VAX C      V2.1-007                 Page 1
V1.0                                                            23-JAN-1986 14:30:57    TRANS_RASTER.C;1 (1)



    1        	/*
    2        	 *	EXTRACT_RASTER
    3        	 * 		Transforme un octet raster en une chaine de points
    4        	 *		Format d'appel de FORTRAN
    5        	 */
    6        	extract_raster(r,visible)
    7        	char *r;
    8        	char visible[];
    9        	{
   10    1   		register i;
   11    1   		char rst;
   12    1   	 
   13    1   		rst = *r;
   14    1   		for (i=0; i<8; i++)
   15    1   		    {
   16    2   			visible[7-i] = rst & 1;
   17    2   			rst >>= 1;
   18    2   		    }
   19    1   	}
   20        	 
   21        	 
   22        	/*
   23        	 *	COMPUT_RASTER
   24        	 * 		Transforme une chaine de points en un octet raster.
   25        	 *		Format d'appel de FORTRAN
   26        	 */
   27        	comput_raster(r,visible)
   28        	char *r;
   29        	char visible[];
   30        	{
   31    1   	      	register i;
   32    1   	 
   33    1   		*r = 0;
   34    1   		for (i=0; i<8; i++)
   35    1   		    {
   36    2   			*r = (*r<<1) | (visible[i] & 1);
   37    2   		    }
   38    1   	}

 
 
Command Line
------------
 
CC/LIST TRANS_RASTER