home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC095.C < prev   
Text File  |  1988-05-26  |  853b  |  24 lines
  1.  
  2. /************************************************************************/
  3. /* Copy a 100,100 block from upper left corner of the screen            */
  4. /* and move it successively 50 times, two pixels at a time              */
  5. /************************************************************************/
  6.  
  7. slide_block()
  8.         {
  9.         #define COPY    0
  10.         int     i,j,x,y,color;
  11.  
  12.         /* First draw interresting background                           */
  13.  
  14.         clear_screen();
  15.         for (i = 0; i < 25; i++)
  16.                 for (j = 0; j < 80; j++)
  17.                         printf("%c",'A'+i);
  18.  
  19.         /* Here we use BITBLT to copy a block 50 times                  */
  20.  
  21.         for (i = 0; i < 100; i += 2)    /* Copy next block                      */
  22.                 bitblt(0,0, 320+i, 0+i, 100, 100, COPY);
  23.         }
  24.