/*****************************************************************************

 * vml - A library for creating Excel XLSX vml files.

 *

 * Used in conjunction with the libxlsxwriter library.

 *

 * SPDX-License-Identifier: BSD-2-Clause

 * Copyright 2014-2025, John McNamara, jmcnamara@cpan.org.

 *

 */

#include "xlsxwriter/xmlwriter.h"

#include "xlsxwriter/vml.h"

#include "xlsxwriter/utility.h"

/*

 * Forward declarations.

 */

/*****************************************************************************

 *

 * Private functions.

 *

 ****************************************************************************/

/*

 * Create a new vml object.

 */

lxw_vml *

lxw_vml_new(void)

{

    lxw_vml *vml = calloc(1, sizeof(lxw_vml));

    GOTO_LABEL_ON_MEM_ERROR(vml, mem_error);

    return vml;

mem_error:

    lxw_vml_free(vml);

    return NULL;

}

/*

 * Free a vml object.

 */

void

lxw_vml_free(lxw_vml *vml)

{

    if (!vml)

        return;

    free(vml);

}

/*****************************************************************************

 *

 * XML functions.

 *

 ****************************************************************************/

/*

 * Write the <x:Visible> element.

 */

STATIC void

_vml_write_visible(lxw_vml *self)

{

    lxw_xml_empty_tag(self->file, "x:Visible", NULL);

}

/*

 * Write the <v:f> element.

 */

STATIC void

