]> 4ch.mooo.com Git - 16.git/blobdiff - 16/dos_gfx.cpp
wwww
[16.git] / 16 / dos_gfx.cpp
index 89c4291e32b692efe00256840599d79de1954aa5..268b99ae5f9393febd76d0e967ba3a385450f477 100644 (file)
-/*\r
- * LIB.C v1.2a\r
- *\r
- * by Robert Schmidt\r
- * (C)1993 Ztiff Zox Softwear\r
- *\r
- * Simple graphics library to accompany the article\r
- * \r
- *                                       INTRODUCTION TO MODE X.\r
- * \r
- * This library provides the basic functions for initializing and using\r
- * unchained (planar) 256-color VGA modes.  Currently supported are:\r
- *\r
- *       - 320x200\r
- *       - 320x240\r
- *\r
- * Functions are provided for:\r
- *\r
- *       - initializing one of the available modes\r
- *       - setting the start address of the VGA refresh data\r
- *       - setting active and visible display pages\r
- *       - writing and reading a single pixel to/from video memory\r
- *\r
- * The library is provided as a demonstration only, and is not claimed\r
- * to be particularly efficient or suited for any purpose.  It has only\r
- * been tested with Borland C++ 3.1 by the author.  Comments on success\r
- * or disaster with other compilers are welcome.\r
- *\r
- * This file is public domain.  Do with it whatever you'd like, but\r
- * please don't distribute it without the article.\r
- *\r
- * Thanks go out to various helpful netters who spotted the 0xE7 bug\r
- * in the set320x240x256() function!\r
- *\r
- * Modified by sparky4 so it can be compiled in open watcom ^^\r
- */\r
-\r
-\r
-\r
-\r
-/*\r
- * We 'require' a large data model simply to get rid of explicit 'far'\r
- * pointers and compiler specific '_fmemset()' functions and the likes.\r
- */\r
-#if !defined(__COMPACT__)\r
-# if !defined(__LARGE__)\r
-#  if !defined(__HUGE__)\r
-#   error Large data model required!  Try compiling with 'wcc -0 -ml lib.c'.\r
-#  endif\r
-# endif\r
-#endif\r
-\r
-#include <dos.h>\r
-#include <mem.h>\r
-#include <conio.h>\r
-\r
-//code from old library!\r
+//DOS Graphics thingy by sparky4 licence GPL v2\r
+//a special thanks to everyone to release source code for mode X\r
 /*src\lib\*/\r
-#include "dos_gfx.h"\r
+#include "dos_gfx.h"
+//#include "lib\modex16.h" //____\r
 \r
 int old_mode;\r
 //color \82Ä\82·\82Æ\r
-int gq = LGQ;\r
+short gq = LGQ;\r
+\r
 //\82Ä\82·\82Æ\r
-int q = 0;\r
-int bakax = 0, bakay = 0;\r
-cord xx = rand()&0%320, yy = rand()&0%240, sx = 0, sy = 0;\r
+short bakax = 0, bakay = 0;\r
+word xx = rand()&0%SW, yy = rand()&0%SH, sx = 0, sy = 0;\r
 byte coor;\r
 \r
+byte *vga = (byte *) MK_FP(0xA000, 0);\r
+\r
 /*\r
  * Comment out the following #define if you don't want the testing main()\r
  * to be included.\r
  */\r
 #define TESTING\r
