home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m242 / 3.ddi / DEMOS1.ZIP / T_CGAHAT.C < prev    next >
Encoding:
Text File  |  1989-10-16  |  526 b   |  29 lines
  1. main(){
  2.  
  3.     int style,x,i;
  4.     char str[12];
  5.  
  6.     setibm();
  7.     initgraf(4,0,0);
  8.     fontinit();
  9.     font_load(0,"ibmrom");
  10.     fontcspt(0,"CGA HATCH STYLES",160,10,0,1,0);
  11.  
  12.     cga_hatch();
  13.     for (x = 0,style = 0; x < 280; x += 35, style++){
  14.             eg_rectangle(x,15,x+34,90,1,1,style);
  15.             egitoa(str,style);
  16.             fontcspt(0,str,x+17,100,0,1,0);
  17.     }
  18.  
  19.     for (x = 0; x < 280; x += 35, style++){
  20.             eg_rectangle(x,110,x+34,175,1,1,style);
  21.             egitoa(str,style);
  22.             fontcspt(0,str,x+17,185,0,1,0);
  23.     }
  24.  
  25.     getch();
  26.     initgraf(3,0,0);
  27. }
  28.  
  29.