home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / PGL.ZIP / PGLFS.ZIP / FILLMOD.FOR < prev    next >
Encoding:
Text File  |  1992-01-20  |  1.3 KB  |  43 lines
  1. C*****************************************************************************
  2. C  FILLMOD.FOR
  3. C
  4. C  This sample program demonstrates area fill modes.
  5. C****************************************************************************
  6.       include   "pgl.for"
  7.       integer*2 j, ierr
  8. C    
  9. C    Open A Drawing File.
  10. C    
  11.     call pgInitDrw( "FILLMOD.PLT"//CHAR(0), 2000, 2000, ierr) 
  12.       if( ierr .ne. 0)then
  13.          print *, 'Error opening drawing file!'
  14.          stop
  15.       endif
  16.  
  17.       call pgSetTextStyle( pgTRIPLEX ) 
  18.       call pgSetTextJustify( pgCENTER, pgBOTTOM ) 
  19.       call pgSetCharSpacing( 3 )
  20.       call pgSetTextScaling( 2,1,2,1 ) 
  21.       call pgSetColor( 15 )
  22.  
  23.       call pgSetFillMode( pgOPAQ ) 
  24.       call pgSetFillStyle( pgFSLASH, 1 ) 
  25.       call pgEllipse( 750, 500, 500, 300, pgOFILL ) 
  26.       call pgSetFillStyle( pgFBKSLASH, 1 ) 
  27.       call pgEllipse( 1250, 500, 500, 300, pgOFILL ) 
  28.       call pgDrawTextXY( 1000, 900, "Opaque Fill Mode"//CHAR(0) ) 
  29.  
  30.       call pgSetFillMode( pgTRANS ) 
  31.       call pgSetFillStyle( pgFSLASH, 1 ) 
  32.       call pgEllipse( 750, 1500, 500, 300, pgOFILL ) 
  33.       call pgSetFillStyle( pgFBKSLASH, 1 ) 
  34.       call pgEllipse( 1250, 1500, 500, 300, pgOFILL ) 
  35.       call pgDrawTextXY( 1000, 1900, "Transparent Fill Mode"//CHAR(0) ) 
  36.  
  37. C
  38. C      Close The Drawing File.
  39. C    
  40.       call pgEndDrw() 
  41. C
  42.       END
  43.