//
// Unit tests for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2022 by Bill Spitzak and others.
//
// This library is free software. Distribution and use rights are outlined in
// the file "COPYING" which should have been included with this file.  If this
// file is missing or damaged, see the license at:
//
//     https://www.fltk.org/COPYING.php
//
// Please see the following page on how to report bugs and issues:
//
//     https://www.fltk.org/bugs.php
//

#include "unittests.h"

#include <config.h>
#include <FL/Fl_Box.H>
#include <FL/fl_draw.H>         // fl_text_extents()
#if HAVE_GL
#include <FL/Fl_Gl_Window.H>
#endif

#if 0

// TODO:
void fl_line(int x, int y, int x1, int y1)
void fl_line(int x, int y, int x1, int y1, int x2, int y2)

Draw one or two lines between the given points.
void fl_loop(int x, int y, int x1, int y1, int x2, int y2)
void fl_loop(int x, int y, int x1, int y1, int x2, int y2, int x3, int y3)

Outline a 3 or 4-sided polygon with lines.
void fl_polygon(int x, int y, int x1, int y1, int x2, int y2)
void fl_polygon(int x, int y, int x1, int y1, int x2, int y2, int x3, int y3)

Draw vertical and horizontal lines. A vertical line is drawn first, then a horizontal, then a vertical.

#endif

//
// --- test drawing shapes that are not transformed by the drawing matrix ------
//

