/*

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Sun designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Sun in the LICENSE file that accompanied this code.

 *

 * This code 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

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,

 * CA 95054 USA or visit www.sun.com if you need additional information or

 * have any questions.

 */

#if !defined(JAVA2D_NO_MLIB) || defined(MLIB_ADD_SUFF)

#include "vis_AlphaMacros.h"

/***************************************************************/

void ADD_SUFF(ByteIndexedToIntArgbConvert)(BLIT_PARAMS)

{

    jint *pixLut = pSrcInfo->lutBase;

    mlib_s32 dstScan = pDstInfo->scanStride;

    mlib_s32 srcScan = pSrcInfo->scanStride;

    mlib_s32 i, i0, j;

    if (srcScan == width && dstScan == 4*width) {

        width *= height;

        height = 1;

    }

    for (j = 0; j < height; j++) {

        mlib_u8  *src = srcBase;

        mlib_s32 *dst = dstBase;

        i = i0 = 0;

        if ((mlib_s32)dst & 7) {

            dst[i] = pixLut[src[i]];

            i0 = 1;

        }

#pragma pipeloop(0)

        for (i = i0; i <= (mlib_s32)width - 2; i += 2) {

            *(mlib_d64*)(dst + i) = LOAD_2F32(pixLut, src[i], src[i + 1]);

        }

        for (; i < width; i++) {

            dst[i] = pixLut[src[i]];

        }

        PTR_ADD(dstBase, dstScan);

        PTR_ADD(srcBase, srcScan);

    }

}

/***************************************************************/

void ADD_SUFF(Index12GrayToIntArgbConvert)(BLIT_PARAMS)

{

    jint *pixLut = pSrcInfo->lutBase;

    mlib_s32 dstScan = pDstInfo->scanStride;

    mlib_s32 srcScan = pSrcInfo->scanStride;

    mlib_s32 i, i0, j;

    if (srcScan == width && dstScan == 4*width) {

        width *= height;

        height = 1;

    }

    for (j = 0; j < height; j++) {

        mlib_u16 *src = srcBase;

        mlib_s32 *dst = dstBase;

        i = i0 = 0;

        if ((mlib_s32)dst & 7) {

            dst[i] = pixLut[src[i]];

            i0 = 1;

        }

#pragma pipeloop(0)

        for (i = i0; i <= (mlib_s32)width - 2; i += 2) {

            *(mlib_d64*)(dst + i) = LOAD_2F32(pixLut, src[i], src[i + 1]);

        }

        for (; i < width; i++) {

            dst[i] = pixLut[src[i]];

        }

        PTR_ADD(dstBase, dstScan);

        PTR_ADD(srcBase, srcScan);

    }

}

/***************************************************************/

void ADD_SUFF(ByteIndexedToIntArgbScaleConvert)(SCALE_PARAMS)

{

    jint *pixLut = pSrcInfo->lutBase;

    mlib_s32 dstScan = pDstInfo->scanStride;

    mlib_s32 srcScan = pSrcInfo->scanStride;

    mlib_s32 j;

    for (j = 0; j < height; j++) {

        mlib_u8  *src = srcBase;

        mlib_s32 *dst = dstBase;

        mlib_s32 *dst_end = dst + width;

        mlib_s32 tmpsxloc = sxloc;

        PTR_ADD(src, (syloc >> shift) * srcScan);

        if ((mlib_s32)dst & 7) {

            *dst++ = pixLut[src[tmpsxloc >> shift]];

            tmpsxloc += sxinc;

        }

#pragma pipeloop(0)

        for (; dst <= dst_end - 2; dst += 2) {

            *(mlib_d64*)dst = LOAD_2F32(pixLut,

                                        src[tmpsxloc >> shift],

                                        src[(tmpsxloc + sxinc) >> shift]);

            tmpsxloc += 2*sxinc;

        }

        for (; dst < dst_end; dst++) {

            *dst = pixLut[src[tmpsxloc >> shift]];

            tmpsxloc += sxinc;

        }

        PTR_ADD(dstBase, dstScan);

        syloc += syinc;

    }

}

