--- BasiliskII/src/AmigaOS/video_amiga.cpp 1999/10/19 19:28:21 1.2 +++ BasiliskII/src/AmigaOS/video_amiga.cpp 2004/01/12 15:29:22 1.26 @@ -1,7 +1,7 @@ /* * video_amiga.cpp - Video/graphics emulation, AmigaOS specific stuff * - * Basilisk II (C) 1997-1999 Christian Bauer + * Basilisk II (C) 1997-2004 Christian Bauer * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -22,42 +22,52 @@ #include #include #include +#include #include #include +#define __USE_SYSBASE #include #include #include #include #include +#include +#include +#include +#include +#include +#include #include "sysdeps.h" +#include "cpu_emulation.h" #include "main.h" #include "adb.h" #include "prefs.h" #include "user_strings.h" #include "video.h" -#define DEBUG 1 +#define DEBUG 0 #include "debug.h" +// Supported video modes +static vector VideoModes; + // Display types enum { DISPLAY_WINDOW, DISPLAY_PIP, - DISPLAY_SCREEN + DISPLAY_SCREEN_P96, + DISPLAY_SCREEN_CGFX }; // Global variables static int32 frame_skip; -static int display_type = DISPLAY_WINDOW; // See enum above -static struct Screen *the_screen = NULL; -static struct Window *the_win = NULL; -static struct BitMap *the_bitmap = NULL; -static LONG black_pen = -1, white_pen = -1; -static struct Process *periodic_proc = NULL; // Periodic process +static UWORD *null_pointer = NULL; // Blank mouse pointer data +static UWORD *current_pointer = (UWORD *)-1; // Currently visible mouse pointer data +static struct Process *periodic_proc = NULL; // Periodic process -extern struct Task *MainTask; // Pointer to main task (from main_amiga.cpp) +extern struct Task *MainTask; // Pointer to main task (from main_amiga.cpp) // Amiga -> Mac raw keycode translation table @@ -81,237 +91,315 @@ static const uint8 keycode2mac[0x80] = { }; +class Amiga_monitor_desc : public monitor_desc { +public: + Amiga_monitor_desc(const vector &available_modes, video_depth default_depth, uint32 default_id, int default_display_type) + : monitor_desc(available_modes, default_depth, default_id), display_type(default_display_type) {}; + ~Amiga_monitor_desc() {}; + + virtual void switch_to_current_mode(void); + virtual void set_palette(uint8 *pal, int num); + + bool video_open(void); + void video_close(void); +public: + int display_type; // See enum above +}; + + +/* + * Display "driver" classes + */ + +class driver_base { +public: + driver_base(Amiga_monitor_desc &m); + virtual ~driver_base(); + + virtual void set_palette(uint8 *pal, int num) {}; + virtual struct BitMap *get_bitmap() { return NULL; }; +public: + Amiga_monitor_desc &monitor; // Associated video monitor + const video_mode &mode; // Video mode handled by the driver + BOOL init_ok; // Initialization succeeded (we can't use exceptions because of -fomit-frame-pointer) + struct Window *the_win; +}; + + +class driver_window : public driver_base { +public: + driver_window(Amiga_monitor_desc &m, int width, int height); + ~driver_window(); + + struct BitMap *get_bitmap() { return the_bitmap; }; + +private: + LONG black_pen, white_pen; + struct BitMap *the_bitmap; +}; + +class driver_pip : public driver_base { +public: + driver_pip(Amiga_monitor_desc &m, int width, int height); + ~driver_pip(); + + struct BitMap *get_bitmap() { return the_bitmap; }; + +private: + struct BitMap *the_bitmap; +}; + +class driver_screen_p96 : public driver_base { +public: + driver_screen_p96(Amiga_monitor_desc &m, ULONG mode_id); + ~driver_screen_p96(); + + void set_palette(uint8 *pal, int num); + +private: + struct Screen *the_screen; +}; + +class driver_screen_cgfx : public driver_base { +public: + driver_screen_cgfx(Amiga_monitor_desc &m, ULONG mode_id); + ~driver_screen_cgfx(); + + void set_palette(uint8 *pal, int num); + +private: + struct Screen *the_screen; +}; + + +static driver_base *drv = NULL; // Pointer to currently used driver object + + + // Prototypes static void periodic_func(void); +static void add_mode(uint32 width, uint32 height, uint32 resolution_id, uint32 bytes_per_row, video_depth depth); +static void add_modes(uint32 width, uint32 height, video_depth depth); +static ULONG find_mode_for_depth(uint32 width, uint32 height, uint32 depth); +static ULONG bits_from_depth(video_depth depth); +static bool is_valid_modeid(int display_type, ULONG mode_id); +static bool check_modeid_p96(ULONG mode_id); +static bool check_modeid_cgfx(ULONG mode_id); /* * Initialization */ -// Open window -static bool init_window(int width, int height) -{ - // Set absolute mouse mode - ADBSetRelMouseMode(false); - - // Open window - the_win = OpenWindowTags(NULL, - WA_Left, 0, WA_Top, 0, - WA_InnerWidth, width, WA_InnerHeight, height, - WA_SimpleRefresh, TRUE, - WA_NoCareRefresh, TRUE, - WA_Activate, TRUE, - WA_RMBTrap, TRUE, - WA_ReportMouse, TRUE, - WA_DragBar, TRUE, - WA_DepthGadget, TRUE, - WA_SizeGadget, FALSE, - WA_Title, (ULONG)GetString(STR_WINDOW_TITLE), - TAG_END - ); - if (the_win == NULL) { - ErrorAlert(GetString(STR_OPEN_WINDOW_ERR)); - return false; - } - // Create bitmap ("height + 2" for safety) - the_bitmap = AllocBitMap(width, height + 2, 1, BMF_CLEAR, NULL); - if (the_bitmap == NULL) { - ErrorAlert(GetString(STR_NO_MEM_ERR)); +bool VideoInit(bool classic) +{ + video_depth default_depth = VDEPTH_1BIT; + int default_width, default_height; + int default_display_type = DISPLAY_WINDOW; + int window_width, window_height; // width and height for window display + ULONG screen_mode_id; // mode ID for screen display + + // Allocate blank mouse pointer data + null_pointer = (UWORD *)AllocMem(12, MEMF_PUBLIC | MEMF_CHIP | MEMF_CLEAR); + if (null_pointer == NULL) { + ErrorAlert(STR_NO_MEM_ERR); return false; } - // Set VideoMonitor - VideoMonitor.mac_frame_base = (uint32)the_bitmap->Planes[0]; - VideoMonitor.bytes_per_row = the_bitmap->BytesPerRow; - VideoMonitor.x = width; - VideoMonitor.y = height; - VideoMonitor.mode = VMODE_1BIT; + // Read frame skip prefs + frame_skip = PrefsFindInt32("frameskip"); + if (frame_skip == 0) + frame_skip = 1; - // Set FgPen and BgPen - black_pen = ObtainBestPenA(the_win->WScreen->ViewPort.ColorMap, 0, 0, 0, NULL); - white_pen = ObtainBestPenA(the_win->WScreen->ViewPort.ColorMap, 0xffffffff, 0xffffffff, 0xffffffff, NULL); - SetAPen(the_win->RPort, black_pen); - SetBPen(the_win->RPort, white_pen); - SetDrMd(the_win->RPort, JAM2); - return true; -} + // Get screen mode from preferences + const char *mode_str; + if (classic) + mode_str = "win/512/342"; + else + mode_str = PrefsFindString("screen"); -// Open PIP (requires Picasso96) -static bool init_pip(int width, int height) -{ - // Set absolute mouse mode - ADBSetRelMouseMode(false); + default_width = window_width = 512; + default_height = window_height = 384; - // Open window - ULONG error = 0; - the_win = p96PIP_OpenTags( - P96PIP_SourceFormat, RGBFB_R5G5B5, - P96PIP_SourceWidth, width, - P96PIP_SourceHeight, height, - P96PIP_ErrorCode, (ULONG)&error, - WA_Left, 0, WA_Top, 0, - WA_InnerWidth, width, WA_InnerHeight, height, - WA_SimpleRefresh, TRUE, - WA_NoCareRefresh, TRUE, - WA_Activate, TRUE, - WA_RMBTrap, TRUE, - WA_ReportMouse, TRUE, - WA_DragBar, TRUE, - WA_DepthGadget, TRUE, - WA_SizeGadget, FALSE, - WA_Title, (ULONG)GetString(STR_WINDOW_TITLE), - WA_PubScreenName, (ULONG)"Workbench", - TAG_END - ); - if (the_win == NULL || error) { - ErrorAlert(GetString(STR_OPEN_WINDOW_ERR)); - return false; + if (mode_str) { + if (sscanf(mode_str, "win/%d/%d", &window_width, &window_height) == 2) + default_display_type = DISPLAY_WINDOW; + else if (sscanf(mode_str, "pip/%d/%d", &window_width, &window_height) == 2 && P96Base) + default_display_type = DISPLAY_PIP; + else if (sscanf(mode_str, "scr/%08lx", &screen_mode_id) == 1 && (CyberGfxBase || P96Base)) { + if (P96Base && p96GetModeIDAttr(screen_mode_id, P96IDA_ISP96)) + default_display_type = DISPLAY_SCREEN_P96; + else if (CyberGfxBase && IsCyberModeID(screen_mode_id)) + default_display_type = DISPLAY_SCREEN_CGFX; + else { + ErrorAlert(STR_NO_P96_MODE_ERR); + return false; + } + } } - // Find bitmap - p96PIP_GetTags(the_win, P96PIP_SourceBitMap, (ULONG)&the_bitmap, TAG_END); + D(bug("default_display_type %d, window_width %d, window_height %d\n", default_display_type, window_width, window_height)); - // Set VideoMonitor - VideoMonitor.mac_frame_base = p96GetBitMapAttr(the_bitmap, P96BMA_MEMORY); - VideoMonitor.bytes_per_row = p96GetBitMapAttr(the_bitmap, P96BMA_BYTESPERROW); - VideoMonitor.x = width; - VideoMonitor.y = height; - VideoMonitor.mode = VMODE_16BIT; - return true; -} + // Construct list of supported modes + switch (default_display_type) { + case DISPLAY_WINDOW: + default_width = window_width; + default_height = window_height; + default_depth = VDEPTH_1BIT; + add_modes(window_width, window_height, VDEPTH_1BIT); + break; -// Open screen (requires Picasso96 as we need chunky modes) -static bool init_screen(ULONG mode_id) -{ - // Set relative mouse mode - ADBSetRelMouseMode(true); + case DISPLAY_PIP: + default_width = window_width; + default_height = window_height; + default_depth = VDEPTH_16BIT; + add_modes(window_width, window_height, VDEPTH_16BIT); + break; - // Check if the mode is a Picasso96 mode - if (!p96GetModeIDAttr(mode_id, P96IDA_ISP96)) { - ErrorAlert(GetString(STR_NO_P96_MODE_ERR)); - return false; - } + case DISPLAY_SCREEN_P96: + case DISPLAY_SCREEN_CGFX: + struct DimensionInfo dimInfo; + DisplayInfoHandle handle = FindDisplayInfo(screen_mode_id); - // Check if the mode is one we can handle - uint32 depth = p96GetModeIDAttr(mode_id, P96IDA_DEPTH); - uint32 format = p96GetModeIDAttr(mode_id, P96IDA_RGBFORMAT); - switch (depth) { - case 8: - VideoMonitor.mode = VMODE_8BIT; - break; - case 15: - case 16: - if (format != RGBFB_R5G5B5) { - ErrorAlert(GetString(STR_WRONG_SCREEN_FORMAT_ERR)); + if (handle == NULL) return false; - } - VideoMonitor.mode = VMODE_16BIT; - break; - case 24: - case 32: - if (format != RGBFB_A8R8G8B8) { - ErrorAlert(GetString(STR_WRONG_SCREEN_FORMAT_ERR)); + + if (GetDisplayInfoData(handle, (UBYTE *) &dimInfo, sizeof(dimInfo), DTAG_DIMS, 0) <= 0) return false; + + default_width = 1 + dimInfo.Nominal.MaxX - dimInfo.Nominal.MinX; + default_height = 1 + dimInfo.Nominal.MaxY - dimInfo.Nominal.MinY; + + switch (dimInfo.MaxDepth) { + case 1: + default_depth = VDEPTH_1BIT; + break; + case 8: + default_depth = VDEPTH_8BIT; + break; + case 15: + case 16: + default_depth = VDEPTH_16BIT; + break; + case 24: + case 32: + default_depth = VDEPTH_32BIT; + break; + } + + for (unsigned d=VDEPTH_8BIT; d<=VDEPTH_32BIT; d++) { + ULONG mode_id = find_mode_for_depth(default_width, default_height, bits_from_depth(video_depth(d))); + + if (is_valid_modeid(default_display_type, mode_id)) + add_modes(default_width, default_height, video_depth(d)); } - VideoMonitor.mode = VMODE_32BIT; break; - default: - ErrorAlert(GetString(STR_WRONG_SCREEN_DEPTH_ERR)); - return false; } - // Yes, get width and height - uint32 width = p96GetModeIDAttr(mode_id, P96IDA_WIDTH); - uint32 height = p96GetModeIDAttr(mode_id, P96IDA_HEIGHT); - VideoMonitor.x = width; - VideoMonitor.y = height; - - // Open screen - the_screen = p96OpenScreenTags( - P96SA_DisplayID, mode_id, - P96SA_Title, (ULONG)GetString(STR_WINDOW_TITLE), - P96SA_Quiet, TRUE, - P96SA_NoMemory, TRUE, - P96SA_NoSprite, TRUE, - P96SA_Exclusive, TRUE, - TAG_END - ); - if (the_screen == NULL) { - ErrorAlert(GetString(STR_OPEN_SCREEN_ERR)); - return false; +#if DEBUG + bug("Available video modes:\n"); + vector::const_iterator i = VideoModes.begin(), end = VideoModes.end(); + while (i != end) { + bug(" %ld x %ld (ID %02lx), %ld colors\n", i->x, i->y, i->resolution_id, 1 << bits_from_depth(i->depth)); + ++i; } +#endif - // Open window - the_win = OpenWindowTags(NULL, - WA_Left, 0, WA_Top, 0, - WA_Width, width, WA_Height, height, - WA_NoCareRefresh, TRUE, - WA_Borderless, TRUE, - WA_Activate, TRUE, - WA_RMBTrap, TRUE, - WA_ReportMouse, TRUE, - WA_CustomScreen, (ULONG)the_screen, - TAG_END - ); - if (the_win == NULL) { - ErrorAlert(GetString(STR_OPEN_WINDOW_ERR)); - return false; + D(bug("VideoInit/%ld: def_width=%ld def_height=%ld def_depth=%ld\n", \ + __LINE__, default_width, default_height, default_depth)); + + // Find requested default mode and open display + if (VideoModes.size() == 1) { + uint32 default_id ; + + // Create Amiga_monitor_desc for this (the only) display + default_id = VideoModes[0].resolution_id; + D(bug("VideoInit/%ld: default_id=%ld\n", __LINE__, default_id)); + Amiga_monitor_desc *monitor = new Amiga_monitor_desc(VideoModes, default_depth, default_id, default_display_type); + VideoMonitors.push_back(monitor); + + // Open display + return monitor->video_open(); + + } else { + + // Find mode with specified dimensions + std::vector::const_iterator i, end = VideoModes.end(); + for (i = VideoModes.begin(); i != end; ++i) { + D(bug("VideoInit/%ld: w=%ld h=%ld d=%ld\n", __LINE__, i->x, i->y, bits_from_depth(i->depth))); + if (i->x == default_width && i->y == default_height && i->depth == default_depth) { + // Create Amiga_monitor_desc for this (the only) display + uint32 default_id = i->resolution_id; + D(bug("VideoInit/%ld: default_id=%ld\n", __LINE__, default_id)); + Amiga_monitor_desc *monitor = new Amiga_monitor_desc(VideoModes, default_depth, default_id, default_display_type); + VideoMonitors.push_back(monitor); + + // Open display + return monitor->video_open(); + } + } + + // Create Amiga_monitor_desc for this (the only) display + uint32 default_id = VideoModes[0].resolution_id; + D(bug("VideoInit/%ld: default_id=%ld\n", __LINE__, default_id)); + Amiga_monitor_desc *monitor = new Amiga_monitor_desc(VideoModes, default_depth, default_id, default_display_type); + VideoMonitors.push_back(monitor); + + // Open display + return monitor->video_open(); } - // Set VideoMonitor - ScreenToFront(the_screen); - VideoMonitor.mac_frame_base = p96GetBitMapAttr(the_screen->RastPort.BitMap, P96BMA_MEMORY); - VideoMonitor.bytes_per_row = p96GetBitMapAttr(the_screen->RastPort.BitMap, P96BMA_BYTESPERROW); return true; } -bool VideoInit(bool classic) + +bool Amiga_monitor_desc::video_open() { - // Read frame skip prefs - frame_skip = PrefsFindInt32("frameskip"); - if (frame_skip == 0) - frame_skip = 1; + const video_mode &mode = get_current_mode(); + ULONG depth_bits = bits_from_depth(mode.depth); + ULONG ID = find_mode_for_depth(mode.x, mode.y, depth_bits); - // Get screen mode from preferences - const char *mode_str; - if (classic) - mode_str = "win/512/342"; - else - mode_str = PrefsFindString("screen"); + D(bug("video_open/%ld: width=%ld height=%ld depth=%ld ID=%08lx\n", __LINE__, mode.x, mode.y, depth_bits, ID)); - // Determine type and mode - display_type = DISPLAY_WINDOW; - int width = 512, height = 384; - ULONG mode_id = 0; - if (mode_str) { - if (sscanf(mode_str, "win/%d/%d", &width, &height) == 2) - display_type = DISPLAY_WINDOW; - else if (sscanf(mode_str, "pip/%d/%d", &width, &height) == 2 && P96Base) - display_type = DISPLAY_PIP; - else if (sscanf(mode_str, "scr/%08lx", &mode_id) == 1 && P96Base) - display_type = DISPLAY_SCREEN; + if (ID == INVALID_ID) { + ErrorAlert(STR_NO_VIDEO_MODE_ERR); + return false; } + D(bug("video_open/%ld: display_type=%ld\n", __LINE__, display_type)); + // Open display switch (display_type) { case DISPLAY_WINDOW: - if (!init_window(width, height)) - return false; + drv = new driver_window(*this, mode.x, mode.y); break; case DISPLAY_PIP: - if (!init_pip(width, height)) - return false; + drv = new driver_pip(*this, mode.x, mode.y); break; - case DISPLAY_SCREEN: - if (!init_screen(mode_id)) - return false; + case DISPLAY_SCREEN_P96: + drv = new driver_screen_p96(*this, ID); + break; + + case DISPLAY_SCREEN_CGFX: + drv = new driver_screen_cgfx(*this, ID); break; } + D(bug("video_open/%ld: drv=%08lx\n", __LINE__, drv)); + + if (drv == NULL) + return false; + + D(bug("video_open/%ld: init_ok=%ld\n", __LINE__, drv->init_ok)); + if (!drv->init_ok) { + delete drv; + drv = NULL; + return false; + } + // Start periodic process periodic_proc = CreateNewProcTags( NP_Entry, (ULONG)periodic_func, @@ -319,19 +407,19 @@ bool VideoInit(bool classic) NP_Priority, 0, TAG_END ); + + D(bug("video_open/%ld: periodic_proc=%08lx\n", __LINE__, periodic_proc)); + if (periodic_proc == NULL) { - ErrorAlert(GetString(STR_NO_MEM_ERR)); + ErrorAlert(STR_NO_MEM_ERR); return false; } + return true; } -/* - * Deinitialization - */ - -void VideoExit(void) +void Amiga_monitor_desc::video_close() { // Stop periodic process if (periodic_proc) { @@ -340,67 +428,61 @@ void VideoExit(void) Wait(SIGF_SINGLE); } - switch (display_type) { + delete drv; + drv = NULL; - case DISPLAY_WINDOW: + // Free mouse pointer + if (null_pointer) { + FreeMem(null_pointer, 12); + null_pointer = NULL; + } +} - // Window mode, free bitmap - if (the_bitmap) { - WaitBlit(); - FreeBitMap(the_bitmap); - } - // Free pens and close window - if (the_win) { - ReleasePen(the_win->WScreen->ViewPort.ColorMap, black_pen); - ReleasePen(the_win->WScreen->ViewPort.ColorMap, white_pen); +/* + * Deinitialization + */ - CloseWindow(the_win); - } - break; +void VideoExit(void) +{ + // Close displays + vector::iterator i, end = VideoMonitors.end(); + for (i = VideoMonitors.begin(); i != end; ++i) + dynamic_cast(*i)->video_close(); +} - case DISPLAY_PIP: - // Close PIP - if (the_win) - p96PIP_Close(the_win); - break; +/* + * Set palette + */ - case DISPLAY_SCREEN: +void Amiga_monitor_desc::set_palette(uint8 *pal, int num) +{ + drv->set_palette(pal, num); +} - // Close window - if (the_win) - CloseWindow(the_win); - // Close screen - if (the_screen) - p96CloseScreen(the_screen); - break; +/* + * Switch video mode + */ + +void Amiga_monitor_desc::switch_to_current_mode() +{ + // Close and reopen display + video_close(); + if (!video_open()) { + ErrorAlert(STR_OPEN_WINDOW_ERR); + QuitEmulator(); } } /* - * Set palette + * Close down full-screen mode (if bringing up error alerts is unsafe while in full-screen mode) */ -void video_set_palette(uint8 *pal) +void VideoQuitFullScreen(void) { - if (display_type == DISPLAY_SCREEN) { - - // Convert palette to 32 bits - ULONG table[2 + 256 * 3]; - table[0] = 256 << 16; - table[256 * 3 + 1] = 0; - for (int i=0; i<256; i++) { - table[i*3+1] = pal[i*3] * 0x01010101; - table[i*3+2] = pal[i*3+1] * 0x01010101; - table[i*3+3] = pal[i*3+2] * 0x01010101; - } - - // And load it - LoadRGB32(&the_screen->ViewPort, table); - } } @@ -424,21 +506,26 @@ static __saveds void periodic_func(void) struct IntuiMessage *msg; ULONG win_mask = 0, timer_mask = 0; + D(bug("periodic_func/%ld: \n", __LINE__)); + // Create message port for window and attach it struct MsgPort *win_port = CreateMsgPort(); if (win_port) { win_mask = 1 << win_port->mp_SigBit; - the_win->UserPort = win_port; - ModifyIDCMP(the_win, IDCMP_MOUSEBUTTONS | IDCMP_MOUSEMOVE | IDCMP_RAWKEY | (display_type == DISPLAY_SCREEN ? IDCMP_DELTAMOVE : 0)); + drv->the_win->UserPort = win_port; + ModifyIDCMP(drv->the_win, IDCMP_MOUSEBUTTONS | IDCMP_MOUSEMOVE | IDCMP_RAWKEY | + ((drv->monitor.display_type == DISPLAY_SCREEN_P96 || drv->monitor.display_type == DISPLAY_SCREEN_CGFX) ? IDCMP_DELTAMOVE : 0)); } + D(bug("periodic_func/%ld: \n", __LINE__)); + // Start 60Hz timer for window refresh - if (display_type == DISPLAY_WINDOW) { + if (drv->monitor.display_type == DISPLAY_WINDOW) { timer_port = CreateMsgPort(); if (timer_port) { timer_io = (struct timerequest *)CreateIORequest(timer_port, sizeof(struct timerequest)); if (timer_io) { - if (!OpenDevice((UBYTE *)TIMERNAME, UNIT_MICROHZ, (struct IORequest *)timer_io, 0)) { + if (!OpenDevice((UBYTE *) TIMERNAME, UNIT_MICROHZ, (struct IORequest *)timer_io, 0)) { timer_mask = 1 << timer_port->mp_SigBit; timer_io->tr_node.io_Command = TR_ADDREQUEST; timer_io->tr_time.tv_secs = 0; @@ -449,8 +536,11 @@ static __saveds void periodic_func(void) } } + D(bug("periodic_func/%ld: \n", __LINE__)); + // Main loop for (;;) { + const video_mode &mode = drv->monitor.get_current_mode(); // Wait for timer and/or window (CTRL_C is used for quitting the task) ULONG sig = Wait(win_mask | timer_mask | SIGBREAKF_CTRL_C); @@ -458,11 +548,16 @@ static __saveds void periodic_func(void) if (sig & SIGBREAKF_CTRL_C) break; - if (sig & timer_mask) { +// D(bug("periodic_func/%ld: display_type=%ld the_win=%08lx\n", __LINE__, drv->monitor.display_type, drv->the_win)); - // Timer tick, update display - BltTemplate(the_bitmap->Planes[0], 0, the_bitmap->BytesPerRow, the_win->RPort, - the_win->BorderLeft, the_win->BorderTop, VideoMonitor.x, VideoMonitor.y); + if (sig & timer_mask) { + if (drv->get_bitmap()) { + // Timer tick, update display + BltTemplate(drv->get_bitmap()->Planes[0], 0, + drv->get_bitmap()->BytesPerRow, drv->the_win->RPort, + drv->the_win->BorderLeft, drv->the_win->BorderTop, + mode.x, mode.y); + } // Restart timer timer_io->tr_node.io_Command = TR_ADDREQUEST; @@ -487,10 +582,32 @@ static __saveds void periodic_func(void) // Handle message according to class switch (cl) { case IDCMP_MOUSEMOVE: - if (display_type == DISPLAY_SCREEN) - ADBMouseMoved(mx, my); - else - ADBMouseMoved(mx - the_win->BorderLeft, my - the_win->BorderTop); + switch (drv->monitor.display_type) { + case DISPLAY_SCREEN_P96: + case DISPLAY_SCREEN_CGFX: +// D(bug("periodic_func/%ld: IDCMP_MOUSEMOVE mx=%ld my=%ld\n", __LINE__, mx, my)); + ADBMouseMoved(mx, my); + break; + default: +// D(bug("periodic_func/%ld: IDCMP_MOUSEMOVE mx=%ld my=%ld\n", __LINE__, mx - drv->the_win->BorderLeft, my - drv->the_win->BorderTop)); + ADBMouseMoved(mx - drv->the_win->BorderLeft, my - drv->the_win->BorderTop); + if (mx < drv->the_win->BorderLeft + || my < drv->the_win->BorderTop + || mx >= drv->the_win->BorderLeft + mode.x + || my >= drv->the_win->BorderTop + mode.y) { + if (current_pointer) { + ClearPointer(drv->the_win); + current_pointer = NULL; + } + } else { + if (current_pointer != null_pointer) { + // Hide mouse pointer inside window + SetPointer(drv->the_win, null_pointer, 1, 16, 0, 0); + current_pointer = null_pointer; + } + } + break; + } break; case IDCMP_MOUSEBUTTONS: @@ -511,6 +628,13 @@ static __saveds void periodic_func(void) case IDCMP_RAWKEY: if (qualifier & IEQUALIFIER_REPEAT) // Keyboard repeat is done by MacOS break; + if ((qualifier & (IEQUALIFIER_LALT | IEQUALIFIER_LSHIFT | IEQUALIFIER_CONTROL)) == + (IEQUALIFIER_LALT | IEQUALIFIER_LSHIFT | IEQUALIFIER_CONTROL) && code == 0x5f) { + SetInterruptFlag(INTFLAG_NMI); + TriggerInterrupt(); + break; + } + if (code & IECODE_UP_PREFIX) ADBKeyUp(keycode2mac[code & 0x7f]); else @@ -521,6 +645,8 @@ static __saveds void periodic_func(void) } } + D(bug("periodic_func/%ld: \n", __LINE__)); + // Stop timer if (timer_io) { if (!CheckIO((struct IORequest *)timer_io)) @@ -537,14 +663,14 @@ static __saveds void periodic_func(void) msg = (struct IntuiMessage *)win_port->mp_MsgList.lh_Head; struct Node *succ; while (succ = msg->ExecMessage.mn_Node.ln_Succ) { - if (msg->IDCMPWindow == the_win) { + if (msg->IDCMPWindow == drv->the_win) { Remove((struct Node *)msg); ReplyMsg((struct Message *)msg); } msg = (struct IntuiMessage *)succ; } - the_win->UserPort = NULL; - ModifyIDCMP(the_win, 0); + drv->the_win->UserPort = NULL; + ModifyIDCMP(drv->the_win, 0); Permit(); DeleteMsgPort(win_port); @@ -552,3 +678,488 @@ static __saveds void periodic_func(void) Forbid(); Signal(MainTask, SIGF_SINGLE); } + + +// Add mode to list of supported modes +static void add_mode(uint32 width, uint32 height, uint32 resolution_id, uint32 bytes_per_row, video_depth depth) +{ + video_mode mode; + mode.x = width; + mode.y = height; + mode.resolution_id = resolution_id; + mode.bytes_per_row = bytes_per_row; + mode.depth = depth; + + D(bug("Added video mode: w=%ld h=%ld d=%ld\n", width, height, depth)); + + VideoModes.push_back(mode); +} + +// Add standard list of modes for given color depth +static void add_modes(uint32 width, uint32 height, video_depth depth) +{ + D(bug("add_modes: w=%ld h=%ld d=%ld\n", width, height, depth)); + + if (width >= 512 && height >= 384) + add_mode(512, 384, 0x80, TrivialBytesPerRow(512, depth), depth); + if (width >= 640 && height >= 480) + add_mode(640, 480, 0x81, TrivialBytesPerRow(640, depth), depth); + if (width >= 800 && height >= 600) + add_mode(800, 600, 0x82, TrivialBytesPerRow(800, depth), depth); + if (width >= 1024 && height >= 768) + add_mode(1024, 768, 0x83, TrivialBytesPerRow(1024, depth), depth); + if (width >= 1152 && height >= 870) + add_mode(1152, 870, 0x84, TrivialBytesPerRow(1152, depth), depth); + if (width >= 1280 && height >= 1024) + add_mode(1280, 1024, 0x85, TrivialBytesPerRow(1280, depth), depth); + if (width >= 1600 && height >= 1200) + add_mode(1600, 1200, 0x86, TrivialBytesPerRow(1600, depth), depth); +} + + +static ULONG find_mode_for_depth(uint32 width, uint32 height, uint32 depth) +{ + ULONG ID = BestModeID(BIDTAG_NominalWidth, width, + BIDTAG_NominalHeight, height, + BIDTAG_Depth, depth, + BIDTAG_DIPFMustNotHave, DIPF_IS_ECS | DIPF_IS_HAM | DIPF_IS_AA, + TAG_END); + + return ID; +} + + +static ULONG bits_from_depth(video_depth depth) +{ + int bits = 1 << depth; + if (bits == 16) + bits = 15; + else if (bits == 32) + bits = 24; + + return bits; +} + + +static bool is_valid_modeid(int display_type, ULONG mode_id) +{ + if (INVALID_ID == mode_id) + return false; + + switch (display_type) { + case DISPLAY_SCREEN_P96: + return check_modeid_p96(mode_id); + break; + case DISPLAY_SCREEN_CGFX: + return check_modeid_cgfx(mode_id); + break; + default: + return false; + break; + } +} + + +static bool check_modeid_p96(ULONG mode_id) +{ + // Check if the mode is one we can handle + uint32 depth = p96GetModeIDAttr(mode_id, P96IDA_DEPTH); + uint32 format = p96GetModeIDAttr(mode_id, P96IDA_RGBFORMAT); + + D(bug("check_modeid_p96: mode_id=%08lx depth=%ld format=%ld\n", mode_id, depth, format)); + + if (!p96GetModeIDAttr(mode_id, P96IDA_ISP96)) + return false; + + switch (depth) { + case 8: + break; + case 15: + case 16: + if (format != RGBFB_R5G5B5) + return false; + break; + case 24: + case 32: + if (format != RGBFB_A8R8G8B8) + return false; + break; + default: + return false; + } + + return true; +} + + +static bool check_modeid_cgfx(ULONG mode_id) +{ + uint32 depth = GetCyberIDAttr(CYBRIDATTR_DEPTH, mode_id); + uint32 format = GetCyberIDAttr(CYBRIDATTR_PIXFMT, mode_id); + + D(bug("check_modeid_cgfx: mode_id=%08lx depth=%ld format=%ld\n", mode_id, depth, format)); + + if (!IsCyberModeID(mode_id)) + return false; + + switch (depth) { + case 8: + break; + case 15: + case 16: + if (format != PIXFMT_RGB15) + return false; + break; + case 24: + case 32: + if (format != PIXFMT_ARGB32) + return false; + break; + default: + return false; + } + + return true; +} + + +driver_base::driver_base(Amiga_monitor_desc &m) + : monitor(m), mode(m.get_current_mode()), init_ok(false) +{ +} + +driver_base::~driver_base() +{ +} + + +// Open window +driver_window::driver_window(Amiga_monitor_desc &m, int width, int height) + : black_pen(-1), white_pen(-1), driver_base(m) +{ + // Set absolute mouse mode + ADBSetRelMouseMode(false); + + // Open window + the_win = OpenWindowTags(NULL, + WA_Left, 0, WA_Top, 0, + WA_InnerWidth, width, WA_InnerHeight, height, + WA_SimpleRefresh, true, + WA_NoCareRefresh, true, + WA_Activate, true, + WA_RMBTrap, true, + WA_ReportMouse, true, + WA_DragBar, true, + WA_DepthGadget, true, + WA_SizeGadget, false, + WA_Title, (ULONG)GetString(STR_WINDOW_TITLE), + TAG_END + ); + if (the_win == NULL) { + init_ok = false; + ErrorAlert(STR_OPEN_WINDOW_ERR); + return; + } + + // Create bitmap ("height + 2" for safety) + the_bitmap = AllocBitMap(width, height + 2, 1, BMF_CLEAR, NULL); + if (the_bitmap == NULL) { + init_ok = false; + ErrorAlert(STR_NO_MEM_ERR); + return; + } + + // Add resolution and set VideoMonitor + monitor.set_mac_frame_base((uint32)the_bitmap->Planes[0]); + + // Set FgPen and BgPen + black_pen = ObtainBestPenA(the_win->WScreen->ViewPort.ColorMap, 0, 0, 0, NULL); + white_pen = ObtainBestPenA(the_win->WScreen->ViewPort.ColorMap, 0xffffffff, 0xffffffff, 0xffffffff, NULL); + SetAPen(the_win->RPort, black_pen); + SetBPen(the_win->RPort, white_pen); + SetDrMd(the_win->RPort, JAM2); + + init_ok = true; +} + + +driver_window::~driver_window() +{ + // Window mode, free bitmap + if (the_bitmap) { + WaitBlit(); + FreeBitMap(the_bitmap); + } + + // Free pens and close window + if (the_win) { + ReleasePen(the_win->WScreen->ViewPort.ColorMap, black_pen); + ReleasePen(the_win->WScreen->ViewPort.ColorMap, white_pen); + + CloseWindow(the_win); + the_win = NULL; + } +} + + +// Open PIP (requires Picasso96) +driver_pip::driver_pip(Amiga_monitor_desc &m, int width, int height) + : driver_base(m) +{ + // Set absolute mouse mode + ADBSetRelMouseMode(false); + + D(bug("driver_pip(%d,%d)\n", width, height)); + + // Open window + ULONG error = 0; + the_win = p96PIP_OpenTags( + P96PIP_SourceFormat, RGBFB_R5G5B5, + P96PIP_SourceWidth, width, + P96PIP_SourceHeight, height, + P96PIP_ErrorCode, (ULONG)&error, + P96PIP_AllowCropping, true, + WA_Left, 0, WA_Top, 0, + WA_InnerWidth, width, WA_InnerHeight, height, + WA_SimpleRefresh, true, + WA_NoCareRefresh, true, + WA_Activate, true, + WA_RMBTrap, true, + WA_ReportMouse, true, + WA_DragBar, true, + WA_DepthGadget, true, + WA_SizeGadget, false, + WA_Title, (ULONG)GetString(STR_WINDOW_TITLE), + WA_PubScreenName, (ULONG)"Workbench", + TAG_END + ); + if (the_win == NULL || error) { + init_ok = false; + ErrorAlert(STR_OPEN_WINDOW_ERR); + return; + } + + // Find bitmap + p96PIP_GetTags(the_win, P96PIP_SourceBitMap, (ULONG)&the_bitmap, TAG_END); + + // Add resolution and set VideoMonitor + monitor.set_mac_frame_base(p96GetBitMapAttr(the_bitmap, P96BMA_MEMORY)); + + init_ok = true; +} + +driver_pip::~driver_pip() +{ + // Close PIP + if (the_win) + p96PIP_Close(the_win); +} + + +// Open Picasso96 screen +driver_screen_p96::driver_screen_p96(Amiga_monitor_desc &m, ULONG mode_id) + : driver_base(m) +{ + // Set relative mouse mode + ADBSetRelMouseMode(true); + + // Check if the mode is one we can handle + if (!check_modeid_p96(mode_id)) + { + init_ok = false; + ErrorAlert(STR_WRONG_SCREEN_FORMAT_ERR); + return; + } + + // Yes, get width and height + uint32 depth = p96GetModeIDAttr(mode_id, P96IDA_DEPTH); + uint32 width = p96GetModeIDAttr(mode_id, P96IDA_WIDTH); + uint32 height = p96GetModeIDAttr(mode_id, P96IDA_HEIGHT); + + // Open screen + the_screen = p96OpenScreenTags( + P96SA_DisplayID, mode_id, + P96SA_Title, (ULONG)GetString(STR_WINDOW_TITLE), + P96SA_Quiet, true, + P96SA_NoMemory, true, + P96SA_NoSprite, true, + P96SA_Exclusive, true, + TAG_END + ); + if (the_screen == NULL) { + ErrorAlert(STR_OPEN_SCREEN_ERR); + init_ok = false; + return; + } + + // Open window + the_win = OpenWindowTags(NULL, + WA_Left, 0, WA_Top, 0, + WA_Width, width, WA_Height, height, + WA_SimpleRefresh, true, + WA_NoCareRefresh, true, + WA_Borderless, true, + WA_Activate, true, + WA_RMBTrap, true, + WA_ReportMouse, true, + WA_CustomScreen, (ULONG)the_screen, + TAG_END + ); + if (the_win == NULL) { + ErrorAlert(STR_OPEN_WINDOW_ERR); + init_ok = false; + return; + } + + ScreenToFront(the_screen); + + // Add resolution and set VideoMonitor + monitor.set_mac_frame_base(p96GetBitMapAttr(the_screen->RastPort.BitMap, P96BMA_MEMORY)); + + init_ok = true; +} + + +driver_screen_p96::~driver_screen_p96() +{ + // Close window + if (the_win) + { + CloseWindow(the_win); + the_win = NULL; + } + + // Close screen + if (the_screen) { + p96CloseScreen(the_screen); + the_screen = NULL; + } +} + + +void driver_screen_p96::set_palette(uint8 *pal, int num) +{ + // Convert palette to 32 bits + ULONG table[2 + 256 * 3]; + table[0] = num << 16; + table[num * 3 + 1] = 0; + for (int i=0; iViewPort, table); +} + + +// Open CyberGraphX screen +driver_screen_cgfx::driver_screen_cgfx(Amiga_monitor_desc &m, ULONG mode_id) + : driver_base(m) +{ + D(bug("driver_screen_cgfx/%ld: mode_id=%08lx\n", __LINE__, mode_id)); + + // Set absolute mouse mode + ADBSetRelMouseMode(true); + + // Check if the mode is one we can handle + if (!check_modeid_cgfx(mode_id)) + { + ErrorAlert(STR_WRONG_SCREEN_FORMAT_ERR); + init_ok = false; + return; + } + + // Yes, get width and height + uint32 depth = GetCyberIDAttr(CYBRIDATTR_DEPTH, mode_id); + uint32 width = GetCyberIDAttr(CYBRIDATTR_WIDTH, mode_id); + uint32 height = GetCyberIDAttr(CYBRIDATTR_HEIGHT, mode_id); + + // Open screen + the_screen = OpenScreenTags(NULL, + SA_DisplayID, mode_id, + SA_Title, (ULONG)GetString(STR_WINDOW_TITLE), + SA_Quiet, true, + SA_Exclusive, true, + TAG_END + ); + if (the_screen == NULL) { + ErrorAlert(STR_OPEN_SCREEN_ERR); + init_ok = false; + return; + } + + // Open window + the_win = OpenWindowTags(NULL, + WA_Left, 0, WA_Top, 0, + WA_Width, width, WA_Height, height, + WA_SimpleRefresh, true, + WA_NoCareRefresh, true, + WA_Borderless, true, + WA_Activate, true, + WA_RMBTrap, true, + WA_ReportMouse, true, + WA_CustomScreen, (ULONG)the_screen, + TAG_END + ); + if (the_win == NULL) { + ErrorAlert(STR_OPEN_WINDOW_ERR); + init_ok = false; + return; + } + + ScreenToFront(the_screen); + static UWORD ptr[] = { 0, 0, 0, 0 }; + SetPointer(the_win, ptr, 0, 0, 0, 0); // Hide mouse pointer + + // Set VideoMonitor + ULONG frame_base; + APTR handle = LockBitMapTags(the_screen->RastPort.BitMap, + LBMI_BASEADDRESS, (ULONG)&frame_base, + TAG_END + ); + UnLockBitMap(handle); + + D(bug("driver_screen_cgfx/%ld: frame_base=%08lx\n", __LINE__, frame_base)); + + monitor.set_mac_frame_base(frame_base); + + init_ok = true; +} + + +driver_screen_cgfx::~driver_screen_cgfx() +{ + D(bug("~driver_screen_cgfx/%ld: \n", __LINE__)); + + // Close window + if (the_win) + { + CloseWindow(the_win); + the_win = NULL; + } + + // Close screen + if (the_screen) { + CloseScreen(the_screen); + the_screen = NULL; + } +} + + +void driver_screen_cgfx::set_palette(uint8 *pal, int num) +{ + // Convert palette to 32 bits + ULONG table[2 + 256 * 3]; + table[0] = num << 16; + table[num * 3 + 1] = 0; + for (int i=0; iViewPort, table); +}