draw.c 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325
  1. /*
  2. * PicoDrive
  3. * (C) notaz, 2009,2010
  4. *
  5. * This work is licensed under the terms of MAME license.
  6. * See COPYING file in the top-level directory.
  7. */
  8. #include "../pico_int.h"
  9. int (*PicoScan32xBegin)(unsigned int num);
  10. int (*PicoScan32xEnd)(unsigned int num);
  11. int Pico32xDrawMode;
  12. static void convert_pal555(int invert_prio)
  13. {
  14. unsigned int *ps = (void *)Pico32xMem->pal;
  15. unsigned int *pd = (void *)Pico32xMem->pal_native;
  16. unsigned int m1 = 0x001f001f;
  17. unsigned int m2 = 0x03e003e0;
  18. unsigned int m3 = 0xfc00fc00;
  19. unsigned int inv = 0;
  20. int i;
  21. if (invert_prio)
  22. inv = 0x00200020;
  23. // place prio to LS green bit
  24. for (i = 0x100/2; i > 0; i--, ps++, pd++) {
  25. unsigned int t = *ps;
  26. *pd = (((t & m1) << 11) | ((t & m2) << 1) | ((t & m3) >> 10)) ^ inv;
  27. }
  28. Pico32x.dirty_pal = 0;
  29. }
  30. // direct color mode
  31. #define do_line_dc(pd, p32x, pmd, inv, pmd_draw_code) \
  32. { \
  33. const unsigned int m1 = 0x001f; \
  34. const unsigned int m2 = 0x03e0; \
  35. const unsigned int m3 = 0x7c00; \
  36. int i; \
  37. \
  38. for (i = 320; i > 0; i--, pd++, p32x++, pmd++) { \
  39. unsigned short t = *p32x; \
  40. if (*pmd != mdbg && !((t ^ inv) & 0x8000)) { \
  41. pmd_draw_code; \
  42. continue; \
  43. } \
  44. \
  45. *pd = ((t & m1) << 11) | ((t & m2) << 1) | ((t & m3) >> 10); \
  46. } \
  47. }
  48. // packed pixel mode
  49. #define do_line_pp(pd, p32x, pmd, pmd_draw_code) \
  50. { \
  51. unsigned short t; \
  52. int i; \
  53. for (i = 320; i > 0; i--, pd++, p32x++, pmd++) { \
  54. t = pal[*(unsigned char *)((long)p32x ^ 1)]; \
  55. if ((t & 0x20) || *pmd == mdbg) \
  56. *pd = t; \
  57. else \
  58. pmd_draw_code; \
  59. } \
  60. }
  61. // run length mode
  62. #define do_line_rl(pd, p32x, pmd, pmd_draw_code) \
  63. { \
  64. unsigned short len, t; \
  65. int i; \
  66. for (i = 320; i > 0; p32x++) { \
  67. t = pal[*p32x & 0xff]; \
  68. for (len = (*p32x >> 8) + 1; len > 0 && i > 0; len--, i--, pd++, pmd++) { \
  69. if (*pmd == mdbg || (t & 0x20)) \
  70. *pd = t; \
  71. else \
  72. pmd_draw_code; \
  73. } \
  74. } \
  75. }
  76. void FinalizeLine32xRGB555(int sh, int line)
  77. {
  78. unsigned short *pd = DrawLineDest;
  79. unsigned short *pal = Pico32xMem->pal_native;
  80. unsigned char *pmd = HighCol + 8;
  81. unsigned short *dram, *p32x;
  82. unsigned char mdbg;
  83. FinalizeLine555(sh, line);
  84. if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 0 || // 32x blanking
  85. // XXX: how is 32col mode hadled by real hardware?
  86. !(Pico.video.reg[12] & 1) || // 32col mode
  87. !(PicoDrawMask & PDRAW_32X_ON))
  88. {
  89. return;
  90. }
  91. dram = (void *)Pico32xMem->dram[Pico32x.vdp_regs[0x0a/2] & P32XV_FS];
  92. p32x = dram + dram[line];
  93. mdbg = Pico.video.reg[7] & 0x3f;
  94. if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 2) { // Direct Color Mode
  95. int inv_bit = (Pico32x.vdp_regs[0] & P32XV_PRI) ? 0x8000 : 0;
  96. do_line_dc(pd, p32x, pmd, inv_bit,);
  97. return;
  98. }
  99. if (Pico32x.dirty_pal)
  100. convert_pal555(Pico32x.vdp_regs[0] & P32XV_PRI);
  101. if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 1) { // Packed Pixel Mode
  102. unsigned char *p32xb = (void *)p32x;
  103. if (Pico32x.vdp_regs[2 / 2] & P32XV_SFT)
  104. p32xb++;
  105. do_line_pp(pd, p32xb, pmd,);
  106. }
  107. else { // Run Length Mode
  108. do_line_rl(pd, p32x, pmd,);
  109. }
  110. }
  111. #define MD_LAYER_CODE \
  112. *dst = palmd[*pmd]
  113. #define PICOSCAN_PRE \
  114. PicoScan32xBegin(l + (lines_sft_offs & 0xff)); \
  115. dst = DrawLineDest; \
  116. #define PICOSCAN_POST \
  117. PicoScan32xEnd(l + (lines_sft_offs & 0xff)); \
  118. #define make_do_loop(name, pre_code, post_code, md_code) \
  119. /* Direct Color Mode */ \
  120. static void do_loop_dc##name(unsigned short *dst, \
  121. unsigned short *dram, int lines_sft_offs, int mdbg) \
  122. { \
  123. int inv_bit = (Pico32x.vdp_regs[0] & P32XV_PRI) ? 0x8000 : 0; \
  124. unsigned char *pmd = PicoDraw2FB + \
  125. 328 * (lines_sft_offs & 0xff) + 8; \
  126. unsigned short *palmd = HighPal; \
  127. unsigned short *p32x; \
  128. int lines = lines_sft_offs >> 16; \
  129. int l; \
  130. (void)palmd; \
  131. for (l = 0; l < lines; l++, pmd += 8) { \
  132. pre_code; \
  133. p32x = dram + dram[l]; \
  134. do_line_dc(dst, p32x, pmd, inv_bit, md_code); \
  135. post_code; \
  136. } \
  137. } \
  138. \
  139. /* Packed Pixel Mode */ \
  140. static void do_loop_pp##name(unsigned short *dst, \
  141. unsigned short *dram, int lines_sft_offs, int mdbg) \
  142. { \
  143. unsigned short *pal = Pico32xMem->pal_native; \
  144. unsigned char *pmd = PicoDraw2FB + \
  145. 328 * (lines_sft_offs & 0xff) + 8; \
  146. unsigned short *palmd = HighPal; \
  147. unsigned char *p32x; \
  148. int lines = lines_sft_offs >> 16; \
  149. int l; \
  150. (void)palmd; \
  151. for (l = 0; l < lines; l++, pmd += 8) { \
  152. pre_code; \
  153. p32x = (void *)(dram + dram[l]); \
  154. p32x += (lines_sft_offs >> 8) & 1; \
  155. do_line_pp(dst, p32x, pmd, md_code); \
  156. post_code; \
  157. } \
  158. } \
  159. \
  160. /* Run Length Mode */ \
  161. static void do_loop_rl##name(unsigned short *dst, \
  162. unsigned short *dram, int lines_sft_offs, int mdbg) \
  163. { \
  164. unsigned short *pal = Pico32xMem->pal_native; \
  165. unsigned char *pmd = PicoDraw2FB + \
  166. 328 * (lines_sft_offs & 0xff) + 8; \
  167. unsigned short *palmd = HighPal; \
  168. unsigned short *p32x; \
  169. int lines = lines_sft_offs >> 16; \
  170. int l; \
  171. (void)palmd; \
  172. for (l = 0; l < lines; l++, pmd += 8) { \
  173. pre_code; \
  174. p32x = dram + dram[l]; \
  175. do_line_rl(dst, p32x, pmd, md_code); \
  176. post_code; \
  177. } \
  178. }
  179. #ifdef _ASM_32X_DRAW
  180. #undef make_do_loop
  181. #define make_do_loop(name, pre_code, post_code, md_code) \
  182. extern void do_loop_dc##name(unsigned short *dst, \
  183. unsigned short *dram, int lines_offs, int mdbg); \
  184. extern void do_loop_pp##name(unsigned short *dst, \
  185. unsigned short *dram, int lines_offs, int mdbg); \
  186. extern void do_loop_rl##name(unsigned short *dst, \
  187. unsigned short *dram, int lines_offs, int mdbg);
  188. #endif
  189. make_do_loop(,,,)
  190. make_do_loop(_md, , , MD_LAYER_CODE)
  191. make_do_loop(_scan, PICOSCAN_PRE, PICOSCAN_POST, )
  192. make_do_loop(_scan_md, PICOSCAN_PRE, PICOSCAN_POST, MD_LAYER_CODE)
  193. typedef void (*do_loop_func)(unsigned short *dst, unsigned short *dram, int lines, int mdbg);
  194. enum { DO_LOOP, DO_LOOP_MD, DO_LOOP_SCAN, DO_LOOP_MD_SCAN };
  195. static const do_loop_func do_loop_dc_f[] = { do_loop_dc, do_loop_dc_md, do_loop_dc_scan, do_loop_dc_scan_md };
  196. static const do_loop_func do_loop_pp_f[] = { do_loop_pp, do_loop_pp_md, do_loop_pp_scan, do_loop_pp_scan_md };
  197. static const do_loop_func do_loop_rl_f[] = { do_loop_rl, do_loop_rl_md, do_loop_rl_scan, do_loop_rl_scan_md };
  198. void PicoDraw32xLayer(int offs, int lines, int md_bg)
  199. {
  200. int have_scan = PicoScan32xBegin != NULL && PicoScan32xEnd != NULL;
  201. const do_loop_func *do_loop;
  202. unsigned short *dram;
  203. int lines_sft_offs;
  204. int which_func;
  205. DrawLineDest = (char *)DrawLineDestBase + offs * DrawLineDestIncrement;
  206. dram = Pico32xMem->dram[Pico32x.vdp_regs[0x0a/2] & P32XV_FS];
  207. if (Pico32xDrawMode == PDM32X_BOTH) {
  208. if (Pico.m.dirtyPal)
  209. PicoDrawUpdateHighPal();
  210. }
  211. if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 2)
  212. {
  213. // Direct Color Mode
  214. do_loop = do_loop_dc_f;
  215. goto do_it;
  216. }
  217. if (Pico32x.dirty_pal)
  218. convert_pal555(Pico32x.vdp_regs[0] & P32XV_PRI);
  219. if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 1)
  220. {
  221. // Packed Pixel Mode
  222. do_loop = do_loop_pp_f;
  223. }
  224. else
  225. {
  226. // Run Length Mode
  227. do_loop = do_loop_rl_f;
  228. }
  229. do_it:
  230. if (Pico32xDrawMode == PDM32X_BOTH)
  231. which_func = have_scan ? DO_LOOP_MD_SCAN : DO_LOOP_MD;
  232. else
  233. which_func = have_scan ? DO_LOOP_SCAN : DO_LOOP;
  234. lines_sft_offs = (lines << 16) | offs;
  235. if (Pico32x.vdp_regs[2 / 2] & P32XV_SFT)
  236. lines_sft_offs |= 1 << 8;
  237. do_loop[which_func](DrawLineDest, dram, lines_sft_offs, md_bg);
  238. }
  239. // mostly unused, games tend to keep 32X layer on
  240. void PicoDraw32xLayerMdOnly(int offs, int lines)
  241. {
  242. int have_scan = PicoScan32xBegin != NULL && PicoScan32xEnd != NULL;
  243. unsigned short *dst = (void *)((char *)DrawLineDestBase + offs * DrawLineDestIncrement);
  244. unsigned char *pmd = PicoDraw2FB + 328 * offs + 8;
  245. unsigned short *pal = HighPal;
  246. int poffs = 0, plen = 320;
  247. int l, p;
  248. if (!(Pico.video.reg[12] & 1)) {
  249. // 32col mode
  250. poffs = 32;
  251. plen = 256;
  252. }
  253. if (Pico.m.dirtyPal)
  254. PicoDrawUpdateHighPal();
  255. dst += poffs;
  256. for (l = 0; l < lines; l++) {
  257. if (have_scan) {
  258. PicoScan32xBegin(l + offs);
  259. dst = DrawLineDest + poffs;
  260. }
  261. for (p = 0; p < plen; p += 4) {
  262. dst[p + 0] = pal[*pmd++];
  263. dst[p + 1] = pal[*pmd++];
  264. dst[p + 2] = pal[*pmd++];
  265. dst[p + 3] = pal[*pmd++];
  266. }
  267. dst = (void *)((char *)dst + DrawLineDestIncrement);
  268. pmd += 328 - plen;
  269. if (have_scan)
  270. PicoScan32xEnd(l + offs);
  271. }
  272. }
  273. void PicoDraw32xSetFrameMode(int is_on, int only_32x)
  274. {
  275. #ifdef _ASM_32X_DRAW
  276. extern void *Pico32xNativePal;
  277. Pico32xNativePal = Pico32xMem->pal_native;
  278. #endif
  279. if (is_on) {
  280. // use the same layout as alt renderer
  281. PicoDrawSetInternalBuf(PicoDraw2FB, 328);
  282. Pico32xDrawMode = only_32x ? PDM32X_32X_ONLY : PDM32X_BOTH;
  283. } else {
  284. PicoDrawSetInternalBuf(NULL, 0);
  285. Pico32xDrawMode = PDM32X_OFF;
  286. }
  287. }