-\r
-/*\r
- * Define the port addresses of some VGA registers.\r
- */\r
-#define CRTC_ADDR         0x3d4   /* Base port of the CRT Controller (color) */\r
-\r
-#define SEQU_ADDR         0x3c4   /* Base port of the Sequencer */\r
-#define GRAC_ADDR         0x3ce   /* Base port of the Graphics Controller */\r
-#define STATUS_ADDR     0x3DA\r
-\r
-unsigned char *RowsX[600];\r
-unsigned char write_plane, read_plane;\r
-unsigned short text_mask[16] = { 0x0002, 0x0102, 0x0202, 0x0302,\r
-                                 0x0402, 0x0502, 0x0602, 0x0702,\r
-                                 0x0802, 0x0902, 0x0A02, 0x0B02,\r
-                                 0x0C02, 0x0D02, 0x0E02, 0x0F02 };\r
-\r
-\r
-/*\r
- * Make a far pointer to the VGA graphics buffer segment.  Your compiler\r
- * might not have the MK_FP macro, but you'll figure something out.\r
- */\r
-byte *vga = (byte *) MK_FP(0xA000, 0);\r
-\r
-\r
-/*\r
- * width and height should specify the mode dimensions.  widthBytes\r
- * specify the width of a line in addressable bytes.\r
- */\r
-unsigned width, height, widthBytes;\r
-\r
-/*\r
- * actStart specifies the start of the page being accessed by\r
- * drawing operations.  visStart specifies the contents of the Screen\r
- * Start register, i.e. the start of the visible page.\r
- */\r
-unsigned actStart, visStart;\r
-\r
-/*\r
- * set320x200x256_X()\r
- *       sets mode 13h, then turns it into an unchained (planar), 4-page\r
- *       320x200x256 mode.\r
- */\r
-void set320x200x256_X(void)\r
-               {\r
-               union REGS r;\r
-\r
-               /* Set VGA BIOS mode 13h: */\r
-               r.x.ax = 0x0013;\r
-               int86(0x10, &r, &r);\r
-\r
-               /* Turn off the Chain-4 bit (bit 3 at index 4, port 0x3c4): */\r
-               outpw(SEQU_ADDR, 0x0604);\r
-\r
-               /* Turn off word mode, by setting the Mode Control register\r
-               of the CRT Controller (index 0x17, port 0x3d4): */\r
-               outpw(CRTC_ADDR, 0xE317);\r
-\r
-               /* Turn off doubleword mode, by setting the Underline Location\r
-                  register (index 0x14, port 0x3d4): */\r
-               outpw(CRTC_ADDR, 0x0014);\r
-\r
-               /* Clear entire video memory, by selecting all four planes, then\r
-                  writing 0 to entire segment. */\r
-               outpw(SEQU_ADDR, 0x0F02);\r
-               memset(vga+1, 0, 0xffff); /* stupid size_t exactly 1 too small */\r
-               vga[0] = 0;\r
-\r
-               /* Update the global variables to reflect dimensions of this\r
-                  mode.  This is needed by most future drawing operations. */\r
-               width              = 320;\r
-               height  = 200;\r
-\r
-               /* Each byte addresses four pixels, so the width of a scan line\r
-                  in *bytes* is one fourth of the number of pixels on a line. */\r
-               widthBytes = width / 4;\r
-\r
-               /* By default we want screen refreshing and drawing operations\r
-                  to be based at offset 0 in the video segment. */\r
-               actStart = visStart = 0;\r
-\r
-               /*\r
---------------------\r
-HORIZONTAL SCROLLING\r
---------------------\r
-Horizontal scrolling is essentially the same as vertical scrolling, all\r
-you do is increment or decrement the VGA offset register by 1 instead of\r
-80 as with vertical scrolling.\r
-\r
-However, horizontal scrolling is complicated by two things\r
-\r
-  1. Incrementing the offset register by one actually scrolls by FOUR\r
-     pixels (and there are FOUR planes on the VGA, what a coincidence)\r
-\r
-  2. You can't draw the image off the screen and then scroll it on\r
-     because of the way the VGA wraps to the next row every 80 bytes\r
-     (80 bytes * 4 planes = 320 pixels), if you tried it, you would\r
-     actually be drawing to the other side of the screen (which is\r
-     entirely visible)\r
-\r
-I'll solve these problems one at a time.\r
-\r
-Firstly, to get the VGA to scroll by only one pixel you use the horizontal\r
-pixel panning (HPP) register. This register resides at\r
-\r
-  PORT:     3C0H\r
-  INDEX:    13h\r
-\r
-and in real life, you use it like this\r
-\r
------------------ Pixel Panning ---------------\r
-IN PORT 3DAH (this clears an internal\r
-  flip-flop of the VGA)\r
-OUT 13H TO PORT 3C0H\r
-OUT value TO PORT 3C0H (where "value" is the\r
-  number of pixels to offset)\r
------------------------------------------------\r
-*/\r
-\r
-//mxSetVirtualScreen(480,360);\r
-               }\r
-\r
-/*\r
- * setActiveStart() tells our graphics operations which address in video\r
- * memory should be considered the top left corner.\r
- */\r
-void setActiveStart(unsigned offset)\r
-               {\r
-               actStart = offset;\r
-               }\r
-\r
-/*\r
- * setVisibleStart() tells the VGA from which byte to fetch the first\r
- * pixel when starting refresh at the top of the screen.  This version\r
- * won't look very well in time critical situations (games for\r
- * instance) as the register outputs are not synchronized with the\r
- * screen refresh.  This refresh might start when the high byte is\r
- * set, but before the low byte is set, which produces a bad flicker.\r
- */\r
-void setVisibleStart(unsigned offset)\r
-               {\r
-               visStart = offset;\r
-               outpw(CRTC_ADDR, 0x0C);          /* set high byte */\r
-               outpw(CRTC_ADDR+1, visStart >> 8);\r
-               outpw(CRTC_ADDR, 0x0D);          /* set low byte */\r
-               outpw(CRTC_ADDR+1, visStart & 0xff);\r
-               }\r
-\r
-/*\r
- * setXXXPage() sets the specified page by multiplying the page number\r
- * with the size of one page at the current resolution, then handing the\r
- * resulting offset value over to the corresponding setXXXStart()\r
- * function.  The first page is number 0.\r
- */\r
-void setActivePage(int page)\r
-               {\r
-               setActiveStart(page * widthBytes * height);\r
-               }\r
-\r
-void setVisiblePage(int page)\r
-               {\r
-               setVisibleStart(page * widthBytes * height);\r
-               }\r
-\r
-void putPixel_X(int x, int y, byte color)\r
-               {\r
-               /* Each address accesses four neighboring pixels, so set\r
-                  Write Plane Enable according to which pixel we want\r
-                  to modify.  The plane is determined by the two least\r
-                  significant bits of the x-coordinate: */\r
-               outp(0x3c4, 0x02);\r
-               outp(0x3c5, 0x01 << (x & 3));\r
-\r
-               /* The offset of the pixel into the video segment is\r
-                  offset = (width * y + x) / 4, and write the given\r
-                  color to the plane we selected above.  Heed the active\r
-                  page start selection. */\r
-               vga[(unsigned)(widthBytes * y) + (x / 4) + actStart] = color;\r
-\r
-               }\r
-\r
-byte getPixel_X(int x, int y)\r
-               {\r
-               /* Select the plane from which we must read the pixel color: */\r
-               outpw(GRAC_ADDR, 0x04);\r
-               outpw(GRAC_ADDR+1, x & 3);\r
-\r
-               return vga[(unsigned)(widthBytes * y) + (x / 4) + actStart];\r
-\r
-               }\r
-\r
-void set320x240x256_X(void)\r
-               {\r
-               /* Set the unchained version of mode 13h: */\r
-               set320x200x256_X();\r
-\r
-               /* Modify the vertical sync polarity bits in the Misc. Output\r
-                  Register to achieve square aspect ratio: */\r
-               outp(0x3C2, 0xE3);\r
-\r
-               /* Modify the vertical timing registers to reflect the increased\r
-                  vertical resolution, and to center the image as good as\r
-                  possible: */\r
-               outpw(0x3D4, 0x2C11);              /* turn off write protect */\r
-               outpw(0x3D4, 0x0D06);              /* vertical total */\r
-               outpw(0x3D4, 0x3E07);              /* overflow register */\r
-               outpw(0x3D4, 0xEA10);              /* vertical retrace start */\r
-               outpw(0x3D4, 0xAC11);              /* vertical retrace end AND wr.prot */\r
-               outpw(0x3D4, 0xDF12);              /* vertical display enable end */\r
-               outpw(0x3D4, 0xE715);              /* start vertical blanking */\r
-               outpw(0x3D4, 0x0616);              /* end vertical blanking */\r
-\r
-               /* Update mode info, so future operations are aware of the\r
-                  resolution */\r
-               height = 240;\r
-\r
-               }\r
-\r
-\r
-/*-----------XXXX-------------*/\r
-\r
-/////////////////////////////////////////////////////////////////////////////\r
-//                                                                         //\r
-// WaitRetrace() - This waits until you are in a Verticle Retrace.         //\r
-//                                                                         //\r
-/////////////////////////////////////////////////////////////////////////////\r
-void wait_for_retrace(void)\r
-{\r
-    while (!(inp(STATUS_ADDR) & 0x08));\r
-}\r
-\r
-/*tile*/\r
-//king_crimson's code\r
-void putColorBox_X(int x, int y, int w, int h, byte color) {\r
-       outp(0x3c4, 0x02);\r
-\r
-       int curx, cury;\r
-       unsigned drawptr;\r
-       for (curx=x; curx<(x+w); curx++) {\r
-               outp(0x3c5, 0x01 << (curx & 3));\r
-               drawptr = (unsigned)(widthBytes * y) + (curx / 4) + actStart;\r
-               for (cury=0; cury<h; cury++) {\r
-                       vga[drawptr] = color;\r
-                       drawptr += widthBytes;\r
-               }\r
-       }\r
-}\r
-\r
-void vScroll(int rows)\r
-{\r
-       // Scrolling = current start + (rows * bytes in a row)\r
-       setVisibleStart(visStart + (rows * width));\r
-}\r
-\r
-void scrolly(int bongy)\r
-{\r
-       int boingy=0;\r
-       if(bongy<0)\r
-               boingy=-1;\r
-       else if(bongy>0)\r
-               boingy=1;\r
-\r
-       for(int ti=0;ti<TILEWH;ti++)\r
-       {\r
-               delay(1);\r
-               vScroll(boingy);\r
-       }\r
-}\r
-\r
-//king_crimson's code\r
-void hScroll(int Cols) {\r
-       wait_for_retrace();\r
-       outp(0x3C0, 0x13);\r
-       outp(0x3C0, Cols & 3);\r
-       outp(0x3D4, 0x13);\r
-       outp(0x3D5, Cols >> 2);\r
-       outp(0x3D4, Cols);\r
-       //setVisibleStart(visStart + (Cols * height));\r
-       setVisibleStart(visStart + (Cols * width));\r
-}\r
+//#define TILE\r
 \r
 /////////////////////////////////////////////////////////////////////////////\r
 //                                                                         //\r
 // setvideo() - This function Manages the video modes                                    //\r
 //                                                                         //\r
 /////////////////////////////////////////////////////////////////////////////\r
