home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / PGL.ZIP / PGLBS.ZIP / FONT.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-01-20  |  1.4 KB  |  51 lines
  1. '****************************************************************************
  2. '  FONT.BAS
  3. '
  4. '  This sample program demonstrates the PGL Fonts.
  5. '****************************************************************************
  6. '$INCLUDE: 'PGL.BAS'
  7.  
  8.    dfile$="FONT.PLT"
  9.  
  10. ' ****   Font main procedure   ****  
  11. '    
  12. '    Open A Drawing File.
  13. '    
  14.    call pgInitDrw( dfile$, 2000, 2000, ierr% ) 
  15.    if ierr% <> 0 then
  16.       print "Error Opening Drawing File: " + dfile$ + " !"
  17.       goto exitpgm
  18.    endif
  19.    
  20. ' Set Font styles and draw 'em.
  21.    call pgSetColor( 1 ) 
  22.  
  23.    midx%  = pgGetMaxX% / 2 
  24.    call pgSetTextScaling( 5, 1, 5, 1 ) 
  25.    call pgSetTextJustify(  pgCENTER, pgBOTTOM ) 
  26.    call pgDrawTextXY( midx%, 250, "Default Font Set (call pgSMALL)" ) 
  27.  
  28.    call pgSetTextStyle( pgSIMPLEX ) 
  29.    call pgDrawTextXY( midx%, 500, "Simplex Font Set" ) 
  30.  
  31.    call pgSetTextStyle( pgDUPLEX ) 
  32.    call pgDrawTextXY( midx%, 750, "Duplex Font Set" ) 
  33.  
  34.    call pgSetTextStyle( pgTRIPLEX ) 
  35.    call pgDrawTextXY( midx%, 1000, "Triplex Font Set" ) 
  36.  
  37.    call pgSetTextStyle( pgGOTHIC ) 
  38.    call pgDrawTextXY( midx%, 1250, "Gothic Font Set" ) 
  39.  
  40.    call pgSetTextStyle( pgSCRIPT ) 
  41.    call pgDrawTextXY( midx%, 1500, "Script Font Set" ) 
  42.  
  43.    call pgSetTextStyle( pgSDUPLEX ) 
  44.    call pgDrawTextXY( midx%, 1750, "Script Duplex Font Set" ) 
  45.  
  46. ' Close The Drawing File. 
  47.    call pgEndDrw 
  48.  
  49. exitpgm :
  50. end
  51.