home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / PGL.ZIP / PGLPS.ZIP / FILLMOD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-20  |  1.1 KB  |  48 lines
  1. { FILLMODE.PAS }
  2. { PGL - Turbo Pascal Test Program }
  3. { Fillmode test program: pgOPAQ, pgTRANS }
  4.  
  5. program fillmod;
  6. {$R-,S-}
  7. uses Crt, PGL;
  8.  
  9. label
  10. ExitPgm;
  11.  
  12. var
  13.   ierr   : integer;
  14.  
  15. { ****   FillMod main procedure   ****  }
  16. begin
  17.   pgInitDrw( 'fillmod.plt', 2000, 2000, ierr );
  18.   if  ierr <> 0 then
  19.     begin
  20.        Write('Error in pgInitDrw' ); 
  21.        goto ExitPgm;
  22.     end;
  23.  
  24.    pgSetTextStyle( pgTRIPLEX );
  25.    pgSetTextJustify( pgCENTER, pgBOTTOM );
  26.    pgSetCharSpacing( 3 );
  27.    pgSetTextScaling( 2, 1, 2, 1 );
  28.    pgSetColor( 15 );
  29.  
  30.    pgSetFillMode( pgOPAQ );
  31.    pgSetFillStyle( pgFSLASH, 1 );
  32.    pgEllipse( 750, 500, 500, 300, pgOFILL );
  33.    pgSetFillStyle( pgFBKSLASH, 1 );
  34.    pgEllipse( 1250, 500, 500, 300, pgOFILL );
  35.    pgDrawTextXY( 1000, 900, 'Opaque Fill Mode' );
  36.  
  37.    pgSetFillMode( pgTRANS );
  38.    pgSetFillStyle( pgFSLASH, 1 );
  39.    pgEllipse( 750, 1500, 500, 300, pgOFILL );
  40.    pgSetFillStyle( pgFBKSLASH, 1 );
  41.    pgEllipse( 1250, 1500, 500, 300, pgOFILL );
  42.    pgDrawTextXY( 1000, 1900, 'Transparent Fill Mode' );
  43.  
  44.    { Close The Drawing File. }
  45.    pgEndDrw ;
  46. ExitPgm:
  47. end.
  48.