#include <cstring>

#include <cmath>

#include <cstdio>

#include "widget-sizes.h"

#include "desktop-widget.h"

#include "ruler.h"

#include "unit-constants.h"

#include "round.h"

#define MINIMUM_INCR 5

#define MAXIMUM_SUBDIVIDE 5

#define MAXIMUM_SCALES 10

#define UNUSED_PIXELS 2 // There appear to be two pixels that are not being used at each end of the ruler

static void sp_ruler_common_draw_ticks (GtkRuler *ruler);

static void sp_hruler_class_init (SPHRulerClass *klass);

static void sp_hruler_init (SPHRuler *hruler);

static gint sp_hruler_motion_notify (GtkWidget *widget, GdkEventMotion *event);

static GtkWidgetClass *hruler_parent_class;

sp_hruler_get_type (void)

{

static GType hruler_type = 0;

if (!hruler_type)

{

static const GTypeInfo hruler_info = {

sizeof (SPHRulerClass),

NULL, NULL,

(GClassInitFunc) sp_hruler_class_init,

NULL, NULL,

sizeof (SPHRuler),

0,

(GInstanceInitFunc) sp_hruler_init,

NULL

};

hruler_type = g_type_register_static (gtk_ruler_get_type (), "SPHRuler", &hruler_info, (GTypeFlags)0);

}

return hruler_type;

}

static void

sp_hruler_class_init (SPHRulerClass *klass)

{

GtkWidgetClass *widget_class;

GtkRulerClass *ruler_class;

hruler_parent_class = (GtkWidgetClass *) g_type_class_peek_parent (klass);

widget_class = (GtkWidgetClass*) klass;

ruler_class = (GtkRulerClass*) klass;

widget_class->motion_notify_event = sp_hruler_motion_notify;

ruler_class->draw_ticks = sp_ruler_common_draw_ticks;

}

static void

sp_hruler_init (SPHRuler *hruler)

{

GtkWidget *widget;

GtkRequisition requisition;

GtkStyle *style;

widget = GTK_WIDGET (hruler);

gtk_widget_get_requisition (widget, &requisition);

style = gtk_widget_get_style (widget);

requisition.width = style->xthickness * 2 + 1;

requisition.height = style->ythickness * 2 + RULER_HEIGHT;

}

GtkWidget*

sp_hruler_new (void)

{

return GTK_WIDGET (g_object_new (sp_hruler_get_type (), NULL));

}

static gint

sp_hruler_motion_notify (GtkWidget *widget,

GdkEventMotion *event)

{

GtkRuler *ruler;

gdouble lower, upper, max_size;

GtkAllocation allocation;

g_return_val_if_fail (widget != NULL, FALSE);

g_return_val_if_fail (SP_IS_HRULER (widget), FALSE);

g_return_val_if_fail (event != NULL, FALSE);

ruler = GTK_RULER (widget);

gtk_ruler_get_range (ruler, &lower, &upper, NULL, &max_size);

gtk_widget_get_allocation (widget, &allocation);

double x = event->x; //Although event->x is double according to the docs, it only appears to return integers

double pos = lower + (upper - lower) * (x + UNUSED_PIXELS) / (allocation.width + 2*UNUSED_PIXELS);

gtk_ruler_set_range(ruler, lower, upper, pos, max_size);

return FALSE;

}

static void sp_vruler_class_init (SPVRulerClass *klass);

static void sp_vruler_init (SPVRuler *vruler);

static gint sp_vruler_motion_notify (GtkWidget *widget,

GdkEventMotion *event);

static void sp_vruler_size_request (GtkWidget *widget, GtkRequisition *requisition);

static GtkWidgetClass *vruler_parent_class;

sp_vruler_get_type (void)

{

static GType vruler_type = 0;

if (!vruler_type)

{

static const GTypeInfo vruler_info = {

sizeof (SPVRulerClass),

NULL, NULL,

(GClassInitFunc) sp_vruler_class_init,

NULL, NULL,

sizeof (SPVRuler),

0,

(GInstanceInitFunc) sp_vruler_init,

NULL

};

vruler_type = g_type_register_static (gtk_ruler_get_type (), "SPVRuler", &vruler_info, (GTypeFlags)0);

}

return vruler_type;

}

static void

sp_vruler_class_init (SPVRulerClass *klass)

{

GtkWidgetClass *widget_class;

GtkRulerClass *ruler_class;

vruler_parent_class = (GtkWidgetClass *) g_type_class_peek_parent (klass);

widget_class = (GtkWidgetClass*) klass;

ruler_class = (GtkRulerClass*) klass;

widget_class->motion_notify_event = sp_vruler_motion_notify;

widget_class->size_request = sp_vruler_size_request;

ruler_class->draw_ticks = sp_ruler_common_draw_ticks;

}

static void

sp_vruler_init (SPVRuler *vruler)

