/* AppleWin : An Apple //e emulator for Windows Copyright (C) 1994-1996, Michael O'Brien Copyright (C) 1999-2001, Oliver Schmidt Copyright (C) 2002-2005, Tom Charlesworth Copyright (C) 2006-2010, Tom Charlesworth, Michael Pohoreski, Nick Westgate AppleWin 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 2 of the License, or (at your option) any later version. AppleWin 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 AppleWin; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ /* Description: Emulation of video modes * * Author: Various */ #include "StdAfx.h" #include "..\resource\resource.h" /* reference: technote tn-iigs-063 "Master Color Values" Color Color Register LR HR DHR Master Color R,G,B Name Value # # # Value ---------------------------------------------------- Black 0 0 0,4 0 $0000 (0,0,0) -> (00,00,00) Windows (Magenta) Deep Red 1 1 1 $0D03 (D,0,3) -> (D0,00,30) Custom Dark Blue 2 2 8 $0009 (0,0,9) -> (00,00,80) Windows (Violet) Purple 3 3 2 9 $0D2D (D,2,D) -> (FF,00,FF) Windows Dark Green 4 4 4 $0072 (0,7,2) -> (00,80,00) Windows (Gray 1) Dark Gray 5 5 5 $0555 (5,5,5) -> (80,80,80) Windows (Blue) Medium Blue 6 6 6 C $022F (2,2,F) -> (00,00,FF) Windows (Cyan) Light Blue 7 7 D $06AF (6,A,F) -> (60,A0,FF) Custom Brown 8 8 2 $0850 (8,5,0) -> (80,50,00) Custom Orange 9 9 5 3 $0F60 (F,6,0) -> (FF,80,00) Custom (modified to match better with the other Hi-Res Colors) (Gray 2) Light Gray A A A $0AAA (A,A,A) -> (C0,C0,C0) Windows Pink B B B $0F98 (F,9,8) -> (FF,90,80) Custom (Green) Light Green C C 1 6 $01D0 (1,D,0) -> (00,FF,00) Windows Yellow D D 7 $0FF0 (F,F,0) -> (FF,FF,00) Windows (Aqua) Aquamarine E E E $04F9 (4,F,9) -> (40,FF,90) Custom White F F 3,7 F $0FFF (F,F,F) -> (FF,FF,FF) Windows LR: Lo-Res HR: Hi-Res DHR: Double Hi-Res */ #define FLASH_80_COL 1 #define HALF_SHIFT_DITHER 0 // STANDARD WINDOWS COLORS #define CREAM 0xF6 #define MEDIUM_GRAY 0xF7 #define DARK_GRAY 0xF8 #define RED 0xF9 #define GREEN 0xFA #define YELLOW 0xFB #define BLUE 0xFC #define MAGENTA 0xFD #define CYAN 0xFE #define WHITE 0xFF enum Color_Palette_Index_e { // Really need to have Quarter Green and Quarter Blue for Hi-Res BLACK , DARK_RED , DARK_GREEN // Half Green , DARK_YELLOW , DARK_BLUE // Half Blue , DARK_MAGENTA , DARK_CYAN , LIGHT_GRAY , MONEY_GREEN , SKY_BLUE // OUR CUSTOM COLORS , DEEP_RED , LIGHT_BLUE , BROWN , ORANGE , PINK , AQUA // CUSTOM HGR COLORS (don't change order) - For tv emulation g_nAppMode , HGR_BLACK , HGR_WHITE , HGR_BLUE , HGR_RED , HGR_GREEN , HGR_MAGENTA , HGR_GREY1 , HGR_GREY2 , HGR_YELLOW , HGR_AQUA , HGR_PURPLE , HGR_PINK // MONOCHROME // NOTE: 50% is assumed to come after 100% luminance !!! See: DrawMonoHiResSource() // User customizable , MONOCHROME_CUSTOM // 100% luminance , MONOCHROME_CUSTOM_50 // 50% luminance // Pre-set "Monochromes" , MONOCHROME_AMBER // , MONOCHROME_AMBER_50 // BUG - something trashing our palette entry !!! , MONOCHROME_GREEN // , MONOCHROME_GREEN_50 // BUG - something trashing our palette entry !!! , MONOCHROME_WHITE , MONOCHROME_WHITE_50 , DEBUG_COLORS_START , DEBUG_COLORS_END = DEBUG_COLORS_START + NUM_DEBUG_COLORS // DD Full Screen Palette ?!?! // , LOGO_COLORS_START // , LOGO_COLORS_END = LOGO_COLORS_START + 128 , NUM_COLOR_PALETTE }; const int SRCOFFS_40COL = 0; // 0 const int SRCOFFS_IIPLUS = (SRCOFFS_40COL + 256); // 256 const int SRCOFFS_80COL = (SRCOFFS_IIPLUS + 256); // 512 const int SRCOFFS_LORES = (SRCOFFS_80COL + 128); // 640 const int SRCOFFS_HIRES = (SRCOFFS_LORES + 16); // 656 const int SRCOFFS_DHIRES = (SRCOFFS_HIRES + 512); // 1168 const int SRCOFFS_TOTAL = (SRCOFFS_DHIRES + 2560); // 3278 #define SW_80COL (g_bVideoMode & VF_80COL) #define SW_DHIRES (g_bVideoMode & VF_DHIRES) #define SW_HIRES (g_bVideoMode & VF_HIRES) #define SW_MASK2 (g_bVideoMode & VF_MASK2) #define SW_MIXED (g_bVideoMode & VF_MIXED) #define SW_PAGE2 (g_bVideoMode & VF_PAGE2) #define SW_TEXT (g_bVideoMode & VF_TEXT) #define SETSOURCEPIXEL(x,y,c) g_aSourceStartofLine[(y)][(x)] = (c) #define SETFRAMECOLOR(i,r,g,b) g_pFramebufferinfo->bmiColors[i].rgbRed = r; \ g_pFramebufferinfo->bmiColors[i].rgbGreen = g; \ g_pFramebufferinfo->bmiColors[i].rgbBlue = b; \ g_pFramebufferinfo->bmiColors[i].rgbReserved = PC_NOCOLLAPSE; #define HGR_MATRIX_YOFFSET 2 // For tv emulation g_nAppMode // video scanner constants int const kHBurstClock = 53; // clock when Color Burst starts int const kHBurstClocks = 4; // clocks per Color Burst duration int const kHClock0State = 0x18; // H[543210] = 011000 int const kHClocks = 65; // clocks per horizontal scan (including HBL) int const kHPEClock = 40; // clock when HPE (horizontal preset enable) goes low int const kHPresetClock = 41; // clock when H state presets int const kHSyncClock = 49; // clock when HSync starts int const kHSyncClocks = 4; // clocks per HSync duration int const kNTSCScanLines = 262; // total scan lines including VBL (NTSC) int const kNTSCVSyncLine = 224; // line when VSync starts (NTSC) int const kPALScanLines = 312; // total scan lines including VBL (PAL) int const kPALVSyncLine = 264; // line when VSync starts (PAL) int const kVLine0State = 0x100; // V[543210CBA] = 100000000 int const kVPresetLine = 256; // line when V state presets int const kVSyncLines = 4; // lines per VSync duration static BYTE celldirty[40][32]; // NUM_COLOR_PALETTE static COLORREF customcolors[256]; // MONOCHROME is last custom color static HBITMAP g_hDeviceBitmap; static HDC g_hDeviceDC; LPBYTE g_pFramebufferbits = NULL; // last drawn frame static LPBITMAPINFO g_pFramebufferinfo = NULL; static LPBYTE g_aFrameBufferOffset[FRAMEBUFFER_H]; // array of pointers to start of each scanline static LPBYTE g_pHiresBank1; static LPBYTE g_pHiresBank0; HBITMAP g_hLogoBitmap; static HPALETTE g_hPalette; static HBITMAP g_hSourceBitmap; static LPBYTE g_pSourcePixels; static LPBITMAPINFO g_pSourceHeader; const int MAX_SOURCE_Y = 512; static LPBYTE g_aSourceStartofLine[ MAX_SOURCE_Y ]; static LPBYTE g_pTextBank1; // Aux static LPBYTE g_pTextBank0; // Main // For tv emulation g_nAppMode // 2 extra scan lines on bottom? static BYTE hgrpixelmatrix[FRAMEBUFFER_W/2][FRAMEBUFFER_H/2 + 2 * HGR_MATRIX_YOFFSET]; static BYTE colormixbuffer[6]; static WORD colormixmap[6][6][6]; // int g_nAltCharSetOffset = 0; // alternate character set bool g_bVideoDisplayPage2 = 0; bool g_VideoForceFullRedraw = 1; static LPBYTE framebufferaddr = (LPBYTE)0; static LONG g_nFrameBufferPitch = 0; BOOL g_bGraphicsMode = 0; static BOOL hasrefreshed = 0; static DWORD lastpageflip = 0; COLORREF monochrome = RGB(0xC0,0xC0,0xC0); static BOOL rebuiltsource = 0; static LPBYTE vidlastmem = NULL; int g_bVideoMode = VF_TEXT; DWORD g_eVideoType = VT_COLOR_HALFPIXEL; // VT_COLOR_TVEMU; DWORD g_uHalfScanLines = false; // drop 50% scan lines for a more authentic look static bool g_bTextFlashState = false; static bool g_bTextFlashFlag = false; static bool bVideoScannerNTSC = true; // NTSC video scanning (or PAL) //------------------------------------- // Video consts: const UINT nVBlStop_NTSC = 21; const UINT nVBlStop_PAL = 29; // NOTE: KEEP IN SYNC: VideoType_e g_aVideoChoices g_apVideoModeDesc TCHAR g_aVideoChoices[] = TEXT("Monoochrome (Custom Luminance)\0") TEXT("Color (standard)\0") TEXT("Color (text optimized)\0") TEXT("Color (TV emulation)\0") #if _DEBUG TEXT("Color (Fake Half-Shift)\0") #endif TEXT("Color (Half-Shift)") TEXT("Monochrome (Amber)\0") TEXT("Monochrome (Green)\0") TEXT("Monochrome (White)\0") #if _DEBUG TEXT("Monochrome (Custom)\0") TEXT("Mono Colorize\0") TEXT("Mono Half Pixel Colorize\0") TEXT("Mono Half Pixel 75%\0") TEXT("Mono Half Pixel 95%\0") TEXT("Mono Half Pixel Emboss\0") TEXT("Mono Half Pixel Fake\0") #endif ; // NOTE: KEEP IN SYNC: VideoType_e g_aVideoChoices g_apVideoModeDesc // The window title will be set to this. char *g_apVideoModeDesc[ NUM_VIDEO_MODES ] = { "Monochrome Half-Pixel Real" ,"Std." ,"Text" ,"TV" #if _DEBUG ,"Fake Half-Pixel" #endif ,"Color Half-Pixel Authentic " ,"Amber" ,"Green" ,"White" #if _DEBUG , "Custom" ,"Monochrome Colorize" ,"Monochrome Half-Pixel Colorize" ,"Monochrome Half-Pixel 75" ,"Monochrome Half-Pixel 95" ,"Monochrome Half-Pixel Emboss" ,"Monochrome Half-Pixel Fake" #endif }; // Prototypes (Private) _____________________________________________ void DrawDHiResSource (); void DrawHiResSource (); void DrawHiResSourceHalfShiftFull (); void DrawHiResSourceHalfShiftDim (); void DrawLoResSource (); void DrawTextSource (HDC dc); // Monochrome void DrawMonoDHiResSource (); void DrawMonoHiResSource (); void DrawMonoLoResSource (); void DrawMonoTextSource (HDC dc); // Monochrome Half-Pixel Support void CreateColorLookup_MonoHiResHalfPixel_75 (); void CreateColorLookup_MonoHiResHalfPixel_95 (); void CreateColorLookup_MonoHiResHalfPixel_Emboss (); void CreateColorLookup_MonoHiResHalfPixel_Fake (); void CreateColorLookup_MonoHiResHalfPixel_Real (); void CreateColorLookup_MonoHiResHalfPixel_Colorize (); void CreateColorLookup_MonoHiRes_Colorize (); void CreateColorLookup_HiResHalfPixel_Authentic (); bool g_bDisplayPrintScreenFileName = false; void Util_MakeScreenShotFileName( char *pFinalFileName_ ); bool Util_TestScreenShotFileName( const char *pFileName ); // true = 280x192 // false = 560x384 void Video_SaveScreenShot( const char *pScreenShotFileName ); void Video_MakeScreenShot( FILE *pFile ); int GetMonochromeIndex(); void V_CreateIdentityPalette (); void V_CreateDIBSections (); HBRUSH V_CreateCustomBrush (COLORREF nColor); /** Our BitBlit() / VRAM_Copy() @param dx Dst X @param dy Dst Y @param w Width (same for src & dst) @param h Height (same for src & dst) @param sx Src X @param sy Src Y // =========================================================================== */ void CopySource (int dx, int dy, int w, int h, int sx, int sy ) { LPBYTE pDst = g_aFrameBufferOffset[ dy ] + dx; LPBYTE pSrc = g_aSourceStartofLine[ sy ] + sx; int nBytes; while (h--) { nBytes = w; // If not multiple of 3 bytes, copy first 3 bytes, so the next copy is 4-byte aligned. while (nBytes & 3) { --nBytes; *(pDst+nBytes) = *(pSrc+nBytes); } // Copy 4 bytes at a time while (nBytes) { nBytes -= 4; *(LPDWORD)(pDst+nBytes) = *(LPDWORD)(pSrc+nBytes); } pDst -= g_nFrameBufferPitch; pSrc -= SRCOFFS_TOTAL; } } //=========================================================================== void CreateFrameOffsetTable (LPBYTE addr, LONG pitch) { if ((framebufferaddr == addr) && (g_nFrameBufferPitch == pitch)) return; framebufferaddr = addr; g_nFrameBufferPitch = pitch; // CREATE THE OFFSET TABLE FOR EACH SCAN LINE IN THE FRAME BUFFER for (int y = 0; y < FRAMEBUFFER_H; y++) g_aFrameBufferOffset[y] = framebufferaddr + g_nFrameBufferPitch*((FRAMEBUFFER_H-1)-y); } //=========================================================================== void VideoInitialize () { // CREATE A BUFFER FOR AN IMAGE OF THE LAST DRAWN MEMORY vidlastmem = (LPBYTE)VirtualAlloc(NULL,0x10000,MEM_COMMIT,PAGE_READWRITE); ZeroMemory(vidlastmem,0x10000); // LOAD THE LOGO g_hLogoBitmap = (HBITMAP)LoadImage(g_hInstance, MAKEINTRESOURCE(IDB_APPLEWIN), IMAGE_BITMAP, 0, 0, LR_CREATEDIBSECTION); // CREATE A BITMAPINFO STRUCTURE FOR THE FRAME BUFFER g_pFramebufferinfo = (LPBITMAPINFO)VirtualAlloc( NULL, sizeof(BITMAPINFOHEADER) + 256*sizeof(RGBQUAD), MEM_COMMIT, PAGE_READWRITE); ZeroMemory(g_pFramebufferinfo,sizeof(BITMAPINFOHEADER)+256*sizeof(RGBQUAD)); g_pFramebufferinfo->bmiHeader.biSize = sizeof(BITMAPINFOHEADER); g_pFramebufferinfo->bmiHeader.biWidth = FRAMEBUFFER_W; g_pFramebufferinfo->bmiHeader.biHeight = FRAMEBUFFER_H; g_pFramebufferinfo->bmiHeader.biPlanes = 1; g_pFramebufferinfo->bmiHeader.biBitCount = 8; g_pFramebufferinfo->bmiHeader.biClrUsed = 256; // CREATE A BITMAPINFO STRUCTURE FOR THE SOURCE IMAGE g_pSourceHeader = (LPBITMAPINFO)VirtualAlloc( NULL, sizeof(BITMAPINFOHEADER) + 256*sizeof(RGBQUAD), MEM_COMMIT, PAGE_READWRITE); ZeroMemory(g_pSourceHeader,sizeof(BITMAPINFOHEADER)); g_pSourceHeader->bmiHeader.biSize = sizeof(BITMAPINFOHEADER); g_pSourceHeader->bmiHeader.biWidth = SRCOFFS_TOTAL; g_pSourceHeader->bmiHeader.biHeight = 512; g_pSourceHeader->bmiHeader.biPlanes = 1; g_pSourceHeader->bmiHeader.biBitCount = 8; g_pSourceHeader->bmiHeader.biClrUsed = 256; // VideoReinitialize() ... except we set the frame buffer palette.... V_CreateIdentityPalette(); //RGB() -> none //PALETTERGB() -> PC_EXPLICIT //??? RGB() -> PC_NOCOLLAPSE for( int iColor = 0; iColor < NUM_COLOR_PALETTE; iColor++ ) customcolors[ iColor ] = ((DWORD)PC_EXPLICIT << 24) | RGB( g_pFramebufferinfo->bmiColors[iColor].rgbRed, g_pFramebufferinfo->bmiColors[iColor].rgbGreen, g_pFramebufferinfo->bmiColors[iColor].rgbBlue ); // CREATE THE FRAME BUFFER DIB SECTION AND DEVICE CONTEXT, // CREATE THE SOURCE IMAGE DIB SECTION AND DRAW INTO THE SOURCE BIT BUFFER V_CreateDIBSections(); // RESET THE VIDEO MODE SWITCHES AND THE CHARACTER SET OFFSET VideoResetState(); } //=========================================================================== int GetMonochromeIndex() { int iMonochrome; switch (g_eVideoType) { #if _DEBUG case VT_MONO_CUSTOM: iMonochrome = MONOCHROME_CUSTOM; break; #endif case VT_MONO_AMBER : iMonochrome = MONOCHROME_AMBER ; break; case VT_MONO_GREEN : iMonochrome = MONOCHROME_GREEN ; break; case VT_MONO_WHITE : iMonochrome = WHITE ; break; default : iMonochrome = MONOCHROME_CUSTOM; break; // caller will use MONOCHROME_CUSTOM MONOCHROME_CUSTOM_50 ! } return iMonochrome; } //=========================================================================== void V_CreateIdentityPalette () { if (g_hPalette) { DeleteObject(g_hPalette); } g_hPalette = (HPALETTE)0; SETFRAMECOLOR(BLACK, 0x00,0x00,0x00); SETFRAMECOLOR(DARK_RED, 0x80,0x00,0x00); SETFRAMECOLOR(DARK_GREEN, 0x00,0x80,0x00); SETFRAMECOLOR(DARK_YELLOW, 0x80,0x80,0x00); SETFRAMECOLOR(DARK_BLUE, 0x00,0x00,0x80); SETFRAMECOLOR(DARK_MAGENTA,0x80,0x00,0x80); SETFRAMECOLOR(DARK_CYAN, 0x00,0x80,0x80); SETFRAMECOLOR(LIGHT_GRAY, 0xC0,0xC0,0xC0); SETFRAMECOLOR(MONEY_GREEN, 0xC0,0xDC,0xC0); SETFRAMECOLOR(SKY_BLUE, 0xA6,0xCA,0xF0); // SET FRAME BUFFER TABLE ENTRIES TO CUSTOM COLORS SETFRAMECOLOR(DEEP_RED, 0xD0,0x00,0x30); SETFRAMECOLOR(LIGHT_BLUE,0x60,0xA0,0xFF); SETFRAMECOLOR(BROWN, 0x80,0x50,0x00); SETFRAMECOLOR(ORANGE, 0xFF,0x80,0x00); SETFRAMECOLOR(PINK, 0xFF,0x90,0x80); SETFRAMECOLOR(AQUA, 0x40,0xFF,0x90); SETFRAMECOLOR(HGR_BLACK, 0x00,0x00,0x00); // For tv emulation g_nAppMode SETFRAMECOLOR(HGR_WHITE, 0xFF,0xFF,0xFE); // BUG: PALETTE COLLAPS! NOT white!? Win32 collapses the palette if you have duplicate colors! SETFRAMECOLOR(HGR_BLUE, 0x00,0x80,0xFF); SETFRAMECOLOR(HGR_RED, 0xF0,0x50,0x00); SETFRAMECOLOR(HGR_GREEN, 0x20,0xC0,0x00); SETFRAMECOLOR(HGR_MAGENTA,0xA0,0x00,0xFF); SETFRAMECOLOR(HGR_GREY1, 0x80,0x80,0x80); SETFRAMECOLOR(HGR_GREY2, 0x80,0x80,0x80); SETFRAMECOLOR(HGR_YELLOW, 0xD0,0xB0,0x10); SETFRAMECOLOR(HGR_AQUA, 0x20,0xB0,0xB0); SETFRAMECOLOR(HGR_PURPLE, 0x60,0x50,0xE0); SETFRAMECOLOR(HGR_PINK, 0xD0,0x40,0xA0); SETFRAMECOLOR( MONOCHROME_CUSTOM , GetRValue(monochrome) , GetGValue(monochrome) , GetBValue(monochrome) ); SETFRAMECOLOR( MONOCHROME_CUSTOM_50 , ((GetRValue(monochrome)/2) & 0xFF) , ((GetGValue(monochrome)/2) & 0xFF) , ((GetBValue(monochrome)/2) & 0xFF) ); // SEE: DrawMonoTextSource SETFRAMECOLOR( MONOCHROME_AMBER , 0xFF,0x80,0x01); // Used for Monochrome Hi-Res graphics not text! SETFRAMECOLOR( MONOCHROME_GREEN , 0x00,0xC0,0x01); // Used for Monochrome Hi-Res graphics not text! // BUG PALETTE COLLAPSE: WTF?? Soon as we set 0xFF,0xFF,0xFF we lose text colors?!?! // Windows is collapsing the palette!!! SETFRAMECOLOR( MONOCHROME_WHITE , 0xFE,0xFE,0xFE); // Used for Monochrome Hi-Res graphics not text! SETFRAMECOLOR(CREAM, 0xFF,0xFB,0xF0); // F6 SETFRAMECOLOR(MEDIUM_GRAY, 0xA0,0xA0,0xA4); // F7 SETFRAMECOLOR(DARK_GRAY, 0x80,0x80,0x80); // F8 SETFRAMECOLOR(RED, 0xFF,0x00,0x00); // F9 SETFRAMECOLOR(GREEN, 0x00,0xFF,0x00); // FA SETFRAMECOLOR(YELLOW, 0xFF,0xFF,0x00); // FB SETFRAMECOLOR(BLUE, 0x00,0x00,0xFF); // FC SETFRAMECOLOR(MAGENTA, 0xFF,0x00,0xFF); // FD SETFRAMECOLOR(CYAN, 0x00,0xFF,0xFF); // FE SETFRAMECOLOR(WHITE, 0xFF,0xFF,0xFF); // FF // IF WE ARE IN A PALETTIZED VIDEO MODE, CREATE AN IDENTITY PALETTE HWND window = GetDesktopWindow(); HDC dc = GetDC(window); // int GetDeviceCaps( HDC, nIndex ); int colors = GetDeviceCaps(dc,SIZEPALETTE); // 16/24/32bpp = 0 int system = GetDeviceCaps(dc,NUMCOLORS); // 16/24/32bpp = -1 #if 0 // DD Full Screen Palette // Full Screen Debug Colors BYTE *pTmp; pTmp = ((BYTE*)g_pFramebufferinfo) + sizeof(BITMAPINFOHEADER); pTmp += (DEBUG_COLORS_START * 4); Debug_UpdatePalette( pTmp ); // GET THE PALETTE ENTRIES OF THE LOGO RGBQUAD aLogoPalette[256]; ZeroMemory(aLogoPalette,sizeof(aLogoPalette)); if (g_hLogoBitmap) { BYTE *pSrc = NULL; BITMAP bmp; PBITMAPINFO pbmi; // WORD cClrBits; // Retrieve the bitmap color format, width, and height. if (GetObject(g_hLogoBitmap, sizeof(BITMAP), (LPSTR)&bmp)) { pSrc = (BYTE*) pbmi->bmiColors; // Logo uses 128 colors pTmp = ((BYTE*)g_pFramebufferinfo) + sizeof(BITMAPINFOHEADER); pTmp += (LOGO_COLORS_START * 4); int iPal = 0; for( iPal = 0; iPal < 128; iPal++ ) { *pTmp++ = *pSrc++; *pTmp++ = *pSrc++; *pTmp++ = *pSrc++; *pTmp++ = *pSrc++; } } } #endif int bRasterPalette = (GetDeviceCaps(dc,RASTERCAPS) & RC_PALETTE); if (bRasterPalette && (colors <= 256)) { // GET THE PALETTE ENTRIES OF THE LOGO RGBQUAD aLogoPalette[256]; ZeroMemory(aLogoPalette,sizeof(aLogoPalette)); if (g_hLogoBitmap) { HDC memdc = CreateCompatibleDC(dc); SelectObject(memdc,g_hLogoBitmap); GetDIBColorTable(memdc,0,colors,aLogoPalette); DeleteDC(memdc); } // CREATE A PALETTE ENTRY ARRAY LOGPALETTE *paldata = (LOGPALETTE *)VirtualAlloc( NULL, sizeof(LOGPALETTE) + 256*sizeof(PALETTEENTRY), MEM_COMMIT, PAGE_READWRITE ); paldata->palVersion = 0x300; paldata->palNumEntries = colors; GetSystemPaletteEntries(dc,0,colors,paldata->palPalEntry); // FILL IN THE PALETTE ENTRIES int paletteindex = 0; int logoindex = 0; int halftoneindex = 0; // COPY THE SYSTEM PALETTE ENTRIES AT THE BEGINNING OF THE PALETTE for (; paletteindex < system/2; paletteindex++) paldata->palPalEntry[paletteindex].peFlags = 0; // FILL IN THE MIDDLE PORTION OF THE PALETTE WITH OUR OWN COLORS for (int ourindex = DEEP_RED; ourindex <= NUM_COLOR_PALETTE; ourindex++) { paldata->palPalEntry[paletteindex].peRed = g_pFramebufferinfo->bmiColors[ourindex].rgbRed; paldata->palPalEntry[paletteindex].peGreen = g_pFramebufferinfo->bmiColors[ourindex].rgbGreen; paldata->palPalEntry[paletteindex].peBlue = g_pFramebufferinfo->bmiColors[ourindex].rgbBlue; paldata->palPalEntry[paletteindex].peFlags = PC_NOCOLLAPSE; paletteindex++; } for (; paletteindex < colors-system/2; paletteindex++) { // IF THIS PALETTE ENTRY IS NEEDED FOR THE LOGO, COPY IN THE LOGO COLOR if (aLogoPalette[logoindex].rgbRed && aLogoPalette[logoindex].rgbGreen && aLogoPalette[logoindex].rgbBlue) { paldata->palPalEntry[paletteindex].peRed = aLogoPalette[logoindex].rgbRed; paldata->palPalEntry[paletteindex].peGreen = aLogoPalette[logoindex].rgbGreen; paldata->palPalEntry[paletteindex].peBlue = aLogoPalette[logoindex].rgbBlue; } // OTHERWISE, ADD A HALFTONING COLOR, SO THAT OTHER APPLICATIONS // RUNNING IN THE BACKGROUND WILL HAVE SOME REASONABLE COLORS TO USE else { static BYTE halftonetable[6] = {32,64,96,160,192,224}; paldata->palPalEntry[paletteindex].peRed = halftonetable[halftoneindex % 6]; paldata->palPalEntry[paletteindex].peGreen = halftonetable[halftoneindex/6 % 6]; paldata->palPalEntry[paletteindex].peBlue = halftonetable[halftoneindex/36 % 6]; ++halftoneindex; } ++logoindex; paldata->palPalEntry[paletteindex].peFlags = PC_NOCOLLAPSE; } // COPY THE SYSTEM PALETTE ENTRIES AT THE END OF THE PALETTE for (; paletteindex < colors; paletteindex++) paldata->palPalEntry[paletteindex].peFlags = 0; // FILL THE FRAME BUFFER TABLE WITH COLORS FROM OUR PALETTE for (int iPal = 0; iPal < colors; iPal++) { g_pFramebufferinfo->bmiColors[ iPal ].rgbRed = paldata->palPalEntry[ iPal ].peRed; g_pFramebufferinfo->bmiColors[ iPal ].rgbGreen = paldata->palPalEntry[ iPal ].peGreen; g_pFramebufferinfo->bmiColors[ iPal ].rgbBlue = paldata->palPalEntry[ iPal ].peBlue; } // CREATE THE PALETTE g_hPalette = CreatePalette(paldata); VirtualFree(paldata,0,MEM_RELEASE); } ReleaseDC(window,dc); } //=========================================================================== void DrawMonoTextSource (HDC hDstDC) { static HBITMAP hCharBitmap[4]; HDC hSrcDC = CreateCompatibleDC(hDstDC); hCharBitmap[0] = LoadBitmap(g_hInstance,TEXT("CHARSET40")); hCharBitmap[1] = LoadBitmap(g_hInstance,TEXT("CHARSET82")); hCharBitmap[2] = LoadBitmap(g_hInstance,TEXT("CHARSET8C")); // FIXME: Pravets 8M probably has the same charset as Pravets 8C hCharBitmap[3] = LoadBitmap(g_hInstance,TEXT("CHARSET8C")); HBRUSH hBrush; switch (g_eVideoType) { // case VT_MONO_AUTHENTIC: hBrush = CreateCustomBrush(RGB(0x00,0xC0,0x00)); break; case VT_MONO_AMBER: hBrush = CreateSolidBrush(RGB(0xFF,0x80,0x00)); break; case VT_MONO_GREEN: hBrush = CreateSolidBrush(RGB(0x00,0xC0,0x00)); break; case VT_MONO_WHITE: hBrush = CreateSolidBrush(RGB(0xFF,0xFF,0xFF)); break; default : hBrush = CreateSolidBrush(monochrome); break; // case VT_MONO_AMBER : hBrush = V_CreateCustomBrush(RGB(0xFF,0x80,0x00)); break; // Should (must?) match MONOCHROME_AMBER ! // case VT_MONO_GREEN : hBrush = V_CreateCustomBrush(RGB(0x00,0xC0,0x00)); break; // SHould (must?) match MONOCHROME_GREEN ! // case VT_MONO_WHITE : hBrush = V_CreateCustomBrush(RGB(0xFF,0xFF,0xFF)); break; // BUG: PALETTE COLLAPSE: Must NOT match MONOCHROME_WHITE ! // case VT_MONO_CUSTOM: hBrush = V_CreateCustomBrush(monochrome); break; // default : hBrush = V_CreateCustomBrush(monochrome); break; } SelectObject(hSrcDC,hCharBitmap[g_nCharsetType]); SelectObject(hDstDC,hBrush); // TODO: Update with APPLE_FONT_Y_ values BitBlt( hDstDC,SRCOFFS_40COL ,0,256,512,hSrcDC,0, 0,MERGECOPY); BitBlt( hDstDC,SRCOFFS_IIPLUS,0,256,256,hSrcDC,0,512,MERGECOPY); StretchBlt(hDstDC,SRCOFFS_80COL ,0,128,512,hSrcDC,0, 0,256,512,MERGECOPY); SelectObject(hDstDC,GetStockObject(NULL_BRUSH)); DeleteObject(hBrush); DeleteDC(hSrcDC); DeleteObject(hCharBitmap); } //=========================================================================== void V_CreateDIBSections () { CopyMemory(g_pSourceHeader->bmiColors,g_pFramebufferinfo->bmiColors,256*sizeof(RGBQUAD)); // CREATE THE DEVICE CONTEXT HWND window = GetDesktopWindow(); HDC dc = GetDC(window); if (g_hDeviceDC) { DeleteDC(g_hDeviceDC); } g_hDeviceDC = CreateCompatibleDC(dc); // CREATE THE FRAME BUFFER DIB SECTION if (g_hDeviceBitmap) DeleteObject(g_hDeviceBitmap); g_hDeviceBitmap = CreateDIBSection( dc, g_pFramebufferinfo, DIB_RGB_COLORS, (LPVOID *)&g_pFramebufferbits,0,0 ); SelectObject(g_hDeviceDC,g_hDeviceBitmap); // CREATE THE SOURCE IMAGE DIB SECTION HDC sourcedc = CreateCompatibleDC(dc); ReleaseDC(window,dc); if (g_hSourceBitmap) DeleteObject(g_hSourceBitmap); g_hSourceBitmap = CreateDIBSection( sourcedc, g_pSourceHeader, DIB_RGB_COLORS, (LPVOID *)&g_pSourcePixels,0,0 ); SelectObject(sourcedc,g_hSourceBitmap); // CREATE THE OFFSET TABLE FOR EACH SCAN LINE IN THE SOURCE IMAGE for (int y = 0; y < MAX_SOURCE_Y; y++) g_aSourceStartofLine[ y ] = g_pSourcePixels + SRCOFFS_TOTAL*((MAX_SOURCE_Y-1) - y); // DRAW THE SOURCE IMAGE INTO THE SOURCE BIT BUFFER ZeroMemory(g_pSourcePixels,SRCOFFS_TOTAL*512); // First monochrome mode is seperate from others if ((g_eVideoType >= VT_COLOR_STANDARD) && (g_eVideoType <= VT_COLOR_HALFPIXEL)) { DrawTextSource(sourcedc); DrawLoResSource(); #if _DEBUG if (g_eVideoType == VT_COLOR_HALF_SHIFT_DIM) DrawHiResSourceHalfShiftDim(); else #endif if (g_eVideoType == VT_COLOR_HALFPIXEL) CreateColorLookup_HiResHalfPixel_Authentic(); else DrawHiResSource(); DrawDHiResSource(); } else { DrawMonoTextSource(sourcedc); DrawMonoLoResSource(); switch (g_eVideoType) { case VT_MONO_AMBER : /* intentional fall-thru */ case VT_MONO_GREEN : /* intentional fall-thru */ case VT_MONO_WHITE : /* intentional fall-thru */ case VT_MONO_HALFPIXEL_REAL : CreateColorLookup_MonoHiResHalfPixel_Real() ; break; #if _DEBUG case VT_MONO_CUSTOM : DrawMonoHiResSource() ; break; case VT_MONO_HALFPIXEL_COLORIZE: CreateColorLookup_MonoHiResHalfPixel_Colorize(); break; case VT_MONO_HALFPIXEL_75 : CreateColorLookup_MonoHiResHalfPixel_75() ; break; case VT_MONO_HALFPIXEL_95 : CreateColorLookup_MonoHiResHalfPixel_95() ; break; case VT_MONO_HALFPIXEL_EMBOSS : CreateColorLookup_MonoHiResHalfPixel_Emboss() ; break; case VT_MONO_HALFPIXEL_FAKE : CreateColorLookup_MonoHiResHalfPixel_Fake() ; break; case VT_MONO_COLORIZE : CreateColorLookup_MonoHiRes_Colorize() ; break; #endif default: DrawMonoHiResSource(); break; } DrawMonoDHiResSource(); } DeleteDC(sourcedc); } //=========================================================================== void DrawDHiResSource () { BYTE colorval[16] = {BLACK, DARK_BLUE, DARK_GREEN,BLUE, BROWN, LIGHT_GRAY,GREEN, AQUA, DEEP_RED,MAGENTA, DARK_GRAY, LIGHT_BLUE, ORANGE, PINK, YELLOW, WHITE}; #define OFFSET 3 #define SIZE 10 for (int column = 0; column < 256; column++) { int coloffs = SIZE * column; for (unsigned byteval = 0; byteval < 256; byteval++) { int color[SIZE]; ZeroMemory(color,sizeof(color)); unsigned pattern = MAKEWORD(byteval,column); int pixel; for (pixel = 1; pixel < 15; pixel++) { if (pattern & (1 << pixel)) { int pixelcolor = 1 << ((pixel-OFFSET) & 3); if ((pixel >= OFFSET+2) && (pixel < SIZE+OFFSET+2) && (pattern & (0x7 << (pixel-4)))) color[pixel-(OFFSET+2)] |= pixelcolor; if ((pixel >= OFFSET+1) && (pixel < SIZE+OFFSET+1) && (pattern & (0xF << (pixel-4)))) color[pixel-(OFFSET+1)] |= pixelcolor; if ((pixel >= OFFSET+0) && (pixel < SIZE+OFFSET+0)) color[pixel-(OFFSET+0)] |= pixelcolor; if ((pixel >= OFFSET-1) && (pixel < SIZE+OFFSET-1) && (pattern & (0xF << (pixel+1)))) color[pixel-(OFFSET-1)] |= pixelcolor; if ((pixel >= OFFSET-2) && (pixel < SIZE+OFFSET-2) && (pattern & (0x7 << (pixel+2)))) color[pixel-(OFFSET-2)] |= pixelcolor; } } if (g_eVideoType == VT_COLOR_TEXT_OPTIMIZED) { /*** activate for fringe reduction on white hgr text drawback: loss of color mix patterns in hgr g_nAppMode. select g_eVideoType by index ***/ for (pixel = 0; pixel < 13; pixel++) { if ((pattern & (0xF << pixel)) == (unsigned)(0xF << pixel)) for (int pos = pixel; pos < pixel + 4; pos++) if (pos >= OFFSET && pos < SIZE+OFFSET) color[pos-OFFSET] = 15; } } int y = byteval << 1; for (int x = 0; x < SIZE; x++) { SETSOURCEPIXEL(SRCOFFS_DHIRES+coloffs+x,y ,colorval[color[x]]); SETSOURCEPIXEL(SRCOFFS_DHIRES+coloffs+x,y+1,colorval[color[x]]); } } } #undef SIZE #undef OFFSET } enum ColorMapping { CM_Magenta , CM_Blue , CM_Green , CM_Orange , CM_Black , CM_White , NUM_COLOR_MAPPING }; const BYTE aColorIndex[ NUM_COLOR_MAPPING ] = { HGR_MAGENTA , HGR_BLUE , HGR_GREEN , HGR_RED , HGR_BLACK , HGR_WHITE }; const BYTE aColorDimmedIndex[ NUM_COLOR_MAPPING ] = { DARK_MAGENTA, // <- HGR_MAGENTA DARK_BLUE , // <- HGR_BLUE DARK_GREEN , // <- HGR_GREEN DEEP_RED , // <- HGR_RED HGR_BLACK , // no change LIGHT_GRAY // HGR_WHITE }; //=========================================================================== void DrawHiResSourceHalfShiftDim () { // BYTE colorval[6] = {MAGENTA,BLUE,GREEN,ORANGE,BLACK,WHITE}; // BYTE colorval[6] = {HGR_MAGENTA,HGR_BLUE,HGR_GREEN,HGR_RED,HGR_BLACK,HGR_WHITE}; for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; if (aPixels[iPixel]) { if (aPixels[iPixel-1] || aPixels[iPixel+1]) { color = CM_White; } else color = ((odd ^ (iPixel&1)) << 1) | hibit; } else if (aPixels[iPixel-1] && aPixels[iPixel+1]) { /*** activate for fringe reduction on white hgr text - drawback: loss of color mix patterns in HGR mode. select g_eVideoType by index exclusion ***/ if (!(aPixels[iPixel-2] && aPixels[iPixel+2])) color = ((odd ^ !(iPixel&1)) << 1) | hibit; } /* Address Binary -> Displayed 2000:01 0---0001 -> 1 0 0 0 column 1 2400:81 1---0001 -> 1 0 0 0 half-pixel shift right 2800:02 1---0010 -> 0 1 0 0 column 2 2000:02 column 2 2400:82 half-pixel shift right 2800:04 column 3 2000:03 0---0011 -> 1 1 0 0 column 1 & 2 2400:83 1---0011 -> 1 1 0 0 half-pixel shift right 2800:06 1---0110 -> 0 1 1 0 column 2 & 3 @reference: see Beagle Bro's Disk: "Silicon Salad", File: DOUBLE HI-RES Fortunately double-hires is supported via pixel doubling, so we can do half-pixel shifts ;-) */ switch (color) { case CM_Magenta: SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , HGR_MAGENTA ); // aColorIndex SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , DARK_MAGENTA ); // aColorDimmedIndex SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, HGR_MAGENTA ); // aColorIndex SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1, DARK_MAGENTA ); // aColorDimmedIndex break; case CM_Blue : SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , HGR_BLUE ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+2,y , DARK_BLUE ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1, HGR_BLUE ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+2,y+1, DARK_BLUE ); // Prevent column gaps if (hibit) { if (iPixel <= 2) { SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , DARK_BLUE ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, DARK_BLUE ); } } break; case CM_Green : SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , HGR_GREEN ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , DARK_GREEN ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, HGR_GREEN ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1, DARK_GREEN ); break; case CM_Orange: SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , HGR_RED ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+2,y , BROWN ); // DARK_RED is a bit "too" red SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1, HGR_RED ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+2,y+1, BROWN ); // DARK_RED is a bit "too" red // Prevent column gaps if (hibit) { if (iPixel <= 2) { SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , BROWN ); // DARK_RED is a bit "too" red SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, BROWN ); // DARK_RED is a bit "too" red } } break; case CM_Black : SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , HGR_BLACK ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , HGR_BLACK ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, HGR_BLACK ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1, HGR_BLACK ); break; case CM_White : #if HALF_SHIFT_DIM // 50% dither -- would look OK, except Gumball, on the "Gumball" font has splotches // SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , HGR_WHITE ); // SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1, HGR_WHITE ); // if (! hibit) // { // SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , HGR_WHITE ); // SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, HGR_WHITE ); // } // 75% dither -- looks kind of nice actually. Passes the Gumball cutscene quality test! SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , HGR_WHITE ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1, HGR_WHITE ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , LIGHT_GRAY ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, LIGHT_GRAY ); #else // Don't dither / half-shift white, since DROL cutscene looks bad :( SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , HGR_WHITE ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , HGR_WHITE ); SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, HGR_WHITE ); // LIGHT_GRAY <- for that half scan-line look SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1, HGR_WHITE ); // LIGHT_GRAY <- for that half scan-line look // Prevent column gaps if (hibit) { if (iPixel <= 2) { SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , HGR_WHITE ); // LIGHT_GRAY HGR_GREY1 SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1, HGR_WHITE ); // LIGHT_GRAY HGR_GREY1 } } #endif break; default: break; } x += 2; } } } } } //=========================================================================== void DrawHiResSource () { int iMonochrome = GetMonochromeIndex(); // BYTE colorval[6] = {MAGENTA,BLUE,GREEN,ORANGE,BLACK,WHITE}; // BYTE colorval[6] = {HGR_MAGENTA,HGR_BLUE,HGR_GREEN,HGR_RED,HGR_BLACK,HGR_WHITE}; for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; if (aPixels[iPixel]) { if (aPixels[iPixel-1] || aPixels[iPixel+1]) color = CM_White; else color = ((odd ^ (iPixel&1)) << 1) | hibit; } else if (aPixels[iPixel-1] && aPixels[iPixel+1]) { /*** activate for fringe reduction on white hgr text - drawback: loss of color mix patterns in hgr g_nAppMode. select g_eVideoType by index exclusion ***/ if ((g_eVideoType == VT_COLOR_STANDARD) || (g_eVideoType == VT_COLOR_TVEMU) || !(aPixels[iPixel-2] && aPixels[iPixel+2])) color = ((odd ^ !(iPixel&1)) << 1) | hibit; // // No white HGR text optimization } //if (g_eVideoType == VT_MONO_AUTHENTIC) //{ // int nMonoColor = (color != CM_Black) ? iMonochrome : BLACK; // SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y , nMonoColor); // buggy // SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y , nMonoColor); // buggy // SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,BLACK); // BL // SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,BLACK); // BR //} //else { // Colors - Top/Bottom Left/Right // cTL cTR // cBL cBR SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y ,aColorIndex[color]); // TL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y ,aColorIndex[color]); // TR SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,aColorIndex[color]); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,aColorIndex[color]); // BR } x += 2; } } } } } //=========================================================================== void DrawLoResSource () { BYTE colorval[16] = {BLACK, DEEP_RED, DARK_BLUE, MAGENTA, DARK_GREEN,DARK_GRAY,BLUE, LIGHT_BLUE, BROWN, ORANGE, LIGHT_GRAY,PINK, GREEN, YELLOW, AQUA, WHITE}; for (int color = 0; color < 16; color++) for (int x = 0; x < 16; x++) for (int y = 0; y < 16; y++) SETSOURCEPIXEL(SRCOFFS_LORES+x,(color << 4)+y,colorval[color]); } //=========================================================================== void DrawMonoDHiResSource () { int iMonochrome = GetMonochromeIndex(); for (int column = 0; column < 256; column++) { int coloffs = 10 * column; for (unsigned byteval = 0; byteval < 256; byteval++) { unsigned pattern = MAKEWORD(byteval,column); int y = byteval << 1; for (int x = 0; x < 10; x++) { BYTE colorval = pattern & (1 << (x+3)) ? iMonochrome : BLACK; #if 0 if (g_eVideoType == VT_MONO_AUTHENTIC) { SETSOURCEPIXEL(SRCOFFS_DHIRES+coloffs+x,y ,colorval); SETSOURCEPIXEL(SRCOFFS_DHIRES+coloffs+x,y+1,BLACK); } else #endif { SETSOURCEPIXEL(SRCOFFS_DHIRES+coloffs+x,y ,colorval); SETSOURCEPIXEL(SRCOFFS_DHIRES+coloffs+x,y+1,colorval); } } } } } //=========================================================================== void DrawMonoHiResSource () { int iMonochrome = GetMonochromeIndex(); #if 1 for (int column = 0; column < 512; column += 16) { for (int y = 0; y < 512; y += 2) // optimization: Byte=0..FF, Row=Byte*2 { unsigned val = (y >> 1); // iByte = (y / 2) for (int x = 0; x < 16; x += 2) // 8 pixels { BYTE colorval = (val & 1) ? iMonochrome : BLACK; val >>= 1; SETSOURCEPIXEL(SRCOFFS_HIRES+column+x ,y ,colorval); SETSOURCEPIXEL(SRCOFFS_HIRES+column+x+1,y ,colorval); { SETSOURCEPIXEL(SRCOFFS_HIRES+column+x ,y+1,colorval); SETSOURCEPIXEL(SRCOFFS_HIRES+column+x+1,y+1,colorval); } } } } #else for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; int color1 = BLACK; int color2 = BLACK; #if 0 // Initial version // Gumball Logo looks better with this, as we have solid whites, but the test pattern: 22 92 14 8C 08 08 08 is off if (aPixels[iPixel]) { if (aPixels[iPixel-1] || aPixels[iPixel+1]) { color = CM_White; } else color = ((odd ^ (iPixel&1)) << 1) | hibit; } else if (aPixels[iPixel-1] && aPixels[iPixel+1]) if (!(aPixels[iPixel-2] && aPixels[iPixel+2])) color = ((odd ^ !(iPixel&1)) << 1) | hibit; #endif #if 1 // 50% luminance: Gumball Logo looks "blocky", but silicon salad menu looks very good, and test pattern passes. if (aPixels[iPixel]) { color = ((odd ^ (iPixel&1)) << 1) | hibit; } #endif #if 0 if (aPixels[iPixel]) { color = ((odd ^ (iPixel&1)) << 1) | hibit; if (aPixels[iPixel-1]) { if (adj) color = CM_White; else // if (iPixel > 2) if (!hibit) color = CM_White; // NUM_COLOR_MAPPING } } #endif #if 0 // 95% luminance - the left leading edge has a "pseudo" drop shadow. Gumball logo looks bright, with the 80's retro leading edge. if (aPixels[iPixel]) { color = ((odd ^ (iPixel&1)) << 1) | hibit; if (aPixels[iPixel-1]) { // color = NUM_COLOR_MAPPING; // "emboss" look if(aPixels[iPixel+1]) color = CM_White; else color = CM_Magenta; } } #endif switch(color) { case CM_Magenta: color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Blue : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Green : color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Orange : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Black : color1 = BLACK ; color2 = BLACK ; break; case CM_White : color1 = iMonochrome ; color2 = iMonochrome ; break; case NUM_COLOR_MAPPING: color1 = color2 = iMonochrome+1; break; default: break; } // Colors - Top/Bottom Left/Right SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y ,color1); // TL buggy SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y ,color2); // TR buggy SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,color1); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,color2); // BR x += 2; } } } } #endif } // This matches half-pixel exactly //=========================================================================== void CreateColorLookup_MonoHiResHalfPixel_75 () { int iMonochrome = GetMonochromeIndex(); for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; int color1 = BLACK; int color2 = BLACK; // 50% luminance: Gumball Logo looks "blocky", but silicon salad menu looks very good, and test pattern passes. if (aPixels[iPixel]) { color = ((odd ^ (iPixel&1)) << 1) | hibit; } switch(color) { case CM_Magenta: color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Blue : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Green : color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Orange : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Black : color1 = BLACK ; color2 = BLACK ; break; case CM_White : color1 = iMonochrome ; color2 = iMonochrome ; break; case NUM_COLOR_MAPPING: color1 = color2 = iMonochrome+1; break; default: break; } // Colors - Top/Bottom Left/Right SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y ,color1); // TL buggy SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y ,color2); // TR buggy SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,color1); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,color2); // BR x += 2; } } } } } //=========================================================================== void CreateColorLookup_MonoHiResHalfPixel_95 () { int iMonochrome = GetMonochromeIndex(); for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; int color1 = BLACK; int color2 = BLACK; // 95% luminance - the left leading edge has a "pseudo" drop shadow. Gumball logo looks bright, with the 80's retro leading edge. if (aPixels[iPixel]) { color = ((odd ^ (iPixel&1)) << 1) | hibit; if (aPixels[iPixel-1]) { if(aPixels[iPixel+1]) color = CM_White; else color = CM_Magenta; } } switch(color) { case CM_Magenta: color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Blue : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Green : color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Orange : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Black : color1 = BLACK ; color2 = BLACK ; break; case CM_White : color1 = iMonochrome ; color2 = iMonochrome ; break; default: break; } // Colors - Top/Bottom Left/Right SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y ,color1); // TL buggy SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y ,color2); // TR buggy SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,color1); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,color2); // BR x += 2; } } } } } //=========================================================================== void CreateColorLookup_MonoHiResHalfPixel_Emboss () { int iMonochrome = GetMonochromeIndex(); for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; int color1 = BLACK; int color2 = BLACK; // Emboss if (aPixels[iPixel]) { color = ((odd ^ (iPixel&1)) << 1) | hibit; if (aPixels[iPixel-1]) color = NUM_COLOR_MAPPING; } switch(color) { case CM_Magenta: color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Blue : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Green : color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Orange : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Black : color1 = BLACK ; color2 = BLACK ; break; case CM_White : color1 = iMonochrome ; color2 = iMonochrome ; break; case NUM_COLOR_MAPPING: color1 = color2 = iMonochrome+1; break; default: break; } // Colors - Top/Bottom Left/Right SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y ,color1); // TL buggy SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y ,color2); // TR buggy SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,color1); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,color2); // BR x += 2; } } } } } //=========================================================================== void CreateColorLookup_MonoHiResHalfPixel_Fake () { int iMonochrome = GetMonochromeIndex(); for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; int color1 = BLACK; int color2 = BLACK; #if 0 // Gumball Logo looks better with this, as we have solid whites, but the test pattern: 22 92 14 8C 08 08 08 is off if (aPixels[iPixel]) { if (aPixels[iPixel-1] || aPixels[iPixel+1]) if (aPixels[iPixel-1]) { color = CM_White; } else color = ((odd ^ (iPixel&1)) << 1) | hibit; } else if (aPixels[iPixel-1] && aPixels[iPixel+1]) if (!(aPixels[iPixel-2] && aPixels[iPixel+2])) color = ((odd ^ !(iPixel&1)) << 1) | hibit; #endif #if 0 // 100% luminance emboss if (aPixels[iPixel]) { color = ((odd ^ (iPixel&1)) << 1) | hibit; if (aPixels[iPixel-1]) color = CM_White; } #endif #if 1 if (aPixels[iPixel]) { if (aPixels[iPixel-1]) // prev pixel on { color = CM_White; if (!aPixels[iPixel+1]) // nextpixel off color = CM_Magenta; } else if( hibit ) color = CM_Blue; else if (aPixels[iPixel+1]) color = CM_Blue; else color = CM_Magenta; } #endif switch(color) { case CM_Magenta: color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Blue : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Green : color1 = iMonochrome ; color2 = iMonochrome+1; break; case CM_Orange : color1 = iMonochrome+1; color2 = iMonochrome ; break; case CM_Black : color1 = BLACK ; color2 = BLACK ; break; case CM_White : color1 = iMonochrome ; color2 = iMonochrome ; break; case NUM_COLOR_MAPPING: color1 = color2 = iMonochrome; break; // 100% luminance emboss default: break; } // Colors - Top/Bottom Left/Right SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y ,color1); // TL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y ,color2); // TR SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,color1); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,color2); // BR x += 2; } } } } } //=========================================================================== void CreateColorLookup_HiResHalfPixel_Authentic () { // 2-bits from previous byte, 2-bits from next byte = 2^4 = 16 total permutations for (int iColumn = 0; iColumn < 16; iColumn++) { int offsetx = iColumn << 5; // every column is 32 bytes wide -- 7 apple pixels = 14 pixels + 2 pad + 14 pixels + 2 pad for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; // c2 c1 b7 b6 b5 b4 b3 b2 b1 b0 c8 c4 /* aPixel[i] A 9|8 7 6 5 4 3 2|1 0 Z W|b b b b b b b|X Y ----+-------------+---- prev| existing |next bits| hi-res byte |bits Legend: XYZW = iColumn in binary b = Bytes in binary */ // aPixel[] = 48bbbbbbbb12, where b = iByte in binary, # is bit-n of column aPixels[ 0] = iColumn & 4; // previous byte, 2nd last pixel aPixels[ 1] = iColumn & 8; // previous byte, last pixel aPixels[ 9] = iColumn & 1; // next byte, first pixel aPixels[10] = iColumn & 2; // next byte, second pixel // Convert raw pixel Byte value to binary and stuff into bit array of pixels on off int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = (iByte >> 7) & 1; // ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; /* Test cases 81 blue 2000:D5 AA D5 AA 82 orange 2800:AA D5 AA D5 FF white bleed "thru" 3000:7F 80 7F 80 3800:FF 80 FF 80 2028:80 7F 80 7F 2828:80 FF 80 FF Edge Case??? 2000:C4 00 2400:c4 80 */ // Fixup missing pixels that normally have been scan-line shifted -- Apple "half-pixel" -- but cross 14-pixel boundaries. if( hibit ) { if ( aPixels[1] ) // preceeding pixel on? #if 0 // Optimization: Doesn't seem to matter if we ignore the 2 pixels of the next byte for (iPixel = 0; iPixel < 9; iPixel++) // NOTE: You MUST start with the preceding 2 pixels !!! if (aPixels[iPixel]) // pixel on #endif { if (aPixels[2] || aPixels[0]) // White if pixel from previous byte and first pixel of this byte is on { SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+0 ,y , HGR_WHITE ); SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+0 ,y+1, HGR_WHITE ); SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+16,y , HGR_WHITE ); SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+16,y+1, HGR_WHITE ); } else { // Optimization: odd = (iPixel & 1); if (!odd) case is same as if(odd) !!! // Reference: Gumball - Gumball Machine SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+0 ,y , HGR_RED ); // left half of orange pixels SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+0 ,y+1, HGR_RED ); SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+16,y , HGR_BLUE ); // right half of blue pixels 4, 11, 18, ... SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+16,y+1, HGR_BLUE ); } } } x += hibit; while (x < 28) { int adj = (x >= 14) << 1; // Adjust start of 7 last pixels to be 16-byte aligned! int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; if (aPixels[iPixel]) // pixel on { color = CM_White; if (aPixels[iPixel-1] || aPixels[iPixel+1]) // adjacent pixels are always white color = CM_White; else color = ((odd ^ (iPixel&1)) << 1) | hibit; // map raw color to our hi-res colors } SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+adj ,y ,aColorIndex[color]); // TL SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+adj+1,y ,aColorIndex[color]); // TR SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+adj ,y+1,aColorIndex[color]); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+offsetx+x+adj+1,y+1,aColorIndex[color]); // BR x += 2; } } } } } //=========================================================================== void CreateColorLookup_MonoHiResHalfPixel_Real () { int iMono = GetMonochromeIndex(); for (int iColumn = 0; iColumn < 16; iColumn++) { int offset = iColumn << 5; // every column is 32 bytes wide for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; // c2 c1 b7 b6 b5 b4 b3 b2 b1 b0 c8 c4 aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = (iByte >> 7) & 1; // ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; // Fixup missing pixels that normally have been scan-line shifted -- Apple "half-pixel" -- but cross 14-pixel boundaries. if( hibit ) { /* Test Cases // Games Archon Logo Gumball (at Machine) // Applesoft HGR:HCOLOR=5:HPLOT 0,0 TO 279,0 // Blue // Orange CALL-151 C050 C052 C057 2000:D0 80 00 2800:80 D0 00 */ if ( aPixels[1] ) // preceeding pixel on? { SETSOURCEPIXEL(SRCOFFS_HIRES+offset+x ,y ,iMono); // first 7 HGR_BLUE SETSOURCEPIXEL(SRCOFFS_HIRES+offset+x ,y+1,iMono); // first 7 SETSOURCEPIXEL(SRCOFFS_HIRES+offset+x+16,y ,iMono); // second 7 HGR_RED SETSOURCEPIXEL(SRCOFFS_HIRES+offset+x+16,y+1,iMono); // second 7 } } while (x < 28) { int adj = (x >= 14) << 1; // Adjust start of 7 last pixels to be 16-byte aligned! int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = aPixels[iPixel] ? iMono : HGR_BLACK; // Colors - Top/Bottom Left/Right SETSOURCEPIXEL(SRCOFFS_HIRES+offset+x+adj +hibit,y ,color); // TL SETSOURCEPIXEL(SRCOFFS_HIRES+offset+x+adj+1+hibit,y ,color); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+offset+x+adj +hibit,y+1,color); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+offset+x+adj+1+hibit,y+1,color); // BR x += 2; } } } } } //=========================================================================== void CreateColorLookup_MonoHiResHalfPixel_Colorize () { int iMono = GetMonochromeIndex(); for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; int color1 = BLACK; int color2 = BLACK; if (aPixels[iPixel]) color = ((odd ^ (iPixel&1)) << 1) | hibit; switch (color) { case CM_Magenta: color1 = HGR_MAGENTA; color2 = BLACK ; break; case CM_Blue : color1 = BLACK ; color2 = HGR_BLUE; break; // hibit=1 case CM_Green : color1 = HGR_GREEN ; color2 = BLACK ; break; case CM_Orange : color1 = BLACK ; color2 = HGR_RED ; break; // hibit=1 case CM_Black : color1 = BLACK ; color2 = BLACK ; break; case CM_White : color1 = iMono ; color2 = iMono ; break; default: break; } // Colors - Top/Bottom Left/Right SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y ,color1); // TL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y ,color2); // TR SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,color1); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,color2); // BR x += 2; } } } } } //=========================================================================== void CreateColorLookup_MonoHiRes_Colorize () { int iMono = GetMonochromeIndex(); for (int iColumn = 0; iColumn < 16; iColumn++) { int coloffs = iColumn << 5; for (unsigned iByte = 0; iByte < 256; iByte++) { int aPixels[11]; aPixels[ 0] = iColumn & 4; aPixels[ 1] = iColumn & 8; aPixels[ 9] = iColumn & 1; aPixels[10] = iColumn & 2; int nBitMask = 1; int iPixel; for (iPixel = 2; iPixel < 9; iPixel++) { aPixels[iPixel] = ((iByte & nBitMask) != 0); nBitMask <<= 1; } int hibit = ((iByte & 0x80) != 0); int x = 0; int y = iByte << 1; while (x < 28) { int adj = (x >= 14) << 1; int odd = (x >= 14); for (iPixel = 2; iPixel < 9; iPixel++) { int color = CM_Black; int color1 = BLACK; if (aPixels[iPixel]) color = ((odd ^ (iPixel&1)) << 1) | hibit; switch (color) { case CM_Magenta: color1 = HGR_MAGENTA; break; case CM_Blue : color1 = HGR_BLUE ; break; case CM_Green : color1 = HGR_GREEN ; break; case CM_Orange : color1 = HGR_RED ; break; case CM_Black : color1 = BLACK ; break; case CM_White : color1 = iMono ; break; default: break; } // Colors - Top/Bottom Left/Right SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y ,color1); // TL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y ,color1); // TR SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj ,y+1,color1); // BL SETSOURCEPIXEL(SRCOFFS_HIRES+coloffs+x+adj+1,y+1,color1); // BR x += 2; } } } } } //=========================================================================== void DrawMonoLoResSource () { int iMonochrome = GetMonochromeIndex(); for (int color = 0; color < 16; color++) { for (int x = 0; x < 16; x++) { for (int y = 0; y < 16; y++) { BYTE colorval = (color >> (x & 3) & 1) ? iMonochrome : BLACK; #if 0 if (g_eVideoType == VT_MONO_AUTHENTIC) { if (y & 1) SETSOURCEPIXEL(SRCOFFS_LORES+x,(color << 4)+y,BLACK); else SETSOURCEPIXEL(SRCOFFS_LORES+x,(color << 4)+y,colorval); } else #endif { SETSOURCEPIXEL(SRCOFFS_LORES+x,(color << 4)+y,colorval); } } } } } // google: CreateDIBPatternBrushPt // http://209.85.141.104/search?q=cache:mB3htrQGW8kJ:bookfire.net/wince/wince-programming-ms-press2/source/prowice/ch02e.htm struct BRUSHBMP { BITMAPINFOHEADER bmi; COLORREF dwPal[2]; BYTE bBits[64]; }; HBRUSH V_CreateCustomBrush(COLORREF nColor) { BRUSHBMP brbmp; BYTE *pBytes; int i; //DWORD dwBits[6][2] = //{ // {0x000000ff,0x00000000}, // HS_HORIZONTAL 0 /* ----- */ // {0x10101010,0x10101010}, // HS_VERTICAL 1 /* ||||| */ // {0x01020408,0x10204080}, // HS_FDIAGONAL 2 /* \\\\\ */ // {0x80402010,0x08040201}, // HS_BDIAGONAL 3 /* ///// */ // {0x101010ff,0x10101010}, // HS_CROSS 4 /* +++++ */ // {0x81422418,0x18244281}, // HS_DIAGCROSS 5 /* xxxxx */ //}; // if ((HatchStyle < 0) || (HatchStyle > 6)) // return 0; int HatchStyle = 0; DWORD dwBits[1][2] = { // {0xff00ff00,0xff00ff00} // every other scan line {0xFFFFFFFF,0xFFFFFFFF} }; memset (&brbmp, 0, sizeof (brbmp)); brbmp.bmi.biSize = sizeof (BITMAPINFOHEADER); brbmp.bmi.biWidth = 8; brbmp.bmi.biHeight = 8; brbmp.bmi.biPlanes = 1; brbmp.bmi.biBitCount = 1; brbmp.bmi.biClrUsed = 2; brbmp.bmi.biClrImportant = 2; // Initialize the palette of the bitmap. brbmp.dwPal[0] = PALETTERGB(0x00,0x00,0x00); brbmp.dwPal[1] = PALETTERGB( (BYTE)((nColor >> 16) & 0xff), (BYTE)((nColor >> 8) & 0xff), (BYTE)((nColor >> 0) & 0xff)); // Write the hatch data to the bitmap. pBytes = (BYTE *)&dwBits[HatchStyle]; for (i = 0; i < 8; i++) brbmp.bBits[i*4] = *pBytes++; // Return the handle of the brush created. return CreateDIBPatternBrushPt (&brbmp, DIB_RGB_COLORS); } //=========================================================================== void DrawTextSource (HDC dc) { HDC memdc = CreateCompatibleDC(dc); static HBITMAP hCharBitmap[4]; //The charset is set below hCharBitmap[0] = LoadBitmap(g_hInstance,TEXT("CHARSET40")); hCharBitmap[1] = LoadBitmap(g_hInstance,TEXT("CHARSET82")); hCharBitmap[2] = LoadBitmap(g_hInstance,TEXT("CHARSET8C")); // FIXME: Pravets 8M probably has the same charset as Pravets 8C hCharBitmap[3] = LoadBitmap(g_hInstance,TEXT("CHARSET8C")); SelectObject(memdc,hCharBitmap[g_nCharsetType]); BitBlt( dc // hdcDest ,SRCOFFS_40COL ,0 // nXDest, nYDest ,256 ,512 // nWidth, nHeight ,memdc // hdcSrc ,0 ,0 // nXSrc, nYSrc ,SRCCOPY ); // dwRop // Chars for Apple ][ BitBlt(dc,SRCOFFS_IIPLUS,0,256,256,memdc,0,512,SRCCOPY); // Chars for 80 col mode StretchBlt(dc,SRCOFFS_80COL,0,128,512,memdc,0,0,256,512,SRCCOPY); DeleteDC(memdc); DeleteObject(hCharBitmap); } //=========================================================================== void SetLastDrawnImage () { memcpy(vidlastmem+0x400,g_pTextBank0,0x400); if (SW_HIRES) memcpy(vidlastmem+0x2000,g_pHiresBank0,0x2000); if (SW_DHIRES && SW_HIRES) memcpy(vidlastmem,g_pHiresBank1,0x2000); else if (SW_80COL) // Don't test for !SW_HIRES, as some 80-col text routines have SW_HIRES set (Bug #8300) memcpy(vidlastmem,g_pTextBank1,0x400); int loop; for (loop = 0; loop < 256; loop++) { *(memdirty+loop) &= ~2; } } //=========================================================================== bool Update40ColCell (int x, int y, int xpixel, int ypixel, int offset) { BYTE ch = *(g_pTextBank0+offset); bool bCharChanged = (ch != *(vidlastmem+offset+0x400) || g_VideoForceFullRedraw); // FLASHing chars: // - FLASHing if:Alt Char Set is OFF && 0x40<=char<=0x7F // - The inverse of this char is located at: char+0x40 bool bCharFlashing = (g_nAltCharSetOffset == 0) && (ch >= 0x40) && (ch <= 0x7F); if(bCharChanged || (bCharFlashing && g_bTextFlashFlag)) { bool bInvert = bCharFlashing ? g_bTextFlashState : false; CopySource(xpixel,ypixel, APPLE_FONT_WIDTH, APPLE_FONT_HEIGHT, (IS_APPLE2 ? SRCOFFS_IIPLUS : SRCOFFS_40COL) + ((ch & 0x0F) << 4), (ch & 0xF0) + g_nAltCharSetOffset + (bInvert ? 0x40 : 0x00)); return true; } return false; } inline bool _Update80ColumnCell( BYTE c, const int xPixel, const int yPixel, bool bCharFlashing ) { bool bInvert = bCharFlashing ? g_bTextFlashState : false; CopySource( xPixel, yPixel, (APPLE_FONT_WIDTH / 2), APPLE_FONT_HEIGHT, SRCOFFS_80COL + ((c & 15)<<3), ((c >>4) <<4) + g_nAltCharSetOffset + (bInvert ? 0x40 : 0x00)); return true; } //=========================================================================== bool Update80ColCell (int x, int y, int xpixel, int ypixel, int offset) { bool bDirty = false; #if FLASH_80_COL BYTE c1 = *(g_pTextBank1 + offset); // aux BYTE c0 = *(g_pTextBank0 + offset); // main bool bC1Changed = (c1 != *(vidlastmem + offset + 0) || g_VideoForceFullRedraw); bool bC0Changed = (c0 != *(vidlastmem + offset + 0x400) || g_VideoForceFullRedraw); bool bC1Flashing = (g_nAltCharSetOffset == 0) && (c1 >= 0x40) && (c1 <= 0x7F); bool bC0Flashing = (g_nAltCharSetOffset == 0) && (c0 >= 0x40) && (c0 <= 0x7F); if (bC1Changed || (bC1Flashing && g_bTextFlashFlag)) bDirty = _Update80ColumnCell( c1, xpixel, ypixel, bC1Flashing ); if (bC0Changed || (bC0Flashing && g_bTextFlashFlag)) bDirty |= _Update80ColumnCell( c0, xpixel + 7, ypixel, bC0Flashing ); #else BYTE auxval = *(g_pTextBank1 + offset); // aux BYTE mainval = *(g_pTextBank0 + offset); // main if ((auxval != *(vidlastmem+offset)) || (mainval != *(vidlastmem+offset+0x400)) || g_VideoForceFullRedraw) { CopySource(xpixel,ypixel, (APPLE_FONT_WIDTH / 2), APPLE_FONT_HEIGHT, SRCOFFS_80COL + ((auxval & 15)<<3), ((auxval>>4)<<4) + g_nAltCharSetOffset); CopySource(xpixel+7,ypixel, (APPLE_FONT_WIDTH / 2), APPLE_FONT_HEIGHT, SRCOFFS_80COL + ((mainval & 15)<<3), ((mainval>>4)<<4) + g_nAltCharSetOffset ); bDirty = true; } #endif return bDirty; } //=========================================================================== bool UpdateDHiResCell (int x, int y, int xpixel, int ypixel, int offset) { bool bDirty = false; int yoffset = 0; while (yoffset < 0x2000) { BYTE byteval1 = (x > 0) ? *(g_pHiresBank0+offset+yoffset-1) : 0; BYTE byteval2 = *(g_pHiresBank1 +offset+yoffset); BYTE byteval3 = *(g_pHiresBank0+offset+yoffset); BYTE byteval4 = (x < 39) ? *(g_pHiresBank1 +offset+yoffset+1) : 0; if ((byteval2 != *(vidlastmem+offset+yoffset)) || (byteval3 != *(vidlastmem+offset+yoffset+0x2000)) || ((x > 0) && ((byteval1 & 0x70) != (*(vidlastmem+offset+yoffset+0x1FFF) & 0x70))) || ((x < 39) && ((byteval4 & 0x07) != (*(vidlastmem+offset+yoffset+ 1) & 0x07))) || g_VideoForceFullRedraw) { DWORD dwordval = (byteval1 & 0x70) | ((byteval2 & 0x7F) << 7) | ((byteval3 & 0x7F) << 14) | ((byteval4 & 0x07) << 21); #define PIXEL 0 #define COLOR ((xpixel + PIXEL) & 3) #define VALUE (dwordval >> (4 + PIXEL - COLOR)) CopySource(xpixel+PIXEL,ypixel+(yoffset >> 9),7,2, SRCOFFS_DHIRES+10*HIBYTE(VALUE)+COLOR,LOBYTE(VALUE)<<1); #undef PIXEL #define PIXEL 7 CopySource(xpixel+PIXEL,ypixel+(yoffset >> 9),7,2, SRCOFFS_DHIRES+10*HIBYTE(VALUE)+COLOR,LOBYTE(VALUE)<<1); #undef PIXEL #undef COLOR #undef VALUE bDirty = true; } yoffset += 0x400; } return bDirty; } //=========================================================================== BYTE MixColors(BYTE c1, BYTE c2) { // For tv emulation g_nAppMode #define COMBINATION(c1,c2,ref1,ref2) (((c1)==(ref1)&&(c2)==(ref2)) || ((c1)==(ref2)&&(c2)==(ref1))) if (c1 == c2) return c1; if (COMBINATION(c1,c2,HGR_BLUE,HGR_RED)) return HGR_GREY1; else if (COMBINATION(c1,c2,HGR_GREEN,HGR_MAGENTA)) return HGR_GREY2; else if (COMBINATION(c1,c2,HGR_RED,HGR_GREEN)) return HGR_YELLOW; else if (COMBINATION(c1,c2,HGR_BLUE,HGR_GREEN)) return HGR_AQUA; else if (COMBINATION(c1,c2,HGR_BLUE,HGR_MAGENTA)) return HGR_PURPLE; else if (COMBINATION(c1,c2,HGR_RED,HGR_MAGENTA)) return HGR_PINK; else return MONOCHROME_CUSTOM; // visible failure indicator #undef COMBINATION } //=========================================================================== void CreateColorMixMap() { // For tv emulation g_nAppMode #define FROM_NEIGHBOUR 0x00 int t,m,b; BYTE cTop, cMid, cBot; WORD mixTop, mixBot; for (t=0; t<6; t++) for (m=0; m<6; m++) for (b=0; b<6; b++) { cTop = t | 0x10; cMid = m | 0x10; cBot = b | 0x10; if (cMid < HGR_BLUE) { mixTop = mixBot = cMid; } else { if (cTop < HGR_BLUE) { mixTop = FROM_NEIGHBOUR; } else { mixTop = MixColors(cMid,cTop); } if (cBot < HGR_BLUE) { mixBot = FROM_NEIGHBOUR; } else { mixBot = MixColors(cMid,cBot); } if (mixTop == FROM_NEIGHBOUR && mixBot != FROM_NEIGHBOUR) { mixTop = mixBot; } else if (mixBot == FROM_NEIGHBOUR && mixTop != FROM_NEIGHBOUR) { mixBot = mixTop; } else if (mixBot == FROM_NEIGHBOUR && mixTop == FROM_NEIGHBOUR) { mixBot = mixTop = cMid; } } colormixmap[t][m][b] = (mixTop << 8) | mixBot; } #undef FROM_NEIGHBOUR } //=========================================================================== void __stdcall MixColorsVertical(int matx, int maty) { // For tv emulation g_nAppMode WORD twoHalfPixel; int bot1idx, bot2idx; if (SW_MIXED && maty > 159) { if (maty < 161) { bot1idx = hgrpixelmatrix[matx][maty+1] & 0x0F; bot2idx = 0; } else { bot1idx = bot2idx = 0; } } else { bot1idx = hgrpixelmatrix[matx][maty+1] & 0x0F; bot2idx = hgrpixelmatrix[matx][maty+2] & 0x0F; } twoHalfPixel = colormixmap[hgrpixelmatrix[matx][maty-2] & 0x0F] [hgrpixelmatrix[matx][maty-1] & 0x0F] [hgrpixelmatrix[matx][maty ] & 0x0F]; colormixbuffer[0] = (twoHalfPixel & 0xFF00) >> 8; colormixbuffer[1] = twoHalfPixel & 0x00FF; twoHalfPixel = colormixmap[hgrpixelmatrix[matx][maty-1] & 0x0F] [hgrpixelmatrix[matx][maty ] & 0x0F] [bot1idx]; colormixbuffer[2] = (twoHalfPixel & 0xFF00) >> 8; colormixbuffer[3] = twoHalfPixel & 0x00FF; twoHalfPixel = colormixmap[hgrpixelmatrix[matx][maty ] & 0x0F] [bot1idx] [bot2idx]; colormixbuffer[4] = (twoHalfPixel & 0xFF00) >> 8; colormixbuffer[5] = twoHalfPixel & 0x00FF; } //=========================================================================== void __stdcall CopyMixedSource (int x, int y, int sourcex, int sourcey) { // For tv emulation g_nAppMode LPBYTE currsourceptr = g_aSourceStartofLine[sourcey]+sourcex; LPBYTE currdestptr = g_aFrameBufferOffset[y<<1] + (x<<1); LPBYTE currptr; int matx = x; int maty = HGR_MATRIX_YOFFSET + y; int count; int bufxoffset; int hgrlinesabove = (y > 0)? 1 : 0; int hgrlinesbelow = SW_MIXED ? ((y < 159)? 1:0) : ((y < 191)? 1:0); int i; int istart = 2 - (hgrlinesabove << 1); int iend = 3 + (hgrlinesbelow << 1); // transfer 7 pixels (i.e. the visible part of an apple hgr-byte) from row to pixelmatrix for (count = 0, bufxoffset = 0; count < 7; count++, bufxoffset += 2) { hgrpixelmatrix[matx+count][maty] = *(currsourceptr+bufxoffset); // color mixing between adjacent scanlines at current x position MixColorsVertical(matx+count, maty); // transfer up to 6 mixed (half-)pixels of current column to framebuffer currptr = currdestptr+bufxoffset; if (hgrlinesabove) currptr += g_nFrameBufferPitch << 1; for (i = istart; i <= iend; currptr -= g_nFrameBufferPitch, i++) { *currptr = *(currptr+1) = colormixbuffer[i]; } } } //=========================================================================== bool UpdateHiResCell (int x, int y, int xpixel, int ypixel, int offset) { bool bDirty = false; int yoffset = 0; while (yoffset < 0x2000) { #if 0 // TRACE_VIDEO static char sText[ 256 ]; sprintf(sText, "x: %3d y: %3d xpix: %3d ypix: %3d offset: %04X \n" , x, y, xpixel, ypixel, offset, yoffset ); OutputDebugString("sText"); #endif BYTE byteval1 = (x > 0) ? *(g_pHiresBank0+offset+yoffset-1) : 0; BYTE byteval2 = *(g_pHiresBank0+offset+yoffset ); BYTE byteval3 = (x < 39) ? *(g_pHiresBank0+offset+yoffset+1) : 0; if ((byteval2 != *(vidlastmem+offset+yoffset+0x2000)) || ((x > 0) && ((byteval1 & 0x60) != (*(vidlastmem+offset+yoffset+0x1FFF) & 0x60))) || ((x < 39) && ((byteval3 & 0x03) != (*(vidlastmem+offset+yoffset+0x2001) & 0x03))) || g_VideoForceFullRedraw) { #define COLOFFS (((byteval1 & 0x60) << 2) | \ ((byteval3 & 0x03) << 5)) if (g_eVideoType == VT_COLOR_TVEMU) { CopyMixedSource( xpixel >> 1, (ypixel+(yoffset >> 9)) >> 1, SRCOFFS_HIRES+COLOFFS+((x & 1) << 4), (((int)byteval2) << 1) ); } else { CopySource( xpixel,ypixel+(yoffset >> 9), 14,2, // 2x upscale: 280x192 -> 560x384 SRCOFFS_HIRES+COLOFFS+((x & 1) << 4), (((int)byteval2) << 1) ); } #undef COLOFFS bDirty = true; } yoffset += 0x400; } return bDirty; } //=========================================================================== bool UpdateLoResCell (int x, int y, int xpixel, int ypixel, int offset) { BYTE val = *(g_pTextBank0+offset); if ((val != *(vidlastmem+offset+0x400)) || g_VideoForceFullRedraw) { CopySource(xpixel,ypixel, 14,8, SRCOFFS_LORES+((x & 1) << 1),((val & 0xF) << 4)); CopySource(xpixel,ypixel+8, 14,8, SRCOFFS_LORES+((x & 1) << 1),(val & 0xF0)); return true; } return false; } //=========================================================================== #define ROL_NIB(x) ( (((x)<<1)&0xF) | (((x)>>3)&1) ) bool UpdateDLoResCell (int x, int y, int xpixel, int ypixel, int offset) { BYTE auxval = *(g_pTextBank1 + offset); BYTE mainval = *(g_pTextBank0 + offset); if ( (auxval != *(vidlastmem+offset)) || (mainval != *(vidlastmem+offset+0x400)) || g_VideoForceFullRedraw ) { const BYTE auxval_h = auxval >> 4; const BYTE auxval_l = auxval & 0xF; auxval = (ROL_NIB(auxval_h)<<4) | ROL_NIB(auxval_l); // Fix Bug #14879 CopySource( xpixel,ypixel , 7,8,SRCOFFS_LORES+((x & 1) << 1),((auxval & 0xF) << 4)); CopySource( xpixel,ypixel+8, 7,8,SRCOFFS_LORES+((x & 1) << 1),(auxval & 0xF0)); // CopySource( xpixel+7,ypixel , 7,8, SRCOFFS_LORES+((x & 1) << 1),((mainval & 0xF) << 4)); CopySource( xpixel+7,ypixel+8, 7,8, SRCOFFS_LORES+((x & 1) << 1),(mainval & 0xF0)); return true; } return false; } // // ----- ALL GLOBALLY ACCESSIBLE FUNCTIONS ARE BELOW THIS LINE ----- // //=========================================================================== BOOL VideoApparentlyDirty () { if (SW_MIXED || g_VideoForceFullRedraw) return 1; DWORD address = (SW_HIRES && !SW_TEXT) ? (0x20 << (int)g_bVideoDisplayPage2) : (0x04 << (int)g_bVideoDisplayPage2); DWORD length = (SW_HIRES && !SW_TEXT) ? 0x20 : 0x4; while (length--) if (*(memdirty+(address++)) & 2) return 1; // bool bCharFlashing = false; // Scan visible text page for any flashing chars if((SW_TEXT || SW_MIXED) && (g_nAltCharSetOffset == 0)) { BYTE* pnMemText = MemGetMainPtr(0x400 << (int)g_bVideoDisplayPage2); // Scan 8 long-lines of 120 chars (at 128 char offsets): // . Skip 8-char holes in TEXT for(UINT y=0; y<8; y++) { for(UINT x=0; x<40*3; x++) { BYTE ch = pnMemText[y*128+x]; if((ch >= 0x40) && (ch <= 0x7F)) { bCharFlashing = true; break; } } } } if(bCharFlashing) return 1; return 0; } //=========================================================================== void VideoBenchmark () { Sleep(500); // PREPARE TWO DIFFERENT FRAME BUFFERS, EACH OF WHICH HAVE HALF OF THE // BYTES SET TO 0x14 AND THE OTHER HALF SET TO 0xAA int loop; LPDWORD mem32 = (LPDWORD)mem; for (loop = 4096; loop < 6144; loop++) *(mem32+loop) = ((loop & 1) ^ ((loop & 0x40) >> 6)) ? 0x14141414 : 0xAAAAAAAA; for (loop = 6144; loop < 8192; loop++) *(mem32+loop) = ((loop & 1) ^ ((loop & 0x40) >> 6)) ? 0xAAAAAAAA : 0x14141414; // SEE HOW MANY TEXT FRAMES PER SECOND WE CAN PRODUCE WITH NOTHING ELSE // GOING ON, CHANGING HALF OF THE BYTES IN THE VIDEO BUFFER EACH FRAME TO // SIMULATE THE ACTIVITY OF AN AVERAGE GAME DWORD totaltextfps = 0; g_bVideoMode = VF_TEXT; FillMemory(mem+0x400,0x400,0x14); VideoRedrawScreen(); DWORD milliseconds = GetTickCount(); while (GetTickCount() == milliseconds) ; milliseconds = GetTickCount(); DWORD cycle = 0; do { if (cycle & 1) FillMemory(mem+0x400,0x400,0x14); else CopyMemory(mem+0x400,mem+((cycle & 2) ? 0x4000 : 0x6000),0x400); VideoRefreshScreen(); if (cycle++ >= 3) cycle = 0; totaltextfps++; } while (GetTickCount() - milliseconds < 1000); // SEE HOW MANY HIRES FRAMES PER SECOND WE CAN PRODUCE WITH NOTHING ELSE // GOING ON, CHANGING HALF OF THE BYTES IN THE VIDEO BUFFER EACH FRAME TO // SIMULATE THE ACTIVITY OF AN AVERAGE GAME DWORD totalhiresfps = 0; g_bVideoMode = VF_HIRES; FillMemory(mem+0x2000,0x2000,0x14); VideoRedrawScreen(); milliseconds = GetTickCount(); while (GetTickCount() == milliseconds) ; milliseconds = GetTickCount(); cycle = 0; do { if (cycle & 1) FillMemory(mem+0x2000,0x2000,0x14); else CopyMemory(mem+0x2000,mem+((cycle & 2) ? 0x4000 : 0x6000),0x2000); VideoRefreshScreen(); if (cycle++ >= 3) cycle = 0; totalhiresfps++; } while (GetTickCount() - milliseconds < 1000); // DETERMINE HOW MANY 65C02 CLOCK CYCLES WE CAN EMULATE PER SECOND WITH // NOTHING ELSE GOING ON CpuSetupBenchmark(); DWORD totalmhz10 = 0; milliseconds = GetTickCount(); while (GetTickCount() == milliseconds) ; milliseconds = GetTickCount(); cycle = 0; do { CpuExecute(100000); totalmhz10++; } while (GetTickCount() - milliseconds < 1000); // IF THE PROGRAM COUNTER IS NOT IN THE EXPECTED RANGE AT THE END OF THE // CPU BENCHMARK, REPORT AN ERROR AND OPTIONALLY TRACK IT DOWN if ((regs.pc < 0x300) || (regs.pc > 0x400)) if (MessageBox(g_hFrameWindow, TEXT("The emulator has detected a problem while running ") TEXT("the CPU benchmark. Would you like to gather more ") TEXT("information?"), TEXT("Benchmarks"), MB_ICONQUESTION | MB_YESNO | MB_SETFOREGROUND) == IDYES) { BOOL error = 0; WORD lastpc = 0x300; int loop = 0; while ((loop < 10000) && !error) { CpuSetupBenchmark(); CpuExecute(loop); if ((regs.pc < 0x300) || (regs.pc > 0x400)) error = 1; else { lastpc = regs.pc; ++loop; } } if (error) { TCHAR outstr[256]; wsprintf(outstr, TEXT("The emulator experienced an error %u clock cycles ") TEXT("into the CPU benchmark. Prior to the error, the ") TEXT("program counter was at $%04X. After the error, it ") TEXT("had jumped to $%04X."), (unsigned)loop, (unsigned)lastpc, (unsigned)regs.pc); MessageBox(g_hFrameWindow, outstr, TEXT("Benchmarks"), MB_ICONINFORMATION | MB_SETFOREGROUND); } else MessageBox(g_hFrameWindow, TEXT("The emulator was unable to locate the exact ") TEXT("point of the error. This probably means that ") TEXT("the problem is external to the emulator, ") TEXT("happening asynchronously, such as a problem in ") TEXT("a timer interrupt handler."), TEXT("Benchmarks"), MB_ICONINFORMATION | MB_SETFOREGROUND); } // DO A REALISTIC TEST OF HOW MANY FRAMES PER SECOND WE CAN PRODUCE // WITH FULL EMULATION OF THE CPU, JOYSTICK, AND DISK HAPPENING AT // THE SAME TIME DWORD realisticfps = 0; FillMemory(mem+0x2000,0x2000,0xAA); VideoRedrawScreen(); milliseconds = GetTickCount(); while (GetTickCount() == milliseconds) ; milliseconds = GetTickCount(); cycle = 0; do { if (realisticfps < 10) { int cycles = 100000; while (cycles > 0) { DWORD executedcycles = CpuExecute(103); cycles -= executedcycles; DiskUpdatePosition(executedcycles); JoyUpdatePosition(); } } if (cycle & 1) FillMemory(mem+0x2000,0x2000,0xAA); else CopyMemory(mem+0x2000,mem+((cycle & 2) ? 0x4000 : 0x6000),0x2000); VideoRefreshScreen(); if (cycle++ >= 3) cycle = 0; realisticfps++; } while (GetTickCount() - milliseconds < 1000); // DISPLAY THE RESULTS VideoDisplayLogo(); TCHAR outstr[256]; wsprintf(outstr, TEXT("Pure Video FPS:\t%u hires, %u text\n") TEXT("Pure CPU MHz:\t%u.%u%s\n\n") TEXT("EXPECTED AVERAGE VIDEO GAME\n") TEXT("PERFORMANCE: %u FPS"), (unsigned)totalhiresfps, (unsigned)totaltextfps, (unsigned)(totalmhz10/10), (unsigned)(totalmhz10 % 10), (LPCTSTR)(IS_APPLE2 ? TEXT(" (6502)") : TEXT("")), (unsigned)realisticfps); MessageBox(g_hFrameWindow, outstr, TEXT("Benchmarks"), MB_ICONINFORMATION | MB_SETFOREGROUND); } //=========================================================================== BYTE VideoCheckMode (WORD, WORD address, BYTE, BYTE, ULONG uExecutedCycles) { address &= 0xFF; if (address == 0x7F) return MemReadFloatingBus(SW_DHIRES != 0, uExecutedCycles); else { BOOL result = 0; switch (address) { case 0x1A: result = SW_TEXT; break; case 0x1B: result = SW_MIXED; break; case 0x1D: result = SW_HIRES; break; case 0x1E: result = g_nAltCharSetOffset; break; case 0x1F: result = SW_80COL; break; case 0x7F: result = SW_DHIRES; break; } return KeybGetKeycode() | (result ? 0x80 : 0); } } //=========================================================================== void VideoCheckPage (BOOL force) { if ((g_bVideoDisplayPage2 != (SW_PAGE2 != 0)) && (force || (emulmsec-lastpageflip > 500))) { g_bVideoDisplayPage2 = (SW_PAGE2 != 0); VideoRefreshScreen(); hasrefreshed = 1; lastpageflip = emulmsec; } } //=========================================================================== /* // Drol expects = 80 68DE A5 02 LDX #02 68E0 AD 50 C0 LDA TXTCLR 68E3 C9 80 CMP #80 68E5 D0 F7 BNE $68DE 6957 A5 02 LDX #02 6959 AD 50 C0 LDA TXTCLR 695C C9 80 CMP #80 695E D0 F7 BNE $68DE 69D3 A5 02 LDX #02 69D5 AD 50 C0 LDA TXTCLR 69D8 C9 80 CMP #80 69DA D0 F7 BNE $68DE // Karateka expects < 80 07DE AD 19 C0 LDA RDVBLBAR 07E1 30 FB BMI $7DE 77A1 AD 19 C0 LDA RDVBLBAR 77A4 30 FB BMI $7DE // Gumball expects non-zero low-nibble on VBL BBB5 A5 60 LDA $60 BBB7 4D 50 C0 EOR TXTCLR BBBA 85 60 STA $60 BBBC 29 0F AND #$0F BBBE F0 F5 BEQ $BBB5 BBC0 C9 0F CMP #$0F BBC2 F0 F1 BEQ $BBB5 // Diversi-Dial (DD4.DSK or DIAL.DSK) F822 LDA RDVBLBAR F825 EOR #$3C BMI $F82A RTS F82A LDA $F825+1 EOR #$80 STA $F825+1 BMI $F86A ... F86A RTS */ BYTE VideoCheckVbl (WORD, WORD, BYTE, BYTE, ULONG uExecutedCycles) { bool bVblBar = false; VideoGetScannerAddress(&bVblBar, uExecutedCycles); BYTE r = KeybGetKeycode(); return (r & ~0x80) | ((bVblBar) ? 0x80 : 0); } //=========================================================================== void VideoChooseColor () { CHOOSECOLOR cc; ZeroMemory(&cc,sizeof(CHOOSECOLOR)); cc.lStructSize = sizeof(CHOOSECOLOR); cc.hwndOwner = g_hFrameWindow; cc.rgbResult = monochrome; cc.lpCustColors = customcolors + 1; cc.Flags = CC_RGBINIT | CC_SOLIDCOLOR; if (ChooseColor(&cc)) { monochrome = cc.rgbResult; VideoReinitialize(); if ((g_nAppMode != MODE_LOGO) && (g_nAppMode != MODE_DEBUG)) { VideoRedrawScreen(); } Config_Save_Video(); } } //=========================================================================== void VideoDestroy () { // DESTROY BUFFERS VirtualFree(g_pFramebufferinfo,0,MEM_RELEASE); VirtualFree(g_pSourceHeader ,0,MEM_RELEASE); VirtualFree(vidlastmem ,0,MEM_RELEASE); g_pFramebufferinfo = NULL; g_pSourceHeader = NULL; vidlastmem = NULL; // DESTROY FRAME BUFFER DeleteDC(g_hDeviceDC); DeleteObject(g_hDeviceBitmap); g_hDeviceDC = (HDC)0; g_hDeviceBitmap = (HBITMAP)0; // DESTROY SOURCE IMAGE DeleteObject(g_hSourceBitmap); g_hSourceBitmap = (HBITMAP)0; // DESTROY LOGO if (g_hLogoBitmap) { DeleteObject(g_hLogoBitmap); g_hLogoBitmap = (HBITMAP)0; } // DESTROY PALETTE if (g_hPalette) { DeleteObject(g_hPalette); g_hPalette = (HPALETTE)0; } } //=========================================================================== void VideoDrawLogoBitmap ( HDC hDstDC ) { HDC hSrcDC = CreateCompatibleDC( hDstDC ); SelectObject( hSrcDC, g_hLogoBitmap ); BitBlt( hDstDC, // hdcDest 0, 0, // nXDest, nYDest FRAMEBUFFER_W, FRAMEBUFFER_H, // nWidth, nHeight hSrcDC, // hdcSrc 0, 0, // nXSrc, nYSrc SRCCOPY // dwRop ); DeleteObject( hSrcDC ); hSrcDC = NULL; } //=========================================================================== void VideoDisplayLogo () { HDC hFrameDC = FrameGetDC(); // DRAW THE LOGO HBRUSH brush = CreateSolidBrush(PALETTERGB(0x70,0x30,0xE0)); if (g_hLogoBitmap) { VideoDrawLogoBitmap( hFrameDC ); } else { SelectObject(hFrameDC,brush); SelectObject(hFrameDC,GetStockObject(NULL_PEN)); Rectangle(hFrameDC,0,0,FRAMEBUFFER_W+1,FRAMEBUFFER_H+1); } // DRAW THE VERSION NUMBER HFONT font = CreateFont(-20,0,0,0,FW_NORMAL,0,0,0,ANSI_CHARSET, OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY, VARIABLE_PITCH | 4 | FF_SWISS, TEXT("Arial")); SelectObject(hFrameDC,font); SetTextAlign(hFrameDC,TA_RIGHT | TA_TOP); SetBkMode(hFrameDC,TRANSPARENT); //#define VERSION_TXT "Version " // Daily WTF candidate -- malloc every _frame_ ?!?! // char* szVersion = new char[strlen(VERSION_TXT) + strlen(VERSIONSTRING) + 1]; // strcpy(&szVersion[0], VERSION_TXT); // strcpy(&szVersion[strlen(VERSION_TXT)], VERSIONSTRING); // szVersion[strlen(szVersion)] = 0x00; char szVersion[ 32 ]; sprintf( szVersion, "Version %s", VERSIONSTRING ); #define DRAWVERSION(x,y,c) \ SetTextColor(hFrameDC,c); \ TextOut(hFrameDC, \ 540+x,358+y, \ szVersion, \ strlen(szVersion)); if (GetDeviceCaps(hFrameDC,PLANES) * GetDeviceCaps(hFrameDC,BITSPIXEL) <= 4) { DRAWVERSION( 2, 2,RGB(0x00,0x00,0x00)); DRAWVERSION( 1, 1,RGB(0x00,0x00,0x00)); DRAWVERSION( 0, 0,RGB(0xFF,0x00,0xFF)); } else { DRAWVERSION( 1, 1,PALETTERGB(0x30,0x30,0x70)); DRAWVERSION(-1,-1,PALETTERGB(0xC0,0x70,0xE0)); DRAWVERSION( 0, 0,PALETTERGB(0x70,0x30,0xE0)); } // Daily WTF candidate -- malloc every _frame_ ?!?! // delete [] szVersion; #undef DRAWVERSION FrameReleaseDC(); DeleteObject(brush); DeleteObject(font); } //=========================================================================== BOOL VideoHasRefreshed () { BOOL result = hasrefreshed; hasrefreshed = 0; return result; } //=========================================================================== void VideoRealizePalette(HDC dc) { #if 0 if( g_bIsFullScreen ) { if( !g_pDDPal ) { PALETTEENTRY aPal[256]; BYTE *pSrc = ((BYTE*)g_pFramebufferinfo) + sizeof(BITMAPINFOHEADER); BYTE *pDst = ((BYTE*)aPal); int iPal; for(iPal = 0; iPal < 256; iPal++ ) { *(pDst + 0) = *(pSrc + 2); // BGR -> RGB *(pDst + 1) = *(pSrc + 1); *(pDst + 2) = *(pSrc + 0); *(pDst + 3) = 0; pDst += 4; pSrc += 4; } if (g_pDD->CreatePalette(DDPCAPS_8BIT, aPal, &g_pDDPal, NULL) != DD_OK) { g_pDDPal = NULL; } } if (g_pDDPal) { g_pDDPrimarySurface->SetPalette(g_pDDPal); // this sets the palette for the primary surface } } else { if (g_hPalette) { SelectPalette(dc,g_hPalette,0); RealizePalette(dc); } } #endif if (g_hPalette) { SelectPalette(dc,g_hPalette,0); RealizePalette(dc); } } //=========================================================================== VideoUpdateFuncPtr_t VideoRedrawScreen () { g_VideoForceFullRedraw = 1; return VideoRefreshScreen(); } //=========================================================================== void _Video_Dirty() { ZeroMemory(celldirty,40*32); } //=========================================================================== void _Video_SetupBanks( bool bBank2 ) { g_pHiresBank1 = MemGetAuxPtr (0x2000 << (int)bBank2); g_pHiresBank0 = MemGetMainPtr(0x2000 << (int)bBank2); g_pTextBank1 = MemGetAuxPtr (0x400 << (int)bBank2); g_pTextBank0 = MemGetMainPtr(0x400 << (int)bBank2); } //=========================================================================== VideoUpdateFuncPtr_t VideoRefreshScreen () { // CHECK EACH CELL FOR CHANGED BYTES. REDRAW PIXELS FOR THE CHANGED BYTES // IN THE FRAME BUFFER. MARK CELLS IN WHICH REDRAWING HAS TAKEN PLACE AS // DIRTY. _Video_Dirty(); _Video_SetupBanks( g_bVideoDisplayPage2 ); VideoUpdateFuncPtr_t pfUpdate = SW_TEXT ? SW_80COL ? Update80ColCell : Update40ColCell : SW_HIRES ? (SW_DHIRES && SW_80COL) ? UpdateDHiResCell : UpdateHiResCell : (SW_DHIRES && SW_80COL) ? UpdateDLoResCell : UpdateLoResCell; bool bMixed = (SW_MIXED) ? true : false; _Video_RedrawScreen( pfUpdate, bMixed ); g_VideoForceFullRedraw = 0; return pfUpdate; } //=========================================================================== void _Video_RedrawScreen( VideoUpdateFuncPtr_t pfUpdate, bool bMixed ) { LPBYTE pDstFrameBufferBits = 0; LONG pitch = 0; HDC hFrameDC = FrameGetVideoDC(&pDstFrameBufferBits,&pitch); CreateFrameOffsetTable(pDstFrameBufferBits,pitch); // ptr to start of each scanline BOOL anydirty = 0; int y = 0; int ypixel = 0; while (y < 20) { int offset = ((y & 7) << 7) + ((y >> 3) * 40); int x = 0; int xpixel = 0; while (x < 40) { anydirty |= celldirty[x][y] = pfUpdate(x,y,xpixel,ypixel,offset+x); ++x; xpixel += 14; } ++y; ypixel += 16; } if( bMixed ) { pfUpdate = SW_80COL ? Update80ColCell : Update40ColCell; } while (y < 24) { int offset = ((y & 7) << 7) + ((y >> 3) * 40); int x = 0; int xpixel = 0; while (x < 40) { anydirty |= celldirty[x][y] = pfUpdate(x,y,xpixel,ypixel,offset+x); ++x; xpixel += 14; } ++y; ypixel += 16; } // Clear this flag after TEXT screen has been updated g_bTextFlashFlag = false; // 50% Half Scan Line if( g_uHalfScanLines ) { // 50% Half Scan Line clears every odd scanline. // Shift-Print Screen saves only the even rows. // NOTE: Keep in sync with _Video_RedrawScreen() & Video_MakeScreenShot() for( int y = 1; y < FRAMEBUFFER_H; y += 2 ) { unsigned char *pSrc = g_aFrameBufferOffset[y]; for( int x = 0; x < FRAMEBUFFER_W; x++ ) { *pSrc++ = 0; } } } #if 1 // New simpified code: // . Oliver Schmidt gets a flickering mouse cursor with this code if (hFrameDC && anydirty) { BitBlt(hFrameDC,0,0,FRAMEBUFFER_W,FRAMEBUFFER_H,g_hDeviceDC,0,0,SRCCOPY); GdiFlush(); } #else // Original code: if (!hFrameDC || !anydirty) { FrameReleaseVideoDC(); SetLastDrawnImage(); g_VideoForceFullRedraw = 0; return; } // COPY DIRTY CELLS FROM THE DEVICE DEPENDENT BITMAP ONTO THE SCREEN // IN LONG HORIZONTAL RECTANGLES BOOL remainingdirty = 0; y = 0; ypixel = 0; while (y < 24) { int start = -1; int startx = 0; int x = 0; int xpixel = 0; while (x < 40) { if ((x == 39) && celldirty[x][y]) if (start >= 0) { xpixel += 14; celldirty[x][y] = 0; } else remainingdirty = 1; if ((start >= 0) && !celldirty[x][y]) { if ((x - startx > 1) || ((x == 39) && (xpixel == FRAMEBUFFER_W))) { int height = 1; while ((y+height < 24) && celldirty[startx][y+height] && celldirty[x-1][y+height] && celldirty[(startx+x-1) >> 1][y+height]) height++; BitBlt(hFrameDC,start,ypixel,xpixel-start,height << 4, g_hDeviceDC,start,ypixel,SRCCOPY); while (height--) { int loop = startx; while (loop < x+(xpixel == FRAMEBUFFER_W)) celldirty[loop++][y+height] = 0; } start = -1; } else remainingdirty = 1; start = -1; } else if ((start == -1) && celldirty[x][y] && (x < 39)) { start = xpixel; startx = x; } x++; xpixel += 14; } y++; ypixel += 16; } // COPY ANY REMAINING DIRTY CELLS FROM THE DEVICE DEPENDENT BITMAP // ONTO THE SCREEN IN VERTICAL RECTANGLES if (remainingdirty) { int x = 0; int xpixel = 0; while (x < 40) { int start = -1; int y = 0; int ypixel = 0; while (y < 24) { if ((y == 23) && celldirty[x][y]) { if (start == -1) start = ypixel; ypixel += 16; celldirty[x][y] = 0; } if ((start >= 0) && !celldirty[x][y]) { BitBlt(hFrameDC,xpixel,start,14,ypixel-start, g_hDeviceDC,xpixel,start,SRCCOPY); start = -1; } else if ((start == -1) && celldirty[x][y]) start = ypixel; y++; ypixel += 16; } x++; xpixel += 14; } } GdiFlush(); #endif FrameReleaseVideoDC(); SetLastDrawnImage(); } //=========================================================================== void VideoReinitialize () { V_CreateIdentityPalette(); V_CreateDIBSections(); } //=========================================================================== void VideoResetState () { g_nAltCharSetOffset = 0; g_bVideoDisplayPage2 = 0; g_bVideoMode = VF_TEXT; g_VideoForceFullRedraw = 1; #if 0 // Debug HGR2 without having to exec 6502 code g_bVideoDisplayPage2 = 1; g_bVideoMode = VF_TEXT | VF_HIRES; #endif } //=========================================================================== BYTE VideoSetMode (WORD, WORD address, BYTE write, BYTE, ULONG uExecutedCycles) { address &= 0xFF; DWORD oldpage2 = SW_PAGE2; int oldvalue = g_nAltCharSetOffset+(int)(g_bVideoMode & ~(VF_MASK2 | VF_PAGE2)); switch (address) { case 0x00: g_bVideoMode &= ~VF_MASK2; break; case 0x01: g_bVideoMode |= VF_MASK2; break; case 0x0C: if (!IS_APPLE2) g_bVideoMode &= ~VF_80COL; break; case 0x0D: if (!IS_APPLE2) g_bVideoMode |= VF_80COL; break; case 0x0E: if (!IS_APPLE2) g_nAltCharSetOffset = 0; break; // Alternate char set off case 0x0F: if (!IS_APPLE2) g_nAltCharSetOffset = 256; break; // Alternate char set on case 0x50: g_bVideoMode &= ~VF_TEXT; break; case 0x51: g_bVideoMode |= VF_TEXT; break; case 0x52: g_bVideoMode &= ~VF_MIXED; break; case 0x53: g_bVideoMode |= VF_MIXED; break; case 0x54: g_bVideoMode &= ~VF_PAGE2; break; case 0x55: g_bVideoMode |= VF_PAGE2; break; case 0x56: g_bVideoMode &= ~VF_HIRES; break; case 0x57: g_bVideoMode |= VF_HIRES; break; case 0x5E: if (!IS_APPLE2) g_bVideoMode |= VF_DHIRES; break; case 0x5F: if (!IS_APPLE2) g_bVideoMode &= ~VF_DHIRES; break; } if (SW_MASK2) g_bVideoMode &= ~VF_PAGE2; if (oldvalue != g_nAltCharSetOffset+(int)(g_bVideoMode & ~(VF_MASK2 | VF_PAGE2))) { g_bGraphicsMode = !SW_TEXT; g_VideoForceFullRedraw = 1; } if (g_bFullSpeed && oldpage2 && !SW_PAGE2) { static DWORD lasttime = 0; DWORD currtime = GetTickCount(); if (currtime-lasttime >= 20) lasttime = currtime; else oldpage2 = SW_PAGE2; } if (oldpage2 != SW_PAGE2) { static DWORD lastrefresh = 0; if ((g_bVideoDisplayPage2 && !SW_PAGE2) || (!behind)) { g_bVideoDisplayPage2 = (SW_PAGE2 != 0); if (!g_VideoForceFullRedraw) { VideoRefreshScreen(); hasrefreshed = 1; lastrefresh = emulmsec; } } else if ((!SW_PAGE2) && (!g_VideoForceFullRedraw) && (emulmsec-lastrefresh >= 20)) { g_bVideoDisplayPage2 = 0; VideoRefreshScreen(); hasrefreshed = 1; lastrefresh = emulmsec; } lastpageflip = emulmsec; } return MemReadFloatingBus(uExecutedCycles); } //=========================================================================== // Called at 60Hz (every 16.666ms) void VideoUpdateFlash() { static UINT nTextFlashCnt = 0; // Flash rate: // . NTSC : 60/16 ~= 4Hz // . PAL : 50/16 ~= 3Hz nTextFlashCnt = (nTextFlashCnt+1) & 0xf; // BUG: In unthrottled CPU mode, flash rate should not be affected if(nTextFlashCnt == 0) { g_bTextFlashState = !g_bTextFlashState; // Redraw any FLASHing chars if any text showing. NB. No FLASH g_nAppMode for 80 cols if ((SW_TEXT || SW_MIXED) ) // && !SW_80COL) // FIX: FLASH 80-Column g_bTextFlashFlag = true; } } //=========================================================================== bool VideoGetSW80COL() { return SW_80COL ? true : false; } //=========================================================================== DWORD VideoGetSnapshot(SS_IO_Video* pSS) { pSS->bAltCharSet = !(g_nAltCharSetOffset == 0); pSS->dwVidMode = g_bVideoMode; return 0; } //=========================================================================== DWORD VideoSetSnapshot(SS_IO_Video* pSS) { g_nAltCharSetOffset = !pSS->bAltCharSet ? 0 : 256; g_bVideoMode = pSS->dwVidMode; // g_bGraphicsMode = !SW_TEXT; g_bVideoDisplayPage2 = (SW_PAGE2 != 0); return 0; } //=========================================================================== // // References to Jim Sather's books are given as eg: // UTAIIe:5-7,P3 (Understanding the Apple IIe, chapter 5, page 7, Paragraph 3) // WORD VideoGetScannerAddress(bool* pbVblBar_OUT, const DWORD uExecutedCycles) { // get video scanner position // int nCycles = CpuGetCyclesThisVideoFrame(uExecutedCycles); // machine state switches // int nHires = (SW_HIRES && !SW_TEXT) ? 1 : 0; int nPage2 = (SW_PAGE2) ? 1 : 0; int n80Store = (MemGet80Store()) ? 1 : 0; // calculate video parameters according to display standard // int nScanLines = bVideoScannerNTSC ? kNTSCScanLines : kPALScanLines; int nVSyncLine = bVideoScannerNTSC ? kNTSCVSyncLine : kPALVSyncLine; int nScanCycles = nScanLines * kHClocks; // calculate horizontal scanning state // int nHClock = (nCycles + kHPEClock) % kHClocks; // which horizontal scanning clock int nHState = kHClock0State + nHClock; // H state bits if (nHClock >= kHPresetClock) // check for horizontal preset { nHState -= 1; // correct for state preset (two 0 states) } int h_0 = (nHState >> 0) & 1; // get horizontal state bits int h_1 = (nHState >> 1) & 1; int h_2 = (nHState >> 2) & 1; int h_3 = (nHState >> 3) & 1; int h_4 = (nHState >> 4) & 1; int h_5 = (nHState >> 5) & 1; // calculate vertical scanning state // int nVLine = nCycles / kHClocks; // which vertical scanning line int nVState = kVLine0State + nVLine; // V state bits if ((nVLine >= kVPresetLine)) // check for previous vertical state preset { nVState -= nScanLines; // compensate for preset } int v_A = (nVState >> 0) & 1; // get vertical state bits int v_B = (nVState >> 1) & 1; int v_C = (nVState >> 2) & 1; int v_0 = (nVState >> 3) & 1; int v_1 = (nVState >> 4) & 1; int v_2 = (nVState >> 5) & 1; int v_3 = (nVState >> 6) & 1; int v_4 = (nVState >> 7) & 1; int v_5 = (nVState >> 8) & 1; // calculate scanning memory address // if (nHires && SW_MIXED && v_4 && v_2) // HIRES TIME signal (UTAIIe:5-7,P3) { nHires = 0; // address is in text memory for mixed hires } int nAddend0 = 0x0D; // 1 1 0 1 int nAddend1 = (h_5 << 2) | (h_4 << 1) | (h_3 << 0); int nAddend2 = (v_4 << 3) | (v_3 << 2) | (v_4 << 1) | (v_3 << 0); int nSum = (nAddend0 + nAddend1 + nAddend2) & 0x0F; // SUM (UTAIIe:5-9) int nAddress = 0; // build address from video scanner equations (UTAIIe:5-8,T5.1) nAddress |= h_0 << 0; // a0 nAddress |= h_1 << 1; // a1 nAddress |= h_2 << 2; // a2 nAddress |= nSum << 3; // a3 - a6 nAddress |= v_0 << 7; // a7 nAddress |= v_1 << 8; // a8 nAddress |= v_2 << 9; // a9 int p2a = !(nPage2 && !n80Store); int p2b = nPage2 && !n80Store; if (nHires) // hires? { // Y: insert hires-only address bits // nAddress |= v_A << 10; // a10 nAddress |= v_B << 11; // a11 nAddress |= v_C << 12; // a12 nAddress |= p2a << 13; // a13 nAddress |= p2b << 14; // a14 } else { // N: insert text-only address bits // nAddress |= p2a << 10; // a10 nAddress |= p2b << 11; // a11 // Apple ][ (not //e) and HBL? // if (IS_APPLE2 && // Apple II only (UTAIIe:I-4,#5) !h_5 && (!h_4 || !h_3)) // HBL (UTAIIe:8-10,F8.5) { nAddress |= 1 << 12; // Y: a12 (add $1000 to address!) } } // update VBL' state // if (pbVblBar_OUT != NULL) { *pbVblBar_OUT = !v_4 || !v_3; // VBL' = (v_4 & v_3)' (UTAIIe:5-10,#3) } return static_cast(nAddress); } //=========================================================================== // Derived from VideoGetScannerAddress() bool VideoGetVbl(const DWORD uExecutedCycles) { // get video scanner position // int nCycles = CpuGetCyclesThisVideoFrame(uExecutedCycles); // calculate video parameters according to display standard // int nScanLines = bVideoScannerNTSC ? kNTSCScanLines : kPALScanLines; // calculate vertical scanning state // int nVLine = nCycles / kHClocks; // which vertical scanning line int nVState = kVLine0State + nVLine; // V state bits if ((nVLine >= kVPresetLine)) // check for previous vertical state preset { nVState -= nScanLines; // compensate for preset } int v_3 = (nVState >> 6) & 1; int v_4 = (nVState >> 7) & 1; // update VBL' state // if (v_4 & v_3) // VBL? { return false; // Y: VBL' is false } else { return true; // N: VBL' is true } } //=========================================================================== #define SCREENSHOT_BMP 1 #define SCREENSHOT_TGA 0 // alias for nSuffixScreenShotFileName static int g_nLastScreenShot = 0; const int nMaxScreenShot = 999999999; static int g_iScreenshotType; static char *g_pLastDiskImageName = NULL; //const int nMaxScreenShot = 2; //=========================================================================== void Video_ResetScreenshotCounter( char *pImageName ) { g_nLastScreenShot = 0; g_pLastDiskImageName = pImageName; } //=========================================================================== void Util_MakeScreenShotFileName( char *pFinalFileName_ ) { char sPrefixScreenShotFileName[ 256 ] = "AppleWin_ScreenShot"; // TODO: g_sScreenshotDir char *pPrefixFileName = g_pLastDiskImageName ? g_pLastDiskImageName : sPrefixScreenShotFileName; #if SCREENSHOT_BMP sprintf( pFinalFileName_, "%s_%09d.bmp", pPrefixFileName, g_nLastScreenShot ); #endif #if SCREENSHOT_TGA sprintf( pFinalFileName_, "%s%09d.tga", pPrefixFileName, g_nLastScreenShot ); #endif } // Returns TRUE if file exists, else FALSE //=========================================================================== bool Util_TestScreenShotFileName( const char *pFileName ) { bool bFileExists = false; FILE *pFile = fopen( pFileName, "rt" ); if (pFile) { fclose( pFile ); bFileExists = true; } return bFileExists; } //=========================================================================== void Video_TakeScreenShot( int iScreenShotType ) { char sScreenShotFileName[ MAX_PATH ]; g_iScreenshotType = iScreenShotType; // find last screenshot filename so we don't overwrite the existing user ones bool bExists = true; while( bExists ) { if (g_nLastScreenShot > nMaxScreenShot) // Holy Crap! User has maxed the number of screenshots!? { sprintf( sScreenShotFileName, "You have more then %d screenshot filenames! They will no longer be saved.\n\nEither move some of your screenshots or increase the maximum in video.cpp\n", nMaxScreenShot ); MessageBox( NULL, sScreenShotFileName, "Warning", MB_OK ); g_nLastScreenShot = 0; return; } Util_MakeScreenShotFileName( sScreenShotFileName ); bExists = Util_TestScreenShotFileName( sScreenShotFileName ); if( !bExists ) { break; } g_nLastScreenShot++; } Video_SaveScreenShot( sScreenShotFileName ); g_nLastScreenShot++; } typedef char int8; typedef short int16; typedef int int32; typedef unsigned char u8; typedef signed short s16; /// turn of MSVC struct member padding #pragma pack(push,1) struct bgra_t { u8 b; u8 g; u8 r; u8 a; // reserved on Win32 }; struct WinBmpHeader_t { // BITMAPFILEHEADER // Addr Size char nCookie[2] ; // 0x00 0x02 BM int32 nSizeFile ; // 0x02 0x04 0 = ignore int16 nReserved1 ; // 0x06 0x02 int16 nReserved2 ; // 0x08 0x02 int32 nOffsetData ; // 0x0A 0x04 // == 0x0D (14) // BITMAPINFOHEADER int32 nStructSize ; // 0x0E 0x04 biSize int32 nWidthPixels ; // 0x12 0x04 biWidth int32 nHeightPixels ; // 0x16 0x04 biHeight int16 nPlanes ; // 0x1A 0x02 biPlanes int16 nBitsPerPixel ; // 0x1C 0x02 biBitCount int32 nCompression ; // 0x1E 0x04 biCompression 0 = BI_RGB int32 nSizeImage ; // 0x22 0x04 0 = ignore int32 nXPelsPerMeter ; // 0x26 0x04 int32 nYPelsPerMeter ; // 0x2A 0x04 int32 nPaletteColors ; // 0x2E 0x04 int32 nImportantColors; // 0x32 0x04 // == 0x28 (40) // RGBQUAD // pixelmap }; #pragma pack(pop) WinBmpHeader_t g_tBmpHeader; #if SCREENSHOT_TGA enum TargaImageType_e { TARGA_RGB = 2 }; struct TargaHeader_t { // Addr Bytes u8 nIdBytes ; // 00 01 size of ID field that follows 18 byte header (0 usually) u8 bHasPalette ; // 01 01 u8 iImageType ; // 02 01 type of image 0=none,1=indexed,2=rgb,3=grey,+8=rle packed s16 iPaletteFirstColor ; // 03 02 s16 nPaletteColors ; // 05 02 u8 nPaletteBitsPerEntry ; // 07 01 number of bits per palette entry 15,16,24,32 s16 nOriginX ; // 08 02 image x origin s16 nOriginY ; // 0A 02 image y origin s16 nWidthPixels ; // 0C 02 s16 nHeightPixels ; // 0E 02 u8 nBitsPerPixel ; // 10 01 image bits per pixel 8,16,24,32 u8 iDescriptor ; // 11 01 image descriptor bits (vh flip bits) // pixel data... u8 aPixelData[1] ; // rgb }; TargaHeader_t g_tTargaHeader; #endif // SCREENSHOT_TGA //=========================================================================== void Video_MakeScreenShot(FILE *pFile) { #if SCREENSHOT_BMP g_tBmpHeader.nCookie[ 0 ] = 'B'; // 0x42 g_tBmpHeader.nCookie[ 1 ] = 'M'; // 0x4d g_tBmpHeader.nSizeFile = 0; g_tBmpHeader.nReserved1 = 0; g_tBmpHeader.nReserved2 = 0; g_tBmpHeader.nOffsetData = sizeof(WinBmpHeader_t) + (256 * sizeof(bgra_t)); g_tBmpHeader.nStructSize = 0x28; // sizeof( WinBmpHeader_t ); g_tBmpHeader.nWidthPixels = g_iScreenshotType ? FRAMEBUFFER_W/2 :FRAMEBUFFER_W; g_tBmpHeader.nHeightPixels = g_iScreenshotType ? FRAMEBUFFER_H/2 : FRAMEBUFFER_H; g_tBmpHeader.nPlanes = 1; g_tBmpHeader.nBitsPerPixel = 8; g_tBmpHeader.nCompression = BI_RGB; g_tBmpHeader.nSizeImage = 0; g_tBmpHeader.nXPelsPerMeter = 0; g_tBmpHeader.nYPelsPerMeter = 0; g_tBmpHeader.nPaletteColors = 256; g_tBmpHeader.nImportantColors = 0; // char sText[256]; // sprintf( sText, "sizeof: BITMAPFILEHEADER = %d\n", sizeof(BITMAPFILEHEADER) ); // = 14 // MessageBox( NULL, sText, "Info 1", MB_OK ); // sprintf( sText, "sizeof: BITMAPINFOHEADER = %d\n", sizeof(BITMAPINFOHEADER) ); // = 40 // MessageBox( NULL, sText, "Info 2", MB_OK ); char sIfSizeZeroOrUnknown_BadWinBmpHeaderPackingSize[ sizeof( WinBmpHeader_t ) == (14 + 40) ]; sIfSizeZeroOrUnknown_BadWinBmpHeaderPackingSize; // Write Header int nLen; fwrite( &g_tBmpHeader, sizeof( g_tBmpHeader ), 1, pFile ); // Write Palette Data u8 *pSrc = ((u8*)g_pFramebufferinfo) + sizeof(BITMAPINFOHEADER); nLen = g_tBmpHeader.nPaletteColors * sizeof(bgra_t); // RGBQUAD fwrite( pSrc, nLen, 1, pFile ); pSrc += nLen; // Write Pixel Data // No need to use GetDibBits() since we already have http://msdn.microsoft.com/en-us/library/ms532334.aspx // @reference: "Storing an Image" http://msdn.microsoft.com/en-us/library/ms532340(VS.85).aspx pSrc = ((u8*)g_pFramebufferbits); nLen = g_tBmpHeader.nWidthPixels * g_tBmpHeader.nHeightPixels * g_tBmpHeader.nBitsPerPixel / 8; if( g_iScreenshotType == SCREENSHOT_280x192 ) { u8 aScanLine[ 280 ]; u8 *pDst; // 50% Half Scan Line clears every odd scanline. // Shift-Print Screen saves only the even rows. // NOTE: Keep in sync with _Video_RedrawScreen() & Video_MakeScreenShot() for( int y = 0; y < FRAMEBUFFER_H/2; y++ ) { pDst = aScanLine; for( int x = 0; x < FRAMEBUFFER_W/2; x++ ) { *pDst++ = *pSrc; pSrc += 2; // skip odd pixels } fwrite( aScanLine, FRAMEBUFFER_W/2, 1, pFile ); pSrc += FRAMEBUFFER_W; // scan lines doubled - skip odd ones } } else { fwrite( pSrc, nLen, 1, pFile ); } #endif // SCREENSHOT_BMP #if SCREENSHOT_TGA TargaHeader_t *pHeader = &g_tTargaHeader; memset( (void*)pHeader, 0, sizeof( TargaHeader_t ) ); pHeader->iImageType = TARGA_RGB; pHeader->nWidthPixels = FRAMEBUFFER_W; pHeader->nHeightPixels = FRAMEBUFFER_H; pHeader->nBitsPerPixel = 24; #endif // SCREENSHOT_TGA } //=========================================================================== void Video_SaveScreenShot( const char *pScreenShotFileName ) { FILE *pFile = fopen( pScreenShotFileName, "wb" ); if( pFile ) { Video_MakeScreenShot( pFile ); fclose( pFile ); } if( g_bDisplayPrintScreenFileName ) { MessageBox( NULL, pScreenShotFileName, "Screen Captured", MB_OK ); } }