28 lines
882 B
QBasic
28 lines
882 B
QBasic
10 REM Test GET/PUT graphics sprites
|
|
20 SCREEN 1
|
|
30 DIM SP%(50)
|
|
40 REM Draw a small box
|
|
50 LINE (10,10)-(20,20), 1, BF
|
|
60 REM Capture it
|
|
70 GET (10,10)-(20,20), SP%
|
|
80 REM Check header (width in bits, height)
|
|
90 PRINT "WIDTH BITS="; SP%(0)
|
|
100 PRINT "HEIGHT="; SP%(1)
|
|
110 REM Clear screen and PUT it elsewhere with XOR
|
|
120 CLS
|
|
130 PUT (50,50), SP%, XOR
|
|
140 REM Check a pixel was placed
|
|
150 IF POINT(55,55) > 0 THEN PRINT "XOR PUT OK" ELSE PRINT "XOR PUT FAIL"
|
|
160 REM PUT again with XOR to erase
|
|
170 PUT (50,50), SP%, XOR
|
|
180 IF POINT(55,55) = 0 THEN PRINT "XOR ERASE OK" ELSE PRINT "XOR ERASE FAIL"
|
|
190 REM Test PSET mode
|
|
200 PUT (50,50), SP%, PSET
|
|
210 IF POINT(55,55) > 0 THEN PRINT "PSET PUT OK" ELSE PRINT "PSET PUT FAIL"
|
|
220 REM Test OR mode
|
|
230 CLS
|
|
240 PUT (50,50), SP%, OR
|
|
250 IF POINT(55,55) > 0 THEN PRINT "OR PUT OK" ELSE PRINT "OR PUT FAIL"
|
|
260 SCREEN 0
|
|
270 PRINT "DONE"
|