home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / GPILINE.BI < prev    next >
Text File  |  1989-08-23  |  3KB  |  122 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: GpiLine.BI
  4. '*
  5. '* Requires:     OS2Def.BI (POINTL type)
  6. '*               PMBase.BI (RECTL type)
  7. '*
  8. '* Description:  Line functions and constants
  9. '*
  10. '**************************************************************
  11.  
  12. ' ** line primitive functions
  13. DECLARE FUNCTION  GpiBox&( BYVAL HPS AS LONG,_
  14.                BYVAL ALONG AS LONG,_
  15.                BYVAL PPOINTL AS LONG,_
  16.                BYVAL BLONG AS LONG,_
  17.                BYVAL CLONG AS LONG )
  18.  
  19. DECLARE FUNCTION  GpiMove%( BYVAL HPS AS LONG,_
  20.                 BYVAL PPOINTL AS LONG )
  21.  
  22. DECLARE FUNCTION  GpiLine&( BYVAL HPS AS LONG,_
  23.                 BYVAL PPOINTL AS LONG )
  24.  
  25. DECLARE FUNCTION  GpiPolyLine&( BYVAL HPS AS LONG,_
  26.                 BYVAL ALONG AS LONG,_
  27.                 BYVAL PPOINTL AS LONG )
  28.  
  29. '  basic line type styles
  30. CONST  LINETYPEERROR     =     -1
  31. CONST  LINETYPEDEFAULT     =     0
  32. CONST  LINETYPEDOT     =     1
  33. CONST  LINETYPESHORTDASH =     2
  34. CONST  LINETYPEDASHDOT     =     3
  35. CONST  LINETYPEDOUBLEDOT =     4
  36. CONST  LINETYPELONGDASH  =     5
  37. CONST  LINETYPEDASHDOUBLEDOT = 6
  38. CONST  LINETYPESOLID        =  7
  39. CONST  LINETYPEINVISIBLE    =  8
  40. CONST  LINETYPEALTERNATE    =  9
  41.  
  42. '  cosmetic line widths
  43. CONST  LINEWIDTHERROR        =  -1
  44. CONST  LINEWIDTHDEFAULT     =  0
  45. CONST  LINEWIDTHNORMAL        =  &H00010000   '  MAKEFIXED(1,0)
  46.  
  47. '  actual line widths
  48. CONST  LINEWIDTHGEOMERROR  =   -1
  49.  
  50. '  line end styles
  51. CONST  LINEENDERROR      =    -1
  52. CONST  LINEENDDEFAULT      =    0
  53. CONST  LINEENDFLAT      =    1
  54. CONST  LINEENDSQUARE      =    2
  55. CONST  LINEENDROUND      =    3
  56.  
  57. '  line join styles
  58. CONST  LINEJOINERROR      =    -1
  59. CONST  LINEJOINDEFAULT      =    0
  60. CONST  LINEJOINBEVEL      =    1
  61. CONST  LINEJOINROUND      =    2
  62. CONST  LINEJOINMITRE      =    3
  63.  
  64. '  variation of SIZE used for FIXEDs
  65. TYPE SIZEF     '  sizfx
  66.     cx AS LONG
  67.     cy AS LONG
  68. END TYPE
  69.  
  70. '  return codes for GpiPtVisible
  71. CONST  PVISERROR     =    0
  72. CONST  PVISINVISIBLE =    1
  73. CONST  PVISVISIBLE   =    2
  74.  
  75. '  return codes for GpiRectVisible
  76. CONST  RVISERROR     =    0
  77. CONST  RVISINVISIBLE =    1
  78. CONST  RVISPARTIAL   =    2
  79. CONST  RVISVISIBLE   =    3
  80.  
  81.  
  82. DECLARE FUNCTION GpiPtVisible&( BYVAL HPS AS LONG,_
  83.                 BYVAL PPOINTL AS LONG )
  84.  
  85. DECLARE FUNCTION GpiRectVisible&( BYVAL HPS AS LONG,_
  86.                   BYVAL PRECTL AS LONG )
  87.  
  88. ' ** line primitive functions
  89. DECLARE FUNCTION   GpiSetLineType%( BYVAL HPS AS LONG,_
  90.                     BYVAL ALONG AS LONG )
  91.  
  92. DECLARE FUNCTION   GpiQueryLineType&( BYVAL HPS AS LONG )
  93.  
  94. DECLARE FUNCTION   GpiSetLineWidth%( BYVAL HPS AS LONG,_
  95.                      BYVAL FIXED AS LONG)
  96.  
  97. DECLARE FUNCTION  GpiQueryLineWidth&( BYVAL HPS AS LONG )
  98.  
  99. DECLARE FUNCTION  GpiSetLineWidthGeom%( BYVAL HPS AS LONG,_
  100.                     BYVAL ALONG AS LONG )
  101.  
  102. DECLARE FUNCTION  GpiQueryLineWidthGeom&( BYVAL HPS AS LONG )
  103.  
  104. DECLARE FUNCTION  GpiSetLineEnd%( BYVAL HPS AS LONG,_
  105.                   BYVAL ALONG AS LONG )
  106.  
  107. DECLARE FUNCTION  GpiQueryLineEnd&( BYVAL HPS AS LONG )
  108.  
  109. DECLARE FUNCTION  GpiSetLineJoin%( BYVAL HPS AS LONG,_
  110.                    BYVAL ALONG AS LONG )
  111.  
  112. DECLARE FUNCTION  GpiQueryLineJoin&( BYVAL HPS AS LONG )
  113.  
  114. DECLARE FUNCTION  GpiSetCurrentPosition%( BYVAL HPS AS LONG,_
  115.                       BYVAL PPOINTL AS LONG )
  116.  
  117. DECLARE FUNCTION  GpiQueryCurrentPosition%( BYVAL HPS AS LONG,_
  118.                         BYVAL PPOINTL AS LONG )
  119.  
  120.  
  121. '
  122.