void draw_fast_shapes() {
  int a = 0, b = 0, i;
  // 1: draw a filled rectangle (fl_rectf)
  fl_color(FL_GREEN);
  for (i=0; i<=40; i++) { fl_point(a+i, b); fl_point(a+i, b+20); }
  for (i=0; i<=20; i++) { fl_point(a, b+i); fl_point(a+40, b+i); }
  fl_color(FL_RED);
  for (i=1; i<=39; i++) { fl_point(a+i, b+1); fl_point(a+i, b+19); }
  for (i=1; i<=19; i++) { fl_point(a+1, b+i); fl_point(a+39, b+i); }
  fl_color(FL_BLACK);
  fl_rectf(a+1, b+1, 39, 19);
  // 2: draw a one units wide frame
  b+=24;
  fl_color(FL_GREEN);
  for (i=0; i<=40; i++) { fl_point(a+i, b); fl_point(a+i, b+20); }
  for (i=0; i<=20; i++) { fl_point(a, b+i); fl_point(a+40, b+i); }
  fl_color(FL_GREEN);
  for (i=2; i<=38; i++) { fl_point(a+i, b+2); fl_point(a+i, b+18); }
  for (i=2; i<=18; i++) { fl_point(a+2, b+i); fl_point(a+38, b+i); }
  fl_color(FL_RED);
  for (i=1; i<=39; i++) { fl_point(a+i, b+1); fl_point(a+i, b+19); }
  for (i=1; i<=19; i++) { fl_point(a+1, b+i); fl_point(a+39, b+i); }
  fl_color(FL_BLACK);
  fl_rect(a+1, b+1, 39, 19);
  // 3: draw a three units wide frame
  b+=24;
  fl_color(FL_GREEN);
  fl_rect(a, b, 41, 21);
  fl_rect(a+4, b+4, 33, 13);
  fl_color(FL_RED);
  fl_rect(a+1, b+1, 39, 19);
  fl_rect(a+3, b+3, 35, 15);
  fl_color(FL_BLACK);
  fl_line_style(FL_SOLID, 3);
  fl_rect(a+2, b+2, 37, 17);
  fl_line_style(FL_SOLID, 1);
  // 4: draw fl_xyline
  b+=24;
  fl_color(FL_GREEN);
  fl_rect(a, b+8, 41, 3);   // single line
  fl_rect(a+45, b, 41, 3);  // horizontal, then vertical line
  fl_rect(a+83, b, 3, 21);
  fl_rect(a+90, b, 21, 3);  // horizontal, vertical, horizontal line
  fl_rect(a+109, b, 3, 21);
  fl_rect(a+109, b+18, 21, 3);
  fl_color(FL_RED);
  fl_rectf(a+1, b+9, 39, 1);  // single line
  fl_rectf(a+46, b+1, 39, 1); // two lines
  fl_rectf(a+84, b+1, 1, 19);
  fl_rectf(a+91, b+1, 20, 1); // three lines
  fl_rectf(a+110, b+1, 1, 19);
  fl_rectf(a+110, b+19, 19, 1); // three lines
  fl_color(FL_BLACK);
  fl_xyline(a+1, b+9, a+39);
  fl_xyline(a+46, b+1, a+84, b+19);
  fl_xyline(a+91, b+1, a+110, b+19, a+128);
  b+=24;
  fl_color(FL_GREEN);
  fl_rect(a, b+7, 41, 5);   // single line
  fl_rect(a+45, b, 41, 5);  // horizontal, then vertical line
  fl_rect(a+81, b, 5, 21);
  fl_rect(a+90, b, 22, 5);  // horizontal, vertical, horizontal line
  fl_rect(a+108, b, 5, 21);
  fl_rect(a+108, b+16, 22, 5);
  fl_color(FL_RED);
  fl_rectf(a+1, b+8, 39, 3);  // single line
  fl_rectf(a+46, b+1, 39, 3); // two lines
  fl_rectf(a+82, b+1, 3, 19);
  fl_rectf(a+91, b+1, 20, 3); // three lines
  fl_rectf(a+109, b+1, 3, 19);
  fl_rectf(a+109, b+17, 20, 3); // three lines
  fl_color(FL_BLACK);
  fl_line_style(FL_SOLID, 3);
  fl_xyline(a+1, b+9, a+39);
  fl_xyline(a+46, b+2, a+83, b+19);
  fl_xyline(a+91, b+2, a+110, b+18, a+128);
  fl_line_style(FL_SOLID, 1);
  // 5: draw fl_xyline
  b+=24;
  fl_color(FL_GREEN);
  fl_rect(a+9, b, 3, 21);   // single line
  fl_rect(a+45, b, 3, 21);  // horizontal, then vertical line
  fl_rect(a+45, b+18, 41, 3);
  fl_rect(a+90, b, 3, 11);  // horizontal, vertical, horizontal line
  fl_rect(a+90, b+9, 40, 3);
  fl_rect(a+127, b+9, 3, 12);
  fl_color(FL_RED);
  fl_rectf(a+10, b+1, 1, 19);  // single line
  fl_rectf(a+46, b+1, 1, 19); // two lines
  fl_rectf(a+46, b+19, 39, 1);
  fl_rectf(a+91, b+1, 1, 10); // three lines
  fl_rectf(a+91, b+10, 38, 1);
  fl_rectf(a+128, b+10, 1, 10); // three lines
  fl_color(FL_BLACK);
  fl_yxline(a+10, b+1, b+19);
  fl_yxline(a+46, b+1, b+19, a+84);
  fl_yxline(a+91, b+1, b+10, a+128, b+19);
  b+=24;
  fl_color(FL_GREEN);
  fl_rect(a+8, b, 5, 21);   // single line
  fl_rect(a+45, b, 5, 21);  // horizontal, then vertical line
  fl_rect(a+45, b+16, 41, 5);
  fl_rect(a+90, b, 5, 11);  // horizontal, vertical, horizontal line
  fl_rect(a+90, b+8, 40, 5);
  fl_rect(a+125, b+8, 5, 13);
  fl_color(FL_RED);
  fl_rectf(a+9, b+1, 3, 19);  // single line
  fl_rectf(a+46, b+1, 3, 19); // two lines
  fl_rectf(a+46, b+17, 39, 3);
  fl_rectf(a+91, b+1, 3, 10); // three lines
  fl_rectf(a+91, b+9, 38, 3);
  fl_rectf(a+126, b+9, 3, 11); // three lines
  fl_color(FL_BLACK);
  fl_line_style(FL_SOLID, 3);
  fl_yxline(a+10, b+1, b+19);
  fl_yxline(a+47, b+1, b+18, a+84);
  fl_yxline(a+92, b+1, b+10, a+127, b+19);
  fl_line_style(FL_SOLID, 1);
  // 6: fast diagonal lines
  b+=24;
  fl_color(FL_GREEN);
  fl_point(a, b); fl_point(a+1, b); fl_point(a, b+1);
  fl_point(a+20, b+20); fl_point(a+19, b+20); fl_point(a+20, b+19);
  fl_color(FL_RED);
  fl_point(a+1, b+1); fl_point(a+19, b+19);
  fl_color(FL_BLACK);
  fl_line(a+1, b+1, a+19, b+19);
  fl_color(FL_GREEN);
  fl_point(a+25+1, b); fl_point(a+25, b+1); fl_point(a+25+4, b); fl_point(a+25, b+4);
  fl_point(a+25+20, b+19); fl_point(a+25+19, b+20); fl_point(a+25+16, b+20); fl_point(a+25+20, b+16);
  fl_color(FL_RED);
  fl_point(a+25+2, b+2); fl_point(a+25+18, b+18);
  fl_color(FL_BLACK);
  fl_line_style(FL_SOLID, 5);
  fl_line(a+25+1, b+1, a+25+19, b+19);
  fl_line(a+50+1, b+1, a+50+20, b+20, a+50+39, b+1);
  fl_line_style(FL_SOLID, 1);
}

