per-line scrolling test
[mdlife] / src / part_dna.c
1 #include <stdio.h>
2 #include "sprite.h"
3 #include "vdp.h"
4 #include "demo.h"
5 #include "pad.h"
6 #include "parts.h"
7 #include "debug.h"
8
9 static void particle(int x, int y, int sz);
10
11 #define SPRITE_BASE             0x8000
12 extern uint16_t cellspr_data[], cellspr_data_end[];
13 extern unsigned char cellspr_cmap[], cellspr_cmap_end[];
14
15
16 void dna_init(void)
17 {
18         int i;
19         uint16_t *src;
20         unsigned char *cptr;
21
22         cptr = cellspr_cmap;
23         for(i=0; i<16; i++) {
24                 vdp_setcolor(0, i, i, i, i);
25                 vdp_setcolor(1, i, cptr[0] >> 4, cptr[1] >> 4, cptr[2] >> 4);
26                 cptr += 3;
27         }
28
29         /* upload sprite tiles */
30         src = cellspr_data;
31         vdp_setup_addr(VDP_VRAM, SPRITE_BASE);
32         while(src < cellspr_data_end) {
33                 VDP_DATA = *src++;
34         }
35 }
36
37 void dna_start(void)
38 {
39         short i;
40
41         /* setup tilemaps */
42         vdp_setup_addr(VDP_VRAM, 0xc000);       /* nametable A */
43         for(i=0; i<2048; i++) {
44                 VDP_DATA = 0;
45         }
46         vdp_setup_addr(VDP_VRAM, 0xe000);       /* nametable B */
47         for(i=0; i<2048; i++) {
48                 VDP_DATA = 0;
49         }
50
51         vdp_setup_addr(VDP_VRAM, 0xf000);       /* hscroll table is at f000, see vdp.S */
52         VDP_DATA = 0;
53         VDP_DATA = 0;
54 }
55
56 void dna_update(void)
57 {
58         static int x = 160;
59         static int y = 120;
60         static int sz = 24;
61
62         if(bnstate & PAD_UP) {
63                 if(y > 0) y--;
64         } else if(bnstate & PAD_DOWN) {
65                 if(y < 239) y++;
66         }
67         if(bnstate & PAD_LEFT) {
68                 if(y > 0) x--;
69         } else if(bnstate & PAD_RIGHT) {
70                 if(y < 319) x++;
71         }
72         if(bndiff & bnstate & PAD_A) {
73                 if(sz > 0) sz--;
74         } else if(bndiff & bnstate & PAD_B) {
75                 if(sz < 32) sz++;
76         }
77
78         particle(x, y, sz);
79 }
80
81 static void particle(int x, int y, int pixsz)
82 {
83         int tile, offs = 4, invoffs, szlevel;
84         static int offstab[] = {
85                 4, 4, 4, 4, 4, 4, 4, 4,
86                 4, 8, 8, 8, 8, 8, 8, 8,
87
88                 8, 14, 14, 15, 15, 15, 16, 16,
89                 16, 14, 14, 15, 15, 15, 16, 16,
90                 16
91         };
92
93         if(pixsz <= 2) {
94                 szlevel = 0;
95                 pixsz = 2;
96                 tile = VDP_ADDR2TILE(SPRITE_BASE);
97         } else if(pixsz <= 16) {
98                 szlevel = (pixsz - 1) >> 1;
99                 tile = VDP_ADDR2TILE(SPRITE_BASE) + szlevel;
100         } else if(pixsz <= 24) {
101                 szlevel = 8;
102                 tile = VDP_ADDR2TILE(SPRITE_BASE) + 8;
103         } else if(pixsz <= 32) {
104                 szlevel = 9;
105                 tile = VDP_ADDR2TILE(SPRITE_BASE) + 12;
106         } else {
107                 szlevel = 9;
108                 tile = VDP_ADDR2TILE(SPRITE_BASE) + 12;
109                 pixsz = 32;
110         }
111
112         offs = offstab[pixsz];
113
114         switch(szlevel) {
115         case 0:
116         case 1:
117         case 2:
118         case 3:
119                 spr_add(x - offs, y - offs, VDP_TILENAME(tile, 1, VDP_TILE_FG), SPR_SIZE(1, 1));
120                 break;
121
122         case 4: /* 10x10 */
123         case 5: /* 12x12 */
124         case 6: /* 14x14 */
125         case 7: /* 16x16 */
126                 spr_add(x - offs, y - offs, VDP_TILENAME(tile, 1, VDP_TILE_FG), SPR_SIZE(1, 1));
127                 spr_add(x, y - offs, VDP_TILENAME(tile, 1, VDP_TILE_FG | VDP_TILE_HFLIP), SPR_SIZE(1, 1));
128                 spr_add(x - offs, y, VDP_TILENAME(tile, 1, VDP_TILE_FG | VDP_TILE_VFLIP), SPR_SIZE(1, 1));
129                 spr_add(x, y, VDP_TILENAME(tile, 1, VDP_TILE_FG | VDP_TILE_HVFLIP), SPR_SIZE(1, 1));
130                 break;
131
132         case 8: /* 17x17 - 24x24 */
133         default: /* 25x25 - 32x32 */
134                 invoffs = 16 - offs;
135                 spr_add(x - offs, y - offs, VDP_TILENAME(tile, 1, VDP_TILE_FG), SPR_SIZE(2, 2));
136                 spr_add(x - invoffs, y - offs, VDP_TILENAME(tile, 1, VDP_TILE_FG | VDP_TILE_HFLIP), SPR_SIZE(2, 2));
137                 spr_add(x - offs, y - invoffs, VDP_TILENAME(tile, 1, VDP_TILE_FG | VDP_TILE_VFLIP), SPR_SIZE(2, 2));
138                 spr_add(x - invoffs, y - invoffs, VDP_TILENAME(tile, 1, VDP_TILE_FG | VDP_TILE_HVFLIP), SPR_SIZE(2, 2));
139                 break;
140         }
141 }