22 lines
612 B
QBasic
22 lines
612 B
QBasic
|
10 REM VIEW / WINDOW / PALETTE test
|
||
|
|
20 SCREEN 2
|
||
|
|
30 REM Test WINDOW coordinate mapping
|
||
|
|
40 WINDOW (0,0)-(100,100)
|
||
|
|
50 REM PMAP: logical to physical
|
||
|
|
60 PRINT "PMAP(0,0)="; PMAP(0,0)
|
||
|
|
70 PRINT "PMAP(0,1)="; PMAP(0,1)
|
||
|
|
80 PRINT "PMAP(100,0)="; PMAP(100,0)
|
||
|
|
90 PRINT "PMAP(100,1)="; PMAP(100,1)
|
||
|
|
100 REM PMAP: physical to logical
|
||
|
|
110 PRINT "PMAP(0,2)="; PMAP(0,2)
|
||
|
|
120 PRINT "PMAP(199,3)="; PMAP(199,3)
|
||
|
|
130 WINDOW
|
||
|
|
140 REM Test VIEW
|
||
|
|
150 VIEW (10,10)-(100,50)
|
||
|
|
160 REM After VIEW, drawing clips to viewport
|
||
|
|
170 VIEW
|
||
|
|
180 REM Test PALETTE (just reset, no visual check)
|
||
|
|
190 PALETTE
|
||
|
|
200 SCREEN 0
|
||
|
|
210 PRINT "VIEW/WINDOW/PALETTE OK"
|