// =============================================================== //
//                                                                 //
//   File      : AW_Xm.cxx                                         //
//   Purpose   :                                                   //
//                                                                 //
//   Institute of Microbiology (Technical University Munich)       //
//   http://www.arb-home.de/                                       //
//                                                                 //
// =============================================================== //

#include <aw_Xm.hxx>

// @@@ change implementation of draw functions
// * filter has to be checked early (in AW_device)
// * functions shall use Position/LineVector/Rectangle only

using namespace AW;

// ---------------------
//      AW_device_Xm

AW_DEVICE_TYPE AW_device_Xm::type() { return AW_DEVICE_SCREEN; }

#define XDRAW_PARAM2(common)    (common)->get_display(), (common)->get_window_id()
#define XDRAW_PARAM3(common,gc) XDRAW_PARAM2(common), (common)->get_GC(gc)

bool AW_device_Xm::line_impl(int gc, const LineVector& Line, AW_bitset filteri) {
    bool drawflag = false;
    if (filteri & filter) {
        LineVector transLine = transform(Line);
        LineVector clippedLine;
        drawflag = clip(transLine, clippedLine);
        if (drawflag) {
            XDrawLine(XDRAW_PARAM3(get_common(), gc),
                      AW_INT(clippedLine.start().xpos()), AW_INT(clippedLine.start().ypos()),
                      AW_INT(clippedLine.head().xpos()), AW_INT(clippedLine.head().ypos()));
            AUTO_FLUSH(this);
        }
    }

    return drawflag;
}

static bool AW_draw_string_on_screen(AW_device *device, int gc, const char *textBuffer, size_t textStart, size_t textLen, const AW::Position& pos, AW_CL /*cduser*/) {
    // aw_assert(textLen <= strlen(textBuffer)); // already asserted by caller (text_overlay)

    AW_device_Xm *device_xm = DOWNCAST(AW_device_Xm*, device);
    AW::Position  POS(device_xm->transform(pos));

    XDrawString(XDRAW_PARAM3(device_xm->get_common(), gc), AW_INT(POS.xpos()), AW_INT(POS.ypos()), textBuffer + textStart,  (int)textLen);
    AUTO_FLUSH(device);

    return true;
}


bool AW_device_Xm::text_impl(int gc, const SizedCstr& cstr, const AW::Position& pos, AW_pos alignment, AW_bitset filteri) {
    return text_overlay(gc, cstr, pos, alignment, filteri, AW_draw_string_on_screen);
}

enum StippleType {
    ST_UNDEFINED = -1,
    FILLED_125   = 0,
    FILLED_25,
    FILLED_375,
    FILLED_50,
    FILLED_625,
    FILLED_75,
    FILLED_875,
};

const int PIXMAP_SIZE   = 8; // 8x8 stipple mask
const int STIPPLE_TYPES = FILLED_875+1;

static Pixmap getStipplePixmap(AW_common_Xm *common, StippleType stippleType) {
    aw_assert(stippleType>=0 && stippleType<STIPPLE_TYPES);

    static Pixmap pixmap[STIPPLE_TYPES];
    static bool   initialized = false;

    if (!initialized) {
        for (int t = 0; t<STIPPLE_TYPES; ++t) {
            static unsigned char stippleBits[STIPPLE_TYPES][PIXMAP_SIZE] = {
                { 0x40, 0x08, 0x01, 0x20, 0x04, 0x80, 0x10, 0x02 }, // 12.5%
                { 0x88, 0x22, 0x88, 0x22, 0x88, 0x22, 0x88, 0x22 }, // 25%
                { 0x15, 0xa2, 0x54, 0x8a, 0x51, 0x2a, 0x45, 0xa8 }, // 37.5%
                { 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa }, // 50%
                { 0xd5, 0xba, 0x57, 0xea, 0x5d, 0xab, 0x75, 0xae }, // 62.5%
                { 0xbb, 0xee, 0xbb, 0xee, 0xbb, 0xee, 0xbb, 0xee }, // 75%
                { 0xbf, 0xf7, 0xfe, 0xdf, 0xfb, 0x7f, 0xef, 0xfd }  // 87.5%
            };
            pixmap[t] = XCreateBitmapFromData(common->get_display(), common->get_window_id(), reinterpret_cast<const char *>(stippleBits[t]), PIXMAP_SIZE, PIXMAP_SIZE);
        }
        initialized = true;
    }

    return pixmap[stippleType];
}

