bugfixes, new scaling, double ym upd at 940

[picodrive.git] / platform / win32 / GenaDrive / TexScreen.cpp

\r
#include "app.h"\r
\r
IDirect3DTexture8 *TexScreen=NULL;\r
int TexWidth=0,TexHeight=0;\r
\r
// Blank the texture:\r
static int TexBlank()\r
{\r
  D3DLOCKED_RECT lock={0,NULL};\r
  unsigned char *dest=NULL;\r
  int y=0,line=0;\r
\r
  TexScreen->LockRect(0,&lock,NULL,0); if (lock.pBits==NULL) return 1;\r
\r
  dest=(unsigned char *)lock.pBits;\r
  for (y=0; y<TexHeight; y++,line+=lock.Pitch)\r
  {\r
    memset(dest+line,0,TexWidth<<1);\r
  }\r
\r
  TexScreen->UnlockRect(0);\r
  return 0;\r
}\r
\r
int TexScreenInit()\r
{\r
  TexWidth =512;\r
  TexHeight=512;\r
\r
  Device->CreateTexture(TexWidth,TexHeight,1,0,D3DFMT_R5G6B5,D3DPOOL_MANAGED,&TexScreen);\r
  if (TexScreen==NULL) return 1;\r
\r
  TexBlank();\r
  return 0;\r
}\r
\r
void TexScreenExit()\r
{\r
  RELEASE(TexScreen)\r
  TexWidth=TexHeight=0;\r
}\r
\r
// Copy screen to a swizzled texture\r
int TexScreenSwizzle()\r
{\r
  D3DLOCKED_RECT lock={0,NULL};\r
  unsigned char *dest=NULL;\r
  int y=0,sy=0,mask=0;\r
  unsigned short *ps=NULL;\r
\r
  mask=TexWidth*TexHeight-1;\r
\r
  TexScreen->LockRect(0,&lock,NULL,0); if (lock.pBits==NULL) return 1;\r
\r
  dest=(unsigned char *)lock.pBits;\r
  ps=EmuScreen;\r
\r
  // Write to swizzled locations:\r
  for (y=0,sy=0; y<EmuHeight; y++,sy++)\r
  {\r
    int x=0,sx=0;\r
    sy|=0x55555555;\r
\r
    for (x=0,sx=0; x<EmuWidth; x++,sx++)\r
    {\r
      int addr=0;\r
\r
      sx|=0xaaaaaaaa;\r
      addr=sx&sy&mask; // Calculate swizzled address\r
\r
      ((unsigned short *)dest)[addr]=*ps++;\r
    }\r
  }\r
\r
  TexScreen->UnlockRect(0);\r
\r
  return 0;\r
}\r
\r
// Copy screen to a linear texture:\r
int TexScreenLinear()\r
{\r
  D3DLOCKED_RECT lock={0,NULL};\r
  unsigned char *dest=NULL;\r
  int y=0,line=0;\r
  unsigned short *ps=NULL;\r
\r
  TexScreen->LockRect(0,&lock,NULL,0); if (lock.pBits==NULL) return 1;\r
\r
  dest=(unsigned char *)lock.pBits;\r
  ps=EmuScreen;\r
\r
  for (y=0; y<EmuHeight; y++,line+=lock.Pitch)\r
  {\r
    int x=0;\r
    int addr=line;\r
\r
    for (x=0; x<EmuWidth; x++,addr+=2)\r
    {\r
      *(unsigned int *)(dest+addr)=*ps++;\r
    }\r
  }\r
\r
  TexScreen->UnlockRect(0);\r
  return 0;\r
}\r