/************************************************************************
 ************************************************************************
    FAUST compiler
    Copyright (C) 2003-2018 GRAME, Centre National de Creation Musicale
    ---------------------------------------------------------------------
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU Lesser General Public License as published by
    the Free Software Foundation; either version 2.1 of the License, or
    (at your option) any later version.

    This program 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 Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 ************************************************************************
 ************************************************************************/

// SVGDev.cpp

#include "SVGDev.h"
#include "exception.hh"
#include "global.hh"

#include <stdio.h>
#include <iostream>
#include <sstream>

using namespace std;

static char* xmlcode(const char* name, char* name2)
{
    int i, j;

    // Substitution of prohibited characters in XML

    for (i = 0, j = 0; (name[i] != 0) && (j < 250); i++) {
        switch (name[i]) {
            case '<':
                name2[j++] = '&';
                name2[j++] = 'l';
                name2[j++] = 't';
                name2[j++] = ';';
                break;
            case '>':
                name2[j++] = '&';
                name2[j++] = 'g';
                name2[j++] = 't';
                name2[j++] = ';';
                break;
            case '\'':
                name2[j++] = '&';
                name2[j++] = 'a';
                name2[j++] = 'p';
                name2[j++] = 'o';
                name2[j++] = 's';
                name2[j++] = ';';
                break;
            case '"':
                name2[j++] = '&';
                name2[j++] = 'q';
                name2[j++] = 'u';
                name2[j++] = 'o';
                name2[j++] = 't';
                name2[j++] = ';';
                break;
            case '&':
                name2[j++] = '&';
                name2[j++] = 'a';
                name2[j++] = 'm';
                name2[j++] = 'p';
                name2[j++] = ';';
                break;
            default:
                name2[j++] = name[i];
        }
    }
    name2[j] = 0;

    return name2;
}

SVGDev::SVGDev(const char* ficName, double largeur, double hauteur)
{
    double gScale = 0.5;
    if ((fic_repr = fopen(ficName, "w+")) == nullptr) {
        stringstream error;
        error << "ERROR : impossible to create or open " << ficName << endl;
        throw faustexception(error.str());
    }

    // representation file:
    fprintf(fic_repr, "<?xml version=\"1.0\"?>\n");
    // + DTD ...
    // viewBox:
    if (gGlobal->gScaledSVG) {
        fprintf(fic_repr,
                "<svg xmlns=\"http://www.w3.org/2000/svg\" "
                "xmlns:xlink=\"http://www.w3.org/1999/xlink\" viewBox=\"0 0 "
                "%f %f\" width=\"100%%\" height=\"100%%\" version=\"1.1\">\n",
                largeur, hauteur);
    } else {
        fprintf(fic_repr,
                "<svg xmlns=\"http://www.w3.org/2000/svg\" "
                "xmlns:xlink=\"http://www.w3.org/1999/xlink\" viewBox=\"0 0 "
                "%f %f\" width=\"%fmm\" height=\"%fmm\" version=\"1.1\">\n",
                largeur, hauteur, largeur * gScale, hauteur * gScale);
    }

    if (gGlobal->gShadowBlur) {
        fprintf(
            fic_repr,
            "<defs>\n"
            "   <filter id=\"filter\" filterRes=\"18\" x=\"0\" y=\"0\">\n"
            "     <feGaussianBlur in=\"SourceGraphic\" stdDeviation=\"1.55\" result=\"blur\"/>\n"
            "     <feOffset in=\"blur\" dx=\"3\" dy=\"3\"/>\n"
            "   </filter>\n"
            "</defs>\n");
    }
}

SVGDev::~SVGDev()
{
    fprintf(fic_repr, "</svg>\n");
    fclose(fic_repr);
}

void SVGDev::rect(double x, double y, double l, double h, const char* color, const char* link)
{
    char buf[512];
    if (link != 0 && link[0] != 0) {
        // open the optional link tag
        fprintf(fic_repr, "<a xlink:href=\"%s\">\n", xmlcode(link, buf));
    }
    // draw the shadow
    if (gGlobal->gShadowBlur) {
        fprintf(fic_repr,
                "<rect x=\"%f\" y=\"%f\" width=\"%f\" height=\"%f\" rx=\"0.1\" ry=\"0.1\" "
                "style=\"stroke:none;fill:#aaaaaa;;filter:url(#filter);\"/>\n",
                x + 1, y + 1, l, h);
    } else {
        fprintf(fic_repr,
                "<rect x=\"%f\" y=\"%f\" width=\"%f\" height=\"%f\" rx=\"0\" ry=\"0\" "
                "style=\"stroke:none;fill:#cccccc;\"/>\n",
                x + 1, y + 1, l, h);
    }

    // draw the rectangle
    fprintf(fic_repr,
            "<rect x=\"%f\" y=\"%f\" width=\"%f\" height=\"%f\" rx=\"0\" ry=\"0\" "
            "style=\"stroke:none;fill:%s;\"/>\n",
            x, y, l, h, color);
    if (link != 0 && link[0] != 0) {
        // close the optional link tag
        fprintf(fic_repr, "</a>\n");
    }
}

//<polygon fill="lightsteelblue" stroke="midnightblue" stroke-width="5"
//    points="350,180 380,180 380,160 410,160 410,180 440,180 440,140 470,140 470,180
//    500,180 500,120 530,120 530,180" />

