home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / PGL.ZIP / PGLBS.ZIP / PGL.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-01-20  |  6.8 KB  |  185 lines
  1. '**************************************************************************
  2. 'PGL - QUICK BASIC DECLARATIONS
  3. 'Copyright (c) 1991 AnSoft, Inc.
  4. 'Basic Interface to PGL
  5. 'Quick Basic 4.0,4.5
  6. 'Basic Prof Dev System 7.x
  7. '**************************************************************************
  8. '    Page Orientation  constants
  9. CONST pgPORTRAIT  =0
  10. CONST pgLANDSCAPE =1
  11.  
  12. '    Page Size  constants
  13. CONST pgHALFPAGE  =0
  14. CONST pgFULLPAGE  =1
  15. CONST pgSMALLPAGE =2
  16.  
  17. '    Device Type  constants
  18. CONST pgDOTMATRIX =0
  19. CONST pgLASERJET  =1
  20. CONST pgPCX       =2
  21. CONST pgEPS       =3
  22.  
  23. '    Printer ON/OFF definition constants
  24. CONST  pgOFF =0
  25. CONST  pgON  =1
  26.  
  27. '    Line style definition constants
  28. CONST  pgLSOLID     = 0
  29. CONST  pgLHUGEDASH  = 1
  30. CONST  pgLBIGDASH   = 2
  31. CONST  pgLMEDDASH   = 3
  32. CONST  pgLSMALLDASH = 4
  33. CONST  pgLWIDEDOT   = 5
  34. CONST  pgLCLOSEDOT  = 6
  35. CONST  pgLDASHDOT   = 7
  36. CONST  pgLCENTER    = 8
  37.  
  38. '    Fill Style Definition constants
  39. CONST  pgFEMPTY      =0
  40. CONST  pgFSOLID      =1
  41. CONST  pgFLINE       =2
  42. CONST  pgFLTSLASH    =3
  43. CONST  pgFSLASH      =4
  44. CONST  pgFBKSLASH    =5
  45. CONST  pgFLTBKSLASH  =6
  46. CONST  pgFHATCH      =7
  47. CONST  pgFXHATCH     =8
  48. CONST  pgFINTERLEAVE =9
  49. CONST  pgFWIDEDOT    =10
  50. CONST  pgFCLOSEDOT   =11
  51.  
  52. '       Fill Mode 
  53. CONST  pgTRANS         =0
  54. CONST  pgOPAQ         =1
  55.  
  56. '    Text Justification  constants
  57. CONST pgLEFT    =0
  58. CONST pgCENTER    =1
  59. CONST pgRIGHT   =2
  60. CONST pgBOTTOM    =0
  61. CONST pgTOP     =2
  62.  
  63. '    Font Style constants
  64. CONST pgSMALL    =0
  65. CONST pgSIMPLEX  =1
  66. CONST pgDUPLEX   =2
  67. CONST pgTRIPLEX  =3
  68. CONST pgGOTHIC   =4
  69. CONST pgSCRIPT   =5
  70. CONST pgSDUPLEX  =6
  71.       
  72. '    Fill Flag constants
  73. CONST pgOUTLINE =1
  74. CONST pgFILL    =2
  75. CONST pgOFILL   =3        
  76.  
  77. ' Printer Driver Device Info 
  78. DECLARE FUNCTION pgLoadDevInfo% ( SEG name$ )
  79.  
  80. ' Functions to Set Printer Driver Params 
  81. DECLARE SUB pgSetPageMargins  ( BYVAL left%, BYVAL top%, BYVAL right%, BYVAL bot% )
  82. DECLARE SUB pgSetPageForm     ( BYVAL form% )
  83. DECLARE SUB pgSetPageSize     ( BYVAL size% )
  84.  
  85. ' Functions to save bitmaps
  86. DECLARE SUB pgBMInit ( BYVAL x%, BYVAL y%, BYVAL wid%, BYVAL hght%, BYVAL bpp%, BYVAL rle% )
  87. DECLARE SUB pgBMData ( BYVAL row%, SEG rowdata% )
  88. DECLARE SUB pgBMEnd  ( )
  89.  
  90.  
  91. ' Functions To Get Info About Current Driver - Res Independent
  92. DECLARE FUNCTION  pgGetDevModes%    
  93. DECLARE FUNCTION  pgGetDevType%      
  94. DECLARE FUNCTION  pgGetDevHeight%    
  95. DECLARE FUNCTION  pgGetDevWidth%     
  96. DECLARE FUNCTION  pgGetDevOffsetX%   
  97. DECLARE FUNCTION  pgGetDevOffsetY%  
  98.  
  99. ' Functions To Get Info About Current Driver - Res Dependent
  100. DECLARE FUNCTION  pgGetDevColors%    ( BYVAL res% )
  101. DECLARE FUNCTION  pgGetDevMaxX%      ( BYVAL res% )
  102. DECLARE FUNCTION  pgGetDevMaxY%      ( BYVAL res% )
  103. DECLARE FUNCTION  pgGetDevResX%      ( BYVAL res% )
  104. DECLARE FUNCTION  pgGetDevResY%      ( BYVAL res% )
  105. DECLARE FUNCTION  pgGetDevPlanes%    ( BYVAL res% )
  106.  
  107. ' PGL System Functions
  108. DECLARE SUB      pgInitDrw   ( SEG name$, BYVAL wid%, BYVAL hght%, SEG ierr% )
  109. DECLARE SUB      pgOpenDrw   ( SEG name$, SEG ierr%)   
  110. DECLARE SUB      pgClearDrw  ( SEG ierr% ) 
  111. DECLARE SUB      pgEndDrw    ( )
  112. DECLARE SUB      pgNewPage   ( )
  113. DECLARE FUNCTION pgGetStatus%
  114.  
  115. ' PGL Graphics Functions  
  116. DECLARE SUB pgMoveTo       ( BYVAL x%, BYVAL y% )
  117. DECLARE SUB pgMoveRel      ( BYVAL x%, BYVAL y% )
  118. DECLARE SUB pgLineTo       ( BYVAL x%, BYVAL y% )
  119. DECLARE SUB pgLineRel      ( BYVAL x%, BYVAL y% )
  120. DECLARE SUB pgLine         ( BYVAL x1%, BYVAL y1%, BYVAL x2%, BYVAL y2% )
  121. DECLARE SUB pgSetPixel     ( BYVAL x%, BYVAL y%, BYVAL clr% )
  122. DECLARE SUB pgArc          ( BYVAL x%, BYVAL y%, BYVAL rad%, BYVAL sa%, BYVAL ea% )
  123. DECLARE SUB pgEllArc       ( BYVAL x%, BYVAL y%, BYVAL radx%, BYVAL rady%, BYVAL sa%, BYVAL ea% )
  124. DECLARE SUB pgPie          ( BYVAL x%,BYVAL y%,BYVAL rad%,BYVAL sa%,BYVAL ea%, BYVAL fillflag% )
  125. DECLARE SUB pgSector       ( BYVAL x%,BYVAL y%,BYVAL rx%,BYVAL ry%,BYVAL sa%,BYVAL ea%,BYVAL fillflag%)
  126. DECLARE SUB pgRectangle    ( BYVAL x1%,BYVAL y1%,BYVAL x2%,BYVAL y2%,BYVAL fillflag%)
  127. DECLARE SUB pgCircle       ( BYVAL x%,BYVAL y%,BYVAL rad%,BYVAL fillflag% )
  128. DECLARE SUB pgEllipse      ( BYVAL x%,BYVAL y%,BYVAL rx%,BYVAL ry%, BYVAL fillflag%)
  129. DECLARE SUB pgPolygon      ( SEG polydata%, BYVAL npts%, BYVAL fillflag% )
  130. DECLARE SUB pgPolyLine     ( SEG polydata%, BYVAL npts% )
  131. DECLARE SUB pgDrawText     ( SEG text$ )
  132. DECLARE SUB pgDrawTextXY   ( BYVAL x%,BYVAL y%, SEG text$ )
  133. DECLARE SUB pgClearViewPort( )
  134.  
  135. ' PGL Functions to Set Graphics Parameters 
  136. DECLARE SUB pgSetColor        ( BYVAL clr% ) 
  137. DECLARE SUB pgSetPalette      ( BYVAL index%,BYVAL clr% ) 
  138. DECLARE SUB pgSetRgbPalette   ( BYVAL index%, BYVAL red%, BYVAL green%, BYVAL blue% )
  139. DECLARE SUB pgSetDefaults     ( )   
  140. DECLARE SUB pgSetFillMode     ( BYVAL mode% )
  141. DECLARE SUB pgSetFillStyle    ( BYVAL style%, BYVAL clr% ) 
  142. DECLARE SUB pgSetFillPattern  ( SEG style%, BYVAL clr% ) 
  143. DECLARE SUB pgSetLineStyle    ( BYVAL style%, BYVAL thick% ) 
  144. DECLARE SUB pgSetLineWeight   ( BYVAL weight% )
  145. DECLARE SUB pgSetLinePattern  ( BYVAL pat%, BYVAL thick% ) 
  146. DECLARE SUB pgSetTextBolding  ( BYVAL thick% ) 
  147. DECLARE SUB pgSetCharSpacing  ( BYVAL space% )
  148. DECLARE SUB pgSetTextScaling  ( BYVAL mx%,BYVAL dx%,BYVAL my%,BYVAL dy%  ) 
  149. DECLARE SUB pgSetTextSize     ( BYVAL size% ) 
  150. DECLARE SUB pgSetTextJustify  ( BYVAL horiz%, BYVAL vert% ) 
  151. DECLARE SUB pgSetTextOrient   ( BYVAL ox%,BYVAL oy%  ) 
  152. DECLARE SUB pgSetTextStyle    ( BYVAL fontno% ) 
  153. DECLARE SUB pgSetClipArea     ( BYVAL cx1%,BYVAL cy1%,BYVAL cx2%,BYVAL cy2% )
  154. DECLARE SUB pgSetClipping     ( BYVAL flag% ) 
  155. DECLARE SUB pgSetPrn          ( BYVAL flag% ) 
  156. DECLARE SUB pgSetViewPort     ( BYVAL x1%,BYVAL y1%,BYVAL x2%,BYVAL y2% )
  157.  
  158. ' PGL Functions to Get Graphics Parameters 
  159. DECLARE FUNCTION  pgGetColor%
  160. DECLARE FUNCTION  pgGetFillMode%
  161. DECLARE SUB       pgGetFillPattern  ( SEG style%, SEG clr% ) 
  162. DECLARE SUB       pgGetFillStyle    ( SEG style%, SEG clr% )
  163. DECLARE SUB       pgGetLineStyle    ( SEG style%, SEG thick% ) 
  164. DECLARE SUB       pgGetLinePattern  ( SEG pat%, SEG thick% ) 
  165. DECLARE FUNCTION  pgGetLineWeight%
  166. DECLARE FUNCTION  pgGetMaxX%         
  167. DECLARE FUNCTION  pgGetMaxY%
  168. DECLARE FUNCTION  pgGetTextBolding%
  169. DECLARE FUNCTION  pgGetCharSpacing%
  170. DECLARE SUB       pgGetTextScaling  ( SEG mx%, SEG dx%, SEG my%, SEG dy%) 
  171. DECLARE SUB       pgGetTextJustify  ( SEG horiz%, SEG vert%) 
  172. DECLARE SUB       pgGetTextOrient   ( SEG ox%, SEG oy% ) 
  173. DECLARE FUNCTION  pgGetTextStyle%      
  174. DECLARE SUB       pgGetClipArea     ( SEG cx1%, SEG cy1%, SEG cx2% , SEG cy2% )
  175. DECLARE FUNCTION  pgGetClipping%
  176. DECLARE FUNCTION  pgGetPrn%
  177. DECLARE FUNCTION  pgGetTextHeight%
  178. DECLARE FUNCTION  pgGetX%
  179. DECLARE FUNCTION  pgGetY%
  180. DECLARE FUNCTION  pgGetAbsX%
  181. DECLARE FUNCTION  pgGetAbsY%
  182. DECLARE FUNCTION  pgGetTextLength% ( SEG text$ )
  183. DECLARE SUB       pgGetViewPort    ( SEG x1%, SEG y1%, SEG x2%, SEG y2% )
  184.     
  185.