X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2Fbakapee.c;h=9af09403bea7d79a0efb14bd1004226e1b4b7351;hb=29204d5f82b02c730907d7cdf6760f291ae8e93e;hp=8b40f9648f720a0b41a578bd396a67f808235b34;hpb=e7560148aa2da2b398dfeb8c5ee7e49bf9deff0b;p=16.git
diff --git a/src/lib/bakapee.c b/src/lib/bakapee.c
index 8b40f964..9af09403 100755
--- a/src/lib/bakapee.c
+++ b/src/lib/bakapee.c
@@ -1,278 +1,333 @@
-/* Project 16 Source Code~
- * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123
- *
- * This file is part of Project 16.
- *
- * Project 16 is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 3 of the License, or
- * (at your option) any later version.
- *
- * Project 16 is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see , or
- * write to the Free Software Foundation, Inc., 51 Franklin Street,
- * Fifth Floor, Boston, MA 02110-1301 USA.
- *
- */
-
-#include "src/lib/bakapee.h"
-
-/* clrstdin() clear any leftover chars tha may be in stdin stream */
-void clrstdin()
-{
- int ch = 0;
- while( ( ch = getchar() ) != '\n' && ch != EOF );
-}
-
-//color Ä·Æ
-void colortest(page_t *page, bakapee_t *pee)
-{
- //if(pee->coor < 256)
- //{
- modexcls(page, pee->coor, VGA);
- pee->coor++;
- //}else pee->coor = 0;
-}
-
-//color Ä·Æ
-void colorz(page_t *page, bakapee_t *pee)
-{
- if(pee->coor <= HGQ)
- {
- modexcls(page, pee->coor, VGA);
- pee->coor++;
- }else pee->coor = LGQ;
-}
-
-//slow spectrum down
-void ssd(page_t *page, bakapee_t *pee, word svq)
-{
- if(pee->sy < page->sh+1)
- {
- if(pee->sx < page->sw+1)
- {
- //mxPutPixel(sx, sy, coor);
- //printf("%d %d %d %d\n", pee->sx, pee->sy, svq, pee->coor);
- dingpp(page, pee);
- pee->sx++;
- }else pee->sx = 0;
- if(pee->sx == page->sw)
- {
- pee->sy++;
- if(svq == 7) pee->coor++;
- if(pee->sy == page->sh && svq == 8) pee->coor = rand()%256;
- }
- }else pee->sy = 0;
-}
-
-//plot pixel or plot tile
-void dingpp(page_t *page, bakapee_t *pee)
-{
- if(pee->tile)
- {
-#ifndef MXLIB
- //fill_block(pee->xx, pee->yy, pee->xx+TILEWH, pee->yy+TILEWH, pee->coor);
- mxFillBox(pee->xx, pee->yy, TILEWH, TILEWH, pee->coor, OP_SET);
-#else
- modexClearRegion(page, pee->xx, pee->yy, TILEWH, TILEWH, pee->coor);
-#endif
- }
- else
- modexputPixel(page, pee->xx, pee->yy, pee->coor);
-}
-
-void dingo(page_t *page, bakapee_t *pee)
-{
- if(pee->tile)
- {
- if(pee->xx<0) pee->xx=(page->sw-TILEWH);
- if(pee->yy<0) pee->yy=(page->sh-TILEWH);
- if(pee->xx>(page->sw-TILEWH)) pee->xx=0;
- if(pee->yy>(page->sh-TILEWH)/*+(TILEWH*BUFFMX)*/) pee->yy=0;
- }
- else
- {
- if(pee->xx<0) pee->xx=page->sw;
- if(pee->yy<0) pee->yy=page->sh;
- if(pee->xx>page->sw) pee->xx=0;
- if(pee->yy>page->sh) pee->yy=0;
- }
-}
-
-//assigning values from randomizer
-void dingas(bakapee_t *pee)
-{
- if(pee->gq == BONK) dingu(pee);
- if(!pee->bakax)
- {
- if(pee->tile)
- pee->xx-=TILEWH;
- else pee->xx--;
- }
- else if(pee->bakax>1)
- {
- if(pee->tile)
- pee->xx+=TILEWH;
- else pee->xx++;
- }
- if(!pee->bakay)
- {
- if(pee->tile)
- pee->yy-=TILEWH;
- else pee->yy--;
- }
- else if(pee->bakay>1)
- {
- if(pee->tile)
- pee->yy+=TILEWH;
- else pee->yy++;
- }
-}
-
-void dingu(bakapee_t *pee)
-{
- if(pee->coor < HGQ && pee->coor < LGQ) pee->coor = LGQ;
- if(pee->coor < HGQ)
- {
- pee->coor++;
- }else{
- pee->coor = LGQ;
- }
-}
-
-//randomizer
-void dingq(bakapee_t *pee)
-{
- if(pee->gqgq++;
- }
- else
- {
- dingu(pee);
- pee->gq = 0;
- }
- pee->bakax = rand()%3; pee->bakay = rand()%3;
-}
-
-/*-----------ding-------------*/
-void ding(page_t *page, bakapee_t *pee, word q)
-{
- word d3y, tx=0,ty=0;
-
-//++++ if(q <= 4 && q!=2 && gq == BONK-1) coor = rand()%HGQ;
- switch(q)
- {
- case 1:
- dingq(pee);
- if(pee->xx==page->sw){pee->bakax=0;}
- if(pee->xx==0){pee->bakax=1;}
- if(pee->yy==page->sh){pee->bakay=0;}
- if(pee->yy==0){pee->bakay=1;}
- break;
- case 2:
- dingq(pee);
- dingas(pee);
- dingo(page, pee);
- dingpp(page, pee); //plot the pixel/tile
- if(pee->tile)
- modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
- else
- modexputPixel(page, rand()%page->width, rand()%page->height, 0);
- break;
- case 3:
- dingq(pee);
- if(pee->xx!=page->sw||pee->yy!=page->sh)
- {
- if(pee->xx==0){pee->bakax=1;pee->bakay=-1;d3y=1;}
- if(pee->yy==0){pee->bakax=1;pee->bakay=0;d3y=1;}
- if(pee->xx==page->sw){pee->bakax=-1;pee->bakay=-1;d3y=1;}
- if(pee->yy==page->sh){pee->bakax=1;pee->bakay=0;d3y=1;}
- }else if(pee->xx==page->sw&&pee->yy==page->sh) pee->xx=pee->yy=0;
- if(d3y)
- {
- if(pee->bakay<0)
- {
- pee->yy--;
- d3y--;
- }else
- if(pee->bakay>0)
- {
- pee->yy++;
- d3y--;
- }
- }
- if(pee->bakax<0)
- {
- pee->xx--;
- }else
- if(pee->bakax>0)
- {
- pee->xx++;
- }
- dingpp(page, pee); //plot the pixel/tile
- break;
- case 4:
- dingq(pee);
- dingas(pee);
- dingo(page, pee);
- dingpp(page, pee); //plot the pixel/tile
- break;
- case 5:
- colortest(page, pee);
- break;
- case 6:
- pee->coor = rand()%256;
- modexcls(page, pee->coor, VGA);
- break;
- case 7:
- if(pee->coor <= HGQ)
- {
- ssd(page, pee, q);
- pee->coor++;
- }else pee->coor = LGQ;
- break;
- case 8:
- colorz(page, pee);
- modexprint(page, page->sw/2, page->sh/2, 1, 47, 0, "bakapi", 1);
- break;
- case 9:
- if(pee->coor <= HGQ)
- {
- ssd(page, pee, q);
- pee->coor++;
- }else pee->coor = LGQ;
- break;
- case 10:
- ssd(page, pee, q); /*printf("%d\n", pee->coor);*/
- break;
- case 11:
- colorz(page, pee); delay(100);
- break;
-
- case 16: //interesting effects
- dingq(pee);
- if(!pee->bakax){ pee->xx--;}
- else if(pee->bakax>0){ pee->xx++; }
- if(!pee->bakay){ pee->yy--;}
- else if(pee->bakay>0){ pee->yy++; }
- dingas(pee);
- tx+=pee->xx+TILEWH+4;
- ty+=pee->yy+TILEWH+4;
- modexClearRegion(page, tx, ty, 4, 4, pee->coor);
- if(pee->tile)
- modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
- else
- modexputPixel(page, rand()%page->width, rand()%(page->height), 0);
- //printf("%d %d %d %d %d %d\n", pee->xx, pee->yy, tx, ty, TILEWH);
- break;
- default:
- break;
- }
- //pee->coor++;
-}
+/* Project 16 Source Code~
+ * Copyright (C) 2012-2017 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover
+ *
+ * This file is part of Project 16.
+ *
+ * Project 16 is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * Project 16 is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see , or
+ * write to the Free Software Foundation, Inc., 51 Franklin Street,
+ * Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ */
+
+#include "src/lib/bakapee.h"
+
+/* clrstdin() clear any leftover chars tha may be in stdin stream */
+void clrstdin()
+{
+ int ch = 0;
+ while( ( ch = getchar() ) != '\n' && ch != EOF );
+}
+
+//color Ä·Æ
+void colortest(page_t *page, bakapee_t *pee)
+{
+ //if(pee->coor < 256)
+ //{
+ modexcls(page, pee->coor, VGA);
+ pee->coor++;
+ //}else pee->coor = 0;
+}
+
+//color Ä·Æ
+void colorz(page_t *page, bakapee_t *pee)
+{
+ if(pee->coor <= pee->hgq)
+ {
+ modexcls(page, pee->coor, VGA);
+ pee->coor++;
+ }else pee->coor = pee->lgq;
+}
+
+//slow spectrum down
+void ssd(page_t *page, bakapee_t *pee, word svq)
+{
+ if(pee->sy < page->sh+1)
+ {
+ if(pee->sx < page->sw+1)
+ {
+ //mxPutPixel(sx, sy, coor);
+ //printf("%d %d %d %d\n", pee->sx, pee->sy, svq, pee->coor);
+ dingpp(page, pee);
+ pee->sx++;
+ }else pee->sx = 0;
+ if(pee->sx == page->sw)
+ {
+ pee->sy++;
+ if(svq == 7) pee->coor++;
+ if(pee->sy == page->sh && svq == 8) pee->coor = rand()%256;
+ }
+ }else pee->sy = 0;
+}
+
+//plot pixel or plot tile
+void dingpp(page_t *page, bakapee_t *pee)
+{
+ if(pee->tile)
+ {
+ modexClearRegion(page, pee->xx, pee->yy, TILEWH, TILEWH, pee->coor);
+ }
+ else
+ modexputPixel(page, pee->xx, pee->yy, pee->coor);
+}
+
+void dingo(page_t *page, bakapee_t *pee)
+{
+ if(pee->tile)
+ {
+ if(pee->xx<0) pee->xx=(page->sw-TILEWH);
+ if(pee->yy<0) pee->yy=(page->sh-TILEWH);
+ if(pee->xx>(page->sw-TILEWH)) pee->xx=0;
+ if(pee->yy>(page->sh-TILEWH)/*+(TILEWH*BUFFMX)*/) pee->yy=0;
+ }
+ else
+ {
+ if(pee->xx<0) pee->xx=page->sw;
+ if(pee->yy<0) pee->yy=page->sh;
+ if(pee->xx>page->sw) pee->xx=0;
+ if(pee->yy>page->sh) pee->yy=0;
+ }
+}
+
+//assigning values from randomizer
+void dingas(bakapee_t *pee)
+{
+ if(pee->gq == pee->bonk) dingu(pee);
+ if(!pee->bakax)
+ {
+ if(pee->tile)
+ pee->xx-=TILEWH;
+ else pee->xx--;
+ }
+ else if(pee->bakax>1)
+ {
+ if(pee->tile)
+ pee->xx+=TILEWH;
+ else pee->xx++;
+ }
+ if(!pee->bakay)
+ {
+ if(pee->tile)
+ pee->yy-=TILEWH;
+ else pee->yy--;
+ }
+ else if(pee->bakay>1)
+ {
+ if(pee->tile)
+ pee->yy+=TILEWH;
+ else pee->yy++;
+ }
+}
+
+void dingaso(bakapee_t *pee)
+{
+ if(pee->gq == pee->bonk) dingu(pee);
+ if(!pee->bakax)
+ {
+ if(pee->tile)
+ pee->xx-=TILEWH;
+ else pee->xx--;
+ }
+ else
+ {
+ if(pee->tile)
+ pee->xx+=TILEWH;
+ else pee->xx++;
+ }
+ if(!pee->bakay)
+ {
+ if(pee->tile)
+ pee->yy-=TILEWH;
+ else pee->yy--;
+ }
+ else
+ {
+ if(pee->tile)
+ pee->yy+=TILEWH;
+ else pee->yy++;
+ }
+}
+
+void dingu(bakapee_t *pee)
+{
+ if(pee->coor < pee->hgq && pee->coor < pee->lgq) pee->coor = pee->lgq;
+ if(pee->coor < pee->hgq)
+ {
+ pee->coor++;
+ }else{
+ pee->coor = pee->lgq;
+ }
+}
+
+//randomizer
+void dingq(bakapee_t *pee)
+{
+ if(pee->gqbonk)
+ {
+ pee->gq++;
+ }
+ else
+ {
+ dingu(pee);
+ pee->gq = 0;
+ }
+ pee->bakax = rand()%3; pee->bakay = rand()%3;
+}
+
+void dingqo(bakapee_t *pee)
+{
+ if(pee->gqbonk)
+ {
+ pee->gq++;
+ pee->bakax = rand()%3; pee->bakay = rand()%3;
+ }
+ else
+ {
+ dingu(pee);
+ pee->gq = 0;
+ }
+ //either one will do wwww --4
+ pee->bakax = rand()&0x1; pee->bakay = rand()&0x1;
+ //pee->bakax = rand()%2; pee->bakay = rand()%2;
+}
+
+/*-----------ding-------------*/
+void ding(page_t *page, bakapee_t *pee, word q)
+{
+ word tx=0,ty=0;//d3y,
+
+//++++ if(q <= 4 && q!=2 && gq == pee->bonk-1) coor = rand()%pee->hgq;
+ switch(q)
+ {
+ case 1:/*
+ dingq(pee);
+ if(pee->xx==page->sw){pee->bakax=0;}
+ if(pee->xx==0){pee->bakax=1;}
+ if(pee->yy==page->sh){pee->bakay=0;}
+ if(pee->yy==0){pee->bakay=1;}*/
+ dingqo(pee);
+ dingaso(pee);
+ dingo(page, pee);
+ dingpp(page, pee); //plot the pixel/tile
+ if(pee->tile)
+ modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
+ else
+ modexputPixel(page, rand()%page->width, rand()%page->height, 0);
+ break;
+ case 2:
+ dingq(pee);
+ dingas(pee);
+ dingo(page, pee);
+ dingpp(page, pee); //plot the pixel/tile
+ if(pee->tile)
+ modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
+ else
+ modexputPixel(page, rand()%page->width, rand()%page->height, 0);
+ break;
+ case 3:
+ /*dingq(pee);
+ if(pee->xx!=page->sw||pee->yy!=page->sh)
+ {
+ if(pee->xx==0){pee->bakax=1;pee->bakay=-1;d3y=1;}
+ if(pee->yy==0){pee->bakax=1;pee->bakay=0;d3y=1;}
+ if(pee->xx==page->sw){pee->bakax=-1;pee->bakay=-1;d3y=1;}
+ if(pee->yy==page->sh){pee->bakax=1;pee->bakay=0;d3y=1;}
+ }else if(pee->xx==page->sw&&pee->yy==page->sh) pee->xx=pee->yy=0;
+ if(d3y)
+ {
+ if(pee->bakay<0)
+ {
+ pee->yy--;
+ d3y--;
+ }else
+ if(pee->bakay>0)
+ {
+ pee->yy++;
+ d3y--;
+ }
+ }
+ if(pee->bakax<0)
+ {
+ pee->xx--;
+ }else
+ if(pee->bakax>0)
+ {
+ pee->xx++;
+ }
+ dingpp(page, pee); //plot the pixel/tile*/
+ dingqo(pee);
+ dingaso(pee);
+ dingo(page, pee);
+ dingpp(page, pee); //plot the pixel/tile
+ break;
+ case 4:
+ dingq(pee);
+ dingas(pee);
+ dingo(page, pee);
+ dingpp(page, pee); //plot the pixel/tile
+ break;
+ case 5:
+ colortest(page, pee);
+ break;
+ case 6:
+// pee->coor = rand()%256;
+// modexcls(page, pee->coor, VGA);
+ colorz(page, pee);
+ modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, "bakapi");
+ break;
+ case 7:
+ if(pee->coor <= pee->hgq)
+ {
+ ssd(page, pee, q);
+ pee->coor++;
+ }else pee->coor = pee->lgq;
+ break;
+ case 8:
+ colorz(page, pee);
+ modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, "bakapi");
+ break;
+ case 9:
+ if(pee->coor <= pee->hgq)
+ {
+ ssd(page, pee, q);
+ pee->coor++;
+ }else pee->coor = pee->lgq;
+ break;
+ case 10:
+ ssd(page, pee, q); /*printf("%d\n", pee->coor);*/
+ break;
+ case 11:
+ colorz(page, pee); delay(100);
+ break;
+
+ case 16: //interesting effects
+ dingq(pee);
+ if(!pee->bakax){ pee->xx--;}
+ else if(pee->bakax>0){ pee->xx++; }
+ if(!pee->bakay){ pee->yy--;}
+ else if(pee->bakay>0){ pee->yy++; }
+ dingas(pee);
+ tx+=pee->xx+TILEWH+4;
+ ty+=pee->yy+TILEWH+4;
+ modexClearRegion(page, tx, ty, 4, 4, pee->coor);
+ if(pee->tile)
+ modexClearRegion(page, (rand()*4)%page->width, (rand()*4)%(page->height), 4, 4, 0);
+ else
+ modexputPixel(page, rand()%page->width, rand()%(page->height), 0);
+ //printf("%d %d %d %d %d %d\n", pee->xx, pee->yy, tx, ty, TILEWH);
+ break;
+ default:
+ break;
+ }
+ //pee->coor++;
+}