1 //DOS Graphics thingy by sparky4 licence GPL v2
\r
2 //a special thanks to everyone to release source code for mode X
\r
11 short bakax = 0, bakay = 0;
\r
12 syte xx = rand()&0%SW, yy = rand()&0%SH, sx = 0, sy = 0;
\r
15 byte *vga = (byte *) MK_FP(0xA000, 0);
\r
18 * Comment out the following #define if you don't want the testing main()
\r
24 /////////////////////////////////////////////////////////////////////////////
\r
26 // setvideo() - This function Manages the video modes //
\r
28 /////////////////////////////////////////////////////////////////////////////
\r
29 void setvideo(/*byte mode, */short vq){
\r
32 if(!vq){ // deinit the video
\r
33 // change to the video mode we were in before we switched to mode 13h
\r
34 //mxSetMode( MX_TEXT );
\r
38 int86(0x10, &in, &out);
\r
40 }else if(vq==1){ // init the video
\r
41 // get old video mode
\r
43 int86(0x10, &in, &out);
\r
44 old_mode = out.h.al;
\r
48 mxSetMode( MX_320x240 );
\r
49 // mxSetVirtualScreen(SW+(SW/4), SH+(SH/4));
\r
50 // mxSetVirtualScreen(SW*2, SH*2);
\r
51 mxSetVirtualScreen(VW,(VH+(TILEWH*BUFFMX)));
\r
52 // mxSetVirtualScreen((640-(TILEWH*4)),(480-(TILEWH*4)));
\r
54 mxSetClipRegion(0, 0, VW, (VH+(TILEWH*BUFFMX)));
55 //mxSetClipRegion(0, VH+1, VW, (TILEWH*BUFFMX));
\r
59 /////////////////////////////////////////////////////////////////////////////
\r
61 // cls() - This clears the screen to the specified color, on the VGA or on //
\r
62 // the Virtual screen. //
\r
64 /////////////////////////////////////////////////////////////////////////////
\r
65 void cls(byte color, byte *Where){
\r
66 _fmemset(Where, color, VW*(VH*1.5));
\r
69 //color
\82Ä
\82·
\82Æ
\r
71 if(gq < NUM_COLORS){
\r
78 //color
\82Ä
\82·
\82Æ
\r
81 //---- cls(gq, vaddr);
\r
88 //slow spectrum down
\r
89 void ssd(short svq){
\r
92 //plotpixel(xx, yy, coor, vga);
\r
93 //ppf(sx, sy, coor, vga);
\r
94 mxPutPixel(sx, sy, coor);
\r
95 //printf("%d %d %d %d\n", sx, sy, svq, coor);
\r
100 if(svq == 7) coor++;
\r
101 if(sy == SH && svq == 8) coor = rand()%NUM_COLORS;
\r
106 /*-----------ding-------------*/
\r
111 //++++ if(q <= 4 && q!=2 && gq == BONK-1) coor = rand()%HGQ;
\r
116 if(coor < HGQ && coor < LGQ) coor = LGQ;
\r
120 bakax = rand()%3; bakay = rand()%3;
\r
124 if(q==8){ colorz(); return gq; mxOutText(SW/2, SH/2, "bakapi"); }else
\r
125 if(q==10){ ssd(q); /*printf("%d\n", coor);*/ }else
\r
126 if(q==5){ colortest(); return gq; }else
\r
127 if(q==11){ colorz(); delay(100); return gq; }
\r
129 coor = rand()%NUM_COLORS;
\r
137 if(q == 9){ ssd(q); coor++; }
\r
141 if((q<5 && gq<BONK) || (q==16 && gq<BONK)){ // the number variable make the colors more noticable
\r
143 if(xx==VW){bakax=0;}
\r
144 if(xx==0){bakax=1;}
\r
145 if(yy==VH){bakay=0;}
\r
146 if(yy==0){bakay=1;}
\r
148 if(xx!=VW||yy!=VH){
\r
149 if(xx==0){bakax=1;bakay=-1;d3y=1;}
\r
150 if(yy==0){bakax=1;bakay=0;d3y=1;}
\r
151 if(xx==VW){bakax=-1;bakay=-1;d3y=1;}
\r
152 if(yy==VH){bakax=1;bakay=0;d3y=1;}
\r
153 }else if(xx==VW&&yy==VH) xx=yy=0;
\r
216 if(xx<0) xx=(VW/*-TILEWH*/);
\r
217 if(yy<0) yy=(VH/*-TILEWH*/);
\r
218 if(xx>(VW/*-TILEWH*/)) xx=0;
\r
219 if(yy>(VH+(TILEWH*BUFFMX))) yy=0;
\r
222 //interesting effects
\r
228 mxPutPixel(tx, ty, coor);
\r
229 //printf("%d %d %d %d %d %d\n", xx, yy, tx, ty, TILEWH);
\r
234 mxFillBox(xx, yy, TILEWH, TILEWH, coor, OP_SET);
236 mxPutPixel(xx, yy, coor);
240 if(q==2) mxPutPixel(rand()%VW, rand()%(VH), 0);
\r
241 if(q==16) mxPutPixel(rand()%VW, rand()%(VH), 0);
\r
242 if(q==2||q==4||q==16){ bakax = rand()%3; bakay = rand()%3; } //random 3 switch
\r
244 //if(xx<0||xx>320||yy<0||yy>(SH*3))
\r
245 // printf("%d %d %d %d %d\n", xx, yy, coor, bakax, bakay);
\r
252 * The library testing routines follows below.
\r
258 * Library test (program) entry point.
\r
263 short key,d,xpos,ypos,xdir,ydir;
\r
266 d=4; // switch variable
\r
267 key=4; // default screensaver number
\r
275 /*while(d!=0){ // on!
\r
276 if(!kbhit()){ // conditions of screen saver
\r
280 // user imput switch
\r
281 printf("Enter 1, 2, 3, 4, or 6 to run a screensaver, or enter 5 to quit.\n", getch()); // prompt the user
\r
283 //if(key==3){xx=yy=0;} // crazy screen saver wwww
\r
288 while(1){ // conditions of screen saver
\r
292 //end of screen savers
\r
294 for (int x = 0; x < VW; ++x)
\r
296 mxPutPixel(x, 0, 15);
\r
297 mxPutPixel(x, SH-1, 15);
\r
299 for (int y = 0; y < VH; ++y)
\r
301 mxPutPixel(0, y, 15);
\r
302 mxPutPixel(SW-1, y, 15);
\r
304 for (int x = 320; x < VW; ++x)
\r
306 mxPutPixel(x, 0, 15);
\r
307 mxPutPixel(x, VH-1, 15);
\r
309 for (int y = 240; y < VH; ++y)
\r
311 mxPutPixel(0, y, 15);
\r
312 mxPutPixel(VW-1, y, 15);
\r
316 //mxFillBox(xx, yy, QUADWH, QUADWH, 1, 16);
\r
317 //mxFillBox(xx, yy, QUADWH, QUADWH, 2, 16);
\r
318 //mxFillBox(xx, yy, QUADWH, QUADWH, 3, 16);
\r
319 //mxFillBox(xx, yy, QUADWH, QUADWH, 4, 16);
\r
320 mxSetTextColor(8, OP_TRANS);
\r
321 mxOutText(56, SH-40, "CRAZY!!!!]");
\r
322 mxOutText(64, SH-32, "CRAZY!!!!]");
\r
323 mxOutText(64, SH-24, "____ CRAZY!!!!]");
\r
324 mxOutText(56, SH-16, "___ _ CRAZY!!!!]");
\r
331 //for(int i=0;i<TILEWH;i++){
\r
333 //mxOutText(64, SH-40, "CRAZY!!!!");
\r
334 //mxOutText(64, SH-32, "CRAZY!!!!");
\r
335 //mxOutText(64, SH-24, " _ CRAZY!!!!");
\r
336 //mxOutText(64, SH-16, " _ _ CRAZY!!!!");
\r
338 for(short o = 0; o<TILEWH; o++){
\r
343 if( (xpos>(VW-SW-1)) || (xpos<1)){xdir=-xdir;}
\r
344 if( (ypos>((VH+(TILEWH*13))-SH-1)) || (ypos<1)){ydir=-ydir; delay(1000);} // { Hit a boundry, change
\r
348 if(ch==0x71)break; // 'q'
\r
349 if(ch==0x1b)break; // 'ESC'
\r
352 printf("wwww\nVirtual Resolution: %dx%d\n", VW,VH);
\r
353 printf("Mode X Library Version: %d\n", mxGetVersion());
\r
354 //puts("where to next? It's your move! wwww");
\r
355 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