home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / PGL.ZIP / PGLPS.ZIP / FONT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-20  |  1.1 KB  |  53 lines
  1. { FONT.PAS }
  2. { PGL - Turbo Pascal Test Program }
  3. { Font display test program }
  4.  
  5. program geom;
  6. {$R-,S-}
  7. uses Crt, PGL;
  8.  
  9. label
  10. ExitPgm;
  11.  
  12. var
  13.    j, ierr, midx : integer;
  14.  
  15. { ****   FONT main procedure   ****  }
  16. begin
  17.   pgInitDrw( 'Font.plt', 2000, 2000, ierr );
  18.   if  ierr <> 0 then
  19.     begin
  20.        Writeln('Error in pgInitDrw' ); 
  21.        goto ExitPgm;
  22.     end;
  23.  
  24.    pgSetColor( 1 );
  25.  
  26.    midx := pgGetMaxX DIV 2;
  27.    pgSetTextScaling( 5, 1, 5, 1 );
  28.    pgSetTextJustify( pgCENTER, pgBOTTOM );
  29.    pgDrawTextXY( midx, 250, 'Default Font Set (pgSMALL)' );
  30.  
  31.    pgSetTextStyle( pgSIMPLEX );
  32.    pgDrawTextXY( midx, 500, 'Simplex Font Set' );
  33.  
  34.    pgSetTextStyle( pgDUPLEX );
  35.    pgDrawTextXY( midx, 750, 'Duplex Font Set' );
  36.  
  37.    pgSetTextStyle( pgTRIPLEX );
  38.    pgDrawTextXY( midx, 1000, 'Triplex Font Set' );
  39.  
  40.    pgSetTextStyle( pgGOTHIC );
  41.    pgDrawTextXY( midx, 1250, 'Gothic Font Set' );
  42.  
  43.    pgSetTextStyle( pgSCRIPT );
  44.    pgDrawTextXY( midx, 1500, 'Script Font Set' );
  45.  
  46.    pgSetTextStyle( pgSDUPLEX );
  47.    pgDrawTextXY( midx, 1750, 'Script Duplex Font Set' );
  48.  
  49.    { Close The Drawing File. }
  50.    pgEndDrw ;
  51. ExitPgm:
  52. end.
  53.