1 /* Project 16 Source Code~
\r
2 * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover
\r
4 * This file is part of Project 16.
\r
6 * Project 16 is free software; you can redistribute it and/or modify
\r
7 * it under the terms of the GNU General Public License as published by
\r
8 * the Free Software Foundation; either version 3 of the License, or
\r
9 * (at your option) any later version.
\r
11 * Project 16 is distributed in the hope that it will be useful,
\r
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
\r
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\r
14 * GNU General Public License for more details.
\r
16 * You should have received a copy of the GNU General Public License
\r
17 * along with this program. If not, see <http://www.gnu.org/licenses/>, or
\r
18 * write to the Free Software Foundation, Inc., 51 Franklin Street,
\r
19 * Fifth Floor, Boston, MA 02110-1301 USA.
\r
23 #include "src/lib/bakapee.h"
\r
25 /* clrstdin() clear any leftover chars tha may be in stdin stream */
\r
29 while( ( ch = getchar() ) != '\n' && ch != EOF );
\r
32 //color
\82Ä
\82·
\82Æ
\r
33 void colortest(page_t *page, bakapee_t *pee)
\r
35 //if(pee->coor < 256)
\r
37 modexcls(page, pee->coor, VGA);
\r
39 //}else pee->coor = 0;
\r
42 //color
\82Ä
\82·
\82Æ
\r
43 void colorz(page_t *page, bakapee_t *pee)
\r
45 if(pee->coor <= HGQ)
\r
47 modexcls(page, pee->coor, VGA);
\r
49 }else pee->coor = LGQ;
\r
52 //slow spectrum down
\r
53 void ssd(page_t *page, bakapee_t *pee, word svq)
\r
55 if(pee->sy < page->sh+1)
\r
57 if(pee->sx < page->sw+1)
\r
59 //mxPutPixel(sx, sy, coor);
\r
60 //printf("%d %d %d %d\n", pee->sx, pee->sy, svq, pee->coor);
\r
64 if(pee->sx == page->sw)
\r
67 if(svq == 7) pee->coor++;
\r
68 if(pee->sy == page->sh && svq == 8) pee->coor = rand()%256;
\r
73 //plot pixel or plot tile
\r
74 void dingpp(page_t *page, bakapee_t *pee)
\r
79 //fill_block(pee->xx, pee->yy, pee->xx+TILEWH, pee->yy+TILEWH, pee->coor);
\r
80 mxFillBox(pee->xx, pee->yy, TILEWH, TILEWH, pee->coor, OP_SET);
\r
82 modexClearRegion(page, pee->xx, pee->yy, TILEWH, TILEWH, pee->coor);
\r
86 modexputPixel(page, pee->xx, pee->yy, pee->coor);
\r
89 void dingo(page_t *page, bakapee_t *pee)
\r
93 if(pee->xx<0) pee->xx=(page->sw-TILEWH);
\r
94 if(pee->yy<0) pee->yy=(page->sh-TILEWH);
\r
95 if(pee->xx>(page->sw-TILEWH)) pee->xx=0;
\r
96 if(pee->yy>(page->sh-TILEWH)/*+(TILEWH*BUFFMX)*/) pee->yy=0;
\r
100 if(pee->xx<0) pee->xx=page->sw;
\r
101 if(pee->yy<0) pee->yy=page->sh;
\r
102 if(pee->xx>page->sw) pee->xx=0;
\r
103 if(pee->yy>page->sh) pee->yy=0;
\r
107 //assigning values from randomizer
\r
108 void dingas(bakapee_t *pee)
\r
110 if(pee->gq == BONK) dingu(pee);
\r
117 else if(pee->bakax>1)
\r
129 else if(pee->bakay>1)
\r
137 void dingaso(bakapee_t *pee)
\r
139 if(pee->gq == BONK) dingu(pee);
\r
166 void dingu(bakapee_t *pee)
\r
168 if(pee->coor < HGQ && pee->coor < LGQ) pee->coor = LGQ;
\r
169 if(pee->coor < HGQ)
\r
178 void dingq(bakapee_t *pee)
\r
189 pee->bakax = rand()%3; pee->bakay = rand()%3;
\r
192 void dingqo(bakapee_t *pee)
\r
197 pee->bakax = rand()%3; pee->bakay = rand()%3;
\r
204 //either one will do wwww --4
\r
205 pee->bakax = rand()&0x1; pee->bakay = rand()&0x1;
\r
206 //pee->bakax = rand()%2; pee->bakay = rand()%2;
\r
209 /*-----------ding-------------*/
\r
210 void ding(page_t *page, bakapee_t *pee, word q)
\r
212 word tx=0,ty=0;//d3y,
\r
214 //++++ if(q <= 4 && q!=2 && gq == BONK-1) coor = rand()%HGQ;
\r
219 if(pee->xx==page->sw){pee->bakax=0;}
\r
220 if(pee->xx==0){pee->bakax=1;}
\r
221 if(pee->yy==page->sh){pee->bakay=0;}
\r
222 if(pee->yy==0){pee->bakay=1;}*/
\r
226 dingpp(page, pee); //plot the pixel/tile
\r
228 modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
\r
230 modexputPixel(page, rand()%page->width, rand()%page->height, 0);
\r
236 dingpp(page, pee); //plot the pixel/tile
\r
238 modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
\r
240 modexputPixel(page, rand()%page->width, rand()%page->height, 0);
\r
244 if(pee->xx!=page->sw||pee->yy!=page->sh)
\r
246 if(pee->xx==0){pee->bakax=1;pee->bakay=-1;d3y=1;}
\r
247 if(pee->yy==0){pee->bakax=1;pee->bakay=0;d3y=1;}
\r
248 if(pee->xx==page->sw){pee->bakax=-1;pee->bakay=-1;d3y=1;}
\r
249 if(pee->yy==page->sh){pee->bakax=1;pee->bakay=0;d3y=1;}
\r
250 }else if(pee->xx==page->sw&&pee->yy==page->sh) pee->xx=pee->yy=0;
\r
272 dingpp(page, pee); //plot the pixel/tile*/
\r
276 dingpp(page, pee); //plot the pixel/tile
\r
282 dingpp(page, pee); //plot the pixel/tile
\r
285 colortest(page, pee);
\r
288 pee->coor = rand()%256;
\r
289 modexcls(page, pee->coor, VGA);
\r
292 if(pee->coor <= HGQ)
\r
296 }else pee->coor = LGQ;
\r
300 modexprint(page, page->sw/2, page->sh/2, 1, 47, 0, "bakapi");
\r
303 if(pee->coor <= HGQ)
\r
307 }else pee->coor = LGQ;
\r
310 ssd(page, pee, q); /*printf("%d\n", pee->coor);*/
\r
313 colorz(page, pee); delay(100);
\r
316 case 16: //interesting effects
\r
318 if(!pee->bakax){ pee->xx--;}
\r
319 else if(pee->bakax>0){ pee->xx++; }
\r
320 if(!pee->bakay){ pee->yy--;}
\r
321 else if(pee->bakay>0){ pee->yy++; }
\r
323 tx+=pee->xx+TILEWH+4;
\r
324 ty+=pee->yy+TILEWH+4;
\r
325 modexClearRegion(page, tx, ty, 4, 4, pee->coor);
\r
327 modexClearRegion(page, (rand()*4)%page->width, (rand()*4)%(page->height), 4, 4, 0);
\r
329 modexputPixel(page, rand()%page->width, rand()%(page->height), 0);
\r
330 //printf("%d %d %d %d %d %d\n", pee->xx, pee->yy, tx, ty, TILEWH);
\r