/*
 * Copyright (c) 2018-2022 Jean-Philippe Bruyère <jp_bruyere@hotmail.com>
 *
 * 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.
 */

#include "test.h"

void _test_rounded_rect(VkvgContext cr) {
    /* a custom shape that could be wrapped in a function */
    float x0 = -100,                                                     /* parameters like vkvg_rectangle */
        y0 = -100, rect_width = 200, rect_height = 200, radius = 102.4f; /* and an approximate curvature radius */

    float x1, y1;

    x1 = x0 + rect_width;
    y1 = y0 + rect_height;
    if (!rect_width || !rect_height)
        return;
    if (rect_width / 2 < radius) {
        if (rect_height / 2 < radius) {
            vkvg_move_to(cr, x0, (y0 + y1) / 2);
            vkvg_curve_to(cr, x0, y0, x0, y0, (x0 + x1) / 2, y0);
            vkvg_curve_to(cr, x1, y0, x1, y0, x1, (y0 + y1) / 2);
            vkvg_curve_to(cr, x1, y1, x1, y1, (x1 + x0) / 2, y1);
            vkvg_curve_to(cr, x0, y1, x0, y1, x0, (y0 + y1) / 2);
        } else {
            vkvg_move_to(cr, x0, y0 + radius);
            vkvg_curve_to(cr, x0, y0, x0, y0, (x0 + x1) / 2, y0);
            vkvg_curve_to(cr, x1, y0, x1, y0, x1, y0 + radius);
            vkvg_line_to(cr, x1, y1 - radius);
            vkvg_curve_to(cr, x1, y1, x1, y1, (x1 + x0) / 2, y1);
            vkvg_curve_to(cr, x0, y1, x0, y1, x0, y1 - radius);
        }
    } else {
        if (rect_height / 2 < radius) {
            vkvg_move_to(cr, x0, (y0 + y1) / 2);
            vkvg_curve_to(cr, x0, y0, x0, y0, x0 + radius, y0);
            vkvg_line_to(cr, x1 - radius, y0);
            vkvg_curve_to(cr, x1, y0, x1, y0, x1, (y0 + y1) / 2);
            vkvg_curve_to(cr, x1, y1, x1, y1, x1 - radius, y1);
            vkvg_line_to(cr, x0 + radius, y1);
            vkvg_curve_to(cr, x0, y1, x0, y1, x0, (y0 + y1) / 2);
        } else {
            vkvg_move_to(cr, x0, y0 + radius);
            vkvg_curve_to(cr, x0, y0, x0, y0, x0 + radius, y0);
            vkvg_line_to(cr, x1 - radius, y0);
            vkvg_curve_to(cr, x1, y0, x1, y0, x1, y0 + radius);
            vkvg_line_to(cr, x1, y1 - radius);
            vkvg_curve_to(cr, x1, y1, x1, y1, x1 - radius, y1);
            vkvg_line_to(cr, x0 + radius, y1);
            vkvg_curve_to(cr, x0, y1, x0, y1, x0, y1 - radius);
        }
    }
    vkvg_close_path(cr);

    vkvg_set_source_rgb(cr, 0.5f, 0.5f, 1);
    vkvg_fill_preserve(cr);
    vkvg_set_source_rgba(cr, 0.5f, 0, 0, 0.5f);
    vkvg_set_line_width(cr, 10.0f);
    vkvg_stroke(cr);
}

static float rotation = 0.f;

void cairo_tests() {
    rotation += 0.002f;

    VkvgContext ctx = vkvg_create(surf);
    vkvg_set_fill_rule(ctx, VKVG_FILL_RULE_EVEN_ODD);
    vkvg_set_source_rgba(ctx, 1.0f, 1.0f, 1.0f, 1);
    vkvg_paint(ctx);

    vkvg_set_line_width(ctx, 10);

    vkvg_set_source_rgb(ctx, 0, 0, 1);

    vkvg_translate(ctx, test_width / 2, test_height / 2);
    vkvg_rotate(ctx, rotation);
    // vkvg_scale(ctx, 200,200);

    vkvg_arc(ctx, 0, 0, 150, 0, M_PI * 1.5);
    vkvg_stroke(ctx);

    _test_rounded_rect(ctx);

    vkvg_destroy(ctx);
}

int main(int argc, char* argv[]) {
    no_test_size = true;
    PERFORM_TEST(cairo_tests, argc, argv);
    return 0;
}