home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m242 / 3.ddi / DEMOS1.ZIP / T_COLHAT.C < prev    next >
Encoding:
Text File  |  1989-10-16  |  536 b   |  29 lines
  1. main(){
  2.  
  3.     int style,x,i;
  4.     char str[12];
  5.  
  6.     setvga();
  7.     initgraf(18,0,0);
  8.     fontinit();
  9.     font_load(0,"vga8x16");
  10.     fontcspt(0,"COLOR HATCH STYLES",320,20,0,15,0);
  11.  
  12.     color_hatch();
  13.     for (x = 0,style = 0; x < 560; x += 70, style++){
  14.             eg_rectangle(x,30,x+69,230,1,1,style);
  15.             egitoa(str,style);
  16.             fontcspt(0,str,x+35,245,0,15,0);
  17.     }
  18.  
  19.     for (x = 0; x < 560; x += 70, style++){
  20.             eg_rectangle(x,265,x+69,460,1,1,style);
  21.             egitoa(str,style);
  22.             fontcspt(0,str,x+35,475,0,15,0);
  23.     }
  24.  
  25.     getch();
  26.     initgraf(3,0,0);
  27. }
  28.  
  29.