home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC085.C < prev    next >
Text File  |  1988-05-15  |  576b  |  15 lines
  1.  
  2. /************************************************************************/
  3. /* Draw a set of radial lines from center of the screen to the outside  */
  4. /************************************************************************/
  5.  
  6. radial_lines()
  7.         {
  8.         int     i;
  9.         clear_screen();
  10.         for (i = 0; i < 640; i += 20) line(320,100,i,  0,i/20);
  11.         for (i = 0; i < 640; i += 20) line(320,100,i,199,i/20);
  12.         for (i = 0; i < 200; i += 10) line(320,100,0,  i,i/10);
  13.         for (i = 0; i < 200; i += 10) line(320,100,639,i,i/10);
  14.         }
  15.