_vml_write_formula(lxw_vml *self, char *equation)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("eqn", equation);

    lxw_xml_empty_tag(self->file, "v:f", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:formulas> element.

 */

STATIC void

_vml_write_formulas(lxw_vml *self)

{

    lxw_xml_start_tag(self->file, "v:formulas", NULL);

    _vml_write_formula(self, "if lineDrawn pixelLineWidth 0");

    _vml_write_formula(self, "sum @0 1 0");

    _vml_write_formula(self, "sum 0 0 @1");

    _vml_write_formula(self, "prod @2 1 2");

    _vml_write_formula(self, "prod @3 21600 pixelWidth");

    _vml_write_formula(self, "prod @3 21600 pixelHeight");

    _vml_write_formula(self, "sum @0 0 1");

    _vml_write_formula(self, "prod @6 1 2");

    _vml_write_formula(self, "prod @7 21600 pixelWidth");

    _vml_write_formula(self, "sum @8 21600 0");

    _vml_write_formula(self, "prod @7 21600 pixelHeight");

    _vml_write_formula(self, "sum @10 21600 0");

    lxw_xml_end_tag(self->file, "v:formulas");

}

/*

 * Write the <x:TextHAlign> element.

 */

STATIC void

_vml_write_text_halign(lxw_vml *self)

{

    lxw_xml_data_element(self->file, "x:TextHAlign", "Center", NULL);

}

/*

 * Write the <x:TextVAlign> element.

 */

STATIC void

_vml_write_text_valign(lxw_vml *self)

{

    lxw_xml_data_element(self->file, "x:TextVAlign", "Center", NULL);

}

/*

 * Write the <x:FmlaMacro> element.

 */

STATIC void

_vml_write_fmla_macro(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    lxw_xml_data_element(self->file, "x:FmlaMacro", vml_obj->macro, NULL);

}

/*

 * Write the <x:PrintObject> element.

 */

STATIC void

_vml_write_print_object(lxw_vml *self)

{

    lxw_xml_data_element(self->file, "x:PrintObject", "False", NULL);

}

/*

 * Write the <o:lock> element.

 */

STATIC void

_vml_write_aspect_ratio_lock(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("v:ext", "edit");

    LXW_PUSH_ATTRIBUTES_STR("aspectratio", "t");

    lxw_xml_empty_tag(self->file, "o:lock", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <o:lock> element.

 */

STATIC void

_vml_write_rotation_lock(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("v:ext", "edit");

    LXW_PUSH_ATTRIBUTES_STR("rotation", "t");

    lxw_xml_empty_tag(self->file, "o:lock", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <x:Column> element.

 */

STATIC void

_vml_write_column(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    char data[LXW_ATTR_32];

    lxw_snprintf(data, LXW_ATTR_32, "%d", vml_obj->col);

    lxw_xml_data_element(self->file, "x:Column", data, NULL);

}

/*

 * Write the <x:Row> element.

 */

STATIC void

_vml_write_row(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    char data[LXW_ATTR_32];

    lxw_snprintf(data, LXW_ATTR_32, "%d", vml_obj->row);

    lxw_xml_data_element(self->file, "x:Row", data, NULL);

}

/*

 * Write the <x:AutoFill> element.

 */

STATIC void

_vml_write_auto_fill(lxw_vml *self)

{

    lxw_xml_data_element(self->file, "x:AutoFill", "False", NULL);

}

/*

 * Write the <x:Anchor> element.

 */

STATIC void

_vml_write_anchor(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    char anchor_data[LXW_MAX_ATTRIBUTE_LENGTH];

    lxw_snprintf(anchor_data,

                 LXW_MAX_ATTRIBUTE_LENGTH,

                 "%d, %d, %d, %d, %d, %d, %d, %d",

                 vml_obj->from.col,

                 (uint32_t) vml_obj->from.col_offset,

                 vml_obj->from.row,

                 (uint32_t) vml_obj->from.row_offset,

                 vml_obj->to.col,

                 (uint32_t) vml_obj->to.col_offset,

                 vml_obj->to.row, (uint32_t) vml_obj->to.row_offset);

    lxw_xml_data_element(self->file, "x:Anchor", anchor_data, NULL);

}

/*

 * Write the <x:SizeWithCells> element.

 */

STATIC void

_vml_write_size_with_cells(lxw_vml *self)

{

    lxw_xml_empty_tag(self->file, "x:SizeWithCells", NULL);

}

/*

 * Write the <x:MoveWithCells> element.

 */

STATIC void

_vml_write_move_with_cells(lxw_vml *self)

{

    lxw_xml_empty_tag(self->file, "x:MoveWithCells", NULL);

}

/*

 * Write the <v:shadow> element.

 */

STATIC void

_vml_write_shadow(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("on", "t");

    LXW_PUSH_ATTRIBUTES_STR("color", "black");

    LXW_PUSH_ATTRIBUTES_STR("obscured", "t");

    lxw_xml_empty_tag(self->file, "v:shadow", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:stroke> element.

 */

STATIC void

_vml_write_stroke(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("joinstyle", "miter");

    lxw_xml_empty_tag(self->file, "v:stroke", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <o:lock> element.

 */

STATIC void

_vml_write_shapetype_lock(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("v:ext", "edit");

    LXW_PUSH_ATTRIBUTES_STR("shapetype", "t");

    lxw_xml_empty_tag(self->file, "o:lock", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <font> element.

 */

STATIC void

_vml_write_font(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("face", "Calibri");

    LXW_PUSH_ATTRIBUTES_STR("size", "220");

    LXW_PUSH_ATTRIBUTES_STR("color", "#000000");

    lxw_xml_data_element(self->file, "font", vml_obj->name, &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:imagedata> element.

 */

STATIC void

_vml_write_imagedata(lxw_vml *self, uint32_t rel_index, char *name)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    char rel_id[LXW_ATTR_32];

    lxw_snprintf(rel_id, LXW_ATTR_32, "rId%d", rel_index);

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("o:relid", rel_id);

    LXW_PUSH_ATTRIBUTES_STR("o:title", name);

    lxw_xml_empty_tag(self->file, "v:imagedata", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:path> element.

 */

STATIC void

_vml_write_image_path(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("o:extrusionok", "f");

    LXW_PUSH_ATTRIBUTES_STR("gradientshapeok", "t");

    LXW_PUSH_ATTRIBUTES_STR("o:connecttype", "rect");

    lxw_xml_empty_tag(self->file, "v:path", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:shape> element.

 */

STATIC void

_vml_write_image_shape(lxw_vml *self, uint32_t vml_shape_id, uint32_t z_index,

                       lxw_vml_obj *image_obj)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    char width_str[LXW_ATTR_32];

    char height_str[LXW_ATTR_32];

    char style[LXW_MAX_ATTRIBUTE_LENGTH];

    char o_spid[LXW_ATTR_32];

    char type[] = "#_x0000_t75";

    double width;

    double height;

    /* Scale the height/width by the resolution, relative to 72dpi. */

    width = image_obj->width * (72.0 / image_obj->x_dpi);

    height = image_obj->height * (72.0 / image_obj->y_dpi);

    /* Excel uses a rounding based around 72 and 96 dpi. */

    width = 72.0 / 96.0 * (uint32_t) (width * 96.0 / 72 + 0.25);

    height = 72.0 / 96.0 * (uint32_t) (height * 96.0 / 72 + 0.25);

    lxw_sprintf_dbl(width_str, width);

    lxw_sprintf_dbl(height_str, height);

    lxw_snprintf(o_spid, LXW_ATTR_32, "_x0000_s%d", vml_shape_id);

    lxw_snprintf(style,

                 LXW_MAX_ATTRIBUTE_LENGTH,

                 "position:absolute;"

                 "margin-left:0;"

                 "margin-top:0;"

                 "width:%spt;"

                 "height:%spt;" "z-index:%d", width_str, height_str, z_index);

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("id", image_obj->image_position);

    LXW_PUSH_ATTRIBUTES_STR("o:spid", o_spid);

    LXW_PUSH_ATTRIBUTES_STR("type", type);

    LXW_PUSH_ATTRIBUTES_STR("style", style);

    lxw_xml_start_tag(self->file, "v:shape", &attributes);

    /* Write the v:imagedata element. */

    _vml_write_imagedata(self, image_obj->rel_index, image_obj->name);

    /* Write the o:lock element. */

    _vml_write_rotation_lock(self);

    lxw_xml_end_tag(self->file, "v:shape");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:shapetype> element for images.

 */

STATIC void

_vml_write_image_shapetype(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    char id[] = "_x0000_t75";

    char coordsize[] = "21600,21600";

    char o_spt[] = "75";

    char o_preferrelative[] = "t";

    char path[] = "m@4@5l@4@11@9@11@9@5xe";

    char filled[] = "f";

    char stroked[] = "f";

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("id", id);

    LXW_PUSH_ATTRIBUTES_STR("coordsize", coordsize);

    LXW_PUSH_ATTRIBUTES_STR("o:spt", o_spt);

    LXW_PUSH_ATTRIBUTES_STR("o:preferrelative", o_preferrelative);

    LXW_PUSH_ATTRIBUTES_STR("path", path);

    LXW_PUSH_ATTRIBUTES_STR("filled", filled);

    LXW_PUSH_ATTRIBUTES_STR("stroked", stroked);

    lxw_xml_start_tag(self->file, "v:shapetype", &attributes);

    /* Write the v:stroke element. */

    _vml_write_stroke(self);

    /* Write the v:formulas element. */

    _vml_write_formulas(self);

    /* Write the v:path element. */

    _vml_write_image_path(self);

    /* Write the o:lock element. */

    _vml_write_aspect_ratio_lock(self);

    lxw_xml_end_tag(self->file, "v:shapetype");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <x:ClientData> element.

 */

STATIC void

_vml_write_button_client_data(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("ObjectType", "Button");

    lxw_xml_start_tag(self->file, "x:ClientData", &attributes);

    /* Write the <x:Anchor> element. */

    _vml_write_anchor(self, vml_obj);

    /* Write the x:PrintObject element. */

    _vml_write_print_object(self);

    /* Write the x:AutoFill element. */

    _vml_write_auto_fill(self);

    /* Write the x:FmlaMacro element. */

    _vml_write_fmla_macro(self, vml_obj);

    /* Write the x:TextHAlign element. */

    _vml_write_text_halign(self);

    /* Write the x:TextVAlign element. */

    _vml_write_text_valign(self);

    lxw_xml_end_tag(self->file, "x:ClientData");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <div> element.

 */

STATIC void

_vml_write_button_div(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("style", "text-align:center");

    lxw_xml_start_tag(self->file, "div", &attributes);

    /* Write the font element. */

    _vml_write_font(self, vml_obj);

    lxw_xml_end_tag(self->file, "div");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:textbox> element.

 */

STATIC void

_vml_write_button_textbox(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("style", "mso-direction-alt:auto");

    LXW_PUSH_ATTRIBUTES_STR("o:singleclick", "f");

    lxw_xml_start_tag(self->file, "v:textbox", &attributes);

    /* Write the div element. */

    _vml_write_button_div(self, vml_obj);

    lxw_xml_end_tag(self->file, "v:textbox");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:fill> element.

 */

STATIC void

_vml_write_button_fill(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("color2", "buttonFace [67]");

    LXW_PUSH_ATTRIBUTES_STR("o:detectmouseclick", "t");

    lxw_xml_empty_tag(self->file, "v:fill", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:path> element for buttons.

 */

STATIC void

_vml_write_button_path(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("shadowok", "f");

    LXW_PUSH_ATTRIBUTES_STR("o:extrusionok", "f");

    LXW_PUSH_ATTRIBUTES_STR("strokeok", "f");

    LXW_PUSH_ATTRIBUTES_STR("fillok", "f");

    LXW_PUSH_ATTRIBUTES_STR("o:connecttype", "rect");

    lxw_xml_empty_tag(self->file, "v:path", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:shape> element for buttons.

 */

STATIC void

_vml_write_button_shape(lxw_vml *self, uint32_t vml_shape_id,

                        uint32_t z_index, lxw_vml_obj *vml_obj)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    char type[] = "#_x0000_t201";

    char o_button[] = "t";

    char fillcolor[] = "buttonFace [67]";

    char strokecolor[] = "windowText [64]";

    char o_insetmode[] = "auto";

    char id[LXW_ATTR_32];

    char margin_left[LXW_ATTR_32];

    char margin_top[LXW_ATTR_32];

    char width[LXW_ATTR_32];

    char height[LXW_ATTR_32];

    char style[LXW_MAX_ATTRIBUTE_LENGTH];

    lxw_sprintf_dbl(margin_left, vml_obj->col_absolute * 0.75);

    lxw_sprintf_dbl(margin_top, vml_obj->row_absolute * 0.75);

    lxw_sprintf_dbl(width, vml_obj->width * 0.75);

    lxw_sprintf_dbl(height, vml_obj->height * 0.75);

    lxw_snprintf(id, LXW_ATTR_32, "_x0000_s%d", vml_shape_id);

    lxw_snprintf(style,

                 LXW_MAX_ATTRIBUTE_LENGTH,

                 "position:absolute;"

                 "margin-left:%spt;"

                 "margin-top:%spt;"

                 "width:%spt;"

                 "height:%spt;"

                 "z-index:%d;"

                 "mso-wrap-style:tight",

                 margin_left, margin_top, width, height, z_index);

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("id", id);

    LXW_PUSH_ATTRIBUTES_STR("type", type);

    if (vml_obj->text)

        LXW_PUSH_ATTRIBUTES_STR("alt", vml_obj->text);

    LXW_PUSH_ATTRIBUTES_STR("style", style);

    LXW_PUSH_ATTRIBUTES_STR("o:button", o_button);

    LXW_PUSH_ATTRIBUTES_STR("fillcolor", fillcolor);

    LXW_PUSH_ATTRIBUTES_STR("strokecolor", strokecolor);

    LXW_PUSH_ATTRIBUTES_STR("o:insetmode", o_insetmode);

    lxw_xml_start_tag(self->file, "v:shape", &attributes);

    /* Write the v:fill element. */

    _vml_write_button_fill(self);

    /* Write the o:lock element. */

    _vml_write_rotation_lock(self);

    /* Write the v:textbox element. */

    _vml_write_button_textbox(self, vml_obj);

    /* Write the x:ClientData element. */

    _vml_write_button_client_data(self, vml_obj);

    lxw_xml_end_tag(self->file, "v:shape");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:shapetype> element for buttons.

 */

STATIC void

_vml_write_button_shapetype(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    char id[] = "_x0000_t201";

    char coordsize[] = "21600,21600";

    char o_spt[] = "201";

    char path[] = "m,l,21600r21600,l21600,xe";

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("id", id);

    LXW_PUSH_ATTRIBUTES_STR("coordsize", coordsize);

    LXW_PUSH_ATTRIBUTES_STR("o:spt", o_spt);

    LXW_PUSH_ATTRIBUTES_STR("path", path);

    lxw_xml_start_tag(self->file, "v:shapetype", &attributes);

    /* Write the v:stroke element. */

    _vml_write_stroke(self);

    /* Write the v:path element. */

    _vml_write_button_path(self);

    /* Write the o:lock element. */

    _vml_write_shapetype_lock(self);

    lxw_xml_end_tag(self->file, "v:shapetype");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <x:ClientData> element.

 */

STATIC void

_vml_write_comment_client_data(lxw_vml *self, lxw_vml_obj *vml_obj)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("ObjectType", "Note");

    lxw_xml_start_tag(self->file, "x:ClientData", &attributes);

    /* Write the <x:MoveWithCells> element. */

    _vml_write_move_with_cells(self);

    /* Write the <x:SizeWithCells> element. */

    _vml_write_size_with_cells(self);

    /* Write the <x:Anchor> element. */

    _vml_write_anchor(self, vml_obj);

    /* Write the <x:AutoFill> element. */

    _vml_write_auto_fill(self);

    /* Write the <x:Row> element. */

    _vml_write_row(self, vml_obj);

    /* Write the <x:Column> element. */

    _vml_write_column(self, vml_obj);

    /* Write the x:Visible element. */

    if (vml_obj->visible == LXW_COMMENT_DISPLAY_VISIBLE)

        _vml_write_visible(self);

    lxw_xml_end_tag(self->file, "x:ClientData");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <div> element.

 */

STATIC void

_vml_write_comment_div(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("style", "text-align:left");

    lxw_xml_start_tag(self->file, "div", &attributes);

    lxw_xml_end_tag(self->file, "div");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:textbox> element.

 */

STATIC void

_vml_write_comment_textbox(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("style", "mso-direction-alt:auto");

    lxw_xml_start_tag(self->file, "v:textbox", &attributes);

    /* Write the div element. */

    _vml_write_comment_div(self);

    lxw_xml_end_tag(self->file, "v:textbox");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:fill> element.

 */

STATIC void

_vml_write_comment_fill(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("color2", "#ffffe1");

    lxw_xml_empty_tag(self->file, "v:fill", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:path> element.

 */

STATIC void

_vml_write_comment_path(lxw_vml *self, uint8_t has_gradient, char *type)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    LXW_INIT_ATTRIBUTES();

    if (has_gradient)

        LXW_PUSH_ATTRIBUTES_STR("gradientshapeok", "t");

    LXW_PUSH_ATTRIBUTES_STR("o:connecttype", type);

    lxw_xml_empty_tag(self->file, "v:path", &attributes);

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:shape> element for comments.

 */

STATIC void

_vml_write_comment_shape(lxw_vml *self, uint32_t vml_shape_id,

                         uint32_t z_index, lxw_vml_obj *vml_obj)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    char id[LXW_ATTR_32];

    char margin_left[LXW_ATTR_32];

    char margin_top[LXW_ATTR_32];

    char width[LXW_ATTR_32];

    char height[LXW_ATTR_32];

    char visible[LXW_ATTR_32];

    char fillcolor[LXW_ATTR_32];

    char style[LXW_MAX_ATTRIBUTE_LENGTH];

    char type[] = "#_x0000_t202";

    char o_insetmode[] = "auto";

    lxw_sprintf_dbl(margin_left, vml_obj->col_absolute * 0.75);

    lxw_sprintf_dbl(margin_top, vml_obj->row_absolute * 0.75);

    lxw_sprintf_dbl(width, vml_obj->width * 0.75);

    lxw_sprintf_dbl(height, vml_obj->height * 0.75);

    lxw_snprintf(id, LXW_ATTR_32, "_x0000_s%d", vml_shape_id);

    if (vml_obj->visible == LXW_COMMENT_DISPLAY_DEFAULT)

        vml_obj->visible = self->comment_display_default;

    if (vml_obj->visible == LXW_COMMENT_DISPLAY_VISIBLE)

        lxw_snprintf(visible, LXW_ATTR_32, "visible");

    else

        lxw_snprintf(visible, LXW_ATTR_32, "hidden");

    if (vml_obj->color)

        lxw_snprintf(fillcolor, LXW_ATTR_32, "#%06x",

                     vml_obj->color & LXW_COLOR_MASK);

    else

        lxw_snprintf(fillcolor, LXW_ATTR_32, "#%06x", 0xffffe1);

    lxw_snprintf(style,

                 LXW_MAX_ATTRIBUTE_LENGTH,

                 "position:absolute;"

                 "margin-left:%spt;"

                 "margin-top:%spt;"

                 "width:%spt;"

                 "height:%spt;"

                 "z-index:%d;"

                 "visibility:%s",

                 margin_left, margin_top, width, height, z_index, visible);

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("id", id);

    LXW_PUSH_ATTRIBUTES_STR("type", type);

    LXW_PUSH_ATTRIBUTES_STR("style", style);

    LXW_PUSH_ATTRIBUTES_STR("fillcolor", fillcolor);

    LXW_PUSH_ATTRIBUTES_STR("o:insetmode", o_insetmode);

    lxw_xml_start_tag(self->file, "v:shape", &attributes);

    /* Write the v:fill element. */

    _vml_write_comment_fill(self);

    /* Write the v:shadow element. */

    _vml_write_shadow(self);

    /* Write the v:path element. */

    _vml_write_comment_path(self, LXW_FALSE, "none");

    /* Write the v:textbox element. */

    _vml_write_comment_textbox(self);

    /* Write the x:ClientData element. */

    _vml_write_comment_client_data(self, vml_obj);

    lxw_xml_end_tag(self->file, "v:shape");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <v:shapetype> element for comments.

 */

STATIC void

_vml_write_comment_shapetype(lxw_vml *self)

{

    struct xml_attribute_list attributes;

    struct xml_attribute *attribute;

    char id[] = "_x0000_t202";

    char coordsize[] = "21600,21600";

    char o_spt[] = "202";

    char path[] = "m,l,21600r21600,l21600,xe";

    LXW_INIT_ATTRIBUTES();

    LXW_PUSH_ATTRIBUTES_STR("id", id);

    LXW_PUSH_ATTRIBUTES_STR("coordsize", coordsize);

    LXW_PUSH_ATTRIBUTES_STR("o:spt", o_spt);

    LXW_PUSH_ATTRIBUTES_STR("path", path);

    lxw_xml_start_tag(self->file, "v:shapetype", &attributes);

    /* Write the v:stroke element. */

    _vml_write_stroke(self);

    /* Write the v:path element. */

    _vml_write_comment_path(self, LXW_TRUE, "rect");

    lxw_xml_end_tag(self->file, "v:shapetype");

    LXW_FREE_ATTRIBUTES();

}

/*

 * Write the <o:idmap> element.

 */

STATIC void

_vml_write_idmap(lxw_vml *self)