home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1002 / svgaqb10.bi < prev    next >
Text File  |  1993-06-10  |  6KB  |  104 lines
  1.     REM SVGAQB10 GRAPHICS LIBRARY INCLUDE FILE FOR MS QuickBasic 4.5
  2.     REM COPYRIGHT 1993 BY STEPHEN L. BALKUM AND DANIEL A. SILL
  3.     REM ZEPHYR SOFTWARE P.O. BOX 7704, AUSTIN, TEXAS  78713-7704
  4.     REM LAST UPDATE 5/20/93
  5.  
  6.     DECLARE SUB BLKGET (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, SEG GFXBLK%)
  7.     DECLARE SUB BLKPUT (BYVAL Mode%, BYVAL X%, BYVAL Y%, SEG GFXBLK%)
  8.     DECLARE SUB D2ROTATE (BYVAL Points%, BYVAL XOrigin%, BYVAL YOrigin%, BYVAL ANG%, SEG InAry%, SEG OutAry%)
  9.     DECLARE SUB D2SCALE (BYVAL Points%, BYVAL XSCALE%, BYVAL YSCALE%, SEG InAry%, SEG OutAry%)
  10.     DECLARE SUB D2TRANSLATE (BYVAL Points%, BYVAL XTRANS%, BYVAL YTRANS%, SEG InAry%, SEG OutAry%)
  11.     DECLARE FUNCTION D3PROJECT% (BYVAL Points%, SEG ProjParms%, SEG InAry%, SEG OutAry%)
  12.     DECLARE SUB D3ROTATE (BYVAL Points%, BYVAL XOrigin%, BYVAL YOrigin%, BYVAL ZOrigin%, BYVAL ZRAng%, BYVAL YRAng%, BYVAL XRAng%, SEG InAry%, SEG OutAry%)
  13.     DECLARE SUB D3SCALE (BYVAL Points%, BYVAL XSCALE%, BYVAL YSCALE%, BYVAL ZScale%, SEG InAry%, SEG OutAry%)
  14.     DECLARE SUB D3TRANSLATE (BYVAL Points%, BYVAL XTRANS%, BYVAL YTRANS%, BYVAL ZTrans%, SEG InAry%, SEG OutAry%)
  15.     DECLARE SUB DRWBOX (BYVAL Mode%, BYVAL Colr%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  16.     DECLARE SUB DRWCIRCLE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radius%)
  17.     DECLARE SUB DRWELLIPSE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radiusx%, BYVAL Radiusy%)
  18.     DECLARE SUB DRWLINE (BYVAL Mode%, BYVAL Colr%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  19.     DECLARE SUB DRWPOINT (BYVAL Mode%, BYVAL Colr%, BYVAL X%, BYVAL Y%)
  20.     DECLARE SUB DRWSTRING (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
  21.     DECLARE SUB DRWSTRINGDN (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
  22.     DECLARE SUB DRWSTRINGLT (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
  23.     DECLARE SUB DRWSTRINGRT (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
  24.     DECLARE SUB FILLAREA (BYVAL Xseed%, BYVAL Yseed%, BYVAL BorderColr%, BYVAL FillColr%)
  25.     DECLARE SUB FILLCOLOR (BYVAL Xseed%, BYVAL Yseed%, BYVAL OldColr%, BYVAL NewColr%)
  26.     DECLARE SUB FILLSCREEN (BYVAL Colr%)
  27.     DECLARE SUB FILLVIEW (BYVAL Colr%)
  28.     DECLARE SUB FONTGETINFO (WDTH%, HGHT%)
  29.     DECLARE SUB FONTSET (FONT$)
  30.     DECLARE SUB FONTSYSTEM ()
  31.     DECLARE SUB GETLASTSTRING (SEG StrngGfxBlk%)
  32.     DECLARE FUNCTION GETPOINT% (BYVAL X%, BYVAL Y%)
  33.     DECLARE FUNCTION GIFGETINFO% (Name$, GifXSize%, GifYSize%, NumColors%, PAL$)
  34.     DECLARE FUNCTION GIFPUT% (BYVAL Mode%, BYVAL Xloc%, BYVAL Yloc%, Name$)
  35.     DECLARE SUB JOYSTICKINFO (JAX%, JAY%, JAButs%, JBX%, JBY%, JBButs%)
  36.     DECLARE SUB MOUSEBUTPRESS (ReqBut%, Xloc%, Yloc%, NUM%, MButs%)
  37.     DECLARE SUB MOUSEBUTRELEASE (ReqBut%, Xloc%, Yloc%, NUM%, MButs%)
  38.     DECLARE SUB MOUSECURSORDEFAULT ()
  39.     DECLARE SUB MOUSECURSORSET (MouseCursor$)
  40.     DECLARE SUB MOUSEENTER ()
  41.     DECLARE SUB MOUSEEXIT ()
  42.     DECLARE SUB MOUSEHIDE ()
  43.     DECLARE SUB MOUSEINFO (DrvMajorVer%, DrvMinorVer%, MouseType%, IRQnumber%)
  44.     DECLARE SUB MOUSELOCSET (BYVAL Xloc%, BYVAL Yloc%)
  45.     DECLARE SUB MOUSERANGESET (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  46.     DECLARE SUB MOUSERESTORESTATE (SEG MouseBuf%)
  47.     DECLARE SUB MOUSESAVESTATE (SEG MouseBuf%)
  48.     DECLARE SUB MOUSESENSSET (BYVAL Xsens%, BYVAL Ysens%)
  49.     DECLARE SUB MOUSESHOW ()
  50.     DECLARE SUB MOUSESTATUS (X%, Y%, MButs%)
  51.     DECLARE FUNCTION MOUSESTORAGESIZE% ()
  52.     DECLARE SUB OVERSCANSET (BYVAL Colr%)
  53.     DECLARE SUB PALCHGAUTO (PalString$, NewPalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Speed%)
  54.     DECLARE SUB PALCHGSTEP (PalString$, NewPalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Percent%)
  55.     DECLARE SUB PALDIMSTEP (PalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Percent%)
  56.     DECLARE SUB PALGET (PalString$, BYVAL FirstColr%, BYVAL LastColr%)
  57.     DECLARE SUB PALIOAUTO (PalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Speed%)
  58.     DECLARE SUB PALROTATE (PalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Shift%)
  59.     DECLARE SUB PALSET (PalString$, BYVAL FirstColr%, BYVAL LastColr%)
  60.     DECLARE SUB RES320 ()
  61.     DECLARE SUB RES640 ()
  62.     DECLARE SUB RES800 ()
  63.     DECLARE SUB RES1024 ()
  64.     DECLARE SUB RESTEXT ()
  65.     DECLARE SUB SCROLLDN (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL NUM%, BYVAL Colr%)
  66.     DECLARE SUB SCROLLLT (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL NUM%, BYVAL Colr%)
  67.     DECLARE SUB SCROLLRT (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL NUM%, BYVAL Colr%)
  68.     DECLARE SUB SCROLLUP (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL NUM%, BYVAL Colr%)
  69.     DECLARE SUB SDELAY (BYVAL Count%)
  70.     DECLARE SUB SETCARD (BYVAL CHIP%, BYVAL MEM%)
  71.     DECLARE SUB SETVIEW (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  72.     DECLARE SUB SPRITEGAP (BYVAL TransColr%, BYVAL X%, BYVAL Y%, SEG SPRITEGFXBLK%, SEG BKGNDGFXBLK%)
  73.     DECLARE SUB SPRITEPUT (BYVAL TransColr%, BYVAL X%, BYVAL Y%, SEG SPRITEGFXBLK%)
  74.     DECLARE FUNCTION VIDEOMODEGET% ()
  75.     DECLARE SUB VIDEOMODESET (BYVAL Mode%)
  76.     DECLARE SUB VIDEOOFF ()
  77.     DECLARE SUB VIDEOON ()
  78.     DECLARE FUNCTION WHICHCPU% ()
  79.     DECLARE FUNCTION WHICHJOYSTICK% ()
  80.     DECLARE FUNCTION WHICHMEM% ()
  81.     DECLARE FUNCTION WHICHMOUSE% ()
  82.     DECLARE FUNCTION WHICHVGA% ()
  83.  
  84.     TYPE P2DType
  85.         X AS INTEGER
  86.         Y AS INTEGER
  87.     END TYPE
  88.  
  89.     TYPE P3Dtype
  90.         X AS INTEGER
  91.         Y AS INTEGER
  92.         Z AS INTEGER
  93.     END TYPE
  94.  
  95.     TYPE PROJType
  96.         EYEX AS INTEGER
  97.         EYEY AS INTEGER
  98.         EYEZ AS INTEGER
  99.         SCRD AS INTEGER
  100.         THETA AS INTEGER
  101.         PHI AS INTEGER
  102.     END TYPE
  103.  
  104.