p1788 0.1.0 → 1.0.0

data/ext/p1788/figure_wrapper.cc

@@ -0,0 +1,1249 @@
+/* Copyright (C) 2022 Théotime Bollengier <theotime.bollengier@ensta-bretagne.fr>
+ *
+ * This file is part of P1788. <https://gitlab.ensta-bretagne.fr/bollenth/p1788>
+ *
+ * P1788 is free software: you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published
+ * by the Free Software Foundation, either version 3 of the License,
+ * or (at your option) any later version.
+ *
+ * P1788 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with P1788. If not, see <https://www.gnu.org/licenses/>. 
+ */
+
+/* TODO
+ * wrapper:
+ * - commands
+ * - color
+ * reset figure
+ * do not repeat commands, ex: stroke on then stroke of
+ */
+
+#include <ruby.h>
+#include "p1788.hh"
+#include "figure.hh"
+
+
+VALUE c_Figure;
+
+
+static ID id_width;
+static ID id_height;
+static ID id_xrange;
+static ID id_yrange;
+static ID id_with_decorations;
+static ID id_title;
+static ID id_xlabel;
+static ID id_ylabel;
+static ID id_background_color;
+static ID id_decoration_color;
+static ID id_decoration_font;
+static ID id_decoration_font_size;
+static ID id_decoration_line_width;
+static ID id_label_font_size;
+static ID id_title_font_size;
+static ID id_title_in_bold;
+
+
+static void p1788_figure_free(void *p)
+{
+	P1788Figure::Figure *f = (P1788Figure::Figure*)p;
+	delete f;
+}
+
+
+static size_t p1788_figure_size(const void* p)
+{
+	P1788Figure::Figure *f = (P1788Figure::Figure*)p;
+	return f->allocated_size();
+}
+
+
+static const rb_data_type_t p1788_figure_type = {
+	.wrap_struct_name = "P1788::Figure",
+	.function = {
+		.dmark = NULL,
+		.dfree = p1788_figure_free,
+		.dsize = p1788_figure_size,
+	},
+	.parent = NULL,
+	.data = NULL,
+	.flags = RUBY_TYPED_FREE_IMMEDIATELY
+};
+
+
+static VALUE p1788_figure_alloc(VALUE klass)
+{
+	P1788Figure::Figure *f = new P1788Figure::Figure();
+	return TypedData_Wrap_Struct(klass, &p1788_figure_type, f);
+}
+
+
+static inline P1788Figure::Figure& p1788_figure_rb2ref(VALUE obj) {
+	P1788Figure::Figure *f;
+	TypedData_Get_Struct(obj, P1788Figure::Figure, &p1788_figure_type, f);
+	return *f;
+}
+
+
+static const char *color_regexp = "^((\\#(\\h{8}))|(((\\#(\\h{6}))|([krgybmcwtKRGYBMCWT]))(\\.\\d+)?))$";
+// match[]                          12   3         456   7         8                      9
+
+/* Tango colors */
+#define P1788_FIGURE_COLOR_k 0x00000000
+#define P1788_FIGURE_COLOR_r 0xCC000000
+#define P1788_FIGURE_COLOR_g 0x4E9A0600
+#define P1788_FIGURE_COLOR_y 0xC4A00000
+#define P1788_FIGURE_COLOR_b 0x3465A400
+#define P1788_FIGURE_COLOR_m 0x75507B00
+#define P1788_FIGURE_COLOR_c 0x06989A00
+#define P1788_FIGURE_COLOR_w 0xD3D7CF00
+#define P1788_FIGURE_COLOR_K 0x55575300
+#define P1788_FIGURE_COLOR_R 0xEF292900
+#define P1788_FIGURE_COLOR_G 0x8AE23400
+#define P1788_FIGURE_COLOR_Y 0xFCE94F00
+#define P1788_FIGURE_COLOR_B 0x739FCF00
+#define P1788_FIGURE_COLOR_M 0xAD7FA800
+#define P1788_FIGURE_COLOR_C 0x34E2E200
+#define P1788_FIGURE_COLOR_W 0xFFFFFF00
+
+
+static unsigned int p1788_figure_parse_color(VALUE c)
+{
+	if (RB_TYPE_P(c, T_FIXNUM) | RB_TYPE_P(c, T_BIGNUM))
+		return NUM2UINT(c);
+	if (!RB_TYPE_P(c, T_STRING))
+		rb_raise(rb_eTypeError, "expecting a string or an integer, not a %" PRIsVALUE,
+				rb_class_name(rb_class_of(c)));
+	unsigned int col = 0;
+	VALUE cr = rb_str_new_static(color_regexp, 62);
+	VALUE regexp = rb_class_new_instance(1, &cr, rb_cRegexp);
+	VALUE match = rb_funcallv(c, id_match, 1, &regexp);
+	if (NIL_P(match))
+		rb_raise(rb_eRuntimeError, "cannot parse \"%" PRIsVALUE "\" as a color", c);
+	VALUE m; 
+
+	/* Full hexa */
+	m = rb_funcall(match, id_brackets, 1, INT2NUM(3));
+	if (m != Qnil)
+		col = NUM2UINT(rb_funcall(m, id_to_i, 1, INT2NUM(16)));
+	else {
+		/* Alpha */
+		m = rb_funcall(match, id_brackets, 1, INT2NUM(9));
+		if (m != Qnil)
+			col |= std::min(255, std::max(0, (int)round(255.0*NUM2DBL(rb_funcall(m, id_to_f, 0)))));
+		else
+			col |= 0x000000ff;
+		/* Color hexa */
+		m = rb_funcall(match, id_brackets, 1, INT2NUM(7));
+		if (m != Qnil)
+			col |= NUM2UINT(rb_funcall(m, id_to_i, 1, INT2NUM(16))) << 8;
+		/* Color leter */
+		m = rb_funcall(match, id_brackets, 1, INT2NUM(8));
+		if (m != Qnil) {
+			switch (*StringValuePtr(m)) {
+				case 'k': col |= P1788_FIGURE_COLOR_k; break;
+				case 'r': col |= P1788_FIGURE_COLOR_r; break;
+				case 'g': col |= P1788_FIGURE_COLOR_g; break;
+				case 'y': col |= P1788_FIGURE_COLOR_y; break;
+				case 'b': col |= P1788_FIGURE_COLOR_b; break;
+				case 'm': col |= P1788_FIGURE_COLOR_m; break;
+				case 'c': col |= P1788_FIGURE_COLOR_c; break;
+				case 'w': col |= P1788_FIGURE_COLOR_w; break;
+				case 'K': col |= P1788_FIGURE_COLOR_K; break;
+				case 'R': col |= P1788_FIGURE_COLOR_R; break;
+				case 'G': col |= P1788_FIGURE_COLOR_G; break;
+				case 'Y': col |= P1788_FIGURE_COLOR_Y; break;
+				case 'B': col |= P1788_FIGURE_COLOR_B; break;
+				case 'M': col |= P1788_FIGURE_COLOR_M; break;
+				case 'C': col |= P1788_FIGURE_COLOR_C; break;
+				case 'W': col |= P1788_FIGURE_COLOR_W; break;
+				default:
+						  col &= 0xffffff00;
+			}
+		}
+	}
+	return col;
+}
+
+
+static inline VALUE p1788_cppstring_to_rbstring_utf8(const std::string& cppstring) {
+	return rb_str_freeze(rb_utf8_str_new(cppstring.c_str(), cppstring.size()));
+}
+
+
+static std::string p1788_rbstring_to_cppstring(VALUE rbstring) {
+	if (!RB_TYPE_P(rbstring, T_STRING))
+		rb_raise(rb_eTypeError, "expecting a string, not a %" PRIsVALUE, rb_class_name(rb_class_of(rbstring)));
+	return std::string(StringValuePtr(rbstring), RSTRING_LEN(rbstring));
+}
+
+
+/* Return the number of bytes allocated for the figure.
+ * @!visibility private
+ * @return [Integer]
+ */
+static VALUE p1788_figure_allocated_size(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	return SIZET2NUM(p1788_figure_size(&f));
+}
+
+
+/* The title to be drawn on top of the figure.
+ * Set the title to _nil_ to remove the title.
+ * @return [String, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :title; end; end
+ */
+static VALUE p1788_figure_get_title(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	const std::string& t = f.title();
+	if (t.empty())
+		return Qnil;
+	return p1788_cppstring_to_rbstring_utf8(t);
+}
+
+
+static VALUE p1788_figure_set_title(VALUE self, VALUE str)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(str))
+		f.set_title("");
+	else
+		f.set_title(p1788_rbstring_to_cppstring(rb_funcallv(str, id_to_s, 0, NULL)));
+	return self;
+}
+
+
+/* The label to be drawn below the horizontal axis.
+ * Set the label to _nil_ to remove it.
+ * @return [String, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :xlabel; end; end
+ */
+static VALUE p1788_figure_get_xlabel(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	const std::string& t = f.xlabel();
+	if (t.empty())
+		return Qnil;
+	return p1788_cppstring_to_rbstring_utf8(t);
+}
+
+
+static VALUE p1788_figure_set_xlabel(VALUE self, VALUE str)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(str))
+		f.set_xlabel("");
+	else
+		f.set_xlabel(p1788_rbstring_to_cppstring(rb_funcallv(str, id_to_s, 0, NULL)));
+	return self;
+}
+
+
+/* The label to be drawn on the left of the vertical axis.
+ * Set the label to _nil_ to remove it.
+ * @return [String, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :ylabel; end; end
+ */
+static VALUE p1788_figure_get_ylabel(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	const std::string& t = f.ylabel();
+	if (t.empty())
+		return Qnil;
+	return p1788_cppstring_to_rbstring_utf8(t);
+}
+
+
+static VALUE p1788_figure_set_ylabel(VALUE self, VALUE str)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(str))
+		f.set_ylabel("");
+	else
+		f.set_ylabel(p1788_rbstring_to_cppstring(rb_funcallv(str, id_to_s, 0, NULL)));
+	return self;
+}
+
+
+/* The font used to display the title, labels and graduations.
+ * Set the font to _nil_ to reset it to its default ("Sans").
+ * @return [String, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :decoration_font; end; end
+ */
+static VALUE p1788_figure_get_decoration_font(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	const std::string& t = f.graduation_font();
+	if (t.empty())
+		return Qnil;
+	return p1788_cppstring_to_rbstring_utf8(t);
+}
+
+
+static VALUE p1788_figure_set_decoration_font(VALUE self, VALUE str)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(str))
+		f.set_graduation_font("");
+	else
+		f.set_graduation_font(p1788_rbstring_to_cppstring(rb_funcallv(str, id_to_s, 0, NULL)));
+	return self;
+}
+
+
+/* Size of the font used to display the title, labels and graduations.
+ * @return [Float]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :decoration_font_size; end; end
+ */
+static VALUE p1788_figure_get_decoration_font_size(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	return DBL2NUM(f.graduation_font_size());
+}
+
+
+static VALUE p1788_figure_set_decoration_font_size(VALUE self, VALUE s)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(s))
+		f.set_graduation_font_size(0.0);
+	else
+		f.set_graduation_font_size((float)NUM2DBL(rb_funcallv(s, id_to_f, 0, NULL)));
+	return self;
+}
+
+
+/* Size of the font used to display the title.
+ *
+ * If set to _nil_, the title will automatically be drawn at 1.23 times the decoration font size.
+ * @return [Float, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :title_font_size; end; end
+ */
+static VALUE p1788_figure_get_title_font_size(VALUE self)
+{
+	double s = p1788_figure_rb2ref(self).title_font_size_as_set();
+	if (s <= 0.0)
+		return Qnil;
+	return DBL2NUM(s);
+}
+
+
+static VALUE p1788_figure_set_title_font_size(VALUE self, VALUE s)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(s))
+		f.set_title_font_size(0.0);
+	else
+		f.set_title_font_size((float)NUM2DBL(rb_funcallv(s, id_to_f, 0, NULL)));
+	return self;
+}
+
+
+/* Size of the font used to display the labels.
+ *
+ * If set to _nil_, the labels will automatically be drawn at 1.1 times the decoration font size.
+ * @return [Float, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :label_font_size; end; end
+ */
+static VALUE p1788_figure_get_label_font_size(VALUE self)
+{
+	double s = p1788_figure_rb2ref(self).label_font_size_as_set();
+	if (s <= 0.0)
+		return Qnil;
+	return DBL2NUM(s);
+}
+
+
+static VALUE p1788_figure_set_label_font_size(VALUE self, VALUE s)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(s))
+		f.set_label_font_size(0.0);
+	else
+		f.set_label_font_size((float)NUM2DBL(rb_funcallv(s, id_to_f, 0, NULL)));
+	return self;
+}
+
+
+/* Line width for drawing the frame around the figure.
+ * @return [Float]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :decoration_line_width; end; end
+ */
+static VALUE p1788_figure_get_decoration_line_width(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	return DBL2NUM(f.graduation_stroke_width());
+}
+
+
+static VALUE p1788_figure_set_decoration_line_width(VALUE self, VALUE w)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	f.set_graduation_stroke_width((float)NUM2DBL(rb_funcallv(w, id_to_f, 0, NULL)));
+	return self;
+}
+
+
+/* Color of the decoration (frame, graduations, title and axis labels).
+ *
+ * The color is encoded into a 32-bit integer that can be split in hexadecimal as: 0xRRGGBBAA,
+ * for the red, green, blue and alpha channels.
+ *
+ * This attribute can also be set to a string, like `"#cc000080"`, `"#cc0000.5"`,`"r.5"` or `"W"`.
+ * @return [Integer]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :decoration_color; end; end
+ */
+static VALUE p1788_figure_get_decoration_color(VALUE self)
+{
+	return UINT2NUM(p1788_figure_rb2ref(self).graduation_color());
+}
+
+static VALUE p1788_figure_set_decoration_color(VALUE self, VALUE c)
+{
+	unsigned int n = p1788_figure_parse_color(c);
+	p1788_figure_rb2ref(self).set_graduation_color(n);
+	return self;
+}
+
+
+/* Background color of the figure.
+ *
+ * The color is encoded into a 32-bit integer that can be split in hexadecimal as: 0xRRGGBBAA,
+ * for the red, green, blue and alpha channels.
+ *
+ * This attribute can also be set to a string, like `"#cc000080"`, `"#cc0000.5"`,`"r.5"` or `"W"`.
+ * @return [Integer]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :background_color; end; end
+ */
+static VALUE p1788_figure_get_background_color(VALUE self)
+{
+	return UINT2NUM(p1788_figure_rb2ref(self).background_color());
+}
+
+static VALUE p1788_figure_set_background_color(VALUE self, VALUE c)
+{
+	unsigned int n = p1788_figure_parse_color(c);
+	p1788_figure_rb2ref(self).set_background_color(n);
+	return self;
+}
+
+
+/* The width of the output image, in pixels.
+ * Set the width to _nil_ or 0 to get automatic sizing.
+ * @return [Integer, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :width; end; end
+ */
+static VALUE p1788_figure_get_width(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	int i = f.width();
+	if (i < 1)
+		return Qnil;
+	return INT2NUM(i);
+}
+
+static VALUE p1788_figure_set_width(VALUE self, VALUE w)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(w)) {
+		f.set_width(0);
+		return self;
+	}
+	int i = NUM2INT(rb_funcallv(w, id_to_i, 0, NULL));
+	if (i <= 0)
+		f.set_width(0);
+	else
+		f.set_width(i);
+	return self;
+}
+
+
+/* The height of the output image, in pixels.
+ * Set the height to _nil_ or 0 to get automatic sizing.
+ * @return [Integer, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :height; end; end
+ */
+static VALUE p1788_figure_get_height(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	int i = f.height();
+	if (i < 1)
+		return Qnil;
+	return INT2NUM(i);
+}
+
+static VALUE p1788_figure_set_height(VALUE self, VALUE h)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(h)) {
+		f.set_height(0);
+		return self;
+	}
+	int i = NUM2INT(rb_funcallv(h, id_to_i, 0, NULL));
+	if (i <= 0)
+		f.set_height(0);
+	else
+		f.set_height(i);
+	return self;
+}
+
+
+/* The horizontal range that will be displayed.
+ * Set _xrange_ to _nil_ or an empty interval to get automatic range adjustment.
+ * @return [Interval, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :xrange; end; end
+ */
+static VALUE p1788_figure_get_xrange(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	const Interval& r = f.xlim();
+	if (!Interval::is_common_interval(r))
+		return Qnil;
+	VALUE res;
+	P1788_NEW_RB_INTERVAL(res, r);
+	return res;
+}
+
+static VALUE p1788_figure_set_xrange(VALUE self, VALUE rng)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(rng))
+		f.set_xlimit(Interval());
+	else
+		f.set_xlimit(p1788_rbobj2interval(rng));
+	return self;
+}
+
+
+/* The vertical range that will be displayed.
+ * Set _yrange_ to _nil_ or an empty interval to get automatic range adjustment.
+ * @return [Interval, nil]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :yrange; end; end
+ */
+static VALUE p1788_figure_get_yrange(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	const Interval& r = f.ylim();
+	if (!Interval::is_common_interval(r))
+		return Qnil;
+	VALUE res;
+	P1788_NEW_RB_INTERVAL(res, r);
+	return res;
+}
+
+static VALUE p1788_figure_set_yrange(VALUE self, VALUE rng)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(rng))
+		f.set_ylimit(Interval());
+	else
+		f.set_ylimit(p1788_rbobj2interval(rng));
+	return self;
+}
+
+
+/* Set the horizontal and vertical range that will be displayed.
+ *
+ * This is the same as calling both {xrange=} and {yrange=}.
+ * Set to _nil_ to reset ranges and get automatic display range according to the content.
+ * @param box [IntervalVector, nil] an interval vector with at least two elements, or nil
+ * @return [self]
+ */
+static VALUE p1788_figure_set_range(VALUE self, VALUE box)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (NIL_P(box)) {
+		f.set_xlimit(Interval());
+		f.set_ylimit(Interval());
+		return self;
+	}
+	if (!is_an_interval_vector(box))
+		rb_raise(rb_eTypeError, "expecting a %" PRIsVALUE ", not a %" PRIsVALUE,
+				rb_class_name(c_IntervalVector), rb_class_name(rb_class_of(box)));
+	const IntervalVector& r = p1788_vector_rb2ref(box);
+	if (r.size() < 2)
+		rb_raise(rb_eRuntimeError, "the interval vector must have at least two elements (for the x an y axis)");
+	f.set_xlimit(r[0]);
+	f.set_ylimit(r[1]);
+	return self;
+}
+
+
+/* Draw decorations around the figure?.
+ *
+ * If set to _false_, no frame, ticks, title nor labels will be drawn around the figure,
+ * even if they are set. The output image size will be _width_ x _height_.
+ *
+ * If set to _true_, a frame and graduations will be drawn around the figure.
+ * If they are set, title and labels will also be drawn.
+ * The output image size will be larger than _width_ x _height_.
+ * @return [Boolean]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :with_decorations; end; end
+ */
+static VALUE p1788_figure_get_with_decorations(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	return f.print_graduations() ? Qtrue : Qfalse;
+}
+
+
+static VALUE p1788_figure_set_with_decorations(VALUE self, VALUE b)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	f.set_print_graduations((NIL_P(b) || b == Qfalse) ? false : true);
+	return self;
+}
+
+
+/* Draw the title in a bold font?
+ *
+ * If {with_decorations} is set to _true_ and
+ * {title} is not _nil_ nor empty, 
+ * the title will be drawn in bold or normal weight according
+ * to this attribute.
+ * @return [Boolean]
+ * @!parse [ruby] module P1788; class Figure; attr_accessor :title_in_bold; end; end
+ */
+static VALUE p1788_figure_get_title_in_bold(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	return f.title_bold() ? Qtrue : Qfalse;
+}
+
+
+static VALUE p1788_figure_set_title_in_bold(VALUE self, VALUE b)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	f.set_title_bold((NIL_P(b) || b == Qfalse) ? false : true);
+	return self;
+}
+
+
+/* Returns the union of all the boxes that have ben sent to the figure for drwawing.
+ * @return [IntervalVector] a two interval vector, for _x_ and _y_.
+ */
+static VALUE p1788_figure_content_range(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	P1788Figure::Box b;
+	f.find_unbounded_limits(b);
+
+	IntervalVector *v = new IntervalVector(2);
+	(*v)[0] = b.x;
+	(*v)[1] = b.y;
+	return p1788_vector_alloc_from_pointer(v);
+}
+
+
+/* Returns a range that would be nice to display, according to the content of the figure.
+ * @return [IntervalVector] a two interval vector, for _x_ and _y_.
+ */
+static VALUE p1788_figure_nice_range(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	P1788Figure::Box b, c;
+	f.find_limits(c, b);
+
+	IntervalVector *v = new IntervalVector(2);
+	(*v)[0] = b.x;
+	(*v)[1] = b.y;
+	return p1788_vector_alloc_from_pointer(v);
+}
+
+
+#ifdef CAIRO_HAS_PNG_FUNCTIONS
+/* Generate the figure and write the output image in PNG format to file _file_name_.
+ * @param file_name [String] name of the file to write the image to.
+ * @return [self]
+ */
+static VALUE p1788_figure_write_png(VALUE self, VALUE file_name)
+{
+	file_name = rb_funcallv(file_name, id_to_s, 0, NULL);
+	if (RSTRING_LEN(file_name) < 1)
+		rb_raise(rb_eRuntimeError, "file name is empty");
+	file_name = rb_funcallv(rb_cFile, rb_intern("absolute_path"), 1, &file_name);
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	std::string cppfname = p1788_rbstring_to_cppstring(file_name);
+	try {
+		f.write_png(cppfname);
+	} catch (const std::exception &e) {
+		rb_raise(rb_eRuntimeError, "%s", e.what());
+	}
+	return self;
+}
+
+/* Generate the figure and return its content as a string in the PNG format.
+ * @return [String]
+ */
+static VALUE p1788_figure_to_png(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	std::string s; 
+	try {
+		s = std::move(f.to_png());
+	} catch (const std::exception &e) {
+		rb_raise(rb_eRuntimeError, "%s", e.what());
+	}
+	return rb_usascii_str_new(s.c_str(), s.size());
+}
+#endif
+
+
+#ifdef CAIRO_HAS_SVG_SURFACE
+/* Generate the figure and write the output image in SVG format to file _file_name_.
+ * @param file_name [String] name of the file to write the image to.
+ * @return [self]
+ */
+static VALUE p1788_figure_write_svg(VALUE self, VALUE file_name)
+{
+	file_name = rb_funcallv(file_name, id_to_s, 0, NULL);
+	if (RSTRING_LEN(file_name) < 1)
+		rb_raise(rb_eRuntimeError, "file name is empty");
+	file_name = rb_funcallv(rb_cFile, rb_intern("absolute_path"), 1, &file_name);
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	std::string cppfname = p1788_rbstring_to_cppstring(file_name);
+	try {
+		f.write_svg(cppfname);
+	} catch (const std::exception &e) {
+		rb_raise(rb_eRuntimeError, "%s", e.what());
+	}
+	return self;
+}
+
+/* Generate the figure and return its content as a string in the SVG format.
+ * @return [String]
+ */
+static VALUE p1788_figure_to_svg(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	std::string s; 
+	try {
+		s = std::move(f.to_svg());
+	} catch (const std::exception &e) {
+		rb_raise(rb_eRuntimeError, "%s", e.what());
+	}
+	return rb_usascii_str_new(s.c_str(), s.size());
+}
+#endif
+
+
+#ifdef CAIRO_HAS_PDF_SURFACE
+/* Generate the figure and write the output image in PDF format to file _file_name_.
+ * @param file_name [String] name of the file to write the image to.
+ * @return [self]
+ */
+static VALUE p1788_figure_write_pdf(VALUE self, VALUE file_name)
+{
+	file_name = rb_funcallv(file_name, id_to_s, 0, NULL);
+	if (RSTRING_LEN(file_name) < 1)
+		rb_raise(rb_eRuntimeError, "file name is empty");
+	file_name = rb_funcallv(rb_cFile, rb_intern("absolute_path"), 1, &file_name);
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	std::string cppfname = p1788_rbstring_to_cppstring(file_name);
+	try {
+		f.write_pdf(cppfname);
+	} catch (const std::exception &e) {
+		rb_raise(rb_eRuntimeError, "%s", e.what());
+	}
+	return self;
+}
+
+/* Generate the figure and return its content as a string in the PDF format.
+ * @return [String]
+ */
+static VALUE p1788_figure_to_pdf(VALUE self)
+{
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	std::string s; 
+	try {
+		s = std::move(f.to_pdf());
+	} catch (const std::exception &e) {
+		rb_raise(rb_eRuntimeError, "%s", e.what());
+	}
+	return rb_usascii_str_new(s.c_str(), s.size());
+}
+#endif
+
+
+/* Tell the figure to draw new objects (boxes) with a border.
+ * @see stroke_off
+ * @see stroke_width=
+ * @see stroke_color=
+ * @see stroke?
+ * @return [self]
+ */
+static VALUE p1788_figure_stroke_on(VALUE self)
+{
+	p1788_figure_rb2ref(self).cmd_stroke(true);
+	return self;
+}
+
+
+/* Tell the figure to draw new objects (boxes) without border.
+ * @see stroke_on
+ * @see stroke?
+ * @return [self]
+ */
+static VALUE p1788_figure_stroke_off(VALUE self)
+{
+	p1788_figure_rb2ref(self).cmd_stroke(false);
+	return self;
+}
+
+
+/* Returns _true_ if new objects (boxes) will be drawned with a border.
+ * @see stroke_on
+ * @see stroke_off
+ * @return [Boolean]
+ */
+static VALUE p1788_figure_get_stroke_onoff(VALUE self)
+{
+	return p1788_figure_rb2ref(self).do_stroke() ? Qtrue : Qfalse;
+}
+
+
+/* Tell the figure to fill new objects (boxes) with the fill color.
+ * @see fill_off
+ * @see fill_color=
+ * @see fill?
+ * @return [self]
+ */
+static VALUE p1788_figure_fill_on(VALUE self)
+{
+	p1788_figure_rb2ref(self).cmd_fill(true);
+	return self;
+}
+
+
+/* Tell the figure not to fill new objects (boxes).
+ * @see fill_on
+ * @see fill?
+ * @return [self]
+ */
+static VALUE p1788_figure_fill_off(VALUE self)
+{
+	p1788_figure_rb2ref(self).cmd_fill(false);
+	return self;
+}
+
+
+/* Returns _true_ if new objects (boxes) will be filled.
+ * @see fill_on
+ * @see fill_off
+ * @return [Boolean]
+ */
+static VALUE p1788_figure_get_fill_onoff(VALUE self)
+{
+	return p1788_figure_rb2ref(self).do_fill() ? Qtrue : Qfalse;
+}
+
+
+/* Set the line width of the new objects (boxes) that will be drawned.
+ * @see stroke_on
+ * @see stroke_color=
+ * @return [self]
+ */
+static VALUE p1788_figure_set_stroke_width(VALUE self, VALUE w)
+{
+	p1788_figure_rb2ref(self).cmd_stroke_width(NUM2DBL(w));
+	return self;
+}
+
+
+/* Returns the current line width used to draw the border of objects (boxes).
+ * @see stroke_width=
+ * @return [Float]
+ */
+static VALUE p1788_figure_get_stroke_width(VALUE self)
+{
+	return DBL2NUM(p1788_figure_rb2ref(self).stroke_width());
+}
+
+
+/* Set the border color of the new objects (boxes) that will be drawned.
+ *
+ * The color is encoded into a 32-bit integer that can be split in hexadecimal as: 0xRRGGBBAA,
+ * for the red, green, blue and alpha channels.
+ *
+ * The color can also be set to a string, like `"#cc000080"`, `"#cc0000.5"`,`"r.5"` or `"W"`.
+ * @param c [Integer, String]
+ * @see stroke_on
+ * @see stroke_width=
+ * @return [self]
+ */
+static VALUE p1788_figure_set_stroke_color(VALUE self, VALUE c)
+{
+	unsigned int n = p1788_figure_parse_color(c);
+	p1788_figure_rb2ref(self).cmd_stroke_color(n);
+	return self;
+}
+
+
+/* Returns the current color used to draw the border of objects (boxes).
+ * The color is encoded into a 32-bit integer that can be split in hexadecimal as: 0xRRGGBBAA,
+ * for the red, green, blue and alpha channels.
+ * @see stroke_color=
+ * @return [Integer]
+ */
+static VALUE p1788_figure_get_stroke_color(VALUE self)
+{
+	return UINT2NUM(p1788_figure_rb2ref(self).stroke_color());
+}
+
+
+/* Set the fill color of the new objects (boxes) that will be drawned.
+ *
+ * The color is encoded into a 32-bit integer that can be split in hexadecimal as: 0xRRGGBBAA,
+ * for the red, green, blue and alpha channels.
+ *
+ * The color can also be set to a string, like `"#cc000080"`, `"#cc0000.5"`,`"r.5"` or `"W"`.
+ * @param c [Integer, String]
+ * @see fill_on
+ * @return [self]
+ */
+static VALUE p1788_figure_set_fill_color(VALUE self, VALUE c)
+{
+	unsigned int n = p1788_figure_parse_color(c);
+	p1788_figure_rb2ref(self).cmd_fill_color(n);
+	return self;
+}
+
+
+/* Returns the current color used to fill objects (boxes).
+ * The color is encoded into a 32-bit integer that can be split in hexadecimal as: 0xRRGGBBAA,
+ * for the red, green, blue and alpha channels.
+ * @see fill_color=
+ * @return [Integer]
+ */
+static VALUE p1788_figure_get_fill_color(VALUE self)
+{
+	return UINT2NUM(p1788_figure_rb2ref(self).fill_color());
+}
+
+
+static const char *format_regexp = "^((_|([^\\[\\]]+))?(\\[(_|([^\\[\\]]+))?\\])?)$";
+// match[]                           12  3             4   5  6
+
+
+static void p1788_figure_parse_format(P1788Figure::Figure& f, VALUE str)
+{
+	if (!RB_TYPE_P(str, T_STRING))
+		rb_raise(rb_eTypeError, "expecting a string as format, not a %" PRIsVALUE,
+				rb_class_name(rb_class_of(str)));
+	VALUE cr = rb_str_new_static(format_regexp, 41);
+	VALUE regexp = rb_class_new_instance(1, &cr, rb_cRegexp);
+	VALUE match = rb_funcallv(str, id_match, 1, &regexp);
+	if (NIL_P(match))
+		rb_raise(rb_eRuntimeError, "cannot parse \"%" PRIsVALUE "\" as a format", str);
+	VALUE m; 
+
+	/* Stroke */
+	m = rb_funcall(match, id_brackets, 1, INT2NUM(2));
+	if (NIL_P(m)) // no stroke
+		f.cmd_stroke(false);
+	else {
+		f.cmd_stroke(true);
+		m = rb_funcall(match, id_brackets, 1, INT2NUM(3));
+		if (m != Qnil)
+			f.cmd_stroke_color(p1788_figure_parse_color(m));
+	}
+
+	/* Fill */
+	m = rb_funcall(match, id_brackets, 1, INT2NUM(5));
+	if (NIL_P(m)) // no fill
+		f.cmd_fill(false);
+	else {
+		f.cmd_fill(true);
+		m = rb_funcall(match, id_brackets, 1, INT2NUM(6));
+		if (m != Qnil)
+			f.cmd_fill_color(p1788_figure_parse_color(m));
+	}
+}
+
+
+/* Draw a single box.
+ * @return [self]
+ * @overload draw_box(box, format=nil)
+ *  @param box [IntervalVector] an interval vector with at least two elements (for the _x_ and _y_ axis)
+ *  @param format [String] an optional string in the form `"border_color[fill_color]"`
+ */
+static VALUE p1788_figure_draw_box(int argc, VALUE *argv, VALUE self)
+{
+	VALUE rbox, rformat;
+	rb_scan_args(argc, argv, "11", &rbox, &rformat);
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (rformat != Qnil)
+		p1788_figure_parse_format(f, rformat);
+	f.cmd_draw_box(p1788_vector_rb2ref(rbox));
+	return self;
+}
+
+
+/* Draw multiple boxes at once.
+ * @return [self]
+ * @overload draw_boxes(array_of_boxes, format=nil)
+ *  @param array_of_boxes [Array<IntervalVector>] an array of interval vectors each with at least two elements (for the _x_ and _y_ axis)
+ *  @param format [String] an optional string in the form `"border_color[fill_color]"`
+ */
+static VALUE p1788_figure_draw_boxes(int argc, VALUE *argv, VALUE self)
+{
+	VALUE rboxes, rformat;
+	rb_scan_args(argc, argv, "11", &rboxes, &rformat);
+	P1788Figure::Figure& f = p1788_figure_rb2ref(self);
+	if (!RB_TYPE_P(rboxes, T_ARRAY))
+		rb_raise(rb_eTypeError, "expecting an array of %" PRIsVALUE ", not a %" PRIsVALUE,
+				rb_class_name(c_IntervalVector), rb_class_name(rb_class_of(rboxes)));
+	if (rformat != Qnil)
+		p1788_figure_parse_format(f, rformat);
+	const size_t l = rb_array_len(rboxes);
+	if (l < 1) return self;
+	std::vector<P1788Figure::Box> bv;
+	bv.reserve(l);
+	for (size_t i = 0; i < l; i++) {
+		VALUE e = rb_ary_entry(rboxes, i);
+		if (!is_an_interval_vector(e))
+			rb_raise(rb_eTypeError, "expecting interval vectors in the array, not %" PRIsVALUE,
+					rb_class_name(rb_class_of(e)));
+		const IntervalVector& iv = p1788_vector_rb2ref(e);
+		if (!(iv.size() < 2 || Interval::is_empty(iv[0]) || Interval::is_empty(iv[1])))
+			bv.emplace_back(iv[0], iv[1]);
+	}
+	if (bv.size() > 0)
+		f.cmd_draw_boxes(std::move(bv));
+	return self;
+}
+
+
+/* Reset the figure to its default, clearing all boxes, labels, etc.
+ * After a reset, the figure state is the same than after `Figure.new()`.
+ * @return [self]
+ */
+static VALUE p1788_figure_reset(VALUE self)
+{
+	p1788_figure_rb2ref(self).reset();
+	return self;
+}
+
+
+static const char *extension_regexp = "\\.((png|PNG)|(svg|SVG)|(pdf|PDF))$";
+// match[]                                12         3         4
+
+
+/* Generate the figure and write the output image to file _file_name_.
+ * The output format (either _png_, _svg_ or _pdf_) is deduced from the extension of the file.
+ * @return [self]
+ * @param file_name [String] name of the file to write the image to, ending with '.png', '.svg' or '.pdf'.
+ */
+static VALUE p1788_figure_write(VALUE self, VALUE file_name)
+{
+	file_name = rb_funcallv(file_name, id_to_s, 0, NULL);
+	if (RSTRING_LEN(file_name) < 1)
+		rb_raise(rb_eRuntimeError, "file name is empty");
+	VALUE cr = rb_str_new_static(extension_regexp, 34);
+	VALUE regexp = rb_class_new_instance(1, &cr, rb_cRegexp);
+	VALUE match = rb_funcallv(file_name, id_match, 1, &regexp);
+	if (NIL_P(match))
+		rb_raise(rb_eRuntimeError, "cannot deduce format from file name \"%" PRIsVALUE "\"", file_name);
+	VALUE m; 
+	m = rb_funcall(match, id_brackets, 1, INT2NUM(2));
+	if (m != Qnil) {
+#ifdef CAIRO_HAS_PNG_FUNCTIONS
+		return p1788_figure_write_png(self, file_name);
+#else
+		rb_raise(rb_eRuntimeError, "no support for PNG, sorry");
+#endif
+	}
+	m = rb_funcall(match, id_brackets, 1, INT2NUM(3));
+	if (m != Qnil) {
+#ifdef CAIRO_HAS_SVG_SURFACE
+		return p1788_figure_write_svg(self, file_name);
+#else
+		rb_raise(rb_eRuntimeError, "no support for SVG, sorry");
+#endif
+	}
+	m = rb_funcall(match, id_brackets, 1, INT2NUM(4));
+	if (m != Qnil) {
+#ifdef CAIRO_HAS_PDF_SURFACE
+		return p1788_figure_write_pdf(self, file_name);
+#else
+		rb_raise(rb_eRuntimeError, "no support for PDF, sorry");
+#endif
+	}
+	return self;
+}
+
+
+/* Returns a new {Figure}
+ * @return [Figure]
+ * @overload new(width: nil, height: nil, xrange: nil, yrange: nil, with_decorations: true, title: nil, xlabel: nil, ylabel: nil, background_color: 't', decoration_color: 'k', decoration_font: 'Sans', decoration_font_size: 11, decoration_line_width: 1, label_font_size: nil, title_font_size: nil, title_in_bold: false)
+ *  @param width [Integer, nil] Width of the frame of the output image. See {width=}.
+ *  @param height [Integer, nil] Height of the frame of the output image. See {height=}.
+ *  @param xrange [Interval, nil] The horizontal range that will be displayed. See {xrange=}.
+ *  @param yrange [Interval, nil] The vertical range that will be displayed. See {yrange=}.
+ *  @param with_decorations [Boolean, nil] Draw frame, graduations, labels and title around the figure? See {with_decorations=}.
+ *  @param title [String, nil] The title of the figure. See {title=}.
+ *  @param xlabel [String, nil] The label for the horizontal axis. See {xlabel=}.
+ *  @param ylabel [String, nil] The label for the vertical axis. See {ylabel=}.
+ *  @param background_color [Integer, String, nil] Background color of the figure. Default is transparent. See {background_color=}.
+ *  @param decoration_color [Integer, String, nil] Color of the frame, labels and title. Defaults to black. See {decoration_color=}.
+ *  @param decoration_font [Integer, String, nil] Font for labels, title and graduations. Defaults to "Sans". See {decoration_font=}.
+ *  @param decoration_font_size [Float, nil] Font size for the graduations. Defaults to 11. See {decoration_font_size=}.
+ *  @param decoration_line_width [Float, nil] Line width of the frame of the figure. Defaults to 1. See {decoration_line_width=}.
+ *  @param label_font_size [Float, nil] Font size for the labels. Defaults to 1.1 times _decoration_font_size_. See {label_font_size=}.
+ *  @param title_font_size [Float, nil] Font size for the title. Defaults to 1.23 times  _decoration_font_size_. See {title_font_size=}.
+ *  @param title_in_bold [Boolean] Draw the title in bold or not?. Defaults to _false_. See {title_in_bold=}.
+ */
+static VALUE p1788_figure_initialize(int argc, VALUE *argv, VALUE self)
+{
+	const ID kwkeys[] = {
+		id_width,
+		id_height,
+		id_xrange,
+		id_yrange,
+		id_with_decorations,
+		id_title,
+		id_xlabel,
+		id_ylabel,
+		id_background_color,
+		id_decoration_color,
+		id_decoration_font,
+		id_decoration_font_size,
+		id_decoration_line_width,
+		id_label_font_size,
+		id_title_font_size,
+		id_title_in_bold
+	};
+	VALUE kwvalues[] = {Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef, Qundef};
+	VALUE kw;
+
+	rb_scan_args(argc, argv, ":", &kw);
+	if (NIL_P(kw))
+		return self;
+
+	rb_get_kwargs(kw, kwkeys, 0, 16, kwvalues);
+
+	if (kwvalues[0]  != Qundef) p1788_figure_set_width(self, kwvalues[0]);
+	if (kwvalues[1]  != Qundef) p1788_figure_set_height(self, kwvalues[1]);
+	if (kwvalues[2]  != Qundef) p1788_figure_set_xrange(self, kwvalues[2]);
+	if (kwvalues[3]  != Qundef) p1788_figure_set_yrange(self, kwvalues[3]);
+	if (kwvalues[4]  != Qundef) p1788_figure_set_with_decorations(self, kwvalues[4]);
+	if (kwvalues[5]  != Qundef) p1788_figure_set_title(self, kwvalues[5]);
+	if (kwvalues[6]  != Qundef) p1788_figure_set_xlabel(self, kwvalues[6]);
+	if (kwvalues[7]  != Qundef) p1788_figure_set_ylabel(self, kwvalues[7]);
+	if (kwvalues[8]  != Qundef) p1788_figure_set_background_color(self, kwvalues[8]);
+	if (kwvalues[9]  != Qundef) p1788_figure_set_decoration_color(self, kwvalues[9]);
+	if (kwvalues[10] != Qundef) p1788_figure_set_decoration_font(self, kwvalues[10]);
+	if (kwvalues[11] != Qundef) p1788_figure_set_decoration_font_size(self, kwvalues[11]);
+	if (kwvalues[12] != Qundef) p1788_figure_set_decoration_line_width(self, kwvalues[12]);
+	if (kwvalues[13] != Qundef) p1788_figure_set_label_font_size(self, kwvalues[13]);
+	if (kwvalues[14] != Qundef) p1788_figure_set_title_font_size(self, kwvalues[14]);
+	if (kwvalues[15] != Qundef) p1788_figure_set_title_in_bold(self, kwvalues[15]);
+
+	return self;
+}
+
+
+void Init_p1788_figure()
+{
+	id_width = rb_intern("width");
+	id_height = rb_intern("height");
+	id_xrange = rb_intern("xrange");
+	id_yrange = rb_intern("yrange");
+	id_with_decorations = rb_intern("with_decorations");
+	id_title = rb_intern("title");
+	id_xlabel = rb_intern("xlabel");
+	id_ylabel = rb_intern("ylabel");
+	id_background_color = rb_intern("background_color");
+	id_decoration_color = rb_intern("decoration_color");
+	id_decoration_font = rb_intern("decoration_font");
+	id_decoration_font_size = rb_intern("decoration_font_size");
+	id_decoration_line_width = rb_intern("decoration_line_width");
+	id_label_font_size = rb_intern("label_font_size");
+	id_title_font_size = rb_intern("title_font_size");
+	id_title_in_bold = rb_intern("title_in_bold");
+
+	c_Figure = rb_define_class_under(m_P1788, "Figure", rb_cObject);
+	rb_define_alloc_func(c_Figure, p1788_figure_alloc);
+	rb_undef_method(rb_class_of(c_Figure), "allocate");
+	rb_define_method(c_Figure, "initialize",             p1788_figure_initialize,               -1);
+
+	/* Attributes */
+	rb_define_method(c_Figure, "with_decorations",       p1788_figure_get_with_decorations,      0);
+	rb_define_method(c_Figure, "with_decorations=",      p1788_figure_set_with_decorations,      1);
+	rb_define_method(c_Figure, "decoration_font",        p1788_figure_get_decoration_font,       0);
+	rb_define_method(c_Figure, "decoration_font=",       p1788_figure_set_decoration_font,       1);
+	rb_define_method(c_Figure, "decoration_font_size",   p1788_figure_get_decoration_font_size,  0);
+	rb_define_method(c_Figure, "decoration_font_size=",  p1788_figure_set_decoration_font_size,  1);
+	rb_define_method(c_Figure, "title_font_size",        p1788_figure_get_title_font_size,       0);
+	rb_define_method(c_Figure, "title_font_size=",       p1788_figure_set_title_font_size,       1);
+	rb_define_method(c_Figure, "label_font_size",        p1788_figure_get_label_font_size,       0);
+	rb_define_method(c_Figure, "label_font_size=",       p1788_figure_set_label_font_size,       1);
+	rb_define_method(c_Figure, "decoration_line_width",  p1788_figure_get_decoration_line_width, 0);
+	rb_define_method(c_Figure, "decoration_line_width=", p1788_figure_set_decoration_line_width, 1);
+	rb_define_method(c_Figure, "decoration_color",       p1788_figure_get_decoration_color,      0);
+	rb_define_method(c_Figure, "decoration_color=",      p1788_figure_set_decoration_color,      1);
+	rb_define_method(c_Figure, "background_color",       p1788_figure_get_background_color,      0);
+	rb_define_method(c_Figure, "background_color=",      p1788_figure_set_background_color,      1);
+	rb_define_method(c_Figure, "title_in_bold",          p1788_figure_get_title_in_bold,         0);
+	rb_define_method(c_Figure, "title_in_bold=",         p1788_figure_set_title_in_bold,         1);
+	rb_define_method(c_Figure, "title",                  p1788_figure_get_title,                 0);
+	rb_define_method(c_Figure, "title=",                 p1788_figure_set_title,                 1);
+	rb_define_method(c_Figure, "xlabel",                 p1788_figure_get_xlabel,                0);
+	rb_define_method(c_Figure, "xlabel=",                p1788_figure_set_xlabel,                1);
+	rb_define_method(c_Figure, "ylabel",                 p1788_figure_get_ylabel,                0);
+	rb_define_method(c_Figure, "ylabel=",                p1788_figure_set_ylabel,                1);
+	rb_define_method(c_Figure, "width",                  p1788_figure_get_width,                 0);
+	rb_define_method(c_Figure, "width=",                 p1788_figure_set_width,                 1);
+	rb_define_method(c_Figure, "height",                 p1788_figure_get_height,                0);
+	rb_define_method(c_Figure, "height=",                p1788_figure_set_height,                1);
+	rb_define_method(c_Figure, "xrange",                 p1788_figure_get_xrange,                0);
+	rb_define_method(c_Figure, "xrange=",                p1788_figure_set_xrange,                1);
+	rb_define_method(c_Figure, "yrange",                 p1788_figure_get_yrange,                0);
+	rb_define_method(c_Figure, "yrange=",                p1788_figure_set_yrange,                1);
+
+	/* Statefull commands */
+	rb_define_method(c_Figure, "stroke_on",              p1788_figure_stroke_on,                 0);
+	rb_define_method(c_Figure, "stroke_off",             p1788_figure_stroke_off,                0);
+	rb_define_method(c_Figure, "stroke?",                p1788_figure_get_stroke_onoff,          0);
+	rb_define_method(c_Figure, "stroke_width=",          p1788_figure_set_stroke_width,          1);
+	rb_define_method(c_Figure, "stroke_width",           p1788_figure_get_stroke_width,          0);
+	rb_define_method(c_Figure, "stroke_color=",          p1788_figure_set_stroke_color,          1);
+	rb_define_method(c_Figure, "stroke_color",           p1788_figure_get_stroke_color,          0);
+	rb_define_method(c_Figure, "fill_on",                p1788_figure_fill_on,                   0);
+	rb_define_method(c_Figure, "fill_off",               p1788_figure_fill_off,                  0);
+	rb_define_method(c_Figure, "fill?",                  p1788_figure_get_fill_onoff,            0);
+	rb_define_method(c_Figure, "fill_color=",            p1788_figure_set_fill_color,            1);
+	rb_define_method(c_Figure, "fill_color",             p1788_figure_get_fill_color,            0);
+	rb_define_method(c_Figure, "draw_box",               p1788_figure_draw_box,                 -1);
+	rb_define_method(c_Figure, "draw_boxes",             p1788_figure_draw_boxes,               -1);
+	rb_define_method(c_Figure, "reset!",                 p1788_figure_reset,                     0);
+
+	/* Figure generation and output */
+	rb_define_method(c_Figure, "allocated_size",         p1788_figure_allocated_size,            0);
+	rb_define_method(c_Figure, "content_range",          p1788_figure_content_range,             0);
+	rb_define_method(c_Figure, "nice_range",             p1788_figure_nice_range,                0);
+	rb_define_method(c_Figure, "write",                  p1788_figure_write,                     1);
+	rb_define_method(c_Figure, "set_range",              p1788_figure_set_range,                 1);
+#ifdef CAIRO_HAS_PNG_FUNCTIONS
+	rb_define_method(c_Figure, "write_png",              p1788_figure_write_png,                 1);
+	rb_define_method(c_Figure, "to_png",                 p1788_figure_to_png,                    0);
+#endif
+#ifdef CAIRO_HAS_SVG_SURFACE
+	rb_define_method(c_Figure, "write_svg",              p1788_figure_write_svg,                 1);
+	rb_define_method(c_Figure, "to_svg",                 p1788_figure_to_svg,                    0);
+#endif
+#ifdef CAIRO_HAS_PDF_SURFACE
+	rb_define_method(c_Figure, "write_pdf",              p1788_figure_write_pdf,                 1);
+	rb_define_method(c_Figure, "to_pdf",                 p1788_figure_to_pdf,                    0);
+#endif
+}
+
+