AW_device::Fill_Style AW_device_Xm::setFillstyleForGreylevel(int gc, AW::FillStyle filled) {
    // sets fillstyle and stipple for current greylevel of 'gc'

    switch (filled.get_style()) {
        case AW::FillStyle::SOLID: return FS_SOLID;
        case AW::FillStyle::EMPTY: return FS_EMPTY;

        case AW::FillStyle::SHADED:
        case AW::FillStyle::SHADED_WITH_BORDER:
            break; // detect using greylevel
    }

    AW_grey_level greylevel = get_grey_level(gc);

    if (greylevel<0.0625) {
        return FS_EMPTY;
    }
    if (greylevel<0.9375) { // otherwise draw solid
        StippleType stippleType = ST_UNDEFINED;

        if      (greylevel<0.1875) stippleType = FILLED_125;
        else if (greylevel<0.3125) stippleType = FILLED_25;
        else if (greylevel<0.4375) stippleType = FILLED_375;
        else if (greylevel<0.5626) stippleType = FILLED_50;
        else if (greylevel<0.6875) stippleType = FILLED_625;
        else if (greylevel<0.8125) stippleType = FILLED_75;
        else stippleType                       = FILLED_875;

        AW_common_Xm *Common  = get_common();
        Pixmap        stipple = getStipplePixmap(Common, stippleType);

        Display *Disp = Common->get_display();
        GC       xgc  = Common->get_GC(gc);

        XSetFillRule(Disp, xgc,  WindingRule);
        XSetStipple(Disp, xgc, stipple);
        XSetFillStyle(Disp, xgc, FillStippled);

        return FS_GREY;
    }
    return FS_SOLID;
}
void AW_device_Xm::resetFillstyleForGreylevel(int gc) {
    // should be called after using setFillstyleForGreylevel (to undo XSetFillStyle)
    // (Note: may be skipped if setFillstyleForGreylevel did not return FS_GREY)
    XSetFillStyle(get_common()->get_display(), get_common()->get_GC(gc), FillSolid);
}

bool AW_device_Xm::box_impl(int gc, AW::FillStyle filled, const Rectangle& rect, AW_bitset filteri) {
    bool drawflag = false;
    if (filteri & filter) {
        if (filled.is_empty()) {
            drawflag = generic_box(gc, rect, filteri);
        }
        else {
            Rectangle transRect = transform(rect);
            Rectangle clippedRect;
            drawflag = box_clip(transRect, clippedRect);
            if (drawflag) {
                Fill_Style fillStyle = setFillstyleForGreylevel(gc, filled);

                if (fillStyle != FS_EMPTY) {
                    XFillRectangle(XDRAW_PARAM3(get_common(), gc),
                                   AW_INT(clippedRect.left()),
                                   AW_INT(clippedRect.top()),
                                   AW_INT(clippedRect.width())+1, // see aw_device.hxx@WORLD_vs_PIXEL
                                   AW_INT(clippedRect.height())+1);

                    if (fillStyle == FS_GREY) resetFillstyleForGreylevel(gc);
                }
                if (fillStyle != FS_SOLID && filled.get_style() != AW::FillStyle::SHADED) {
                    // draw solid box-border (for empty and grey box)
                    // (Note: using XDrawRectangle here is wrong)
                    generic_box(gc, rect, filteri);
                }
                else {
                    AUTO_FLUSH(this);
                }
            }
        }
    }
    return drawflag;
}

bool AW_device_Xm::polygon_impl(int gc, AW::FillStyle filled, int npos, const AW::Position *pos, AW_bitset filteri) {
    bool drawflag = false;
    if (filteri & filter) {
        if (filled.is_empty()) {
            drawflag = generic_polygon(gc, npos, pos, filteri);
        }
        else {
            Position *transPos = new Position[npos];
            for (int p = 0; p<npos; ++p) {
                transPos[p] = transform(pos[p]);
            }

            int           nclippedPos;
            AW::Position *clippedPos = NULp;

            drawflag = box_clip(npos, transPos, nclippedPos, clippedPos);
            if (drawflag) {
                Fill_Style fillStyle = setFillstyleForGreylevel(gc, filled);

                if (fillStyle != FS_EMPTY) {
                    XPoint *xpos = new XPoint[nclippedPos];

                    for (int p = 0; p<nclippedPos; ++p) {
                        xpos[p].x = AW_INT(clippedPos[p].xpos());
                        xpos[p].y = AW_INT(clippedPos[p].ypos());
                    }

                    XFillPolygon(XDRAW_PARAM3(get_common(), gc),
                                 xpos,
                                 nclippedPos,
                                 // Complex,
                                 // Nonconvex,
                                 Convex,
                                 CoordModeOrigin);

                    if (fillStyle == FS_GREY) resetFillstyleForGreylevel(gc);
                    delete [] xpos;
                }
                if (fillStyle != FS_SOLID && filled.get_style() != AW::FillStyle::SHADED) {
                    // draw solid polygon-border (for empty and grey polygon)
                    // (Note: using XDrawRectangle here is wrong)
                    generic_polygon(gc, npos, pos, filteri);
                }
                else {
                    AUTO_FLUSH(this);
                }
            }

            delete [] clippedPos;
            delete [] transPos;
        }
    }
    return drawflag;
}

