graphics/vga.c

   1 /*
   2  * VGA hardware emulation
   3  *
   4  * Copyright 1998 Ove Kåven (with some help from Marcus Meissner)
   5  *
   6  */
   7
   8 #include <string.h>
   9 #include "winbase.h"
  10 #include "wincon.h"
  11 #include "miscemu.h"
  12 #include "vga.h"
  13 #include "ddraw.h"
  14 #include "services.h"
  15 #include "debugtools.h"
  16
  17 DEFAULT_DEBUG_CHANNEL(ddraw)
  18
  19 static IDirectDraw *lpddraw = NULL;
  20 static IDirectDrawSurface *lpddsurf;
  21 static IDirectDrawPalette *lpddpal;
  22 static DDSURFACEDESC sdesc;
  23 static LONG vga_polling,vga_refresh;
  24 static HANDLE poll_timer;
  25
  26 static HRESULT WINAPI (*pDirectDrawCreate)(LPGUID,LPDIRECTDRAW *,LPUNKNOWN);
  27
  28 static void VGA_DeinstallTimer(void)
  29 {
  30     if (poll_timer) {
  31         SERVICE_Delete( poll_timer );
  32         poll_timer = 0;
  33     }
  34 }
  35
  36 static void VGA_InstallTimer(unsigned Rate)
  37 {
  38     VGA_DeinstallTimer();
  39     if (!poll_timer)
  40         poll_timer = SERVICE_AddTimer( Rate, VGA_Poll, 0 );
  41 }
  42
  43 HANDLE VGA_AlphaConsole(void)
  44 {
  45     /* this assumes that no Win32 redirection has taken place, but then again,
  46      * only 16-bit apps are likely to use this part of Wine... */
  47     return GetStdHandle(STD_OUTPUT_HANDLE);
  48 }
  49
  50 /*** GRAPHICS MODE ***/
  51
  52 int VGA_SetMode(unsigned Xres,unsigned Yres,unsigned Depth)
  53 {
  54     if (lpddraw) VGA_Exit();
  55     if (!lpddraw) {
  56         if (!pDirectDrawCreate)
  57         {
  58             HMODULE hmod = LoadLibraryA( "ddraw.dll" );
  59             if (hmod) pDirectDrawCreate = GetProcAddress( hmod, "DirectDrawCreate" );
  60         }
  61         if (pDirectDrawCreate) pDirectDrawCreate(NULL,&lpddraw,NULL);
  62         if (!lpddraw) {
  63             ERR("DirectDraw is not available\n");
  64             return 1;
  65         }
  66         if (IDirectDraw_SetDisplayMode(lpddraw,Xres,Yres,Depth)) {
  67             ERR("DirectDraw does not support requested display mode\n");
  68             IDirectDraw_Release(lpddraw);
  69             lpddraw=NULL;
  70             return 1;
  71         }
  72         IDirectDraw_CreatePalette(lpddraw,DDPCAPS_8BIT,NULL,&lpddpal,NULL);
  73         memset(&sdesc,0,sizeof(sdesc));
  74         sdesc.dwSize=sizeof(sdesc);
  75         sdesc.dwFlags = DDSD_CAPS;
  76         sdesc.ddsCaps.dwCaps = DDSCAPS_PRIMARYSURFACE;
  77         if (IDirectDraw_CreateSurface(lpddraw,&sdesc,&lpddsurf,NULL)||(!lpddsurf)) {
  78             ERR("DirectDraw surface is not available\n");
  79             IDirectDraw_Release(lpddraw);
  80             lpddraw=NULL;
  81             return 1;
  82         }
  83         vga_refresh=0;
  84         /* poll every 20ms (50fps should provide adequate responsiveness) */
  85         VGA_InstallTimer(20000);
  86     }
  87     return 0;
  88 }
  89
  90 int VGA_GetMode(unsigned*Height,unsigned*Width,unsigned*Depth)
  91 {
  92     if (!lpddraw) return 1;
  93     if (!lpddsurf) return 1;
  94     if (Height) *Height=sdesc.dwHeight;
  95     if (Width) *Width=sdesc.dwWidth;
  96     if (Depth) *Depth=sdesc.ddpfPixelFormat.u.dwRGBBitCount;
  97     return 0;
  98 }
  99
 100 void VGA_Exit(void)
 101 {
 102     if (lpddraw) {
 103         VGA_DeinstallTimer();
 104         IDirectDrawSurface_Release(lpddsurf);
 105         lpddsurf=NULL;
 106         IDirectDraw_Release(lpddraw);
 107         lpddraw=NULL;
 108     }
 109 }
 110
 111 void VGA_SetPalette(PALETTEENTRY*pal,int start,int len)
 112 {
 113     if (!lpddraw) return;
 114     IDirectDrawPalette_SetEntries(lpddpal,0,start,len,pal);
 115     IDirectDrawSurface_SetPalette(lpddsurf,lpddpal);
 116 }
 117
 118 void VGA_SetQuadPalette(RGBQUAD*color,int start,int len)
 119 {
 120     PALETTEENTRY pal[256];
 121     int c;
 122
 123     if (!lpddraw) return;
 124     for (c=0; c<len; c++) {
 125         pal[c].peRed  =color[c].rgbRed;
 126         pal[c].peGreen=color[c].rgbGreen;
 127         pal[c].peBlue =color[c].rgbBlue;
 128         pal[c].peFlags=0;
 129     }
 130     IDirectDrawPalette_SetEntries(lpddpal,0,start,len,pal);
 131     IDirectDrawSurface_SetPalette(lpddsurf,lpddpal);
 132 }
 133
 134 LPSTR VGA_Lock(unsigned*Pitch,unsigned*Height,unsigned*Width,unsigned*Depth)
 135 {
 136     if (!lpddraw) return NULL;
 137     if (!lpddsurf) return NULL;
 138     if (IDirectDrawSurface_Lock(lpddsurf,NULL,&sdesc,0,0)) {
 139         ERR("could not lock surface!\n");
 140         return NULL;
 141     }
 142     if (Pitch) *Pitch=sdesc.lPitch;
 143     if (Height) *Height=sdesc.dwHeight;
 144     if (Width) *Width=sdesc.dwWidth;
 145     if (Depth) *Depth=sdesc.ddpfPixelFormat.u.dwRGBBitCount;
 146     return sdesc.u1.lpSurface;
 147 }
 148
 149 void VGA_Unlock(void)
 150 {
 151     IDirectDrawSurface_Unlock(lpddsurf,sdesc.u1.lpSurface);
 152 }
 153
 154 /*** TEXT MODE ***/
 155
 156 int VGA_SetAlphaMode(unsigned Xres,unsigned Yres)
 157 {
 158     COORD siz;
 159
 160     if (lpddraw) VGA_Exit();
 161
 162     /* the xterm is slow, so refresh only every 200ms (5fps) */
 163     VGA_InstallTimer(200000);
 164
 165     siz.X = Xres;
 166     siz.Y = Yres;
 167     SetConsoleScreenBufferSize(VGA_AlphaConsole(),siz);
 168     return 0;
 169 }
 170
 171 void VGA_GetAlphaMode(unsigned*Xres,unsigned*Yres)
 172 {
 173     CONSOLE_SCREEN_BUFFER_INFO info;
 174     GetConsoleScreenBufferInfo(VGA_AlphaConsole(),&info);
 175     if (Xres) *Xres=info.dwSize.X;
 176     if (Yres) *Yres=info.dwSize.Y;
 177 }
 178
 179 void VGA_SetCursorPos(unsigned X,unsigned Y)
 180 {
 181     COORD pos;
 182
 183     pos.X = X;
 184     pos.Y = Y;
 185     SetConsoleCursorPosition(VGA_AlphaConsole(),pos);
 186 }
 187
 188 void VGA_GetCursorPos(unsigned*X,unsigned*Y)
 189 {
 190     CONSOLE_SCREEN_BUFFER_INFO info;
 191     GetConsoleScreenBufferInfo(VGA_AlphaConsole(),&info);
 192     if (X) *X=info.dwCursorPosition.X;
 193     if (Y) *Y=info.dwCursorPosition.Y;
 194 }
 195
 196 /*** CONTROL ***/
 197
 198 void CALLBACK VGA_Poll( ULONG_PTR arg )
 199 {
 200     char *dat;
 201     unsigned Pitch,Height,Width;
 202     char *surf;
 203     int Y,X;
 204
 205     if (!InterlockedExchangeAdd(&vga_polling, 1)) {
 206         /* FIXME: optimize by doing this only if the data has actually changed
 207          *        (in a way similar to DIBSection, perhaps) */
 208         if (lpddraw) {
 209           /* graphics mode */
 210           surf = VGA_Lock(&Pitch,&Height,&Width,NULL);
 211           if (!surf) return;
 212           dat = DOSMEM_MapDosToLinear(0xa0000);
 213           /* copy from virtual VGA frame buffer to DirectDraw surface */
 214           for (Y=0; Y<Height; Y++,surf+=Pitch,dat+=Width) {
 215               memcpy(surf,dat,Width);
 216               /*for (X=0; X<Width; X++) if (dat[X]) TRACE(ddraw,"data(%d) at (%d,%d)\n",dat[X],X,Y);*/
 217           }
 218           VGA_Unlock();
 219         } else {
 220           /* text mode */
 221           CHAR_INFO ch[80];
 222           COORD siz, off;
 223           SMALL_RECT dest;
 224           HANDLE con = VGA_AlphaConsole();
 225
 226           VGA_GetAlphaMode(&Width,&Height);
 227           dat = DOSMEM_MapDosToLinear(0xb8000);
 228           siz.X = 80; siz.Y = 1;
 229           off.X = 0; off.Y = 0;
 230           /* copy from virtual VGA frame buffer to console */
 231           for (Y=0; Y<Height; Y++) {
 232               dest.Top=Y; dest.Bottom=Y;
 233               for (X=0; X<Width; X++) {
 234                   ch[X].Char.AsciiChar = *dat++;
 235                   ch[X].Attributes = *dat++;
 236               }
 237               dest.Left=0; dest.Right=Width+1;
 238               WriteConsoleOutputA(con, ch, siz, off, &dest);
 239           }
 240         }
 241         vga_refresh=1;
 242     }
 243     InterlockedDecrement(&vga_polling);
 244 }
 245
 246 static BYTE palreg,palcnt;
 247 static PALETTEENTRY paldat;
 248
 249 void VGA_ioport_out( WORD port, BYTE val )
 250 {
 251     switch (port) {
 252         case 0x3c8:
 253             palreg=val; palcnt=0; break;
 254         case 0x3c9:
 255             ((BYTE*)&paldat)[palcnt++]=val << 2;
 256             if (palcnt==3) {
 257                 VGA_SetPalette(&paldat,palreg++,1);
 258                 palcnt=0;
 259             }
 260             break;
 261     }
 262 }
 263
 264 BYTE VGA_ioport_in( WORD port )
 265 {
 266     BYTE ret;
 267
 268     switch (port) {
 269         case 0x3da:
 270             /* since we don't (yet?) serve DOS VM requests while VGA_Poll is running,
 271                we need to fake the occurrence of the vertical refresh */
 272             ret=vga_refresh?0x00:0x08;
 273             vga_refresh=0;
 274             break;
 275         default:
 276             ret=0xff;
 277     }
 278     return ret;
 279 }
 280
 281 void VGA_Clean(void)
 282 {
 283     VGA_Exit();
 284     VGA_DeinstallTimer();
 285 }