/***************************************************************/

void ADD_SUFF(ByteIndexedBmToIntArgbXparOver)(BLIT_PARAMS)

{

    jint *pixLut = pSrcInfo->lutBase;

    mlib_s32 dstScan = pDstInfo->scanStride;

    mlib_s32 srcScan = pSrcInfo->scanStride;

    mlib_d64 dd, dzero;

    mlib_s32 i, i0, j, x, mask;

    if (srcScan == width && dstScan == 4*width) {

        width *= height;

        height = 1;

    }

    dzero = vis_fzero();

    for (j = 0; j < height; j++) {

        mlib_u8  *src = srcBase;

        mlib_s32 *dst = dstBase;

        i = i0 = 0;

        if ((mlib_s32)dst & 7) {

            x = pixLut[src[i]];

            if (x < 0) {

                dst[i] = x;

            }

            i0 = 1;

        }

#pragma pipeloop(0)

        for (i = i0; i <= (mlib_s32)width - 2; i += 2) {

            dd = LOAD_2F32(pixLut, src[i], src[i + 1]);

            mask = vis_fcmplt32(dd, dzero);

            vis_pst_32(dd, dst + i, mask);

        }

        for (; i < width; i++) {

            x = pixLut[src[i]];

            if (x < 0) {

                dst[i] = x;

            }

        }

        PTR_ADD(dstBase, dstScan);

        PTR_ADD(srcBase, srcScan);

    }

}

/***************************************************************/

void ADD_SUFF(ByteIndexedBmToIntArgbScaleXparOver)(SCALE_PARAMS)

{

    jint *pixLut = pSrcInfo->lutBase;

    mlib_s32 dstScan = pDstInfo->scanStride;

    mlib_s32 srcScan = pSrcInfo->scanStride;

    mlib_d64 dd, dzero;

    mlib_s32 j, x, mask;

    dzero = vis_fzero();

    for (j = 0; j < height; j++) {

        mlib_u8  *src = srcBase;

        mlib_s32 *dst = dstBase;

        mlib_s32 *dst_end = dst + width;

        mlib_s32 tmpsxloc = sxloc;

        PTR_ADD(src, (syloc >> shift) * srcScan);

        if ((mlib_s32)dst & 7) {

            x = pixLut[src[tmpsxloc >> shift]];

            tmpsxloc += sxinc;

            if (x < 0) {

                *dst = x;

            }

            dst++;

        }

#pragma pipeloop(0)

        for (; dst <= dst_end - 2; dst += 2) {

            dd = LOAD_2F32(pixLut, src[tmpsxloc >> shift],

                                   src[(tmpsxloc + sxinc) >> shift]);

            tmpsxloc += 2*sxinc;

            mask = vis_fcmplt32(dd, dzero);

            vis_pst_32(dd, dst, mask);

        }

        for (; dst < dst_end; dst++) {

            x = pixLut[src[tmpsxloc >> shift]];

            tmpsxloc += sxinc;

            if (x < 0) {

                *dst = x;

            }

        }

        PTR_ADD(dstBase, dstScan);

        syloc += syinc;

    }

}

/***************************************************************/

void ADD_SUFF(IntArgbBmToIntArgbScaleXparOver)(SCALE_PARAMS)