-void setvideo(/*byte mode, */int vq){\r
+void setvideo(/*byte mode, */short vq){\r
                union REGS in, out;\r
 \r
                if(!vq){ // deinit the video\r
                                // change to the video mode we were in before we switched to mode 13h\r
-                               mxSetMode( MX_TEXT );\r
-                               //in.h.ah = 0x00;\r
-                               //in.h.al = old_mode;\r
-                               //int86(0x10, &in, &out);
+                               //mxSetMode( MX_TEXT );\r
                                mxTerm();\r
+                               in.h.ah = 0x00;\r
+                               in.h.al = old_mode;\r
+                               int86(0x10, &in, &out);\r
 \r
-               }else if(vq == 1){ // init the video\r
+               }else if(vq==1){ // init the video\r
                                // get old video mode\r
-                               //in.h.ah = 0xf;\r
-                               //int86(0x10, &in, &out);\r
-                               //old_mode = out.h.al;\r
+                               in.h.ah = 0xf;\r
+                               int86(0x10, &in, &out);\r
+                               old_mode = out.h.al;\r
 \r
                                // enter mode\r
                                mxInit();\r
                                mxSetMode( MX_320x240 );\r
-                               mxSetVirtualScreen( 480, 360 );\r
-                               //set320x240x256_X();\r
-                               //mxSetMode(MX_320x240);\r
-                               //mxSetVirtualScreen(560,420);\r
-                               //mxSetVirtualScreen((640-TILEWH),(480-TILEWH));\r
-                               //mxSetClip( TRUE );\r
+//                             mxSetVirtualScreen(SW+(SW/4), SH+(SH/4));\r
+//                             mxSetVirtualScreen(SW*2, SH*2);\r
+                               mxSetVirtualScreen(VW,BH);\r
+//                             mxSetVirtualScreen((640-(TILEWH*4)),(480-(TILEWH*4)));\r
+                               mxSetClip(true);\r
+                               mxSetClipRegion(0, 0, VW, BH);\r
+                               mxPan(TILEWH*2,TILEWH*2);\r
+                               //mxSetClipRegion(0, VH+1, VW, (TILEWH*BUFFMX));\r
                }\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
@@ -394,11 +77,11 @@ void setvideo(/*byte mode, */int vq){
 //                                                                                                                                              //\r
 /////////////////////////////////////////////////////////////////////////////\r
 void cls(byte color, byte *Where){\r
-               _fmemset(Where, color, width*(height*17));\r
+               _fmemset(Where, color, VW*(VH*2));\r
 }\r
 \r
 //color \82Ä\82·\82Æ\r
-int colortest(){\r
+short colortest(){\r
                if(gq < NUM_COLORS){\r
                                cls(gq, vga);\r
                                gq++;\r
@@ -407,8 +90,8 @@ int colortest(){
 }\r
 \r
 //color \82Ä\82·\82Æ\r
-int colorz(){\r
-               if(gq < HGQ){\r
+short colorz(){\r
+               if(gq <= HGQ){\r
 //----           cls(gq, vaddr);\r
                                cls(gq, vga);\r
                                gq++;\r
@@ -417,39 +100,27 @@ int colorz(){
 }\r
 \r
 //slow spectrum down\r
-void ssd(int svq){\r
-               if(sy < height+1){\r
-                               if(sx < width+1){\r
+void ssd(short svq){\r
+               if(sy < SH+1){\r
+                               if(sx < SW+1){\r
                                                //plotpixel(xx, yy, coor, vga);\r
                                                //ppf(sx, sy, coor, vga);\r
-                                               putPixel_X(sx, sy, coor);\r
+                                               mxPutPixel(sx, sy, coor);\r
                                                //printf("%d %d %d %d\n", sx, sy, svq, coor);\r
                                                sx++;\r
                                }else sx = 0;\r
-                               if(sx == width){\r
+                               if(sx == SW){\r
                                                sy++;\r
                                                if(svq == 7) coor++;\r
-                                               if(sy == height && svq == 8) coor = rand()%NUM_COLORS;\r
+                                               if(sy == SH && svq == 8) coor = rand()%NUM_COLORS;\r
                                }\r
                }else sy = 0;\r
 }\r
 \r
 /*-----------ding-------------*/\r
-int ding(int q){\r
+short ding(int q){\r
 \r
-/*     if(yy<height){\r
-               setActivePage(0);\r
-               setVisiblePage(0);\r
-       }\r
-       if((height)<yy<(height*2)){\r
-               setActivePage(1);\r
-               setVisiblePage(1);\r
-       }\r
-       if((height*2)<yy<(height*3)){\r
-               setActivePage(2);\r
-               setVisiblePage(2);\r
-       }*/\r
-               int d3y;\r
+               short d3y;\r
 \r
 //++++  if(q <= 4 && q!=2 && gq == BONK-1) coor = rand()%HGQ;\r
                if((q == 2\r
@@ -457,26 +128,25 @@ int ding(int q){
                ||q==16\r
                ) && gq == BONK){\r
                                                if(coor < HGQ && coor < LGQ) coor = LGQ;\r
-                                               if(coor < HGQ-1){\r
+                                               if(coor < HGQ){\r
                                                                coor++;\r
                                }else{ coor = LGQ;\r
                                                bakax = rand()%3; bakay = rand()%3;\r
                                }\r
                }\r
 \r
-               if(q==8){ colorz(); return gq; }else\r
+               if(q==8){ colorz(); return gq; mxOutText(SW/2, SH/2, "bakapi"); }else\r
                if(q==10){ ssd(q); /*printf("%d\n", coor);*/ }else\r
                if(q==5){ colortest(); return gq; }else\r
                if(q==11){ colorz(); delay(100); return gq; }\r
                if(q==6){\r
                                coor = rand()%NUM_COLORS;\r
-//----           cls(coor, vaddr);\r
                                cls(coor, vga);\r
                                //updatevbuff();\r
                }\r
 \r
                if(q==7||q==9){\r
-                               if(gq < HGQ){\r
+                               if(gq <= HGQ){\r
                                                if(q == 7) ssd(q);\r
                                                if(q == 9){ ssd(q); coor++; }\r
                                                gq++;\r
@@ -484,17 +154,17 @@ int ding(int q){
                }\r
                if((q<5 && gq<BONK) || (q==16 && gq<BONK)){ // the number variable make the colors more noticable\r
                                if(q==1){\r
-                                               if(xx==width){bakax=0;}\r
+                                               if(xx==VW){bakax=0;}\r
                                                if(xx==0){bakax=1;}\r
-                                               if(yy==height){bakay=0;}\r
+                                               if(yy==VH){bakay=0;}\r
                                                if(yy==0){bakay=1;}\r
                                }else if(q==3){\r
-                                               if(xx!=width||yy!=height){\r
+                                               if(xx!=VW||yy!=VH){\r
                                                                if(xx==0){bakax=1;bakay=-1;d3y=1;}\r
                                                                if(yy==0){bakax=1;bakay=0;d3y=1;}\r
-                                                               if(xx==width){bakax=-1;bakay=-1;d3y=1;}\r
-                                                               if(yy==height){bakax=1;bakay=0;d3y=1;}\r
-                                               }else if(xx==width&&yy==height) xx=yy=0;\r
+                                                               if(xx==VW){bakax=-1;bakay=-1;d3y=1;}\r
+                                                               if(yy==VH){bakax=1;bakay=0;d3y=1;}\r
+                                               }else if(xx==VW&&yy==VH) xx=yy=0;\r
                                }\r
                                if(q==3){\r
                                                if(d3y){\r
@@ -528,61 +198,77 @@ int ding(int q){
                                                                }\r
                                                }else{\r
                                                                if(!bakax){\r
-//                                                                     xx-=TILEWH;\r
+                                                                       #ifdef TILE\r
+                                                                       xx-=TILEWH;\r
+                                                                       #else\r
                                                                        xx--;\r
+                                                                       #endif\r
                                                                }else if(bakax>1){\r
-//                                                                     xx+=TILEWH;\r
+                                                                       #ifdef TILE\r
+                                                                       xx+=TILEWH;\r
+                                                                       #else\r
                                                                        xx++;\r
+                                                                       #endif\r
                                                                }\r
                                                                if(!bakay){\r
-//                                                                     yy-=TILEWH;\r
+                                                                       #ifdef TILE\r
+                                                                       yy-=TILEWH;\r
+                                                                       #else\r
                                                                        yy--;\r
+                                                                       #endif\r
                                                                }else if(bakay>1){\r
-//                                                                     yy+=TILEWH;\r
+                                                                       #ifdef TILE\r
+                                                                       yy+=TILEWH;\r
+                                                                       #else\r
                                                                        yy++;\r
+                                                                       #endif\r
                                                                }\r
                                                }\r
                                }\r
                                // fixer\r
-//                             if(q!=16){\r
-//if(q!=16)\r
-//                                             if(xx<0) xx=(width-TILEWH);\r
-//                                             if(yy<0) yy=(height-TILEWH);\r
-//                                             if(xx>(width-TILEWH)) xx=0;\r
-//                                             if(yy>(height-TILEWH)) yy=0;\r
-//                             }\r
+                               if(q!=16){\r
+                                       #ifdef TILE\r
+                                               if(xx<0) xx=(VW-TILEWH);\r
+                                               if(yy<0) yy=(VH-TILEWH);\r
+                                               if(xx>(VW-TILEWH)) xx=0;\r
+                                               if(yy>(VH-TILEWH)/*+(TILEWH*BUFFMX)*/) yy=0;\r
+                                       #else\r
+                                               if(xx<0) xx=VW;\r
+                                               if(yy<0) yy=VH;\r
+                                               if(xx>VW) xx=0;\r
+                                               if(yy>VH) yy=0;\r
+                                       #endif\r
+                               }\r
 \r
 //interesting effects\r
                                if(q==16)\r
                                {\r
-                               int tx=0,ty=0;\r
+                               short tx=0,ty=0;\r
                                tx+=xx+16;\r
                                ty+=yy+16;\r
-                               putPixel_X(tx, ty, coor);\r
-                               //drawrect(tx, ty, tx+TILEWH, ty+TILEWH, coor);\r
+                               mxPutPixel(tx, ty, coor);\r
                                //printf("%d %d %d %d %d %d\n", xx, yy, tx, ty, TILEWH);\r
 \r
                                // plot the pixel\r
-//----           ppf(xx, yy, coor, vga);\r
-                               }else /*if(xx>=0 && xx<width && yy>=0 && yy<(height*3))*/{\r
-//                                     putColorBox_X(xx, yy, TILEWH, TILEWH, coor);\r
-//++++0000\r
-//                                     putPixel_X(xx, yy, coor);
+                               }else{\r
+                                       #ifdef TILE\r
+                                       mxFillBox(xx, yy, TILEWH, TILEWH, coor, OP_SET);\r
+                                       #else\r
                                        mxPutPixel(xx, yy, coor);\r
+                                       #endif\r
                                } \r
 \r
-//----           if(q==2) ppf(rand()%, rand()%height, 0, vga);\r
-//                             if(q==2) putColorBox_X(rand()%width, rand()%(height*3), TILEWH, TILEWH, 0);\r
-//++++0000\r
-                               if(q==2) putPixel_X(rand()%width, rand()%(height*3), 0);\r
-                               if(q==16) putPixel_X(rand()%width, rand()%(height*3), 0);\r
-                               if(q==2||q==4||q==16){ bakax = rand()%3; bakay = rand()%3; }\r
+                               if(q==2)\r
+                               #ifdef TILE\r
+                                       mxFillBox((rand()*TILEWH)%VW, (rand()*TILEWH)%(VH), TILEWH, TILEWH, 0, OP_SET);\r
+                               #else\r
+                                       mxPutPixel(rand()%VW, rand()%(VH), 0);\r
+                               #endif\r
+                               if(q==16) mxPutPixel(rand()%VW, rand()%(VH), 0);\r
+                               if(q==2||q==4||q==16){ bakax = rand()%3; bakay = rand()%3; }  //random 3 switch\r
                                gq++;\r
-//if(xx<0||xx>320||yy<0||yy>(height*3))\r
-//       printf("%d %d %d %d %d %d\n", xx, yy, coor, bakax, bakay, getPixel_X(xx,yy));\r
-//       printf("%d\n", getPixel_X(xx,yy));\r
-//0000\r
-//       drawText(0, 0, 15, getPixel_X(xx,yy));\r
+//if(xx<0||xx>320||yy<0||yy>(SH*3))\r
+//       printf("%d %d %d %d %d\n", xx, yy, coor, bakax, bakay);\r
                }else gq = LGQ;\r
                return gq;\r
 }\r
@@ -592,94 +278,29 @@ int ding(int q){
  * The library testing routines follows below.\r
  */\r
 \r
-\r
 #ifdef TESTING\r
 \r
-#include <stdio.h>\r
-#include <conio.h>\r
-\r
-void doTest(void)\r
-               {\r
-               int p, x, y, pages;\r
-\r
-               /* This is the way to calculate the number of pages available. */\r
-               pages = 65536L/(widthBytes*height); // apparently this takes the A000 address\r
-//             if(height==240) pages++;\r
-\r
-//             printf("%d\n", pages);\r
-\r
-               for (p = 0; p <= pages; ++p)\r
-                               {\r
-                               setActivePage(p);\r
-\r
-                               /* On each page draw a single colored border, and dump the palette\r
-                                  onto a small square about the middle of the page. */\r
-\r
-                                  //{\r
-                                               for (x = 0; x <= width; ++x)\r
-                                                               {\r
-                                                               putPixel_X(x, 0, p+1);\r
-                                                               if(p!=pages) putPixel_X(x, height-1, p+1);\r
-                                                                               else if(height==240) putPixel_X(x, 99-1, p+1);\r
-                                                               }\r
-\r
-                                               for (y = 0; y <= height; ++y)\r
-                                                               {\r
-                                                               putPixel_X(0, y, p+1);\r
-                                                               if(p!=pages) putPixel_X(width-1, y, p+1);\r
-                                                                               else if(height==240) putPixel_X(width-1, y, p+1);\r
-                                                               }\r
-\r
-                                               for (x = 0; x < TILEWH; ++x)\r
-                                                               for (y = 0; y < TILEWH; ++y)\r
-                                                                               putPixel_X(x+(p+2)*16, y+(p+2)*TILEWH, x + y*TILEWH);\r
-                                               //}\r
-\r
-                               }\r
-\r
-               /* Each pages will now contain a different image.  Let the user cycle\r
-                  through all the pages by pressing a key. */\r
-               for (p = 0; p < pages; ++p)\r
-                               {\r
-                               setVisiblePage(p);\r
-                               getch();\r
-                               }\r
-\r
-               }\r
-\r
 /*\r
  * Library test (program) entry point.\r
  */\r
 \r
 int main(void)\r
-               {\r
-               int key,d,x,y;\r
-               //short int temp;\r
+               {
+               //bitmap_t bmp; //____
+               //bmp = modexLoadPcx("chikyuu.pcx"); //____\r
+               short key,d,xpos,ypos,xdir,ydir;\r
+               int ch=0x0;\r
                // main variables\r
-               d=1; // switch variable\r
-               key=4; // default screensaver number\r
-               x=0;\r
-               y=0;\r
-//       puts("First, have a look at the 320x200 mode.  I will draw some rubbish");\r
-//       puts("on all of the four pages, then let you cycle through them by");\r
-//       puts("hitting a key on each page.");\r
-//       puts("Press a key when ready...");\r
-//       getch();\r
-\r
-//       doTest();\r
-\r
-//       puts("Then, check out Mode X, 320x240 with 3 (and a half) pages.");\r
-//       puts("Press a key when ready...");\r
-//       getch();\r
-\r
-//++++0000\r
-               setvideo(1);\r
-               /*temp = loadfontX("vga8x8.fnt");\r
-\r
-               if (temp) {\r
-                       putstringX(0, 0, "bakapi!", 2);\r
-               }\r
-               getch();*/\r
+               d=4; // switch variable\r
+               key=2; // default screensaver number\r
+               xpos=TILEWH*2;\r
+               ypos=TILEWH*2;\r
+               xdir=1;\r
+               ydir=1;\r
+               setvideo(1);
+               //modexPalUpdate(bmp.palette); //____
+               //modexDrawBmp(VGA, 0, 0, &bmp, 0); //____
+               //getch(); //____\r
 // screen savers\r
 \r
 /*while(d!=0){ // on!\r
@@ -695,30 +316,85 @@ int main(void)
                                                setvideo(1);\r
                                }\r
                }*/ // else off\r
-               while(!kbhit()){ // conditions of screen saver\r
-                       ding(4);\r
+               //mxFillBox(0, 0, VW, BH, 10, OP_SET);\r
+               while(1){ // conditions of screen saver\r
+               while(!kbhit()){\r
+                       ding(key);\r
                }\r
                //end of screen savers\r
                //doTest();\r
-               getch();\r
-\r
-               while(!kbhit()){ // conditions of screen saver\r
-//                     hScroll(1);\r
-//                     scrolly(1);\r
-//                     vScroll(1);\r
-//                     delay(100);
-                       for(int i=0;i<TILEWH;i++){\r
-                               mxPan(x,y);\r
-                               mxWaitRetrace();\r
-                               x++;
-                               y++;\r
-                       }
-               //delay(100);\r
+/*             for (int x = 0; x < VW; ++x)\r
+                       {\r
+                               mxPutPixel(x, 0, 15);\r
+                               mxPutPixel(x, SH-1, 15);\r
+                       }\r
+               for (int y = 0; y < VH; ++y)\r
+                       {\r
+                               mxPutPixel(0, y, 15);\r
+                               mxPutPixel(SW-1, y, 15);\r
+                       }\r
+               for (int x = 0; x < VW; ++x)\r
+                       {\r
+                               mxPutPixel(x, 0, 15);\r
+                               mxPutPixel(x, VH-1, 15);\r
+                       }\r
+               for (int y = 240; y < VH; ++y)\r
+                       {\r
+                               mxPutPixel(0, y, 15);\r
+                               mxPutPixel(VW-1, y, 15);\r
+                       }\r
+                       */\r
+                       pdump();\r
+                       getch();\r
+                       //text box\r
+                       mxSetTextColor(10, OP_TRANS); //set font\r
+                       mxBitBlt(xpos, ypos+(TILEWH*12), SW, TILEWH*BUFFMX, 0, BS); //copy background\r
+                       mxFillBox(xpos, ypos+(TILEWH*12), SW, TILEWH*BUFFMX, 0, OP_SET); // background for text box\r
+                       //+(QUADWH*6)\r
+                       mxOutText(xpos+1, ypos+SH-48, "========================================");\r
+                       mxOutText(xpos+1, ypos+SH-40, "|    |Chikyuu:$line1");\r
+                       mxOutText(xpos+1, ypos+SH-32, "|    |$line2");\r
+                       mxOutText(xpos+1, ypos+SH-24, "|    |$line3");\r
+                       mxOutText(xpos+1, ypos+SH-16, "|    |$line4");\r
+                       mxOutText(xpos+1, ypos+SH-8,  "========================================");\r
+                       mxFillBox(xpos+QUADWH, ypos+QUADWH+(TILEWH*12), TILEWH*2, TILEWH*2, 9, OP_SET); //portriat~\r
+                       getch();\r
+                       mxBitBlt(0, BS, SW, TILEWH*BUFFMX, xpos, ypos+(TILEWH*12)); //copy background\r
+                       getch();\r
+               while(!kbhit()){\r
+                       //for(int i=0;i<TILEWH;i++){\r
+                               \r
+                               ding(key);\r
+                               mxPan(xpos,ypos);\r
+mxFillBox(384, 304, 384, 304, 10, OP_SET);\r
+//mxBitBlt(xpos, ypos, SW, SH, 32, (SH+64+32));\r
+mxBitBlt(TILEWH*2, TILEWH*2, SW, SH, 32, (SH+64+32));\r
+                               //for(short o = 0; o<TILEWH; o++){\r
+                                       xpos+=xdir;\r
+                                       ypos+=ydir;\r
+                                       //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);\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);\r
+//mxBitBlt(TILEWH*2, (SH+64+32), SW, SH, TILEWH*2, TILEWH*2);\r
+                       }\r
+                       ch=getch();\r
+                       if(ch==0x71)break; // 'q'\r
+                       if(ch==0x1b)break; // 'ESC'\r
                }\r
                setvideo(0);\r
-               printf("wwww\n%dx%d\n", width,height);\r
-               printf("[%d]\n", mxGetVersion());\r
-               puts("where to next?  It's your move! wwww");\r
+               printf("wwww\nFull Buffer Virtual Resolution: %dx%d\n", VW,BH);\r
+               printf("Virtual Resolution: %dx%d\n", VW,VH);\r
+               printf("Resolution: %dx%d\n", SW,SH);\r
+               printf("Mode X Library Version: %d\n", mxGetVersion());\r
                printf("bakapi ver. 1.04.09.04\nis made by sparky4\81i\81\86\83Ö\81\85\81j feel free to use it ^^\nLicence: GPL v2\n");\r
                return 0;\r
                }\r