home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / QBEVGFX2.ZIP / QBEVGFX.BI < prev    next >
Encoding:
Text File  |  1990-10-04  |  3.7 KB  |  147 lines
  1. '* QB/EVGFX declarations
  2. DECLARE FUNCTION READDOT% (x0%, y0%)
  3. DECLARE SUB DRAWDOT (mode%, value%, x0%, y0%)
  4. DECLARE SUB DRAWCH (mode%, char%, x0%, y0%, fg%, bg%)
  5. DECLARE SUB DRAWLN (mode%, value%, x0%, y0%, x1%, y1%)
  6. DECLARE SUB DRAWLNP (mode%, pattern$, x0%, y0%, x1%, y1%)
  7. DECLARE SUB DRAWLNS (mode%, value%, x1%, y1%)
  8. DECLARE FUNCTION DRAWSTR% (mode%, strg$, x0%, y0%, fg%, bg%, gap%)
  9. DECLARE SUB DRAWELL (mode%, value%, xC%, yC%, maj%, min%)
  10. DECLARE SUB FILLSCN (lines%, value%)
  11. DECLARE SUB FILLAREA (mode%, value%, borderval%, x%, y%)
  12. DECLARE SUB FILLAREAP (mode%, pattern$, borderval%, x%, y%)
  13. DECLARE SUB FLUDAREA (mode%, value%, x%, y%)
  14. DECLARE SUB FLUDAREAP (mode%, pattern$, x%, y%)
  15. DECLARE FUNCTION DIMBLOCK& (pmask%, x0%, y0%, x1%, y1%)
  16. DECLARE SUB GETBLOCK (pmask%, x0%, y0%, x1%, y1%, vseg%, voff%)
  17. DECLARE SUB PUTBLOCK (mode%, x0%, y0%, vseg%, voff%)
  18. DECLARE FUNCTION EGAVIDEO% ()
  19. DECLARE FUNCTION VGAVIDEO% ()
  20. DECLARE FUNCTION COLORVIDEO% ()
  21. DECLARE FUNCTION GETMODE% ()
  22. DECLARE SUB SETMODE (mode%)
  23. DECLARE SUB SETMODEX (regax%, regbx%)
  24. DECLARE SUB SETPSA (onoff%)
  25. DECLARE SUB GETPSA (pal17$)
  26. DECLARE SUB SETSTEP (x0%, y0%)
  27. DECLARE SUB GETSTEP (x0%, y0%)
  28. DECLARE SUB SETPALREG (reg%, colorval%)
  29. DECLARE SUB SETPALETTE (pal17$)
  30. DECLARE SUB SETSCNBUFF (x1%, y1%)
  31. DECLARE SUB WAITVS (cnt%)
  32. DECLARE SUB BLANKSCN (onoff%)
  33. DECLARE SUB BLINKBIT (onoff%)
  34. DECLARE SUB FONTSYS08 ()
  35. DECLARE SUB FONTSYS14 ()
  36. DECLARE SUB FONTSYS16 ()
  37. DECLARE SUB FONTSRF14P ()
  38. DECLARE SUB USERFONT (vseg%, voff%, pts%)
  39. '
  40. '** window & 2-D routines QB/EVGFX2
  41. DECLARE SUB SETWIN2D (vseg2%, voff2%)
  42. DECLARE SUB GETWIN2D (vseg2%, voff2%)
  43. DECLARE SUB SETSCNORG (x0%, y0%)
  44. DECLARE FUNCTION DRAWSTRW% (mode%, strg$, x0%, y0%, fg%, bg%, gap%)
  45. DECLARE SUB DRAWELLW (mode%, value%, xC%, yC%, maj%, min%)
  46. DECLARE SUB FILLWIN (mode%, value%)
  47. DECLARE SUB FILLWINP (mode%, pattern$)
  48. DECLARE SUB XFORM2D (vseg2%, voff2%)
  49. DECLARE FUNCTION CLIP2D% (vsegln2%, voffln2%)
  50. '
  51. '*** 3-D routines QB/EVGFX3
  52. DECLARE SUB SETWIN3D (vseg3%, voff3%)
  53. DECLARE SUB GETWIN3D (vseg3%, voff3%)
  54. DECLARE SUB XFORM3D (vseg3%, voff3%)
  55. DECLARE FUNCTION CLIP3D% (vsegln2%, voffln2%)
  56. DECLARE SUB PROJORTHO (vseg3%, voff3%)
  57. DECLARE SUB PROJPERS (vseg3%, voff3%)
  58. '
  59. '* misc routines
  60. DECLARE FUNCTION GETBIT% (BYVAL CheckMe%, BYVAL BitPos%)
  61. DECLARE FUNCTION SETBIT% (BYVAL UseMe%, BYVAL BitPos%)
  62. DECLARE FUNCTION XORBIT% (BYVAL XorMe%, BYVAL BitPos%)
  63.  
  64. TYPE WINDOW2Dtype
  65. x0 AS INTEGER
  66. y0 AS INTEGER
  67. x1 AS INTEGER
  68. y1 AS INTEGER
  69. END TYPE
  70.  
  71. TYPE POINT2Dtype
  72. x0 AS INTEGER
  73. y0 AS INTEGER
  74. END TYPE
  75.  
  76. TYPE LINE2Dtype
  77. x0 AS INTEGER
  78. y0 AS INTEGER
  79. x1 AS INTEGER
  80. y1 AS INTEGER
  81. END TYPE
  82.  
  83. TYPE PACK2Dtype
  84. xtype2  AS INTEGER
  85. deg2    AS INTEGER
  86. orgX2   AS INTEGER
  87. orgY2   AS INTEGER
  88. transX2 AS INTEGER
  89. transY2 AS INTEGER
  90. scaleX2 AS INTEGER
  91. scaleY2 AS INTEGER
  92. points2 AS INTEGER
  93. segXY2  AS INTEGER
  94. offXY2  AS INTEGER
  95. segXYp2 AS INTEGER
  96. offXYp2 AS INTEGER
  97. END TYPE
  98.  
  99. TYPE WINDOW3Dtype
  100. x0 AS INTEGER
  101. y0 AS INTEGER
  102. z0 AS INTEGER
  103. x1 AS INTEGER
  104. y1 AS INTEGER
  105. z1 AS INTEGER
  106. END TYPE
  107.  
  108. TYPE POINT3Dtype
  109. x0 AS INTEGER
  110. y0 AS INTEGER
  111. z0 AS INTEGER
  112. END TYPE
  113.  
  114. TYPE LINE3Dtype
  115. x0 AS INTEGER
  116. y0 AS INTEGER
  117. z0 AS INTEGER
  118. x1 AS INTEGER
  119. y1 AS INTEGER
  120. z1 AS INTEGER
  121. END TYPE
  122.  
  123. TYPE PACK3Dtype
  124. xtype3  AS INTEGER
  125. degH3   AS INTEGER
  126. degP3   AS INTEGER
  127. degB3   AS INTEGER
  128. orgX3   AS INTEGER
  129. orgY3   AS INTEGER
  130. orgZ3   AS INTEGER
  131. TransX3 AS INTEGER
  132. TransY3 AS INTEGER
  133. TransZ3 AS INTEGER
  134. ScaleX3 AS INTEGER
  135. ScaleY3 AS INTEGER
  136. ScaleZ3 AS INTEGER
  137. distV3  AS INTEGER
  138. points3 AS INTEGER
  139. segXY3  AS INTEGER
  140. offXY3  AS INTEGER
  141. segXYp3 AS INTEGER
  142. offXYp3 AS INTEGER
  143. segXYj3 AS INTEGER
  144. offXYj3 AS INTEGER
  145. END TYPE
  146.  
  147.