void SVGDev::triangle(double x, double y, double l, double h, const char* color, const char* link,
                      bool leftright)
{
    char buf[512];
    if (link != 0 && link[0] != 0) {
        // open the optional link tag
        fprintf(fic_repr, "<a xlink:href=\"%s\">\n", xmlcode(link, buf));
    }
    // draw triangle+circle
    float r = 1.5;  // circle radius
    float x0, x1, x2;
    if (leftright) {
        x0 = (float)x;
        x1 = (float)(x + l - 2 * r);
        x2 = (float)(x + l - r);
    } else {
        x0 = (float)(x + l);
        x1 = (float)(x + 2 * r);
        x2 = (float)(x + r);
    }
    fprintf(fic_repr,
            "<polygon fill=\"%s\" stroke=\"black\" stroke-width=\".25\" points=\"%f,%f %f,%f "
            "%f,%f\"/>\n",
            color, x0, y, x1, y + h / 2.0, x0, y + h);
    fprintf(fic_repr,
            "<circle  fill=\"%s\" stroke=\"black\" stroke-width=\".25\" cx=\"%f\" cy=\"%f\" "
            "r=\"%f\"/>\n",
            color, x2, y + h / 2.0, r);
}

void SVGDev::rond(double x, double y, double rayon)
{
    fprintf(fic_repr, "<circle cx=\"%f\" cy=\"%f\" r=\"%f\"/>\n", x, y, rayon);
}

void SVGDev::fleche(double x, double y, double rotation, int sens)
{
    double dx = 3;
    double dy = 1;

    if (sens == 1) {
        fprintf(fic_repr,
                "<line x1=\"%f\" y1=\"%f\" x2=\"%f\" y2=\"%f\"  transform=\"rotate(%f,%f,%f)\" "
                "style=\"stroke: black; "
                "stroke-width:0.25;\"/>\n",
                x - dx, y - dy, x, y, rotation, x, y);
        fprintf(fic_repr,
                "<line x1=\"%f\" y1=\"%f\" x2=\"%f\" y2=\"%f\"  transform=\"rotate(%f,%f,%f)\" "
                "style=\"stroke: black; "
                "stroke-width:0.25;\"/>\n",
                x - dx, y + dy, x, y, rotation, x, y);
    } else  // for recursion
    {
        fprintf(fic_repr,
                "<line x1=\"%f\" y1=\"%f\" x2=\"%f\" y2=\"%f\"  transform=\"rotate(%f,%f,%f)\" "
                "style=\"stroke: black; "
                "stroke-width:0.25;\"/>\n",
                x + dx, y - dy, x, y, rotation, x, y);
        fprintf(fic_repr,
                "<line x1=\"%f\" y1=\"%f\" x2=\"%f\" y2=\"%f\"  transform=\"rotate(%f,%f,%f)\" "
                "style=\"stroke: black; "
                "stroke-width:0.25;\"/>\n",
                x + dx, y + dy, x, y, rotation, x, y);
    }
}

void SVGDev::carre(double x, double y, double cote)
{
    fprintf(fic_repr,
            "<rect x=\"%f\" y=\"%f\" width=\"%f\" height=\"%f\" style=\"stroke: "
            "black;stroke-width:0.5;fill:none;\"/>\n",
            x - 0.5 * cote, y - cote, cote, cote);
}

void SVGDev::trait(double x1, double y1, double x2, double y2)
{
    fprintf(fic_repr,
            "<line x1=\"%f\" y1=\"%f\" x2=\"%f\" y2=\"%f\"  style=\"stroke:black; "
            "stroke-linecap:round; "
            "stroke-width:0.25;\"/>\n",
            x1, y1, x2, y2);
}

void SVGDev::dasharray(double x1, double y1, double x2, double y2)
{
    fprintf(fic_repr,
            "<line x1=\"%f\" y1=\"%f\" x2=\"%f\" y2=\"%f\"  style=\"stroke: black; "
            "stroke-linecap:round; "
            "stroke-width:0.25; stroke-dasharray:3,3;\"/>\n",
            x1, y1, x2, y2);
}

void SVGDev::text(double x, double y, const char* name, const char* link)
{
    char buf[512];
    if (link != 0 && link[0] != 0) {
        // open the optional link tag
        fprintf(fic_repr, "<a xlink:href=\"%s\">\n", xmlcode(link, buf));
    }
    char name2[256];
    fprintf(fic_repr,
            "<text x=\"%f\" y=\"%f\" font-family=\"Arial\" font-size=\"7\" text-anchor=\"middle\" "
            "fill=\"#FFFFFF\">%s</text>\n",
            x, y + 2, xmlcode(name, name2));
    if (link != 0 && link[0] != 0) {
        // close the optional link tag
        fprintf(fic_repr, "</a>\n");
    }
}

void SVGDev::label(double x, double y, const char* name)
{
    char name2[256];
    fprintf(fic_repr, "<text x=\"%f\" y=\"%f\" font-family=\"Arial\" font-size=\"7\">%s</text>\n",
            x, y + 2, xmlcode(name, name2));
}

void SVGDev::markSens(double x, double y, int sens)
{
    int offset = (sens == 1) ? 2 : -2;
    fprintf(fic_repr, "<circle cx=\"%f\" cy=\"%f\" r=\"1\"/>\n", x + offset, y + offset);
}

void SVGDev::Error(const char* message, const char* reason, int nb_error, double x, double y,
                   double largeur)
{
    fprintf(fic_repr,
            "<text x=\"%f\" y=\"%f\"  textLength=\"%f\" lengthAdjust=\"spacingAndGlyphs\" "
            "style=\"stroke: red; "
            "stroke-width:0.3; fill:red; text-anchor:middle;\">%d : %s</text>\n",
            x, y - 7, largeur, nb_error, message);
    fprintf(fic_repr,
            "<text x=\"%f\" y=\"%f\"  textLength=\"%f\" lengthAdjust=\"spacingAndGlyphs\" "
            "style=\"stroke: red; "
            "stroke-width:0.3; fill:none; text-anchor:middle;\">%s</text>\n",
            x, y + 7, largeur, reason);
}