{

GtkWidget *widget;

GtkRequisition requisition;

GtkStyle *style;

widget = GTK_WIDGET (vruler);

gtk_widget_get_requisition (widget, &requisition);

style = gtk_widget_get_style (widget);

requisition.width = style->xthickness * 2 + RULER_WIDTH;

requisition.height = style->ythickness * 2 + 1;

g_object_set(G_OBJECT(vruler), "orientation", GTK_ORIENTATION_VERTICAL, NULL);

}

GtkWidget*

sp_vruler_new (void)

{

return GTK_WIDGET (g_object_new (sp_vruler_get_type (), NULL));

}

static gint

sp_vruler_motion_notify (GtkWidget *widget,

GdkEventMotion *event)

{

GtkRuler *ruler;

gdouble lower, upper, max_size;

GtkAllocation allocation;

g_return_val_if_fail (widget != NULL, FALSE);

g_return_val_if_fail (SP_IS_VRULER (widget), FALSE);

g_return_val_if_fail (event != NULL, FALSE);

ruler = GTK_RULER (widget);

gtk_ruler_get_range (ruler, &lower, &upper, NULL, &max_size);

gtk_widget_get_allocation (widget, &allocation);

double y = event->y; //Although event->y is double according to the docs, it only appears to return integers

double pos = lower + (upper - lower) * (y + UNUSED_PIXELS) / (allocation.height + 2*UNUSED_PIXELS);

gtk_ruler_set_range(ruler, lower, upper, pos, max_size);

return FALSE;

}

static void

sp_vruler_size_request (GtkWidget *widget, GtkRequisition *requisition)

{

GtkStyle *style = gtk_widget_get_style (widget);

requisition->width = style->xthickness * 2 + RULER_WIDTH;

}

static void

sp_ruler_common_draw_ticks(GtkRuler *ruler)

