Modules/Display/VESA/main.c

   1 /*\r
   2  * AcessOS 1\r
   3  * Video BIOS Extensions (Vesa) Driver\r
   4  */\r
   5 #define DEBUG   0\r
   6 #define VERSION 0x100\r
   7 \r
   8 #include <acess.h>\r
   9 #include <vfs.h>\r
  10 #include <api_drv_video.h>\r
  11 #include <fs_devfs.h>\r
  12 #include <modules.h>\r
  13 #include <vm8086.h>\r
  14 #include "common.h"\r
  15 \r
  16 // === CONSTANTS ===\r
  17 #define FLAG_LFB        0x1\r
  18 #define VESA_DEFAULT_FRAMEBUFFER        (KERNEL_BASE|0xA0000)\r
  19 #define BLINKING_CURSOR 1\r
  20 #if BLINKING_CURSOR\r
  21 # define VESA_CURSOR_PERIOD     1000\r
  22 #endif\r
  23 \r
  24 // === PROTOTYPES ===\r
  25  int    Vesa_Install(char **Arguments);\r
  26 Uint64  Vesa_Read(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer);\r
  27 Uint64  Vesa_Write(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer);\r
  28  int    Vesa_Ioctl(tVFS_Node *Node, int ID, void *Data);\r
  29  int    Vesa_Int_SetMode(int Mode);\r
  30  int    Vesa_Int_FindMode(tVideo_IOCtl_Mode *data);\r
  31  int    Vesa_Int_ModeInfo(tVideo_IOCtl_Mode *data);\r
  32 void    Vesa_FlipCursor(void *Arg);\r
  33 // --- 2D Acceleration Functions --\r
  34 void    Vesa_2D_Fill(void *Ent, Uint16 X, Uint16 Y, Uint16 W, Uint16 H, Uint32 Colour);\r
  35 void    Vesa_2D_Blit(void *Ent, Uint16 DstX, Uint16 DstY, Uint16 SrcX, Uint16 SrcY, Uint16 W, Uint16 H);\r
  36 \r
  37 // === GLOBALS ===\r
  38 MODULE_DEFINE(0, VERSION, Vesa, Vesa_Install, NULL, "PCI", "VM8086", NULL);\r
  39 tDevFS_Driver   gVesa_DriverStruct = {\r
  40         NULL, "Vesa",\r
  41         {\r
  42         .Read = Vesa_Read,\r
  43         .Write = Vesa_Write,\r
  44         .IOCtl = Vesa_Ioctl\r
  45         }\r
  46 };\r
  47 tMutex  glVesa_Lock;\r
  48 tVM8086 *gpVesa_BiosState;\r
  49  int    giVesaDriverId = -1;\r
  50 // --- Video Modes ---\r
  51  int    giVesaCurrentMode = 0;\r
  52  int    giVesaCurrentFormat = VIDEO_BUFFMT_TEXT;\r
  53 tVesa_Mode      *gVesa_Modes;\r
  54 tVesa_Mode      *gpVesaCurMode;\r
  55  int    giVesaModeCount = 0;\r
  56 // --- Framebuffer ---\r
  57 char    *gpVesa_Framebuffer = (void*)VESA_DEFAULT_FRAMEBUFFER;\r
  58  int    giVesaPageCount = 0;    //!< Framebuffer size in pages\r
  59 // --- Cursor Control ---\r
  60  int    giVesaCursorX = -1;\r
  61  int    giVesaCursorY = -1;\r
  62  int    giVesaCursorTimer = -1; // Invalid timer\r
  63 // --- 2D Video Stream Handlers ---\r
  64 tDrvUtil_Video_2DHandlers       gVesa_2DFunctions = {\r
  65         NULL,\r
  66         Vesa_2D_Fill,\r
  67         Vesa_2D_Blit\r
  68 };\r
  69 \r
  70 // === CODE ===\r
  71 int Vesa_Install(char **Arguments)\r
  72 {\r
  73         tVesa_CallInfo  *info;\r
  74         tFarPtr infoPtr;\r
  75         tVesa_CallModeInfo      *modeinfo;\r
  76         tFarPtr modeinfoPtr;\r
  77         Uint16  *modes;\r
  78         int     i;\r
  79         \r
  80         // Allocate Info Block\r
  81         gpVesa_BiosState = VM8086_Init();\r
  82         info = VM8086_Allocate(gpVesa_BiosState, 512, &infoPtr.seg, &infoPtr.ofs);\r
  83         modeinfo = VM8086_Allocate(gpVesa_BiosState, 512, &modeinfoPtr.seg, &modeinfoPtr.ofs);\r
  84         // Set Requested Version\r
  85         memcpy(info->signature, "VBE2", 4);\r
  86         // Set Registers\r
  87         gpVesa_BiosState->AX = 0x4F00;\r
  88         gpVesa_BiosState->ES = infoPtr.seg;     gpVesa_BiosState->DI = infoPtr.ofs;\r
  89         // Call Interrupt\r
  90         VM8086_Int(gpVesa_BiosState, 0x10);\r
  91         if(gpVesa_BiosState->AX != 0x004F) {\r
  92                 Log_Warning("VESA", "Vesa_Install - VESA/VBE Unsupported (AX = 0x%x)", gpVesa_BiosState->AX);\r
  93                 return MODULE_ERR_NOTNEEDED;\r
  94         }\r
  95         \r
  96         //Log_Debug("VESA", "info->VideoModes = %04x:%04x", info->VideoModes.seg, info->VideoModes.ofs);\r
  97         modes = (Uint16 *) VM8086_GetPointer(gpVesa_BiosState, info->VideoModes.seg, info->VideoModes.ofs);\r
  98         \r
  99         // Read Modes\r
 100         for( giVesaModeCount = 0; modes[giVesaModeCount] != 0xFFFF; giVesaModeCount++ );\r
 101         gVesa_Modes = (tVesa_Mode *)malloc( giVesaModeCount * sizeof(tVesa_Mode) );\r
 102         \r
 103         Log_Debug("VESA", "%i Modes", giVesaModeCount);\r
 104         \r
 105         // Insert Text Mode\r
 106         gVesa_Modes[0].width = 80;\r
 107         gVesa_Modes[0].height = 25;\r
 108         gVesa_Modes[0].bpp = 12;\r
 109         gVesa_Modes[0].code = 0x3;\r
 110         gVesa_Modes[0].flags = 1;\r
 111         gVesa_Modes[0].fbSize = 80*25*2;\r
 112         gVesa_Modes[0].framebuffer = 0xB8000;\r
 113         \r
 114         for( i = 1; i < giVesaModeCount; i++ )\r
 115         {\r
 116                 gVesa_Modes[i].code = modes[i];\r
 117                 // Get Mode info\r
 118                 gpVesa_BiosState->AX = 0x4F01;\r
 119                 gpVesa_BiosState->CX = gVesa_Modes[i].code;\r
 120                 gpVesa_BiosState->ES = modeinfoPtr.seg;\r
 121                 gpVesa_BiosState->DI = modeinfoPtr.ofs;\r
 122                 VM8086_Int(gpVesa_BiosState, 0x10);\r
 123                 \r
 124                 // Parse Info\r
 125                 gVesa_Modes[i].flags = 0;\r
 126                 if ( (modeinfo->attributes & 0x90) == 0x90 )\r
 127                 {\r
 128                         gVesa_Modes[i].flags |= FLAG_LFB;\r
 129                         gVesa_Modes[i].framebuffer = modeinfo->physbase;\r
 130                         gVesa_Modes[i].fbSize = modeinfo->Yres*modeinfo->pitch;\r
 131                 } else {\r
 132                         gVesa_Modes[i].framebuffer = 0;\r
 133                         gVesa_Modes[i].fbSize = 0;\r
 134                 }\r
 135                 \r
 136                 gVesa_Modes[i].pitch = modeinfo->pitch;\r
 137                 gVesa_Modes[i].width = modeinfo->Xres;\r
 138                 gVesa_Modes[i].height = modeinfo->Yres;\r
 139                 gVesa_Modes[i].bpp = modeinfo->bpp;\r
 140                 \r
 141                 #if DEBUG\r
 142                 Log_Log("VESA", "0x%x - %ix%ix%i",\r
 143                         gVesa_Modes[i].code, gVesa_Modes[i].width, gVesa_Modes[i].height, gVesa_Modes[i].bpp);\r
 144                 #endif\r
 145         }\r
 146         \r
 147         \r
 148         // Install Device\r
 149         giVesaDriverId = DevFS_AddDevice( &gVesa_DriverStruct );\r
 150         if(giVesaDriverId == -1)        return MODULE_ERR_MISC;\r
 151         \r
 152         return MODULE_ERR_OK;\r
 153 }\r
 154 \r
 155 /* Read from the framebuffer\r
 156  */\r
 157 Uint64 Vesa_Read(tVFS_Node *Node, Uint64 off, Uint64 len, void *buffer)\r
 158 {\r
 159         #if DEBUG >= 2\r
 160         Log("Vesa_Read: () - NULL\n");\r
 161         #endif\r
 162         return 0;\r
 163 }\r
 164 \r
 165 /**\r
 166  * \brief Write to the framebuffer\r
 167  */\r
 168 Uint64 Vesa_Write(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer)\r
 169 {\r
 170         ENTER("pNode XOffset XLength pBuffer", Node, Offset, Length, Buffer);\r
 171 \r
 172         if(Buffer == NULL) {\r
 173                 LEAVE('i', 0);\r
 174                 return 0;\r
 175         }\r
 176 \r
 177         // Default Text mode\r
 178         if( giVesaCurrentMode == 0 )\r
 179         {\r
 180                 Uint16  *fb = (Uint16*)(KERNEL_BASE|0xB8000);\r
 181                 tVT_Char        *chars = Buffer;\r
 182                  int    rem;\r
 183                 \r
 184                 Length /= sizeof(tVT_Char);\r
 185                 Offset /= sizeof(tVT_Char);\r
 186                 \r
 187                 if( giVesaCurrentFormat != VIDEO_BUFFMT_TEXT ) {\r
 188                         Log_Warning("VESA", "Vesa_Write - Mode 0 is not framebuffer");\r
 189                         LEAVE('i', -1);\r
 190                         return -1;\r
 191                 }\r
 192                 \r
 193                 if( Offset + Length > 25*80 ) {\r
 194                         Log_Warning("VESA", "Vesa_Write - Framebuffer Overflow");\r
 195                         LEAVE('i', 0);\r
 196                         return 0;\r
 197                 }\r
 198                 \r
 199                 fb += 2*Offset;\r
 200                 LOG("fb = %p", fb);\r
 201                 for(rem = Length; rem --; fb ++, chars++)\r
 202                 {\r
 203                         if( chars->Ch < 0x80 )\r
 204                                 *fb = chars->Ch & 0x7F;\r
 205                         else\r
 206                                 *fb = 0x00;\r
 207                         \r
 208                         *fb |= (chars->FGCol & 0x888) == 0x888 ? 0x8 : 0;\r
 209                         *fb |= (chars->FGCol & 0x700) > 0x300 ? 0x4 : 0;\r
 210                         *fb |= (chars->FGCol & 0x070) > 0x030 ? 0x2 : 0;\r
 211                         *fb |= (chars->FGCol & 0x007) > 0x003 ? 0x1 : 0;\r
 212                         *fb |= (chars->BGCol & 0x888) == 0x888 ? 0x80 : 0;\r
 213                         *fb |= (chars->BGCol & 0x700) > 0x300 ? 0x40 : 0;\r
 214                         *fb |= (chars->BGCol & 0x070) > 0x030 ? 0x20 : 0;\r
 215                         *fb |= (chars->BGCol & 0x007) > 0x003 ? 0x10 : 0;\r
 216                         //LOG("%08x (%03x,%03x) = %04x",\r
 217                         //      chars->Ch, chars->BGCol, chars->FGCol, *fb);\r
 218                 }\r
 219                 Length *= sizeof(tVT_Char);\r
 220                 LEAVE('X', Length);\r
 221                 return Length;\r
 222         }\r
 223 \r
 224         if( gVesa_Modes[giVesaCurrentMode].framebuffer == 0 ) {\r
 225                 Log_Warning("VESA", "Vesa_Write - Non-LFB Modes not yet supported.");\r
 226                 LEAVE('i', 0);\r
 227                 return 0;\r
 228         }\r
 229         \r
 230         // Text Mode\r
 231         switch( giVesaCurrentFormat )\r
 232         {\r
 233         case VIDEO_BUFFMT_TEXT:\r
 234                 {\r
 235                 tVT_Char        *chars = Buffer;\r
 236                  int    pitch = gVesa_Modes[giVesaCurrentMode].pitch;\r
 237                  int    depth = gVesa_Modes[giVesaCurrentMode].bpp;\r
 238                  int    bytes_per_px = gVesa_Modes[giVesaCurrentMode].bpp / 8;\r
 239                  int    widthInChars = gVesa_Modes[giVesaCurrentMode].width/giVT_CharWidth;\r
 240                  int    heightInChars = gVesa_Modes[giVesaCurrentMode].height/giVT_CharHeight;\r
 241                  int    x, y;\r
 242                 Uint8   *dest = (void*)gpVesa_Framebuffer;\r
 243                  int    i;\r
 244                 \r
 245                 Length /= sizeof(tVT_Char);\r
 246                 Offset /= sizeof(tVT_Char);\r
 247                 \r
 248                 if( depth == 32 )       depth = 24;     // Actually 24-colour bits\r
 249                 \r
 250                 LOG("gVesa_Modes[%i] = {height:%i, width:%i, pitch:%i}",\r
 251                         giVesaCurrentMode,\r
 252                         gVesa_Modes[giVesaCurrentMode].height,\r
 253                         gVesa_Modes[giVesaCurrentMode].width,\r
 254                         gVesa_Modes[giVesaCurrentMode].pitch\r
 255                         );\r
 256                 x = Offset % widthInChars;\r
 257                 y = Offset / widthInChars;\r
 258                 LOG("(x,y) = (%i,%i) = [%i,%i]",\r
 259                         x,\r
 260                         y,\r
 261                         x * giVT_CharWidth * bytes_per_px,\r
 262                         y * giVT_CharHeight * pitch\r
 263                         );\r
 264                 LOG("(w,h) = (%i,%i) = [%i,%i]",\r
 265                         (int)(Length % widthInChars),\r
 266                         (int)(Length / widthInChars),\r
 267                         (int)((Length % widthInChars) * giVT_CharWidth * bytes_per_px),\r
 268                         (int)((Length / widthInChars) * giVT_CharHeight * pitch)\r
 269                         );\r
 270                 \r
 271                 // Sanity Check\r
 272                 if( Offset > (Uint64)(heightInChars*widthInChars) ) {\r
 273                         LEAVE('i', 0);\r
 274                         return 0;\r
 275                 }\r
 276                 if(y >= heightInChars) {\r
 277                         LEAVE('i', 0);\r
 278                         return 0;\r
 279                 }\r
 280                 \r
 281                 \r
 282                 if( (int)Offset + (int)Length > heightInChars*widthInChars ) {\r
 283                         Log_Debug("VESA", "%i + %i > %i*%i (%i)",\r
 284                                 (int)Offset, (int)Length, heightInChars, widthInChars, heightInChars*widthInChars);\r
 285                         Length = heightInChars*widthInChars - Offset;\r
 286                         Log_Notice("VESA", "Clipping write size to %i characters", (int)Length);\r
 287                 }\r
 288                 \r
 289                 dest += y * giVT_CharHeight * pitch;\r
 290                 \r
 291                 LOG("dest = %p", dest);\r
 292                 \r
 293                 for( i = 0; i < (int)Length; i++ )\r
 294                 {\r
 295                         if(\r
 296                             !MM_GetPhysAddr( (tVAddr)dest + x*giVT_CharWidth*bytes_per_px )\r
 297                         // || !MM_GetPhysAddr( (tVAddr)dest + x*giVT_CharWidth*depth/8 + pitch*giVT_CharHeight-1)\r
 298                                 )\r
 299                         {\r
 300                                 Log_Notice("VESA", "Stopped at %i, not mapped", i);\r
 301                                 break;\r
 302                         }\r
 303                         if( y >= heightInChars )\r
 304                         {\r
 305                                 Log_Notice("VESA", "Stopped at %i", i);\r
 306                                 break;\r
 307                         }\r
 308                         \r
 309                         VT_Font_Render(\r
 310                                 chars->Ch,\r
 311                                 dest + x*giVT_CharWidth*bytes_per_px, bytes_per_px*8, pitch,\r
 312                                 VT_Colour12toN(chars->BGCol, depth),\r
 313                                 VT_Colour12toN(chars->FGCol, depth)\r
 314                                 );\r
 315                         \r
 316                         chars ++;\r
 317                         x ++;\r
 318                         if( x >= widthInChars )\r
 319                         {\r
 320                                 x = 0;\r
 321                                 y ++;\r
 322                                 dest += pitch*giVT_CharHeight;\r
 323                         }\r
 324                 }\r
 325                 Length = i * sizeof(tVT_Char);\r
 326                 }\r
 327                 break;\r
 328         \r
 329         case VIDEO_BUFFMT_FRAMEBUFFER:\r
 330                 {\r
 331                 Uint8   *destBuf = (Uint8*) ((Uint)gpVesa_Framebuffer + (Uint)Offset);\r
 332                 \r
 333                 if(gVesa_Modes[giVesaCurrentMode].fbSize < Offset+Length)\r
 334                 {\r
 335                         Log_Warning("VESA", "Vesa_Write - Framebuffer Overflow");\r
 336                         LEAVE('i', 0);\r
 337                         return 0;\r
 338                 }\r
 339                 \r
 340                 LOG("buffer = %p", Buffer);\r
 341                 LOG("Updating Framebuffer (%p to %p)", destBuf, destBuf + (Uint)Length);\r
 342                 \r
 343                 //TODO: Handle non 32-bpp framebuffer modes\r
 344                 \r
 345                 // Copy to Frambuffer\r
 346                 memcpy(destBuf, Buffer, Length);\r
 347                 \r
 348                 LOG("BGA Framebuffer updated");\r
 349                 }\r
 350                 break;\r
 351         \r
 352         case VIDEO_BUFFMT_2DSTREAM:\r
 353                 Length = DrvUtil_Video_2DStream(\r
 354                         NULL,   // Single framebuffer, so Ent is unused\r
 355                         Buffer, Length, &gVesa_2DFunctions, sizeof(gVesa_2DFunctions)\r
 356                         );\r
 357                 break;\r
 358         \r
 359         default:\r
 360                 LEAVE('i', -1);\r
 361                 return -1;\r
 362         }\r
 363         \r
 364         LEAVE('X', Length);\r
 365         return Length;\r
 366 }\r
 367 \r
 368 /**\r
 369  * \fn int Vesa_Ioctl(vfs_node *node, int id, void *data)\r
 370  * \brief Handle messages to the device\r
 371  */\r
 372 int Vesa_Ioctl(tVFS_Node *Node, int ID, void *Data)\r
 373 {\r
 374          int    ret;\r
 375         //Log_Debug("VESA", "Vesa_Ioctl: (Node=%p, ID=%i, Data=%p)", Node, ID, Data);\r
 376         switch(ID)\r
 377         {\r
 378         case DRV_IOCTL_TYPE:    return DRV_TYPE_VIDEO;\r
 379         case DRV_IOCTL_IDENT:   memcpy("VESA", Data, 4);        return 1;\r
 380         case DRV_IOCTL_VERSION: return VERSION;\r
 381         \r
 382         case VIDEO_IOCTL_GETSETMODE:\r
 383                 if( !Data )     return giVesaCurrentMode;\r
 384                 return Vesa_Int_SetMode( *(int*)Data );\r
 385         \r
 386         case VIDEO_IOCTL_FINDMODE:\r
 387                 return Vesa_Int_FindMode((tVideo_IOCtl_Mode*)Data);\r
 388         case VIDEO_IOCTL_MODEINFO:\r
 389                 return Vesa_Int_ModeInfo((tVideo_IOCtl_Mode*)Data);\r
 390         \r
 391         case VIDEO_IOCTL_SETBUFFORMAT:\r
 392                 ret = giVesaCurrentFormat;\r
 393                 if(Data)        giVesaCurrentFormat = *(int*)Data;\r
 394                 return ret;\r
 395         \r
 396         case VIDEO_IOCTL_SETCURSOR:     // Set cursor position\r
 397                 #if !BLINKING_CURSOR\r
 398                 if(giVesaCursorX > 0)\r
 399                         Vesa_FlipCursor(Node);\r
 400                 #endif\r
 401                 giVesaCursorX = ((tVideo_IOCtl_Pos*)Data)->x;\r
 402                 giVesaCursorY = ((tVideo_IOCtl_Pos*)Data)->y;\r
 403                 //Log_Debug("VESA", "Cursor position (%i,%i)", giVesaCursorX, giVesaCursorY);\r
 404                 if(\r
 405                         giVesaCursorX < 0 || giVesaCursorY < 0\r
 406                 ||      giVesaCursorX >= gpVesaCurMode->width/giVT_CharWidth\r
 407                 ||      giVesaCursorY >= gpVesaCurMode->height/giVT_CharHeight)\r
 408                 {\r
 409                         #if BLINKING_CURSOR\r
 410                         if(giVesaCursorTimer != -1) {\r
 411                                 Time_RemoveTimer(giVesaCursorTimer);\r
 412                                 giVesaCursorTimer = -1;\r
 413                         }\r
 414                         #endif\r
 415                         giVesaCursorX = -1;\r
 416                         giVesaCursorY = -1;\r
 417                 }\r
 418                 else {\r
 419                         #if BLINKING_CURSOR\r
 420                 //      Log_Debug("VESA", "Updating timer %i?", giVesaCursorTimer);\r
 421                         if(giVesaCursorTimer == -1)\r
 422                                 giVesaCursorTimer = Time_CreateTimer(VESA_CURSOR_PERIOD, Vesa_FlipCursor, Node);\r
 423                         #else\r
 424                         Vesa_FlipCursor(Node);\r
 425                         #endif\r
 426                 }\r
 427                 //Log_Debug("VESA", "Cursor position (%i,%i) Timer %i", giVesaCursorX, giVesaCursorY, giVesaCursorTimer);\r
 428                 return 0;\r
 429         \r
 430 //      case VIDEO_IOCTL_REQLFB:        // Request Linear Framebuffer\r
 431 //              return 0;\r
 432         }\r
 433         return 0;\r
 434 }\r
 435 \r
 436 /**\r
 437  * \brief Updates the video mode\r
 438  */\r
 439 int Vesa_Int_SetMode(int mode)\r
 440 {       \r
 441         // Sanity Check values\r
 442         if(mode < 0 || mode > giVesaModeCount)  return -1;\r
 443 \r
 444         Log_Log("VESA", "Setting mode to %i (%ix%i %ibpp)",\r
 445                 mode,\r
 446                 gVesa_Modes[mode].width, gVesa_Modes[mode].height,\r
 447                 gVesa_Modes[mode].bpp\r
 448                 );\r
 449         \r
 450         // Check for fast return\r
 451         if(mode == giVesaCurrentMode)   return 1;\r
 452         \r
 453         Time_RemoveTimer(giVesaCursorTimer);\r
 454         giVesaCursorTimer = -1;\r
 455         \r
 456         Mutex_Acquire( &glVesa_Lock );\r
 457         \r
 458         gpVesa_BiosState->AX = 0x4F02;\r
 459         gpVesa_BiosState->BX = gVesa_Modes[mode].code;\r
 460         if(gVesa_Modes[mode].flags & FLAG_LFB) {\r
 461                 Log_Log("VESA", "Using LFB");\r
 462                 gpVesa_BiosState->BX |= 0x4000; // Bit 14 - Use LFB\r
 463         }\r
 464         \r
 465         // Set Mode\r
 466         VM8086_Int(gpVesa_BiosState, 0x10);\r
 467         \r
 468         // Map Framebuffer\r
 469         if( (tVAddr)gpVesa_Framebuffer != VESA_DEFAULT_FRAMEBUFFER )\r
 470                 MM_UnmapHWPages((tVAddr)gpVesa_Framebuffer, giVesaPageCount);\r
 471         giVesaPageCount = (gVesa_Modes[mode].fbSize + 0xFFF) >> 12;\r
 472         gpVesa_Framebuffer = (void*)MM_MapHWPages(gVesa_Modes[mode].framebuffer, giVesaPageCount);\r
 473         \r
 474         Log_Log("VESA", "Framebuffer (Phys) = 0x%x, (Virt) = 0x%x, Size = 0x%x",\r
 475                 gVesa_Modes[mode].framebuffer, gpVesa_Framebuffer, giVesaPageCount << 12);\r
 476         \r
 477         // Record Mode Set\r
 478         giVesaCurrentMode = mode;\r
 479         gpVesaCurMode = &gVesa_Modes[giVesaCurrentMode];\r
 480         \r
 481         Mutex_Release( &glVesa_Lock );\r
 482         \r
 483         return 1;\r
 484 }\r
 485 \r
 486 int Vesa_Int_FindMode(tVideo_IOCtl_Mode *data)\r
 487 {\r
 488          int    i;\r
 489          int    best = -1, bestFactor = 1000;\r
 490          int    factor, tmp;\r
 491         \r
 492         ENTER("idata->width idata->height idata->bpp", data->width, data->height, data->bpp);\r
 493         \r
 494         for(i=0;i<giVesaModeCount;i++)\r
 495         {\r
 496                 LOG("Mode %i (%ix%ix%i)", i, gVesa_Modes[i].width, gVesa_Modes[i].height, gVesa_Modes[i].bpp);\r
 497         \r
 498                 if(gVesa_Modes[i].width == data->width && gVesa_Modes[i].height == data->height)\r
 499                 {\r
 500                         //if( (data->bpp == 32 || data->bpp == 24)\r
 501                         // && (gVesa_Modes[i].bpp == 32 || gVesa_Modes[i].bpp == 24) )\r
 502                         if( data->bpp == gVesa_Modes[i].bpp )\r
 503                         {\r
 504                                 LOG("Perfect!");\r
 505                                 best = i;\r
 506                                 break;\r
 507                         }\r
 508                 }\r
 509                 \r
 510                 tmp = gVesa_Modes[i].width * gVesa_Modes[i].height;\r
 511                 tmp -= data->width * data->height;\r
 512                 tmp = tmp < 0 ? -tmp : tmp;\r
 513                 factor = tmp * 1000 / (data->width * data->height);\r
 514                 \r
 515                 if( data->bpp == 8 && gVesa_Modes[i].bpp != 8 ) continue;\r
 516                 if( data->bpp == 16 && gVesa_Modes[i].bpp != 16 )       continue;\r
 517                 \r
 518                 if( (data->bpp == 32 || data->bpp == 24)\r
 519                  && (gVesa_Modes[i].bpp == 32 || gVesa_Modes[i].bpp == 24) )\r
 520                 {\r
 521                         if( data->bpp == gVesa_Modes[i].bpp )\r
 522                                 factor /= 2;\r
 523                 }\r
 524                 else {\r
 525                         if( data->bpp != gVesa_Modes[i].bpp )\r
 526                                 continue ;\r
 527                 }\r
 528                 \r
 529                 LOG("factor = %i", factor);\r
 530                 \r
 531                 if(factor < bestFactor)\r
 532                 {\r
 533                         bestFactor = factor;\r
 534                         best = i;\r
 535                 }\r
 536         }\r
 537         data->id = best;\r
 538         data->width = gVesa_Modes[best].width;\r
 539         data->height = gVesa_Modes[best].height;\r
 540         data->bpp = gVesa_Modes[best].bpp;\r
 541         LEAVE('i', best);\r
 542         return best;\r
 543 }\r
 544 \r
 545 int Vesa_Int_ModeInfo(tVideo_IOCtl_Mode *data)\r
 546 {\r
 547         if(data->id < 0 || data->id > giVesaModeCount)  return -1;\r
 548         data->width = gVesa_Modes[data->id].width;\r
 549         data->height = gVesa_Modes[data->id].height;\r
 550         data->bpp = gVesa_Modes[data->id].bpp;\r
 551         return 1;\r
 552 }\r
 553 \r
 554 /**\r
 555  * \brief Updates the state of the text cursor\r
 556  * \note Just does a bitwise not on the cursor region\r
 557  */\r
 558 void Vesa_FlipCursor(void *Arg)\r
 559 {\r
 560          int    pitch = gpVesaCurMode->pitch;\r
 561          int    bytes_per_px = (gpVesaCurMode->bpp + 7) / 8;\r
 562          int    x = giVesaCursorX*giVT_CharWidth;\r
 563          int    y = giVesaCursorY*giVT_CharHeight;\r
 564          int    i;\r
 565         Uint8   *fb = (void*)gpVesa_Framebuffer;\r
 566         \r
 567         //Debug("Cursor flip");\r
 568         \r
 569         // Sanity check\r
 570         if(giVesaCursorX < 0 || giVesaCursorY < 0\r
 571         || y*pitch + x + (giVT_CharHeight-1)*pitch > (int)gpVesaCurMode->fbSize) {\r
 572                 Log_Notice("VESA", "Cursor OOB (%i,%i)", x, y);\r
 573                 giVesaCursorTimer = -1;\r
 574                 return;\r
 575         }\r
 576         \r
 577         // Draw cursor\r
 578         fb += (y+1)*pitch + x*bytes_per_px;\r
 579         \r
 580         switch(bytes_per_px)\r
 581         {\r
 582         case 1:\r
 583                 for( i = 1; i < giVT_CharHeight-1; i++, fb += pitch )\r
 584                         *fb = ~*fb;\r
 585                 break;\r
 586         case 2:\r
 587                 for( i = 1; i < giVT_CharHeight-1; i++, fb += pitch ) {\r
 588                         fb[0] = ~fb[0];\r
 589                         fb[1] = ~fb[1];\r
 590                 }\r
 591                 break;\r
 592         case 3:\r
 593                 for( i = 1; i < giVT_CharHeight-1; i++, fb += pitch ) {\r
 594                         fb[0] = ~fb[0];\r
 595                         fb[1] = ~fb[1];\r
 596                         fb[2] = ~fb[2];\r
 597                 }\r
 598                 break;\r
 599         case 4:\r
 600                 for( i = 1; i < giVT_CharHeight-1; i++, fb += pitch ) {\r
 601                         fb[0] = ~fb[0];\r
 602                         fb[1] = ~fb[1];\r
 603                         fb[2] = ~fb[2];\r
 604                         fb[3] = ~fb[3];\r
 605                 }\r
 606                 break;\r
 607         default:\r
 608                 Log_Error("VESA", "Vesa_FlipCursor - Bug Report, unknown bytes_per_px (%i)", bytes_per_px);\r
 609                 giVesaCursorTimer = -1;\r
 610                 return ;\r
 611         }\r
 612         \r
 613         #if BLINKING_CURSOR\r
 614         giVesaCursorTimer = Time_CreateTimer(VESA_CURSOR_PERIOD, Vesa_FlipCursor, Arg);\r
 615         #endif\r
 616 }\r
 617 \r
 618 // ------------------------\r
 619 // --- 2D Accelleration ---\r
 620 // ------------------------\r
 621 void Vesa_2D_Fill(void *Ent, Uint16 X, Uint16 Y, Uint16 W, Uint16 H, Uint32 Colour)\r
 622 {\r
 623         // TODO: Handle non-32bit modes\r
 624          int    pitch = gpVesaCurMode->pitch/4;\r
 625         Uint32  *buf = (Uint32*)gpVesa_Framebuffer + Y*pitch + X;\r
 626         while( H -- ) {\r
 627                 memsetd(buf, Colour, W);\r
 628                 buf += pitch;\r
 629         }\r
 630 }\r
 631 \r
 632 void Vesa_2D_Blit(void *Ent, Uint16 DstX, Uint16 DstY, Uint16 SrcX, Uint16 SrcY, Uint16 W, Uint16 H)\r
 633 {\r
 634          int    scrnpitch = gpVesaCurMode->pitch;\r
 635          int    bytes_per_px = (gpVesaCurMode->bpp + 7) / 8;\r
 636          int    dst = DstY*scrnpitch + DstX;\r
 637          int    src = SrcY*scrnpitch + SrcX;\r
 638          int    tmp;\r
 639         \r
 640         //Log("Vesa_2D_Blit: (Ent=%p, DstX=%i, DstY=%i, SrcX=%i, SrcY=%i, W=%i, H=%i)",\r
 641         //      Ent, DstX, DstY, SrcX, SrcY, W, H);\r
 642         \r
 643         if(SrcX + W > gpVesaCurMode->width)\r
 644                 W = gpVesaCurMode->width - SrcX;\r
 645         if(DstX + W > gpVesaCurMode->width)\r
 646                 W = gpVesaCurMode->width - DstX;\r
 647         if(SrcY + H > gpVesaCurMode->height)\r
 648                 H = gpVesaCurMode->height - SrcY;\r
 649         if(DstY + H > gpVesaCurMode->height)\r
 650                 H = gpVesaCurMode->height - DstY;\r
 651         \r
 652         //Debug("W = %i, H = %i", W, H);\r
 653         \r
 654         if( dst > src ) {\r
 655                 // Reverse copy\r
 656                 dst += H*scrnpitch;\r
 657                 src += H*scrnpitch;\r
 658                 while( H -- ) {\r
 659                         dst -= scrnpitch;\r
 660                         src -= scrnpitch;\r
 661                         tmp = W*bytes_per_px;\r
 662                         for( tmp = W; tmp --; ) {\r
 663                                 *(Uint8*)(gpVesa_Framebuffer + dst + tmp) = *(Uint8*)(gpVesa_Framebuffer + src + tmp);\r
 664                         }\r
 665                 }\r
 666         }\r
 667         else {\r
 668                 // Normal copy is OK\r
 669                 while( H -- ) {\r
 670                         memcpy((void*)gpVesa_Framebuffer + dst, (void*)gpVesa_Framebuffer + src, W*bytes_per_px);\r
 671                         dst += scrnpitch;\r
 672                         src += scrnpitch;\r
 673                 }\r
 674         }\r
 675         //Log("Vesa_2D_Blit: RETURN");\r
 676 }\r