home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / svgapb21.zip / SVGAPB.BI < prev    next >
Text File  |  1994-05-09  |  8KB  |  143 lines
  1.     REM SVGAPB GRAPHICS LIBRARY INCLUDE FILE FOR USE WITH 
  2.     REM SPECTRA PUBLISHING'S POWER BASIC 3.X
  3.     REM COPYRIGHT 1993-1994 BY STEPHEN L. BALKUM AND DANIEL A. SILL
  4.     REM ZEPHYR SOFTWARE P.O. BOX 7704, AUSTIN, TEXAS  78713-7704
  5.     REM LAST UPDATE 5/1/94
  6.  
  7.     TYPE P2DType
  8.         X AS INTEGER
  9.         Y AS INTEGER
  10.     END TYPE
  11.  
  12.     TYPE P3Dtype
  13.         X AS INTEGER
  14.         Y AS INTEGER
  15.         Z AS INTEGER
  16.     END TYPE
  17.  
  18.     TYPE PROJType
  19.         EYEX AS INTEGER
  20.         EYEY AS INTEGER
  21.         EYEZ AS INTEGER
  22.         SCRD AS INTEGER
  23.         THETA AS INTEGER
  24.         PHI AS INTEGER
  25.     END TYPE
  26.  
  27.     TYPE RGBType
  28.         R AS BYTE
  29.         G AS BYTE
  30.         B AS BYTE
  31.     END TYPE
  32.  
  33.     DECLARE SUB BLKGET (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, SEG GfxBlk%)
  34.     DECLARE SUB BLKPUT (BYVAL Mode%, BYVAL X%, BYVAL Y%, SEG GfxBlk%)
  35.     DECLARE SUB BLKRESIZE (BYVAL X%, BYVAL Y%, SEG SourceGfxBlk%, SEG DestGfxBlk%)
  36.     DECLARE FUNCTION BLKROTATE% (BYVAL Ang%, BYVAL BackFill%, SEG SourceGfxBlk%, SEG DestGfxBlk%)
  37.     DECLARE FUNCTION BLKROTATESIZE& (BYVAL Ang%, SEG SourceGfxBlk%)
  38.     DECLARE SUB BYTECOPY (SEG SourceArray%, SEG DestArray%, BYVAL NumOfBytes&)
  39.     DECLARE SUB D2ROTATE (BYVAL Points%, BYVAL XOrigin%, BYVAL YOrigin%, BYVAL Ang%, SEG InAry%, SEG OutAry%)
  40.     DECLARE SUB D2SCALE (BYVAL Points%, BYVAL XSCALE%, BYVAL YSCALE%, SEG InAry%, SEG OutAry%)
  41.     DECLARE SUB D2TRANSLATE (BYVAL Points%, BYVAL XTRANS%, BYVAL YTRANS%, SEG InAry%, SEG OutAry%)
  42.     DECLARE FUNCTION D3PROJECT% (BYVAL Points%, SEG ProjParms%, SEG InAry%, SEG OutAry%)
  43.     DECLARE SUB D3ROTATE (BYVAL Points%, BYVAL XOrigin%, BYVAL YOrigin%, BYVAL ZOrigin%, BYVAL ZRAng%, BYVAL YRAng%, BYVAL XRAng%, SEG InAry%, SEG OutAry%)
  44.     DECLARE SUB D3SCALE (BYVAL Points%, BYVAL XSCALE%, BYVAL YSCALE%, BYVAL ZScale%, SEG InAry%, SEG OutAry%)
  45.     DECLARE SUB D3TRANSLATE (BYVAL Points%, BYVAL XTRANS%, BYVAL YTRANS%, BYVAL ZTrans%, SEG InAry%, SEG OutAry%)
  46.     DECLARE SUB DRWBOX (BYVAL Mode%, BYVAL Colr%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  47.     DECLARE SUB DRWCIRCLE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radius%)
  48.     DECLARE SUB DRWELLIPSE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radiusx%, BYVAL Radiusy%)
  49.     DECLARE SUB DRWFILLBOX (BYVAL Mode%, BYVAL Colr%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  50.     DECLARE SUB DRWFILLCIRCLE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radius%)
  51.     DECLARE SUB DRWFILLELLIPSE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radiusx%, BYVAL Radiusy%)
  52.     DECLARE SUB DRWLINE (BYVAL Mode%, BYVAL Colr%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  53.     DECLARE SUB DRWPOINT (BYVAL Mode%, BYVAL Colr%, BYVAL X%, BYVAL Y%)
  54.     DECLARE SUB DRWSTRING (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
  55.     DECLARE SUB DRWSTRINGDN (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
  56.     DECLARE SUB DRWSTRINGLT (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
  57.     DECLARE SUB DRWSTRINGRT (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
  58.     DECLARE SUB FILLAREA (BYVAL Xseed%, BYVAL Yseed%, BYVAL BorderColr%, BYVAL FillColr%)
  59.     DECLARE SUB FILLCOLOR (BYVAL Xseed%, BYVAL Yseed%, BYVAL OldColr%, BYVAL NewColr%)
  60.     DECLARE SUB FILLCONVEXPOLY (BYVAL Colr%, BYVAL Points%, SEG InAry%)
  61.     DECLARE SUB FILLSCREEN (BYVAL Colr AS INTEGER)
  62.     DECLARE SUB FILLPAGE (BYVAL Colr%)
  63.     DECLARE SUB FILLVIEW (BYVAL Colr%)
  64.     DECLARE SUB FONTGETINFO (SEG WDTH%, SEG HGHT%)
  65.     DECLARE SUB FONTSET (SEG FONT?)
  66.     DECLARE SUB FONTSYSTEM ()
  67.     DECLARE FUNCTION GETARCCOS% (BYVAL Value&)
  68.     DECLARE FUNCTION GETARCSIN% (BYVAL Value&)
  69.     DECLARE FUNCTION GETARCTAN% (BYVAL Value&)
  70.     DECLARE FUNCTION GETCOS& (BYVAL Ang&)
  71.     DECLARE FUNCTION GETSIN& (BYVAL Ang&)
  72.     DECLARE FUNCTION GETTAN& (BYVAL Ang&)
  73.     DECLARE FUNCTION GETSQRT& (BYVAL Number&)
  74.     DECLARE FUNCTION GETMAXX% ()
  75.     DECLARE FUNCTION GETMAXY% ()
  76.     DECLARE SUB GETLASTSTRING (SEG StrngGfxBlk%)
  77.     DECLARE FUNCTION GETPOINT% (BYVAL X%, BYVAL Y%)
  78.     DECLARE FUNCTION GIFMAKE% (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%,SEG FileName$)
  79.     DECLARE FUNCTION GIFGETINFO% (SEG FileName$, SEG GifXSize%, SEG GifYSize%, SEG NumColors%, Pal AS RGBType)
  80.     DECLARE FUNCTION GIFPUT% (BYVAL Mode%, BYVAL Xloc%, BYVAL Yloc%, SEG FileName$)
  81.     DECLARE SUB JOYSTICKINFO (SEG JAX%, SEG JAY%, SEG JAButs%, SEG JBX%, SEG JBY%, SEG JBButs%)
  82.     DECLARE SUB MOUSEBUTPRESS (BYVAL ReqBut%, SEG Xloc%, SEG Yloc%, SEG Num%, SEG MButs%)
  83.     DECLARE SUB MOUSEBUTRELEASE (BYVAL ReqBut%, SEG Xloc%, SEG Yloc%, SEG Num%, SEG MButs%)
  84.     DECLARE SUB MOUSECURSORDEFAULT ()
  85.     DECLARE SUB MOUSECURSORSET (SEG MouseCursor?)
  86.     DECLARE SUB MOUSEENTER ()
  87.     DECLARE SUB MOUSEEXIT ()
  88.     DECLARE SUB MOUSEHIDE ()
  89.     DECLARE SUB MOUSEINFO (SEG DrvMajorVer%, SEG DrvMinorVer%, SEG MouseType%, SEG IRQnumber%)
  90.     DECLARE SUB MOUSELOCSET (BYVAL Xloc%, BYVAL Yloc%)
  91.     DECLARE SUB MOUSERANGESET (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  92.     DECLARE SUB MOUSERESTORESTATE (SEG MouseBuf?)
  93.     DECLARE SUB MOUSESAVESTATE (SEG MouseBuf?)
  94.     DECLARE SUB MOUSESENSSET (BYVAL Xsens%, BYVAL Ysens%,BYVAL DblSpedThrshold%)
  95.     DECLARE SUB MOUSESHOW ()
  96.     DECLARE SUB MOUSESTATUS (SEG X%, SEG Y%, SEG MButs%)
  97.     DECLARE FUNCTION MOUSESTORAGESIZE% ()
  98.     DECLARE SUB OVERSCANSET (BYVAL Colr%)
  99.     DECLARE FUNCTION PAGEDISPLAY% (BYVAL X%, BYVAL Y%, BYVAL Page%)
  100.     DECLARE FUNCTION PAGEACTIVE% (BYVAL Page%)
  101.     DECLARE SUB PALCHGAUTO (SEG Pal AS RGBType, SEG NewPal AS RGBType, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Speed%)
  102.     DECLARE SUB PALCHGSTEP (SEG Pal AS RGBType, SEG NewPal AS RGBType, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Percent%)
  103.     DECLARE SUB PALCOPY (SEG SourcePal AS RGBType, SEG DestPal AS RGBType, BYVAL FirstColr%, BYVAL LastColr%)
  104.     DECLARE SUB PALDIMSTEP (SEG Pal AS RGBType, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Percent%)
  105.     DECLARE SUB PALGET (SEG Pal AS RGBType, BYVAL FirstColr%, BYVAL LastColr%)
  106.     DECLARE SUB PALIOAUTO (SEG Pal AS RGBType, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Speed%)
  107.     DECLARE SUB PALROTATE (SEG Pal AS RGBType, BYVAL FirstColr%, BYVAL LastColr%, BYVAL ColShift%)
  108.     DECLARE SUB PALSET (SEG Pal AS RGBType, BYVAL FirstColr%, BYVAL LastColr%)
  109.     DECLARE FUNCTION RES320% ()
  110.     DECLARE FUNCTION RES640L% ()
  111.     DECLARE FUNCTION RES640% ()
  112.     DECLARE FUNCTION RES800% ()
  113.     DECLARE FUNCTION RES1024% ()
  114.     DECLARE FUNCTION RES1280% ()
  115.     DECLARE FUNCTION RESTEXT% ()
  116.     DECLARE SUB SCROLLDN (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Num%, BYVAL Colr%)
  117.     DECLARE SUB SCROLLLT (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Num%, BYVAL Colr%)
  118.     DECLARE SUB SCROLLRT (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Num%, BYVAL Colr%)
  119.     DECLARE SUB SCROLLUP (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Num%, BYVAL Colr%)
  120.     DECLARE SUB SDELAY (BYVAL Count%)
  121.     DECLARE SUB SETCARD (BYVAL CHIP%, BYVAL MEM%)
  122.     DECLARE SUB SETVIEW (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  123.     DECLARE SUB SPRITEGAP (BYVAL TransColr%, BYVAL X%, BYVAL Y%, SEG SpriteGfxBlk%, SEG BkgndGfxBlk%)
  124.     DECLARE SUB SPRITEGET (BYVAL TransColr%, BYVAL X%, BYVAL Y%, SEG SpriteGfxBlk%, SEG BkgndGfxBlk%)
  125.     DECLARE SUB SPRITEPUT (BYVAL Mode%, BYVAL TransColr%, BYVAL X%, BYVAL Y%, SEG SpriteGfxBlk%)
  126.     DECLARE FUNCTION SPRITECOLLDETECT% (BYVAL TransColr%, BYVAL Sprite1LocX%, BYVAL Sprite1LocY%, BYVAL Sprite2LocX%, BYVAL Sprite2LocY%, SEG Sprite1GfxBlk%, SEG Sprite2GfxBlk%)
  127.     DECLARE FUNCTION VIDEOMODEGET% ()
  128.     DECLARE SUB VIDEOMODESET (BYVAL Mode%)
  129.     DECLARE SUB VIDEOOFF ()
  130.     DECLARE SUB VIDEOON ()
  131.     DECLARE FUNCTION WHICHCPU% ()
  132.     DECLARE FUNCTION WHICHJOYSTICK% ()
  133.     DECLARE FUNCTION WHICHMEM% ()
  134.     DECLARE FUNCTION WHICHMOUSE% ()
  135.     DECLARE FUNCTION WHICHVGA% ()
  136.     DECLARE FUNCTION WHICHXMS% (SEG XmsKbytesAvailable%, SEG XmsHandlesAvailable%)
  137.     DECLARE FUNCTION XMSALLOCATE% (BYVAL ReqKbytesOfMem%)
  138.     DECLARE FUNCTION XMSERROR% ()
  139.     DECLARE FUNCTION XMSFREE% (BYVAL XmsHandle%)
  140.     DECLARE FUNCTION XMSGET% (BYVAL XmsHandle%, BYVAL OffsetIntoXms&, SEG DestVar%, BYVAL NumOfBytes&)
  141.     DECLARE FUNCTION XMSPUT% (SEG SourceVar%, BYVAL XmsHandle%, BYVAL OffsetIntoXms&, BYVAL NumOfBytes&)
  142.     DECLARE FUNCTION XMSCOPY% (BYVAL XmsHandle1%, BYVAL OffsetIntoXms1&, BYVAL XmsHandle2%, BYVAL OffsetIntoXms2&, BYVAL NumOfBytes&)
  143.