{

gint width = 0;

gint height = 0;

gchar unit_str[32];

gchar digit_str[2] = { '\0', '\0' };

GtkOrientation orientation;

GtkAllocation allocation;

g_return_if_fail (ruler != NULL);

if (!gtk_widget_is_drawable (GTK_WIDGET (ruler)))

return;

g_object_get(G_OBJECT(ruler), "orientation", &orientation, NULL);

GtkWidget *widget = GTK_WIDGET (ruler);

GtkStyle *style = gtk_widget_get_style (widget);

GdkGC *gc = style->fg_gc[GTK_STATE_NORMAL];

PangoContext *pango_context = gtk_widget_get_pango_context (widget);

PangoLayout *pango_layout = pango_layout_new (pango_context);

PangoFontDescription *fs = pango_font_description_new ();

pango_font_description_set_size (fs, RULER_FONT_SIZE);

pango_layout_set_font_description (pango_layout, fs);

pango_font_description_free (fs);

gint digit_height = (int) floor (RULER_FONT_SIZE * RULER_FONT_VERTICAL_SPACING / PANGO_SCALE + 0.5);

gint xthickness = style->xthickness;

gint ythickness = style->ythickness;

gtk_widget_get_allocation (widget, &allocation);

if (orientation == GTK_ORIENTATION_HORIZONTAL) {

width = allocation.width; // in pixels; is apparently 2 pixels shorter than the canvas at each end

height = allocation.height;

} else {

width = allocation.height;

height = allocation.width;

}

gtk_paint_box (style, ruler->backing_store,

GTK_STATE_NORMAL, GTK_SHADOW_NONE, NULL, widget,

orientation == GTK_ORIENTATION_HORIZONTAL ? "hruler" : "vruler",

0, 0,

allocation.width, allocation.height);

gdouble ruler_upper = 0;

gdouble ruler_lower = 0;

gdouble max_size = 0;

gtk_ruler_get_range(ruler, &ruler_lower, &ruler_upper, NULL, &max_size);

gdouble upper = ruler_upper / ruler->metric->pixels_per_unit; // upper and lower are expressed in ruler units

gdouble lower = ruler_lower / ruler->metric->pixels_per_unit;

/* "pixels_per_unit" should be "points_per_unit". This is the size of the unit

if ((upper - lower) == 0)

return;

double increment = (double) (width + 2*UNUSED_PIXELS) / (upper - lower); // screen pixels per ruler unit

/* determine the scale

gint scale = (int)(ceil(max_size / ruler->metric->pixels_per_unit));

sprintf (unit_str, "%d", scale);

gint text_dimension = strlen (unit_str) * digit_height + 1;

for (scale = 0; scale < MAXIMUM_SCALES; scale++)

if (ruler->metric->ruler_scale[scale] * fabs(increment) > 2 * text_dimension)

break;

if (scale == MAXIMUM_SCALES)

scale = MAXIMUM_SCALES - 1;

/* drawing starts here */

gint length = 0;

for (gint i = MAXIMUM_SUBDIVIDE - 1; i >= 0; i--) {

double subd_incr = ruler->metric->ruler_scale[scale] /

ruler->metric->subdivide[i];

if (subd_incr * fabs(increment) <= MINIMUM_INCR)

continue;

/* Calculate the length of the tickmarks. Make sure that

gint ideal_length = height / (i + 1) - 1;

if (ideal_length > ++length)

length = ideal_length;

gdouble start = 0;

gdouble end = 0;

if (lower < upper) {

start = floor (lower / subd_incr) * subd_incr;

end = ceil (upper / subd_incr) * subd_incr;

} else {

start = floor (upper / subd_incr) * subd_incr;

end = ceil (lower / subd_incr) * subd_incr;

}

gint tick_index = 0;

gdouble cur = start; // location (in ruler units) of the first invisible tick at the left side of the canvas

while (cur <= end) {

// due to the typical values for cur, lower and increment, pos will often end up to

// be e.g. 641.50000000000; rounding behaviour is not defined in such a case (see round.h)

// and jitter will be apparent (upon redrawing some of the lines on the ruler might jump a

// by a pixel, and jump back on the next redraw). This is suppressed by adding 1e-9 (that's only one nanopixel ;-))

gint pos = int(Inkscape::round((cur - lower) * increment + 1e-12)) - UNUSED_PIXELS;

if (orientation == GTK_ORIENTATION_HORIZONTAL) {

gdk_draw_line (ruler->backing_store, gc,

pos, height + ythickness,

pos, height - length + ythickness);

} else {

gdk_draw_line (ruler->backing_store, gc,

height + xthickness - length, pos,

height + xthickness, pos);

}

/* draw label */

double label_spacing_px = fabs((increment*(double)ruler->metric->ruler_scale[scale])/ruler->metric->subdivide[i]);

if (i == 0 &&

(label_spacing_px > 6*digit_height || tick_index%2 == 0 || cur == 0) &&

(label_spacing_px > 3*digit_height || tick_index%4 == 0 || cur == 0))

{

if (fabs((int)cur) >= 2000 && (((int) cur)/1000)*1000 == ((int) cur))

sprintf (unit_str, "%dk", ((int) cur)/1000);

else

sprintf (unit_str, "%d", (int) cur);

if (orientation == GTK_ORIENTATION_HORIZONTAL) {

pango_layout_set_text (pango_layout, unit_str, -1);

gdk_draw_layout (ruler->backing_store, gc,

pos + 2, 0, pango_layout);

} else {

for (gint j = 0; j < (int) strlen (unit_str); j++) {

digit_str[0] = unit_str[j];

pango_layout_set_text (pango_layout, digit_str, 1);

gdk_draw_layout (ruler->backing_store, gc,

xthickness + 1,

pos + digit_height * (j) + 1,

pango_layout);

}

}

}

/* Calculate cur from start rather than incrementing by subd_incr

++tick_index;

cur = start + tick_index * subd_incr;

}

}

}

static GtkRulerMetric const sp_ruler_metrics[] = {

// NOTE: the order of records in this struct must correspond to the SPMetric enum.

{const_cast<gchar*>("NONE"), const_cast<gchar*>(""), 1, { 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000 }, { 1, 5, 10, 50, 100 }},

{const_cast<gchar*>("millimeters"), const_cast<gchar*>("mm"), PX_PER_MM, { 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000 }, { 1, 5, 10, 50, 100 }},

{const_cast<gchar*>("centimeters"), const_cast<gchar*>("cm"), PX_PER_CM, { 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000 }, { 1, 5, 10, 50, 100 }},

{const_cast<gchar*>("inches"), const_cast<gchar*>("in"), PX_PER_IN, { 1, 2, 4, 8, 16, 32, 64, 128, 256, 512 }, { 1, 2, 4, 8, 16 }},

{const_cast<gchar*>("feet"), const_cast<gchar*>("ft"), PX_PER_FT, { 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000 }, { 1, 5, 10, 50, 100 }},

{const_cast<gchar*>("points"), const_cast<gchar*>("pt"), PX_PER_PT, { 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000 }, { 1, 5, 10, 50, 100 }},

{const_cast<gchar*>("picas"), const_cast<gchar*>("pc"), PX_PER_PC, { 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000 }, { 1, 5, 10, 50, 100 }},

{const_cast<gchar*>("pixels"), const_cast<gchar*>("px"), PX_PER_PX, { 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000 }, { 1, 5, 10, 50, 100 }},

{const_cast<gchar*>("meters"), const_cast<gchar*>("m"), PX_PER_M, { 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000 }, { 1, 5, 10, 50, 100 }},

};

sp_ruler_set_metric (GtkRuler *ruler,

SPMetric metric)

{

g_return_if_fail (ruler != NULL);

g_return_if_fail (GTK_IS_RULER (ruler));

g_return_if_fail((unsigned) metric < G_N_ELEMENTS(sp_ruler_metrics));

if (metric == 0)

return;

ruler->metric = const_cast<GtkRulerMetric *>(&sp_ruler_metrics[metric]);

if (gtk_widget_is_drawable (GTK_WIDGET (ruler)))

gtk_widget_queue_draw (GTK_WIDGET (ruler));

}