]> 4ch.mooo.com Git - 16.git/blob - 16/dos_gfx.cpp
abe38f8ea754bfc4a569d6f5de3ac39f0d934626
[16.git] / 16 / dos_gfx.cpp
1 //DOS Graphics thingy by sparky4 licence GPL v2\r
2 //a special thanks to everyone to release source code for mode X\r
3 /*src\lib\*/\r
4 #include "dos_gfx.h"\r
5 \r
6 int old_mode;\r
7 //color \82Ä\82·\82Æ\r
8 short gq = LGQ;\r
9 \r
10 //\82Ä\82·\82Æ\r
11 short bakax = 0, bakay = 0;\r
12 syte xx = rand()&0%SW, yy = rand()&0%SH, sx = 0, sy = 0;\r
13 byte coor;\r
14 \r
15 byte *vga = (byte *) MK_FP(0xA000, 0);\r
16 \r
17 /*\r
18  * Comment out the following #define if you don't want the testing main()\r
19  * to be included.\r
20  */\r
21 #define TESTING\r
22 #define TILE\r
23 \r
24 /////////////////////////////////////////////////////////////////////////////\r
25 //                                                                         //\r
26 // setvideo() - This function Manages the video modes                                     //\r
27 //                                                                         //\r
28 /////////////////////////////////////////////////////////////////////////////\r
29 void setvideo(/*byte mode, */short vq){\r
30                 union REGS in, out;\r
31 \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
35                                 mxTerm();\r
36                                 in.h.ah = 0x00;\r
37                                 in.h.al = old_mode;\r
38                                 int86(0x10, &in, &out);\r
39 \r
40                 }else if(vq==1){ // init the video\r
41                                 // get old video mode\r
42                                 in.h.ah = 0xf;\r
43                                 int86(0x10, &in, &out);\r
44                                 old_mode = out.h.al;\r
45 \r
46                                 // enter mode\r
47                                 mxInit();\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,BH);\r
52 //                              mxSetVirtualScreen((640-(TILEWH*4)),(480-(TILEWH*4)));\r
53                                 mxSetClip(true);\r
54                                 mxSetClipRegion(0, 0, VW, BH);\r
55                                 mxPan(TILEWH*2,TILEWH*2);\r
56                                 //mxSetClipRegion(0, VH+1, VW, (TILEWH*BUFFMX));\r
57                 }\r
58 }\r
59
60 void pdump(){
61         int mult=QUADWH;
62         int palq=mult*16;
63         int palcol=0;
64         for(int paly=0; paly<palq; paly++){
65                 for(int palx=0; palx<palq; palx++){
66                                 mxFillBox((SW-palq)+palx+32, paly+32, TILEWH, TILEWH, palcol, OP_SET);
67                         for(int i=1; i<mult; i++) palx++;
68                         palcol++;
69                 }
70         for(int i=1; i<mult; i++) paly++;
71         }
72 }
73 \r
74 /////////////////////////////////////////////////////////////////////////////\r
75 //                                                                                                                                               //\r
76 // cls() - This clears the screen to the specified color, on the VGA or on //\r
77 //               the Virtual screen.                                                                                     //\r
78 //                                                                                                                                               //\r
79 /////////////////////////////////////////////////////////////////////////////\r
80 void cls(byte color, byte *Where){\r
81                 _fmemset(Where, color, VW*(VH*2));\r
82 }\r
83 \r
84 //color \82Ä\82·\82Æ\r
85 short colortest(){\r
86                 if(gq < NUM_COLORS){\r
87                                 cls(gq, vga);\r
88                                 gq++;\r
89                 }else gq = 0;\r
90                 return gq;\r
91 }\r
92 \r
93 //color \82Ä\82·\82Æ\r
94 short colorz(){\r
95                 if(gq < HGQ){\r
96 //----            cls(gq, vaddr);\r
97                                 cls(gq, vga);\r
98                                 gq++;\r
99                 }else gq = LGQ;\r
100                 return gq;\r
101 }\r
102 \r
103 //slow spectrum down\r
104 void ssd(short svq){\r
105                 if(sy < SH+1){\r
106                                 if(sx < SW+1){\r
107                                                 //plotpixel(xx, yy, coor, vga);\r
108                                                 //ppf(sx, sy, coor, vga);\r
109                                                 mxPutPixel(sx, sy, coor);\r
110                                                 //printf("%d %d %d %d\n", sx, sy, svq, coor);\r
111                                                 sx++;\r
112                                 }else sx = 0;\r
113                                 if(sx == SW){\r
114                                                 sy++;\r
115                                                 if(svq == 7) coor++;\r
116                                                 if(sy == SH && svq == 8) coor = rand()%NUM_COLORS;\r
117                                 }\r
118                 }else sy = 0;\r
119 }\r
120 \r
121 /*-----------ding-------------*/\r
122 short ding(int q){\r
123 \r
124                 short d3y;\r
125 \r
126 //++++  if(q <= 4 && q!=2 && gq == BONK-1) coor = rand()%HGQ;\r
127                 if((q == 2\r
128                 ||q==4\r
129                 ||q==16\r
130                 ) && gq == BONK){\r
131                                                 if(coor < HGQ && coor < LGQ) coor = LGQ;\r
132                                                 if(coor < HGQ-1){\r
133                                                                 coor++;\r
134                                 }else{ coor = LGQ;\r
135                                                 bakax = rand()%3; bakay = rand()%3;\r
136                                 }\r
137                 }\r
138 \r
139                 if(q==8){ colorz(); return gq; mxOutText(SW/2, SH/2, "bakapi"); }else\r
140                 if(q==10){ ssd(q); /*printf("%d\n", coor);*/ }else\r
141                 if(q==5){ colortest(); return gq; }else\r
142                 if(q==11){ colorz(); delay(100); return gq; }\r
143                 if(q==6){\r
144                                 coor = rand()%NUM_COLORS;\r
145                                 cls(coor, vga);\r
146                                 //updatevbuff();\r
147                 }\r
148 \r
149                 if(q==7||q==9){\r
150                                 if(gq < HGQ){\r
151                                                 if(q == 7) ssd(q);\r
152                                                 if(q == 9){ ssd(q); coor++; }\r
153                                                 gq++;\r
154                                 }else gq = LGQ;\r
155                 }\r
156                 if((q<5 && gq<BONK) || (q==16 && gq<BONK)){ // the number variable make the colors more noticable\r
157                                 if(q==1){\r
158                                                 if(xx==VW){bakax=0;}\r
159                                                 if(xx==0){bakax=1;}\r
160                                                 if(yy==VH){bakay=0;}\r
161                                                 if(yy==0){bakay=1;}\r
162                                 }else if(q==3){\r
163                                                 if(xx!=VW||yy!=VH){\r
164                                                                 if(xx==0){bakax=1;bakay=-1;d3y=1;}\r
165                                                                 if(yy==0){bakax=1;bakay=0;d3y=1;}\r
166                                                                 if(xx==VW){bakax=-1;bakay=-1;d3y=1;}\r
167                                                                 if(yy==VH){bakax=1;bakay=0;d3y=1;}\r
168                                                 }else if(xx==VW&&yy==VH) xx=yy=0;\r
169                                 }\r
170                                 if(q==3){\r
171                                                 if(d3y){\r
172                                                                 if(bakay<0){\r
173                                                                                 yy--;\r
174                                                                                 d3y--;\r
175                                                                 }else\r
176                                                                 if(bakay>0){\r
177                                                                                 yy++;\r
178                                                                                 d3y--;\r
179                                                                 }\r
180                                                 }\r
181                                                 if(bakax<0){\r
182                                                                 xx--;\r
183                                                 }else\r
184                                                 if(bakax>0){\r
185                                                                 xx++;\r
186                                                 }\r
187                                 }else{\r
188                                                 if(q==16)\r
189                                                 {\r
190                                                                 if(!bakax){\r
191                                                                         xx--;\r
192                                                                 }else if(bakax>0){\r
193                                                                         xx++;\r
194                                                                 }\r
195                                                                 if(!bakay){\r
196                                                                         yy--;\r
197                                                                 }else if(bakay>0){\r
198                                                                         yy++;\r
199                                                                 }\r
200                                                 }else{\r
201                                                                 if(!bakax){\r
202                                                                         #ifdef TILE\r
203                                                                         xx-=TILEWH;\r
204                                                                         #else\r
205                                                                         xx--;\r
206                                                                         #endif\r
207                                                                 }else if(bakax>1){\r
208                                                                         #ifdef TILE\r
209                                                                         xx+=TILEWH;\r
210                                                                         #else\r
211                                                                         xx++;\r
212                                                                         #endif\r
213                                                                 }\r
214                                                                 if(!bakay){\r
215                                                                         #ifdef TILE\r
216                                                                         yy-=TILEWH;\r
217                                                                         #else\r
218                                                                         yy--;\r
219                                                                         #endif\r
220                                                                 }else if(bakay>1){\r
221                                                                         #ifdef TILE\r
222                                                                         yy+=TILEWH;\r
223                                                                         #else\r
224                                                                         yy++;\r
225                                                                         #endif\r
226                                                                 }\r
227                                                 }\r
228                                 }\r
229                                 // fixer\r
230                                 if(q!=16){\r
231                                         #ifdef TILE\r
232                                                 if(xx<0) xx=(VW-TILEWH);\r
233                                                 if(yy<0) yy=(VH-TILEWH);\r
234                                                 if(xx>(VW-TILEWH)) xx=0;\r
235                                                 if(yy>(VH-TILEWH)/*+(TILEWH*BUFFMX)*/) yy=0;\r
236                                         #else\r
237                                                 if(xx<0) xx=VW;\r
238                                                 if(yy<0) yy=VH;\r
239                                                 if(xx>VW) xx=0;\r
240                                                 if(yy>VH) yy=0;\r
241                                         #endif\r
242                                 }\r
243 \r
244 //interesting effects\r
245                                 if(q==16)\r
246                                 {\r
247                                 short tx=0,ty=0;\r
248                                 tx+=xx+16;\r
249                                 ty+=yy+16;\r
250                                 mxPutPixel(tx, ty, coor);\r
251                                 //printf("%d %d %d %d %d %d\n", xx, yy, tx, ty, TILEWH);\r
252 \r
253                                 // plot the pixel\r
254                                 }else{\r
255                                         #ifdef TILE\r
256                                         mxFillBox(xx, yy, TILEWH, TILEWH, coor, OP_SET);\r
257                                         #else\r
258                                         mxPutPixel(xx, yy, coor);\r
259                                         #endif\r
260                                 } \r
261 \r
262                                 if(q==2)\r
263                                 #ifdef TILE\r
264                                         mxFillBox((rand()*TILEWH)%VW, (rand()*TILEWH)%(VH), TILEWH, TILEWH, 0, OP_SET);\r
265                                 #else\r
266                                         mxPutPixel(rand()%VW, rand()%(VH), 0);\r
267                                 #endif\r
268                                 if(q==16) mxPutPixel(rand()%VW, rand()%(VH), 0);\r
269                                 if(q==2||q==4||q==16){ bakax = rand()%3; bakay = rand()%3; }  //random 3 switch\r
270                                 gq++;\r
271 //if(xx<0||xx>320||yy<0||yy>(SH*3))\r
272 //        printf("%d %d %d %d %d\n", xx, yy, coor, bakax, bakay);\r
273                 }else gq = LGQ;\r
274                 return gq;\r
275 }\r
276 \r
277 \r
278 /*\r
279  * The library testing routines follows below.\r
280  */\r
281 \r
282 #ifdef TESTING\r
283 \r
284 /*\r
285  * Library test (program) entry point.\r
286  */\r
287 \r
288 int main(void)\r
289                 {\r
290                 short key,d,xpos,ypos,xdir,ydir;\r
291                 int ch=0x0;\r
292                 // main variables\r
293                 d=4; // switch variable\r
294                 key=2; // default screensaver number\r
295                 xpos=TILEWH*2;\r
296                 ypos=TILEWH*2;\r
297                 xdir=1;\r
298                 ydir=1;\r
299                 setvideo(1);\r
300 // screen savers\r
301 \r
302 /*while(d!=0){ // on!\r
303                                 if(!kbhit()){ // conditions of screen saver\r
304                                                 ding(key);\r
305                                 }else{\r
306                                                 setvideo(0);\r
307                                                 // user imput switch\r
308                                                 printf("Enter 1, 2, 3, 4, or 6 to run a screensaver, or enter 5 to quit.\n", getch());  // prompt the user\r
309                                                 scanf("%d", &key);\r
310                                                 //if(key==3){xx=yy=0;} // crazy screen saver wwww\r
311                                                 if(key==5) d=0;\r
312                                                 setvideo(1);\r
313                                 }\r
314                 }*/ // else off\r
315                 mxFillBox(0, 0, VW, BH, 10, OP_SET);\r
316                 while(1){ // conditions of screen saver\r
317                 while(!kbhit()){\r
318                         ding(key);\r
319                 }\r
320                 //end of screen savers\r
321                 //doTest();\r
322 /*              for (int x = 0; x < VW; ++x)\r
323                         {\r
324                                 mxPutPixel(x, 0, 15);\r
325                                 mxPutPixel(x, SH-1, 15);\r
326                         }\r
327                 for (int y = 0; y < VH; ++y)\r
328                         {\r
329                                 mxPutPixel(0, y, 15);\r
330                                 mxPutPixel(SW-1, y, 15);\r
331                         }\r
332                 for (int x = 0; x < VW; ++x)\r
333                         {\r
334                                 mxPutPixel(x, 0, 15);\r
335                                 mxPutPixel(x, VH-1, 15);\r
336                         }\r
337                 for (int y = 240; y < VH; ++y)\r
338                         {\r
339                                 mxPutPixel(0, y, 15);\r
340                                 mxPutPixel(VW-1, y, 15);\r
341                         }\r
342                         */
343                         pdump();\r
344                         getch();\r
345                         //text box\r
346                         mxSetTextColor(10, OP_TRANS); //set font\r
347                         mxBitBlt(xpos, ypos+(TILEWH*12), SW, TILEWH*BUFFMX, 0, BS); //copy background\r
348                         mxFillBox(xpos, ypos+(TILEWH*12), SW, TILEWH*BUFFMX, 0, OP_SET); // background for text box\r
349                         //+(QUADWH*6)\r
350                         mxOutText(xpos+1, ypos+SH-48, "========================================");\r
351                         mxOutText(xpos+1, ypos+SH-40, "|    |Chikyuu:$line1");\r
352                         mxOutText(xpos+1, ypos+SH-32, "|    |$line2");\r
353                         mxOutText(xpos+1, ypos+SH-24, "|    |$line3");\r
354                         mxOutText(xpos+1, ypos+SH-16, "|    |$line4");\r
355                         mxOutText(xpos+1, ypos+SH-8,  "========================================");\r
356                         mxFillBox(xpos+QUADWH, ypos+QUADWH+(TILEWH*12), TILEWH*2, TILEWH*2, 9, OP_SET); //portriat~\r
357                         getch();\r
358                         mxBitBlt(0, BS, SW, TILEWH*BUFFMX, xpos, ypos+(TILEWH*12)); //copy background\r
359                         getch();\r
360                 while(!kbhit()){\r
361                         //for(int i=0;i<TILEWH;i++){\r
362                                 \r
363                                 ding(key);\r
364                                 mxPan(xpos,ypos);\r
365 mxFillBox(384, 304, 384, 304, 10, OP_SET);\r
366 //mxBitBlt(xpos, ypos, SW, SH, 32, (SH+64+32));\r
367 mxBitBlt(TILEWH*2, TILEWH*2, SW, SH, 32, (SH+64+32));\r
368                                 //for(short o = 0; o<TILEWH; o++){\r
369                                         xpos+=xdir;\r
370                                         ypos+=ydir;\r
371                                         //if(ypos==1 || (ypos==(BH-SH-1)))delay(500);\r
372                                         //if((xpos>(VW-SW-1)) || (xpos<1))delay(500);\r
373                                         //mxWaitRetrace();\r
374 //mxBitBlt(32, (SH+32), SW, SH, xpos, ypos);
375 mxBitBlt(TILEWH*2, (SH+64+32), SW, SH, TILEWH*2, TILEWH*2);\r
376 //xpos=ypos=TILEWH*2;\r
377 mxPan(32,32);\r
378                                 //}\r
379                                 if( (xpos>(VW-SW-1))  || (xpos<1)){xdir=-xdir;}\r
380                                 if( (ypos>(BH-SH-1)) || (ypos<1)){ydir=-ydir;} // { Hit a boundry, change\r
381                         //    direction! }\r
382 //mxBitBlt(32, (SH+64+32), SW, SH, xpos, ypos);
383 //mxBitBlt(TILEWH*2, (SH+64+32), SW, SH, TILEWH*2, TILEWH*2);\r
384                         }\r
385                         ch=getch();\r
386                         if(ch==0x71)break; // 'q'\r
387                         if(ch==0x1b)break; // 'ESC'\r
388                 }\r
389                 setvideo(0);\r
390                 printf("wwww\nFull Buffer Virtual Resolution: %dx%d\n", VW,BH);\r
391                 printf("Virtual Resolution: %dx%d\n", VW,VH);\r
392                 printf("Resolution: %dx%d\n", SW,SH);\r
393                 printf("Mode X Library Version: %d\n", mxGetVersion());\r
394                 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
395                 return 0;\r
396                 }\r
397 \r
398 #endif\r