| /* |
| * QEMU Cirrus CLGD 54xx VGA Emulator. |
| * |
| * Copyright (c) 2004 Fabrice Bellard |
| * |
| * Permission is hereby granted, free of charge, to any person obtaining a copy |
| * of this software and associated documentation files (the "Software"), to deal |
| * in the Software without restriction, including without limitation the rights |
| * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
| * copies of the Software, and to permit persons to whom the Software is |
| * furnished to do so, subject to the following conditions: |
| * |
| * The above copyright notice and this permission notice shall be included in |
| * all copies or substantial portions of the Software. |
| * |
| * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL |
| * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
| * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN |
| * THE SOFTWARE. |
| */ |
| |
| #if DEPTH == 8 |
| #define PUTPIXEL(s, a, c) ROP_OP(s, a, c) |
| #elif DEPTH == 16 |
| #define PUTPIXEL(s, a, c) ROP_OP_16(s, a, c) |
| #elif DEPTH == 24 |
| #define PUTPIXEL(s, a, c) do { \ |
| ROP_OP(s, a, c); \ |
| ROP_OP(s, a + 1, (c >> 8)); \ |
| ROP_OP(s, a + 2, (c >> 16)); \ |
| } while (0) |
| #elif DEPTH == 32 |
| #define PUTPIXEL(s, a, c) ROP_OP_32(s, a, c) |
| #else |
| #error unsupported DEPTH |
| #endif |
| |
| static void |
| glue(glue(glue(cirrus_patternfill_, ROP_NAME), _),DEPTH) |
| (CirrusVGAState *s, uint32_t dstaddr, |
| uint32_t srcaddr, |
| int dstpitch, int srcpitch, |
| int bltwidth, int bltheight) |
| { |
| uint32_t addr; |
| int x, y, pattern_y, pattern_pitch, pattern_x; |
| unsigned int col; |
| uint32_t src1addr; |
| #if DEPTH == 24 |
| int skipleft = s->vga.gr[0x2f] & 0x1f; |
| #else |
| int skipleft = (s->vga.gr[0x2f] & 0x07) * (DEPTH / 8); |
| #endif |
| |
| #if DEPTH == 8 |
| pattern_pitch = 8; |
| #elif DEPTH == 16 |
| pattern_pitch = 16; |
| #else |
| pattern_pitch = 32; |
| #endif |
| pattern_y = s->cirrus_blt_srcaddr & 7; |
| for(y = 0; y < bltheight; y++) { |
| pattern_x = skipleft; |
| addr = dstaddr + skipleft; |
| src1addr = srcaddr + pattern_y * pattern_pitch; |
| for (x = skipleft; x < bltwidth; x += (DEPTH / 8)) { |
| #if DEPTH == 8 |
| col = cirrus_src(s, src1addr + pattern_x); |
| pattern_x = (pattern_x + 1) & 7; |
| #elif DEPTH == 16 |
| col = cirrus_src16(s, src1addr + pattern_x); |
| pattern_x = (pattern_x + 2) & 15; |
| #elif DEPTH == 24 |
| { |
| uint32_t src2addr = src1addr + pattern_x * 3; |
| col = cirrus_src(s, src2addr) | |
| (cirrus_src(s, src2addr + 1) << 8) | |
| (cirrus_src(s, src2addr + 2) << 16); |
| pattern_x = (pattern_x + 1) & 7; |
| } |
| #else |
| col = cirrus_src32(s, src1addr + pattern_x); |
| pattern_x = (pattern_x + 4) & 31; |
| #endif |
| PUTPIXEL(s, addr, col); |
| addr += (DEPTH / 8); |
| } |
| pattern_y = (pattern_y + 1) & 7; |
| dstaddr += dstpitch; |
| } |
| } |
| |
| /* NOTE: srcpitch is ignored */ |
| static void |
| glue(glue(glue(cirrus_colorexpand_transp_, ROP_NAME), _),DEPTH) |
| (CirrusVGAState *s, uint32_t dstaddr, |
| uint32_t srcaddr, |
| int dstpitch, int srcpitch, |
| int bltwidth, int bltheight) |
| { |
| uint32_t addr; |
| int x, y; |
| unsigned bits, bits_xor; |
| unsigned int col; |
| unsigned bitmask; |
| unsigned index; |
| #if DEPTH == 24 |
| int dstskipleft = s->vga.gr[0x2f] & 0x1f; |
| int srcskipleft = dstskipleft / 3; |
| #else |
| int srcskipleft = s->vga.gr[0x2f] & 0x07; |
| int dstskipleft = srcskipleft * (DEPTH / 8); |
| #endif |
| |
| if (s->cirrus_blt_modeext & CIRRUS_BLTMODEEXT_COLOREXPINV) { |
| bits_xor = 0xff; |
| col = s->cirrus_blt_bgcol; |
| } else { |
| bits_xor = 0x00; |
| col = s->cirrus_blt_fgcol; |
| } |
| |
| for(y = 0; y < bltheight; y++) { |
| bitmask = 0x80 >> srcskipleft; |
| bits = cirrus_src(s, srcaddr++) ^ bits_xor; |
| addr = dstaddr + dstskipleft; |
| for (x = dstskipleft; x < bltwidth; x += (DEPTH / 8)) { |
| if ((bitmask & 0xff) == 0) { |
| bitmask = 0x80; |
| bits = cirrus_src(s, srcaddr++) ^ bits_xor; |
| } |
| index = (bits & bitmask); |
| if (index) { |
| PUTPIXEL(s, addr, col); |
| } |
| addr += (DEPTH / 8); |
| bitmask >>= 1; |
| } |
| dstaddr += dstpitch; |
| } |
| } |
| |
| static void |
| glue(glue(glue(cirrus_colorexpand_, ROP_NAME), _),DEPTH) |
| (CirrusVGAState *s, uint32_t dstaddr, |
| uint32_t srcaddr, |
| int dstpitch, int srcpitch, |
| int bltwidth, int bltheight) |
| { |
| uint32_t colors[2]; |
| uint32_t addr; |
| int x, y; |
| unsigned bits; |
| unsigned int col; |
| unsigned bitmask; |
| int srcskipleft = s->vga.gr[0x2f] & 0x07; |
| int dstskipleft = srcskipleft * (DEPTH / 8); |
| |
| colors[0] = s->cirrus_blt_bgcol; |
| colors[1] = s->cirrus_blt_fgcol; |
| for(y = 0; y < bltheight; y++) { |
| bitmask = 0x80 >> srcskipleft; |
| bits = cirrus_src(s, srcaddr++); |
| addr = dstaddr + dstskipleft; |
| for (x = dstskipleft; x < bltwidth; x += (DEPTH / 8)) { |
| if ((bitmask & 0xff) == 0) { |
| bitmask = 0x80; |
| bits = cirrus_src(s, srcaddr++); |
| } |
| col = colors[!!(bits & bitmask)]; |
| PUTPIXEL(s, addr, col); |
| addr += (DEPTH / 8); |
| bitmask >>= 1; |
| } |
| dstaddr += dstpitch; |
| } |
| } |
| |
| static void |
| glue(glue(glue(cirrus_colorexpand_pattern_transp_, ROP_NAME), _),DEPTH) |
| (CirrusVGAState *s, uint32_t dstaddr, |
| uint32_t srcaddr, |
| int dstpitch, int srcpitch, |
| int bltwidth, int bltheight) |
| { |
| uint32_t addr; |
| int x, y, bitpos, pattern_y; |
| unsigned int bits, bits_xor; |
| unsigned int col; |
| #if DEPTH == 24 |
| int dstskipleft = s->vga.gr[0x2f] & 0x1f; |
| int srcskipleft = dstskipleft / 3; |
| #else |
| int srcskipleft = s->vga.gr[0x2f] & 0x07; |
| int dstskipleft = srcskipleft * (DEPTH / 8); |
| #endif |
| |
| if (s->cirrus_blt_modeext & CIRRUS_BLTMODEEXT_COLOREXPINV) { |
| bits_xor = 0xff; |
| col = s->cirrus_blt_bgcol; |
| } else { |
| bits_xor = 0x00; |
| col = s->cirrus_blt_fgcol; |
| } |
| pattern_y = s->cirrus_blt_srcaddr & 7; |
| |
| for(y = 0; y < bltheight; y++) { |
| bits = cirrus_src(s, srcaddr + pattern_y) ^ bits_xor; |
| bitpos = 7 - srcskipleft; |
| addr = dstaddr + dstskipleft; |
| for (x = dstskipleft; x < bltwidth; x += (DEPTH / 8)) { |
| if ((bits >> bitpos) & 1) { |
| PUTPIXEL(s, addr, col); |
| } |
| addr += (DEPTH / 8); |
| bitpos = (bitpos - 1) & 7; |
| } |
| pattern_y = (pattern_y + 1) & 7; |
| dstaddr += dstpitch; |
| } |
| } |
| |
| static void |
| glue(glue(glue(cirrus_colorexpand_pattern_, ROP_NAME), _),DEPTH) |
| (CirrusVGAState *s, uint32_t dstaddr, |
| uint32_t srcaddr, |
| int dstpitch, int srcpitch, |
| int bltwidth, int bltheight) |
| { |
| uint32_t colors[2]; |
| uint32_t addr; |
| int x, y, bitpos, pattern_y; |
| unsigned int bits; |
| unsigned int col; |
| int srcskipleft = s->vga.gr[0x2f] & 0x07; |
| int dstskipleft = srcskipleft * (DEPTH / 8); |
| |
| colors[0] = s->cirrus_blt_bgcol; |
| colors[1] = s->cirrus_blt_fgcol; |
| pattern_y = s->cirrus_blt_srcaddr & 7; |
| |
| for(y = 0; y < bltheight; y++) { |
| bits = cirrus_src(s, srcaddr + pattern_y); |
| bitpos = 7 - srcskipleft; |
| addr = dstaddr + dstskipleft; |
| for (x = dstskipleft; x < bltwidth; x += (DEPTH / 8)) { |
| col = colors[(bits >> bitpos) & 1]; |
| PUTPIXEL(s, addr, col); |
| addr += (DEPTH / 8); |
| bitpos = (bitpos - 1) & 7; |
| } |
| pattern_y = (pattern_y + 1) & 7; |
| dstaddr += dstpitch; |
| } |
| } |
| |
| static void |
| glue(glue(glue(cirrus_fill_, ROP_NAME), _),DEPTH) |
| (CirrusVGAState *s, |
| uint32_t dstaddr, int dst_pitch, |
| int width, int height) |
| { |
| uint32_t addr; |
| uint32_t col; |
| int x, y; |
| |
| col = s->cirrus_blt_fgcol; |
| |
| for(y = 0; y < height; y++) { |
| addr = dstaddr; |
| for(x = 0; x < width; x += (DEPTH / 8)) { |
| PUTPIXEL(s, addr, col); |
| addr += (DEPTH / 8); |
| } |
| dstaddr += dst_pitch; |
| } |
| } |
| |
| #undef DEPTH |
| #undef PUTPIXEL |
