/**
 ** patfbox.c
 **
 ** Copyright (c) 1995 Csaba Biegl, 820 Stirrup Dr, Nashville, TN 37221
 ** [e-mail: csaba@vuse.vanderbilt.edu]
 **
 ** This file is part of the GRX graphics library.
 **
 ** The GRX graphics library is free software; you can redistribute it
 ** and/or modify it under some conditions; see the "copying.grx" file
 ** for details.
 **
 ** This library 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.
 **
 ** 200623 M.Alvarez, adding GrPatAlignFilledBox
 **
 **/

#include "libgrx.h"
#include "arith.h"
#include "clipping.h"
#include "shapes.h"

void _GrPatternFilledBoxExt(int x1,int y1,int x2,int y2,int sx,int sy,GrPattern *p)
{
    int width,height;

    width  = x2 - x1 + 1;
    height = y2 - y1 + 1;
    if(p->gp_ptype == GR_PTYPE_BITMAP) {
        while(--height >= 0) _GrFillPatternExt(x1,y1++,0,0,width,p);
    } else if(p->gp_ptype == GR_PTYPE_PIXMAP) {
        void (*bltfun)(GrFrame*,int,int,GrFrame*,int,int,int,int,GrColor);
        int pwdt = p->gp_pxp_width;
        int phgt = p->gp_pxp_height;
        int xoff = (x1-sx) % pwdt;
        int ypos = y1;
        int yoff = (ypos-sy) % phgt;
        if (CURC->gc_onscreen) bltfun = CURC->gc_driver->bltr2v;
        else                   bltfun = CURC->gc_driver->bitblt;
        while(height > 0) {
            int fillh   = min(height,(phgt - yoff));
            int linewdt = width;
            int xpos    = x1;
            int xcuroff = xoff;
            while(linewdt > 0) {
                int fillw = min(linewdt,(pwdt - xcuroff));
                (*bltfun)(
                    &CURC->gc_frame,xpos,ypos,
                    &p->gp_pxp_source,xcuroff,yoff,fillw,fillh,
                    p->gp_pxp_oper
                );
                linewdt -= fillw;
                xpos += fillw;
                xcuroff = 0;
            }
            height -= fillh;
            ypos += fillh;
            yoff = 0;
        }
    } else if(p->gp_ptype == GR_PTYPE_GRADIENT) {
        while(--height >= 0) _GrFillPatternExt(x1,y1++,sx,sy,width,p);
    }
}

void GrPatternFilledBox(int x1,int y1,int x2,int y2,GrPattern *p)
{
    clip_box(CURC,x1,y1,x2,y2);
    mouse_block(CURC,x1,y1,x2,y2);
    _GrPatternFilledBoxExt(x1+CURC->gc_xoffset,y1+CURC->gc_yoffset,
                           x2+CURC->gc_xoffset,y2+CURC->gc_yoffset,0,0,p);
    mouse_unblock();
}

void GrPatAlignFilledBox(int xo,int yo,int x1,int y1,int x2,int y2,GrPattern *p)
{
    //xo = min(xo, min(x1,x2));
    //yo = min(yo, min(y1,y2));
    clip_box(CURC,x1,y1,x2,y2);
    mouse_block(CURC,x1,y1,x2,y2);
    _GrPatternFilledBoxExt(x1+CURC->gc_xoffset,y1+CURC->gc_yoffset,
                           x2+CURC->gc_xoffset,y2+CURC->gc_yoffset,
                           xo+CURC->gc_xoffset,yo+CURC->gc_yoffset,p);
    mouse_unblock();
}