home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / basic / playfl / modex.bi < prev    next >
Encoding:
Text File  |  1994-01-30  |  2.9 KB  |  60 lines
  1. ' ===== SCREEN RESOLUTIONS =====
  2.  
  3. CONST Mode320x200 = 0, Mode320x400 = 1
  4. CONST Mode360x200 = 2, Mode360x400 = 3
  5. CONST Mode320x240 = 4, Mode320x480 = 5
  6. CONST Mode360x240 = 6, Mode360x480 = 7
  7.  
  8.     ' ===== MODE X SETUP ROUTINES =====
  9.  
  10. DECLARE FUNCTION SET.VGA.MODEX% ALIAS "SET_VGA_MODEX" (BYVAL ModeType%, BYVAL MaxXpos%, BYVAL MaxYpos%, BYVAL Pages%)
  11. DECLARE FUNCTION Set.Modex% ALIAS "SET_MODEX" (BYVAL Mode%)
  12.  
  13.     ' ===== BASIC GRAPHICS PRIMITIVES =====
  14.  
  15. DECLARE SUB CLEAR.VGA.SCREEN ALIAS "CLEAR_VGA_SCREEN" (BYVAL ColorNum%)
  16. DECLARE SUB SET.POINT ALIAS "SET_POINT" (BYVAL Xpos%, BYVAL Ypos%, BYVAL ColorNum%)
  17. DECLARE FUNCTION READ.POINT% ALIAS "READ_POINT" (BYVAL Xpos%, BYVAL Ypos%)
  18. DECLARE SUB FILL.BLOCK ALIAS "FILL_BLOCK" (BYVAL Xpos1%, BYVAL Ypos1%, BYVAL Xpos2%, BYVAL Ypos2%, BYVAL ColorNum%)
  19. DECLARE SUB DRAW.LINE ALIAS "DRAW_LINE" (BYVAL Xpos1%, BYVAL Ypos1%, BYVAL Xpos2%, BYVAL Ypos2%, BYVAL ColorNum%)
  20.  
  21.     ' ===== DAC COLOR REGISTER ROUTINES =====
  22.  
  23. DECLARE SUB SET.DAC.REGISTER ALIAS "SET_DAC_REGISTER" (BYVAL RegNo%, BYVAL Red%, BYVAL Green%, BYVAL Blue%)
  24. DECLARE SUB GET.DAC.REGISTER ALIAS "GET_DAC_REGISTER" (BYVAL RegNo%, Red%, Green%, Blue%)
  25.  
  26.     ' ===== PAGE FLIPPING AND SCROLLING ROUTINES =====
  27.  
  28. DECLARE SUB SET.ACTIVE.PAGE ALIAS "SET_ACTIVE_PAGE" (BYVAL PageNo%)
  29. DECLARE FUNCTION GET.ACTIVE.PAGE% ALIAS "GET_ACTIVE_PAGE"
  30. DECLARE SUB SET.DISPLAY.PAGE ALIAS "SET_DISPLAY_PAGE" (BYVAL PageNo%)
  31. DECLARE FUNCTION GET.DISPLAY.PAGE% ALIAS "GET_DISPLAY_PAGE"
  32. DECLARE SUB SET.WINDOW ALIAS "SET_WINDOW" (BYVAL DisplayPage%, BYVAL XOffset%, BYVAL YOffset%)
  33. DECLARE FUNCTION GET.X.OFFSET% ALIAS "GET_X_OFFSET" ()
  34. DECLARE FUNCTION GET.Y.OFFSET% ALIAS "GET_Y_OFFSET" ()
  35. DECLARE SUB SYNC.DISPLAY ALIAS "SYNC_DISPLAY"
  36.  
  37.     ' ===== TEXT DISPLAY ROUTINES =====
  38.  
  39. DECLARE SUB GPRINTC (BYVAL CharacterNum%, BYVAL Xpos%, BYVAL Ypos%, BYVAL ColorF%, BYVAL ColorB%)
  40. DECLARE SUB TGPRINTC (BYVAL CharacterNum%, BYVAL Xpos%, BYVAL Ypos%, BYVAL ColorF%)
  41. DECLARE SUB PRINT.STR ALIAS "PRINT_STR" (BYVAL StrSeg%, BYVAL StrOfs%, BYVAL MaxLen%, BYVAL Xpos%, BYVAL Ypos%, BYVAL ColorF%, BYVAL ColorB%)
  42. DECLARE SUB TPRINT.STR ALIAS "TPRINT_STR" (BYVAL StrSeg%, BYVAL StrOfs%, BYVAL MaxLen%, BYVAL Xpos%, BYVAL Ypos%, BYVAL ColorF%)
  43. DECLARE SUB SET.DISPLAY.FONT ALIAS "SET_DISPLAY_FONT" (SEG FontData AS ANY, BYVAL FontNumber%)
  44.  
  45.     ' ===== BITMAP (SPRITE) DISPLAY ROUTINES =====
  46.  
  47. DECLARE SUB DRAW.BITMAP ALIAS "DRAW_BITMAP" (SEG Image AS ANY, BYVAL Xpos%, BYVAL Ypos%, BYVAL xWidth%, BYVAL Height%)
  48. DECLARE SUB TDRAW.BITMAP ALIAS "TDRAW_BITMAP" (SEG Image AS ANY, BYVAL Xpos%, BYVAL Ypos%, BYVAL xWidth%, BYVAL Height%)
  49.  
  50.     ' ==== VIDEO MEMORY to VIDEO MEMORY COPY ROUTINES =====
  51.  
  52. DECLARE SUB COPY.PAGE ALIAS "COPY_PAGE" (BYVAL SourcePage%, BYVAL DestPage%)
  53. DECLARE SUB COPY.BITMAP ALIAS "COPY_BITMAP" (BYVAL SourcePage%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL DestPage%, BYVAL DestX1%, BYVAL DestY1%)
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.