200772b7 |
1 | #include "pico_int.h" |
2 | |
3 | static void (*FinalizeLineM4)(void); |
4 | static int skip_next_line; |
5 | |
6 | #define PLANAR_PIXEL(x,p) \ |
7 | t = pack & (0x80808080 >> p); \ |
8 | if (t) { \ |
9 | t = ((t >> (7-p)) | (t >> (14-p)) | (t >> (21-p)) | (t >> (28-p))) & 0x0f; \ |
10 | pd[x] = pal|t; \ |
11 | } |
12 | |
13 | static int TileNormM4(int sx, int addr, int pal) |
14 | { |
15 | unsigned char *pd = HighCol + sx; |
16 | unsigned int pack, t; |
17 | |
18 | pack = *(unsigned int *)(Pico.vram + addr); /* Get 4 bitplanes / 8 pixels */ |
19 | if (pack) |
20 | { |
21 | PLANAR_PIXEL(0, 0) |
22 | PLANAR_PIXEL(1, 1) |
23 | PLANAR_PIXEL(2, 2) |
24 | PLANAR_PIXEL(3, 3) |
25 | PLANAR_PIXEL(4, 4) |
26 | PLANAR_PIXEL(5, 5) |
27 | PLANAR_PIXEL(6, 6) |
28 | PLANAR_PIXEL(7, 7) |
29 | return 0; |
30 | } |
31 | |
32 | return 1; /* Tile blank */ |
33 | } |
34 | |
35 | static int TileFlipM4(int sx,int addr,int pal) |
36 | { |
37 | unsigned char *pd = HighCol + sx; |
38 | unsigned int pack, t; |
39 | |
40 | pack = *(unsigned int *)(Pico.vram + addr); /* Get 4 bitplanes / 8 pixels */ |
41 | if (pack) |
42 | { |
43 | PLANAR_PIXEL(0, 7) |
44 | PLANAR_PIXEL(1, 6) |
45 | PLANAR_PIXEL(2, 5) |
46 | PLANAR_PIXEL(3, 4) |
47 | PLANAR_PIXEL(4, 3) |
48 | PLANAR_PIXEL(5, 2) |
49 | PLANAR_PIXEL(6, 1) |
50 | PLANAR_PIXEL(7, 0) |
51 | return 0; |
52 | } |
53 | |
54 | return 1; /* Tile blank */ |
55 | } |
56 | |
57 | struct TileStrip |
58 | { |
59 | int nametab; // Position in VRAM of name table (for this tile line) |
60 | int line; // Line number in pixels 0x000-0x3ff within the virtual tilemap |
61 | int hscroll; // Horizontal scroll value in pixels for the line |
62 | int xmask; // X-Mask (0x1f - 0x7f) for horizontal wraparound in the tilemap |
63 | int *hc; // cache for high tile codes and their positions |
64 | int cells; // cells (tiles) to draw (32 col mode doesn't need to update whole 320) |
65 | }; |
66 | |
67 | static void DrawStrip(struct TileStrip *ts, int cellskip) |
68 | { |
69 | int tilex,dx,ty,code=0,addr=0,cells; |
70 | int oldcode=-1,blank=-1; // The tile we know is blank |
71 | int pal=0; |
72 | |
73 | // Draw tiles across screen: |
74 | tilex=((-ts->hscroll)>>3)+cellskip; |
75 | ty=(ts->line&7)<<1; // Y-Offset into tile |
76 | dx=((ts->hscroll-1)&7)+1; |
77 | cells = ts->cells - cellskip; |
78 | if (dx != 8) cells++; // have hscroll, need to draw 1 cell more |
79 | dx+=cellskip<<3; |
80 | |
81 | for (; cells > 0; dx+=8,tilex++,cells--) |
82 | { |
83 | int zero; |
84 | |
85 | code=Pico.vram[ts->nametab + (tilex & 0x1f)]; |
86 | if (code==blank) continue; |
87 | |
88 | if (code!=oldcode) { |
89 | oldcode = code; |
90 | // Get tile address/2: |
91 | addr=(code&0x1ff)<<4; |
92 | addr+=ty; |
93 | if (code&0x0400) addr^=0xe; // Y-flip |
94 | |
95 | pal=((code>>7)&0x10); |
96 | } |
97 | |
98 | if (code&0x0200) zero=TileFlipM4(dx,addr,pal); |
99 | else zero=TileNormM4(dx,addr,pal); |
100 | |
101 | if (zero) blank=code; // We know this tile is blank now |
102 | } |
103 | } |
104 | |
105 | static void DrawLayer(int cellskip, int maxcells) |
106 | { |
107 | struct PicoVideo *pvid=&Pico.video; |
108 | struct TileStrip ts; |
109 | int vscroll; |
110 | |
111 | ts.cells=maxcells; |
112 | |
113 | // Find name table: |
114 | ts.nametab=(pvid->reg[2]&0x0e) << (10-1); |
115 | |
116 | // Get horizontal scroll value, will be masked later |
117 | ts.hscroll=0;//pvid->reg[8]; |
118 | vscroll=0;//pvid->reg[9]; // Get vertical scroll value |
119 | |
120 | // Find the line in the name table |
121 | ts.line=(vscroll+DrawScanline)&0xff; |
122 | ts.nametab+=(ts.line>>3) << (6-1); |
123 | |
124 | DrawStrip(&ts, cellskip); |
125 | } |
126 | |
127 | static void DrawDisplayM4(void) |
128 | { |
129 | DrawLayer(0, 32); |
130 | } |
131 | |
132 | void PicoFrameStartMode4(void) |
133 | { |
134 | DrawScanline = 0; |
135 | skip_next_line = 0; |
136 | } |
137 | |
138 | void PicoLineMode4(int line) |
139 | { |
140 | if (skip_next_line > 0) { |
141 | skip_next_line--; |
142 | return; |
143 | } |
144 | |
145 | DrawScanline = line; |
146 | |
147 | if (PicoScanBegin != NULL) |
148 | skip_next_line = PicoScanBegin(DrawScanline); |
149 | |
150 | // Draw screen: |
151 | BackFill((Pico.video.reg[7] & 0x0f) | 0x10, 0); |
152 | if (Pico.video.reg[1] & 0x40) |
153 | DrawDisplayM4(); |
154 | |
155 | if (FinalizeLineM4 != NULL) |
156 | FinalizeLineM4(); |
157 | |
158 | if (PicoScanEnd != NULL) |
159 | skip_next_line = PicoScanEnd(DrawScanline); |
160 | } |
161 | |
162 | void PicoDoHighPal555M4(void) |
163 | { |
164 | unsigned int *spal=(void *)Pico.cram; |
165 | unsigned int *dpal=(void *)HighPal; |
166 | unsigned int t; |
167 | int i; |
168 | |
169 | Pico.m.dirtyPal = 0; |
170 | |
171 | /* cram is always stored as shorts, even though real hardware probably uses bytes */ |
172 | for (i = 0x20/2; i > 0; i--, spal++, dpal++) { |
173 | t = *spal; |
174 | #ifdef USE_BGR555 |
175 | t = ((t & 0x00030003)<< 3) | ((t & 0x000c000c)<<7) | ((t & 0x00300030)<<10); |
176 | #else |
177 | t = ((t & 0x00030003)<<14) | ((t & 0x000c000c)<<7) | ((t & 0x00300030)>>1); |
178 | #endif |
179 | t |= t >> 2; |
180 | t |= (t >> 4) & 0x08610861; |
181 | *dpal = t; |
182 | } |
183 | } |
184 | |
185 | static void FinalizeLineRGB555M4(void) |
186 | { |
187 | unsigned short *pd=DrawLineDest; |
188 | unsigned char *ps=HighCol+8; |
189 | unsigned short *pal=HighPal; |
190 | int i; |
191 | |
192 | if (Pico.m.dirtyPal) |
193 | PicoDoHighPal555M4(); |
194 | |
195 | if (!(PicoOpt & POPT_DIS_32C_BORDER)) |
196 | pd += 32; |
197 | |
198 | for (i = 256/4; i > 0; i--) { |
199 | *pd++ = pal[*ps++]; |
200 | *pd++ = pal[*ps++]; |
201 | *pd++ = pal[*ps++]; |
202 | *pd++ = pal[*ps++]; |
203 | } |
204 | } |
205 | |
206 | void PicoDrawSetColorFormatMode4(int which) |
207 | { |
208 | switch (which) |
209 | { |
210 | case 1: FinalizeLineM4 = FinalizeLineRGB555M4; break; |
211 | default:FinalizeLineM4 = NULL; break; |
212 | } |
213 | #if OVERRIDE_HIGHCOL |
214 | if (which) |
215 | HighCol = DefHighCol; |
216 | #endif |
217 | } |
218 | |