#if HAVE_GL

class GLRectTest : public Fl_Gl_Window {
public:
  GLRectTest(int x, int y, int w, int h)
  : Fl_Gl_Window(x, y, w, h) {
    box(FL_FLAT_BOX);
  }
  void draw() {
    draw_begin();
    fl_color(color());
    fl_rectf(0, 0, w(), h());
    draw_fast_shapes();
    draw_end();
  }
};

#endif

class NativeRectTest : public Fl_Window {
public:
  NativeRectTest(int x, int y, int w, int h)
  : Fl_Window(x, y, w, h) {
    box(FL_FLAT_BOX);
    end();
  }
  void draw() {
    Fl_Window::draw();
    draw_fast_shapes();
  }
};

class RectTest : public Fl_Group { // 520 x 365
public:
  static Fl_Widget *create() {
    return new RectTest(TESTAREA_X, TESTAREA_Y, TESTAREA_W, TESTAREA_H);
  }
  RectTest(int x, int y, int w, int h) : Fl_Group(x, y, w, h) {
    label("Testing FLTK fast shape calls.\n"
          "These calls draw horizontal and vertical lines, frames, and rectangles.\n\n"
          "No red pixels should be visible. "
          "If you see bright red lines, or if parts of the green frames are hidden, "
          "drawing alignment is off.");
    align(FL_ALIGN_INSIDE|FL_ALIGN_BOTTOM|FL_ALIGN_LEFT|FL_ALIGN_WRAP);
    box(FL_BORDER_BOX);

    int a = x+16, b = y+34;
    Fl_Box *t = new Fl_Box(a, b-24, 80, 18, "native");
    t->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);

    /* NativeRectTest *nr = */ new NativeRectTest(a+23, b-1, 200, 200);

