DECLARE SUB DQBbox (BYVAL Layer, BYVAL x1, BYVAL y1, BYVAL x2, BYVAL y2,
BYVAL Col)Layer - Layer where to draw the box
x1 - Upper left corner x coordinate
y1 - Upper left corner y coordinate
x2 - Lower right corner x coordinate
y2 - Lower right corner y coordinate
Col - Drawing color
none
Draws an empty box on the given layer, with (x1,y1) and (x2,y2) as the upper left and lower right corners, with Col color.
This function is not affected by the clipping box, and no range checks are done, so pay attention. In addition, remember that it must be x1<x2 and y1<y2.
*****************************************************************************
' All integers for speed
DEFINT A-Z
'$INCLUDE:'DIRECTQB.BI'
' Let's initialize the library with no extra layers nor sounds nor EMS
IF DQBinit(0, 0, 0) THEN DQBclose: PRINT DQBerror$: END
DQBinitVGA
' Draws a box on the screen
DQBbox VIDEO, 0, 0, 319, 199, 15
' Waits for the user to press a key
WHILE INKEY$ = "": WEND
' Ends the program
DQBclose
*****************************************************************************