modified: 16/modex16/PCXTEST.C

[16.git] / 16 / dos_gfx.cpp

diff --git a/16/dos_gfx.cpp b/16/dos_gfx.cpp
index 5928b6f571316f6535d6dfb9385aa0279c345bab..f26fd4f7de71450862b08013513d66713b964c11 100644 (file)
--- a/16/dos_gfx.cpp
+++ b/16/dos_gfx.cpp
@@ -57,6 +57,18 @@ void setvideo(/*byte mode, */short vq){
                }\r
 }\r
 \r
+void pdump(){\r
+       int mult=(QUADWH)/2;\r
+       int palq=(mult)*16;\r
+       int palcol=0;\r
+       for(int paly=0; paly<palq; paly+=mult){\r
+               for(int palx=0; palx<palq; palx+=mult){\r
+                               mxFillBox((SW-palq)+palx+32, paly+32, TILEWH, TILEWH, palcol, OP_SET);\r
+                       palcol++;\r
+               }\r
+       }\r
+}\r
+\r
 /////////////////////////////////////////////////////////////////////////////\r
 //                                                                                                                                              //\r
 // cls() - This clears the screen to the specified color, on the VGA or on //\r
@@ -326,6 +338,7 @@ int main(void)
                                mxPutPixel(VW-1, y, 15);\r
                        }\r
                        */\r
+                       pdump();\r
                        getch();\r
                        //text box\r
                        mxSetTextColor(10, OP_TRANS); //set font\r
@@ -356,16 +369,16 @@ mxBitBlt(TILEWH*2, TILEWH*2, SW, SH, 32, (SH+64+32));
                                        //if(ypos==1 || (ypos==(BH-SH-1)))delay(500);\r
                                        //if((xpos>(VW-SW-1)) || (xpos<1))delay(500);\r
                                        //mxWaitRetrace();\r
-//mxBitBlt(32, (SH+32), SW, SH, xpos, ypos);
-//mxBitBlt(32, (SH+64+32), SW, SH, 32, 32);\r
+//mxBitBlt(32, (SH+32), SW, SH, xpos, ypos);\r
+mxBitBlt(TILEWH*2, (SH+64+32), SW, SH, TILEWH*2, TILEWH*2);\r
 //xpos=ypos=TILEWH*2;\r
 mxPan(32,32);\r
                                //}\r
                                if( (xpos>(VW-SW-1))  || (xpos<1)){xdir=-xdir;}\r
                                if( (ypos>(BH-SH-1)) || (ypos<1)){ydir=-ydir;} // { Hit a boundry, change\r
                        //    direction! }\r
-//mxBitBlt(32, (SH+64+32), SW, SH, xpos, ypos);
-mxBitBlt(TILEWH*2, (SH+64+32), SW, SH, TILEWH*2, TILEWH*2);\r
+//mxBitBlt(32, (SH+64+32), SW, SH, xpos, ypos);\r
+//mxBitBlt(TILEWH*2, (SH+64+32), SW, SH, TILEWH*2, TILEWH*2);\r
                        }\r
                        ch=getch();\r
                        if(ch==0x71)break; // 'q'\r