{

    mlib_s32 dstScan = pDstInfo->scanStride;

    mlib_s32 srcScan = pSrcInfo->scanStride;

    mlib_d64 dd, maskAA;

    mlib_s32 j, x, mask;

    maskAA = vis_to_double_dup(0xff000000);

    for (j = 0; j < height; j++) {

        mlib_s32 *src = srcBase;

        mlib_s32 *dst = dstBase;

        mlib_s32 *dst_end = dst + width;

        mlib_s32 tmpsxloc = sxloc;

        PTR_ADD(src, (syloc >> shift) * srcScan);

        if ((mlib_s32)dst & 7) {

            x = src[tmpsxloc >> shift];

            tmpsxloc += sxinc;

            if (x & 0xff000000) {

                *dst = x | 0xff000000;

            }

            dst++;

        }

#pragma pipeloop(0)

        for (; dst <= dst_end - 2; dst += 2) {

            mlib_f32 *pp0 = (mlib_f32*)src + (tmpsxloc >> shift);

            mlib_f32 *pp1 = (mlib_f32*)src + ((tmpsxloc + sxinc) >> shift);

            tmpsxloc += 2*sxinc;

            dd = vis_freg_pair(*pp0, *pp1);

            mask = (((-*(mlib_u8*)pp0) >> 31) & 2) |

                   ((mlib_u32)(-*(mlib_u8*)pp1) >> 31);

            dd = vis_for(dd, maskAA);

            vis_pst_32(dd, dst, mask);

        }

        for (; dst < dst_end; dst++) {

            x = src[tmpsxloc >> shift];

            tmpsxloc += sxinc;

            if (x & 0xff000000) {

                *dst = x | 0xff000000;

            }

        }

        PTR_ADD(dstBase, dstScan);

        syloc += syinc;

    }

}

/***************************************************************/

void ADD_SUFF(ByteIndexedBmToIntArgbXparBgCopy)(BCOPY_PARAMS)

{

    jint *pixLut = pSrcInfo->lutBase;

    mlib_s32 dstScan = pDstInfo->scanStride;

    mlib_s32 srcScan = pSrcInfo->scanStride;

    mlib_d64 dd, dzero, d_bgpixel;

    mlib_s32 j, x, mask;

    if (srcScan == width && dstScan == 4*width) {

        width *= height;

        height = 1;

    }

    dzero = vis_fzero();

    d_bgpixel = vis_to_double_dup(bgpixel);

    for (j = 0; j < height; j++) {

        mlib_u8  *src = srcBase;

        mlib_s32 *dst = dstBase;

        mlib_s32 *dst_end;

        dst_end = dst + width;

        if ((mlib_s32)dst & 7) {

            x = pixLut[*src++];

            if (x < 0) {

                *dst = x;

            } else {

                *dst = bgpixel;

            }

            dst++;

        }

#pragma pipeloop(0)

        for (; dst <= (dst_end - 2); dst += 2) {

            dd = LOAD_2F32(pixLut, src[0], src[1]);

            mask = vis_fcmplt32(dd, dzero);

            *(mlib_d64*)dst = d_bgpixel;

            vis_pst_32(dd, dst, mask);

            src += 2;

        }

        while (dst < dst_end) {

            x = pixLut[*src++];

            if (x < 0) {

                *dst = x;

            } else {

                *dst = bgpixel;

            }

            dst++;

        }

        PTR_ADD(dstBase, dstScan);

        PTR_ADD(srcBase, srcScan);

    }

}

/***************************************************************/

void ADD_SUFF(IntArgbDrawGlyphListAA)(GLYPH_LIST_PARAMS)