    t = new Fl_Box(a, b, 18, 18, "1");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing filled rectangle alignment.\n\n"
               // Description:
               "This draws a black rectangle, surrounded by a green frame.\n\n"
               // Things to look out for:
               "If green pixels are missing, filled rectangles draw too big (see fl_rectf).\n\n"
               "If red pixels are showing, filled rectangles are drawn too small."
               );
    b+=24;
    t = new Fl_Box(a, b, 18, 18, "2");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing rectangle frame alignment.\n\n"
               // Description:
               "This draws a black frame, surrounded on the inside and outside by a green frame.\n\n"
               // Things to look out for:
               "If green pixels are missing or red pixels are showing, rectangular frame drawing schould be adjusted (see fl_rect).\n\n"
               "If red pixels show in the corners of the frame in hidpi mode, line endings should be adjusted."
               );
    b+=24;
    t = new Fl_Box(a, b, 18, 18, "3");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing scaled frame alignment.\n\n"
               // Description:
               "This draws a 3 units wide black frame, surrounded on the inside and outside by a green frame.\n\n"
               // Things to look out for:
               "If green pixels are missing or red pixels are showing, line width schould be adjusted (see fl_line_style).\n\n"
               "If red pixels show in the corners of the frame in hidpi mode, line endings should be adjusted."
               );
    b+=24;
    t = new Fl_Box(a, b, 18, 18, "4");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing fl_xyline.\n\n"
               // Description:
               "This draws 3 versions of fl_xyline surronded with a green outline.\n\n"
               // Things to look out for:
               "If green pixels are missing or red pixels are showing, fl_xyline must be adjusted."
               );
    b+=48;
    t = new Fl_Box(a, b, 18, 18, "5");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing fl_yxline.\n\n"
               // Description:
               "This draws 3 versions of fl_yxline surronded with a green outline.\n\n"
               // Things to look out for:
               "If green pixels are missing or red pixels are showing, fl_yxline must be adjusted."
               );
    b+=48;
    t = new Fl_Box(a, b, 18, 18, "6");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing fl_line(int...).\n\n"
               // Description:
               "This draws 2 lines at differnet widths, and one connected line.\n\n"
               // Things to look out for:
               "Green and red pixels mark the beginning and end of single lines."
               "The line caps should be flat, the joints should be of type \"miter\"."
               );

#if HAVE_GL

    a = x+16+250, b = y+34;
    t = new Fl_Box(a, b-24, 80, 18, "OpenGL");
    t->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);

    /*GLRectTest *glr = */ new GLRectTest(a+31, b-1, 200, 200);

    t = new Fl_Box(a, b, 26, 18, "1a");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing filled rectangle alignment.\n\n"
               // Description:
               "This draws a black rectangle, surrounded by a green frame.\n\n"
               // Things to look out for:
               "If green pixels are missing, filled rectangles draw too big (see fl_rectf).\n\n"
               "If red pixels are showing, filled rectangles are drawn too small."
               );

    b+=24;
    t = new Fl_Box(a, b, 26, 18, "2a");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing rectangle frame alignment.\n\n"
               // Description:
               "This draws a black frame, surrounded on the inside and outside by a green frame.\n\n"
               // Things to look out for:
               "If green pixels are missing or red pixels are showing, rectangular frame drawing schould be adjusted (see fl_rect).\n\n"
               "If red pixels show in the corners of the frame in hidpi mode, line endings should be adjusted."
               );

    b+=24;
    t = new Fl_Box(a, b, 26, 18, "3a");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing scaled frame alignment.\n\n"
               // Description:
               "This draws a 3 units wide black frame, surrounded on the inside and outside by a green frame.\n\n"
               // Things to look out for:
               "If green pixels are missing or red pixels are showing, line width schould be adjusted (see fl_line_style).\n\n"
               "If red pixels show in the corners of the frame in hidpi mode, line endings should be adjusted."
               );
    b+=24;
    t = new Fl_Box(a, b, 26, 18, "4a");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing fl_xyline.\n\n"
               // Description:
               "This draws 3 versions of fl_xyline surronded with a green outline.\n\n"
               // Things to look out for:
               "If green pixels are missing or red pixels are showing, fl_xyline must be adjusted."
               );
    b+=48;
    t = new Fl_Box(a, b, 26, 18, "5a");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing fl_yxline.\n\n"
               // Description:
               "This draws 3 versions of fl_yxline surronded with a green outline.\n\n"
               // Things to look out for:
               "If green pixels are missing or red pixels are showing, fl_yxline must be adjusted."
               );
    b+=48;
    t = new Fl_Box(a, b, 26, 18, "6a");
    t->box(FL_ROUNDED_BOX); t->color(FL_YELLOW);
    t->tooltip(// Title:
               "Testing fl_line(int...).\n\n"
               // Description:
               "This draws 2 lines at differnet widths, and one connected line.\n\n"
               // Things to look out for:
               "Green and red pixels mark the beginning and end of single lines."
               "The line caps should be flat, the joints should be of type \"miter\"."
               );
#endif

    t = new Fl_Box(x+w-1,y+h-1, 1, 1);
    resizable(t);
  }
};

UnitTest rects(kTestFastShapes, "Fast Shapes", RectTest::create);