home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC049.C < prev    next >
Encoding:
Text File  |  1988-04-11  |  1.1 KB  |  26 lines
  1.  
  2. /************************************************************************/
  3. /* Copy current character generator into a buffer                       */
  4. /* 'italicize' the set and make it current set                          */
  5. /************************************************************************/
  6.  
  7. italicize()
  8.         {
  9.         static  char    buffer[256][32];        /* Declare temp buffer  */
  10.         int             i, j;
  11.  
  12.         read_char_gen(buffer);                  /* Get 'normal' bitmaps */
  13.  
  14.         for (i = 0; i < 256; i++)               /* Loop over characters */
  15.                 {                               /* Italisize the next   */
  16.                 for (j = 0; j < 4; j++)         /* character bitmap     */
  17.                         {
  18.                         buffer[i][j]    = buffer[i][j   ] >> 1;
  19.                         buffer[i][j+10] = buffer[i][j+10] << 1;
  20.                         }
  21.                 }
  22.         write_char_gen(buffer,0,256);           /* Set new char gen     */
  23.         printf ("\nDisplaying new alphabet:\n"); /* Print new chars      */
  24.         for (i = 32; i < 128; i++) putchar(i);
  25.         }
  26.