bool AW_device_Xm::circle_impl(int gc, AW::FillStyle filled, const AW::Position& center, const AW::Vector& radius, AW_bitset filteri) {
    aw_assert(radius.x()>0 && radius.y()>0);
    return arc_impl(gc, filled, center, radius, 0, 360, filteri);
}

bool AW_device_Xm::arc_impl(int gc, AW::FillStyle filled, const AW::Position& center, const AW::Vector& radius, int start_degrees, int arc_degrees, AW_bitset filteri) {
    // degrees start at east side of unit circle,
    // but orientation is clockwise (because ARBs y-coordinate grows downwards)

    bool drawflag = false;
    if (filteri & filter) {
        Rectangle Box(center-radius, center+radius);
        Rectangle screen_box = transform(Box);

        drawflag = !is_outside_clip(screen_box);
        if (drawflag) {
            int             width  = AW_INT(screen_box.width());
            int             height = AW_INT(screen_box.height());
            const Position& ulc    = screen_box.upper_left_corner();
            int             xl     = AW_INT(ulc.xpos());
            int             yl     = AW_INT(ulc.ypos());

            aw_assert(arc_degrees >= -360 && arc_degrees <= 360);

            // ARB -> X
            start_degrees = -start_degrees;
            arc_degrees   = -arc_degrees;

            while (start_degrees<0) start_degrees += 360;

            Fill_Style fillStyle = setFillstyleForGreylevel(gc, filled);
            if (fillStyle != FS_EMPTY) {
                XFillArc(XDRAW_PARAM3(get_common(), gc), xl, yl, width, height, 64*start_degrees, 64*arc_degrees);
                if (fillStyle == FS_GREY) resetFillstyleForGreylevel(gc);
                if (fillStyle != FS_SOLID && filled.get_style() != AW::FillStyle::SHADED) {
                    // draw solid arc-border (for grey arcs) - does not draw pie-lines, only outline is drawn
                    arc_impl(gc, AW::FillStyle::EMPTY, center, radius, start_degrees, arc_degrees, filteri);
                }
            }
            else {
                XDrawArc(XDRAW_PARAM3(get_common(), gc), xl, yl, width, height, 64*start_degrees, 64*arc_degrees);
            }
            AUTO_FLUSH(this);
        }
    }
    return drawflag;
}

void AW_device_Xm::clear(AW_bitset filteri) {
    if (filteri & filter) {
        XClearWindow(XDRAW_PARAM2(get_common()));
        AUTO_FLUSH(this);
    }
}

void AW_device_Xm::clear_part(const Rectangle& rect, AW_bitset filteri) {
    if (filteri & filter) {
        Rectangle transRect = transform(rect);
        Rectangle clippedRect;
        bool drawflag = box_clip(transRect, clippedRect);
        if (drawflag) {
            XClearArea(XDRAW_PARAM2(get_common()),
                       AW_INT(clippedRect.left()),
                       AW_INT(clippedRect.top()),
                       AW_INT(clippedRect.width())+1, // see aw_device.hxx@WORLD_vs_PIXEL
                       AW_INT(clippedRect.height())+1,
                       False);
            AUTO_FLUSH(this);
        }
    }
}

void AW_device_Xm::flush() {
    XFlush(get_common()->get_display());
}

void AW_device_Xm::move_region(AW_pos src_x, AW_pos src_y, AW_pos width, AW_pos height, AW_pos dest_x, AW_pos dest_y) {
    int gc = 0;
    XCopyArea(get_common()->get_display(), get_common()->get_window_id(), get_common()->get_window_id(), get_common()->get_GC(gc),
              AW_INT(src_x), AW_INT(src_y), AW_INT(width), AW_INT(height),
              AW_INT(dest_x), AW_INT(dest_y));
    AUTO_FLUSH(this);
}