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