home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC087.C < prev    next >
Encoding:
Text File  |  1988-04-11  |  1.1 KB  |  31 lines
  1.  
  2. /************************************************************************/
  3. /* Draw a triangle with dot-dashed lines                                */
  4. /************************************************************************/
  5.  
  6. pattern_triag()
  7.         {
  8.         #define DOT_DASH        0x30FC
  9.         #define WHITE           15
  10.         slow_pattern_line(420,0,0,200,WHITE,DOT_DASH);
  11.         slow_pattern_line(0,200,639,200,WHITE,DOT_DASH);
  12.         slow_pattern_line(420,0,639,200,WHITE,DOT_DASH);
  13.         }
  14.  
  15. /************************************************************************/
  16. /* Draw a box with checkerboard pattern using patterned lines           */
  17. /************************************************************************/
  18.  
  19. checkers()
  20.         {
  21.         #define EVEN_DOTS       0xAAAA
  22.         #define ODD_DOTS        0x5555
  23.         #define WHITE           15
  24.         int     i;
  25.         for (i = 0; i < 100; i += 2)
  26.                 {
  27.                 slow_pattern_line(300,i  ,500,i  ,WHITE,EVEN_DOTS);
  28.                 slow_pattern_line(300,i+1,500,i+1,WHITE, ODD_DOTS);
  29.                 }
  30.         }
  31.