home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / PGL.ZIP / PGLCLS.ZIP / FILLMOD.PRG < prev    next >
Encoding:
Text File  |  1992-01-20  |  1.3 KB  |  57 lines
  1. ****************************************************************************
  2. *  FILLMOD.PRG
  3. *
  4. *  Fill mode demo program.
  5. ****************************************************************************
  6. *
  7. * Include PGL.PRG
  8. *
  9. SET PROCEDURE TO PGL
  10. DO  PGLINIT
  11. *
  12. PUBLIC ierr
  13. **************************************************************************
  14. * - MAIN PROCEDURE
  15. **************************************************************************
  16. *    
  17. *    Open A Drawing File
  18. *    
  19.      pgINIT( 'fillmod.plt' , 2000, 2000, @ierr  ) 
  20.      if ierr <>  0 
  21.       ? "error opening drawing file!"
  22.       return
  23.      end if
  24.  
  25.  
  26.    pgSTStyle( pgTRIPLEX )
  27.    pgSTJust( pgCENTER, pgTOP )
  28.    pgSCHARSP( 3 )
  29.    pgSTScale( 2, 1, 2, 1 )
  30.    pgSColor( 15 )
  31.  
  32.    * Set fill mode to opaque
  33.    pgSFMode( pgOPAQ ) 
  34.  
  35.    pgSFStyle( pgFSLASH, 1 ) 
  36.    pgEll( 750, 500, 500, 300, pgOFILL ) 
  37.    pgSFStyle( pgFBKSLASH, 1 ) 
  38.    pgEll( 1250, 500, 500, 300, pgOFILL ) 
  39.    pgDTXY( 1000, 900, 'Opaque Fill Mode' ) 
  40.  
  41.    * Set fill mode to transparent
  42.    pgSFMode( pgTRANS ) 
  43.  
  44.    pgSFStyle( pgFSLASH, 1 ) 
  45.    pgEll( 750, 1500, 500, 300, pgOFILL ) 
  46.    pgSFStyle( pgFBKSLASH, 1 ) 
  47.    pgEll( 1250, 1500, 500, 300, pgOFILL ) 
  48.    pgDTXY( 1000, 1900, 'Transparent Fill Mode' ) 
  49.  
  50. *     
  51. *    Close The Drawing File.
  52. *    
  53.      pgEND()
  54. *
  55. * - END MAIN PROCEDURE
  56. *
  57.