{

    mlib_s32 glyphCounter;

    mlib_s32 scan = pRasInfo->scanStride;

    mlib_u8  *dstBase;

    mlib_s32 j;

    mlib_d64 dmix0, dmix1, dd, d0, d1, e0, e1, fgpixel_d;

    mlib_d64 done, done16, d_half;

    mlib_s32 pix, mask;

    mlib_f32 srcG_f;

    done = vis_to_double_dup(0x7fff7fff);

    done16 = vis_to_double_dup(0x7fff);

    d_half = vis_to_double_dup((1 << (16 + 6)) | (1 << 6));

    fgpixel_d = vis_to_double_dup(fgpixel);

    srcG_f = vis_to_float(argbcolor);

    vis_write_gsr(0 << 3);

    for (glyphCounter = 0; glyphCounter < totalGlyphs; glyphCounter++) {

        const jubyte *pixels;

        unsigned int rowBytes;

        int left, top;

        int width, height;

        int right, bottom;

        pixels = (const jubyte *) glyphs[glyphCounter].pixels;

        if (!pixels) continue;

        left = glyphs[glyphCounter].x;

        top = glyphs[glyphCounter].y;

        width = glyphs[glyphCounter].width;

        height = glyphs[glyphCounter].height;

        rowBytes = width;

        right = left + width;

        bottom = top + height;

        if (left < clipLeft) {

            pixels += clipLeft - left;

            left = clipLeft;

        }

        if (top < clipTop) {

            pixels += (clipTop - top) * rowBytes;

            top = clipTop;

        }

        if (right > clipRight) {

            right = clipRight;

        }

        if (bottom > clipBottom) {

            bottom = clipBottom;

        }

        if (right <= left || bottom <= top) {

            continue;

        }

        width = right - left;

        height = bottom - top;

        dstBase = pRasInfo->rasBase;

        PTR_ADD(dstBase, top*scan + 4*left);

        for (j = 0; j < height; j++) {

            mlib_u8  *src = (void*)pixels;

            mlib_s32 *dst, *dst_end;

            dst = (void*)dstBase;

            dst_end = dst + width;

            /* Clearing the Graphics Status Register is necessary otherwise

             * left over scale settings affect the pack instructions.

             */

            vis_write_gsr(0 << 3);

            if ((mlib_s32)dst & 7) {

                pix = *src++;

                dd = vis_fpadd16(MUL8_VIS(srcG_f, pix), d_half);

                dd = vis_fpadd16(MUL8_VIS(*(mlib_f32*)dst, 255 - pix), dd);

                *(mlib_f32*)dst = vis_fpack16(dd);

                if (pix == 255) *(mlib_f32*)dst = vis_read_hi(fgpixel_d);

                dst++;

            }

#pragma pipeloop(0)

            for (; dst <= (dst_end - 2); dst += 2) {

                dmix0 = vis_freg_pair(((mlib_f32 *)vis_mul8s_tbl)[src[0]],

                                      ((mlib_f32 *)vis_mul8s_tbl)[src[1]]);

                mask = vis_fcmplt32(dmix0, done16);

                dmix1 = vis_fpsub16(done, dmix0);

                src += 2;

                dd = *(mlib_d64*)dst;

                d0 = vis_fmul8x16al(srcG_f, vis_read_hi(dmix0));

                d1 = vis_fmul8x16al(srcG_f, vis_read_lo(dmix0));

                e0 = vis_fmul8x16al(vis_read_hi(dd), vis_read_hi(dmix1));

                e1 = vis_fmul8x16al(vis_read_lo(dd), vis_read_lo(dmix1));

                d0 = vis_fpadd16(vis_fpadd16(d0, d_half), e0);

                d1 = vis_fpadd16(vis_fpadd16(d1, d_half), e1);

                dd = vis_fpack16_pair(d0, d1);

                *(mlib_d64*)dst = fgpixel_d;

                vis_pst_32(dd, dst, mask);

            }

            while (dst < dst_end) {

                pix = *src++;

                dd = vis_fpadd16(MUL8_VIS(srcG_f, pix), d_half);

                dd = vis_fpadd16(MUL8_VIS(*(mlib_f32*)dst, 255 - pix), dd);

                *(mlib_f32*)dst = vis_fpack16(dd);

                if (pix == 255) *(mlib_f32*)dst = vis_read_hi(fgpixel_d);

                dst++;

            }

            ADD_SUFF(IntArgbPreToIntArgbConvert)(dstBase, dstBase, width, 1,

                                                 pRasInfo, pRasInfo,

                                                 pPrim, pCompInfo);

            PTR_ADD(dstBase, scan);

            pixels += rowBytes;

        }

    }

}

/***************************************************************/

#endif /* JAVA2D_NO_MLIB */