logdiag/liblogdiag/ld-diagram-view.c

/*
 * ld-diagram-view.c
 *
 * This file is a part of logdiag.
 * Copyright 2010 - 2021 Přemysl Eric Janouch
 *
 * See the file LICENSE for licensing information.
 *
 */

#include <math.h>
#include <string.h>
#include <gdk/gdkkeysyms.h>

#include "liblogdiag.h"
#include "config.h"


/**
 * SECTION:ld-diagram-view
 * @short_description: A widget that displays diagrams
 * @see_also: #LdDiagram
 *
 * #LdDiagramView displays and enables the user to manipulate with
 * an #LdDiagram.
 */

/* Milimetres per inch. */
#define MM_PER_INCH 25.4
/* The default screen resolution in DPI units. */
#define DEFAULT_SCREEN_RESOLUTION 96

/* The maximal, minimal and default values of zoom. */
#define ZOOM_MIN 0.01
#define ZOOM_MAX 100
#define ZOOM_DEFAULT 1
/* Multiplication factor for zooming. */
#define ZOOM_STEP 1.4

/* When drawing is requested, extend all sides of
 * the rectangle to be drawn by this number of pixels.
 */
#define QUEUE_DRAW_EXTEND 3
/* Cursor tolerance for object borders. */
#define OBJECT_BORDER_TOLERANCE 3
/* Tolerance on all sides of symbols for strokes. */
#define SYMBOL_CLIP_TOLERANCE 5

/* Size of a highlighted terminal. */
#define TERMINAL_RADIUS 5
/* Tolerance around terminal points. */
#define TERMINAL_HOVER_TOLERANCE 8

/*
 * OperationEnd:
 *
 * Called upon ending an operation.
 */
typedef void (*OperationEnd) (LdDiagramView *self);

enum
{
	OPER_0,
	OPER_MOVE_VIEW,
	OPER_ADD_OBJECT,
	OPER_CONNECT,
	OPER_SELECT,
	OPER_MOVE_SELECTION
};

typedef struct
{
	LdPoint last_pos;
}
MoveViewData;

typedef struct
{
	LdDiagramObject *object;
	gboolean visible;
}
AddObjectData;

typedef struct
{
	LdDiagramConnection *connection;
	LdPoint origin;
}
ConnectData;

typedef struct
{
	LdPoint drag_last_pos;
}
SelectData;

typedef struct
{
	LdPoint move_origin;
}
MoveSelectionData;

enum
{
	COLOR_BASE,
	COLOR_GRID,
	COLOR_OBJECT,
	COLOR_SELECTION,
	COLOR_TERMINAL,
	COLOR_COUNT
};

typedef struct
{
	gdouble r;
	gdouble g;
	gdouble b;
	gdouble a;
}
Color;

/*
 * LdDiagramViewPrivate:
 * @diagram: a diagram object assigned as a model.
 * @library: a library object assigned as a model.
 * @adjustment_h: an adjustment object for the horizontal axis, if any.
 * @adjustment_v: an adjustment object for the vertical axis, if any.
 * @x: the X coordinate of the center of view.
 * @y: the Y coordinate of the center of view.
 * @zoom: the current zoom.
 * @show_grid: whether to show the grid.
 * @dnd_symbol: currently dragged symbol.
 * @dnd_last_position: last cursor movement position.
 * @dnd_left: whether the user has stopped dragging.
 * @terminal: position of the highlighted terminal.
 * @terminal_hovered: whether a terminal is hovered.
 * @drag_start_pos: position of the mouse pointer when dragging started.
 * @drag_operation: the operation to start when dragging starts.
 * @simulation_lock: prevents endless looping of simulate_motion()
 * @operation: the current operation.
 * @operation_data: data related to the current operation.
 * @operation_end: a callback to end the operation.
 * @palette: colors used by the widget.
 */
struct _LdDiagramViewPrivate
{
	LdDiagram *diagram;
	LdLibrary *library;

	GtkAdjustment *adjustment_h;
	GtkAdjustment *adjustment_v;
	GtkScrollablePolicy adjustment_policy_h;
	GtkScrollablePolicy adjustment_policy_v;

	gdouble x;
	gdouble y;
	gdouble zoom;

	gboolean show_grid;

	LdDiagramObject *dnd_symbol;
	LdPoint dnd_last_position;
	guint dnd_left : 1;

	LdPoint terminal;
	gboolean terminal_hovered;

	LdPoint drag_start_pos;
	gint drag_operation;

	gboolean simulation_lock;

	gint operation;
	union
	{
		MoveViewData move_view;
		AddObjectData add_object;
		ConnectData connect;
		SelectData select;
		MoveSelectionData move_selection;
	}
	operation_data;
	OperationEnd operation_end;

	Color palette[COLOR_COUNT];
};

#define OPER_DATA(self, member) ((self)->priv->operation_data.member)
#define COLOR_GET(self, name) (&(self)->priv->palette[name])

/*
 * DrawData:
 * @self: our #LdDiagramView.
 * @cr: a cairo context to draw on.
 * @exposed_rect: the area that is to be redrawn.
 * @scale: computed size of one diagram unit in pixels.
 */
typedef struct
{
	LdDiagramView *self;
	cairo_t *cr;
	LdRectangle exposed_rect;
	gdouble scale;
}
DrawData;

/*
 * CheckTerminalsData:
 */
typedef struct
{
	gboolean found;
	gdouble distance;
	LdPoint point;
	LdPoint terminal;
}
CheckTerminalsData;

enum
{
	PROP_0,
	PROP_HADJUSTMENT,
	PROP_VADJUSTMENT,
	PROP_HSCROLL_POLICY,
	PROP_VSCROLL_POLICY,
	PROP_DIAGRAM,
	PROP_LIBRARY,
	PROP_X,
	PROP_Y,
	PROP_ZOOM
};

static void ld_diagram_view_scrollable_init (GtkScrollableInterface *iface);
static void ld_diagram_view_get_property (GObject *object, guint property_id,
	GValue *value, GParamSpec *pspec);
static void ld_diagram_view_set_property (GObject *object, guint property_id,
	const GValue *value, GParamSpec *pspec);
static void ld_diagram_view_dispose (GObject *gobject);
static void ld_diagram_view_finalize (GObject *gobject);

static void set_hadjustment
	(LdDiagramView *self, GtkAdjustment *hadjustment);
static void set_vadjustment
	(LdDiagramView *self, GtkAdjustment *vadjustment);
static void on_adjustment_value_changed
	(GtkAdjustment *adjustment, LdDiagramView *self);
static void on_size_allocate (GtkWidget *widget, GtkAllocation *allocation,
	gpointer user_data);
static void update_adjustments (LdDiagramView *self);
static void ld_diagram_view_real_move (LdDiagramView *self,
	gdouble dx, gdouble dy);

static void diagram_connect_signals (LdDiagramView *self);
static void diagram_disconnect_signals (LdDiagramView *self);

static gdouble ld_diagram_view_get_base_unit_in_px (GtkWidget *self);
static gdouble ld_diagram_view_get_scale_in_px (LdDiagramView *self);

/* Helper functions. */
static void color_set (Color *color,
	gdouble r, gdouble g, gdouble b, gdouble a);
static void color_apply (Color *color, cairo_t *cr);
static guint32 color_to_cairo_argb (Color *color);

static gdouble point_to_line_segment_distance
	(const LdPoint *point, const LdPoint *p1, const LdPoint *p2);

/* Generic functions. */
static gboolean object_hit_test (LdDiagramView *self,
	LdDiagramObject *object, const LdPoint *point);
static gboolean get_object_clip_area (LdDiagramView *self,
	LdDiagramObject *object, LdRectangle *rect);

static void move_object_to_point (LdDiagramView *self, LdDiagramObject *object,
	const LdPoint *point);
static LdDiagramObject *get_object_at_point (LdDiagramView *self,
	const LdPoint *point);

static void move_selection (LdDiagramView *self, gdouble dx, gdouble dy);
static gboolean is_object_selected (LdDiagramView *self,
	LdDiagramObject *object);

static void queue_draw (LdDiagramView *self, LdRectangle *rect);
static void queue_object_draw (LdDiagramView *self, LdDiagramObject *object);

/* Terminals. */
static void check_terminals (LdDiagramView *self, const LdPoint *point);
static void check_terminals_point (LdDiagramView *self, const LdPoint *point,
	CheckTerminalsData *data);
void check_connection_terminals (LdDiagramView *self,
	LdDiagramConnection *connection, CheckTerminalsData *data);
void check_symbol_terminals (LdDiagramView *self,
	LdDiagramSymbol *diagram_symbol, CheckTerminalsData *data);
static void rotate_symbol_terminal (LdPoint *terminal, gint symbol_rotation);
static void hide_terminals (LdDiagramView *self);
static void queue_terminal_draw (LdDiagramView *self, LdPoint *terminal);

/* Diagram symbol. */
static gboolean symbol_hit_test (LdDiagramView *self,
	LdDiagramSymbol *symbol, const LdPoint *point);
static gboolean get_symbol_clip_area (LdDiagramView *self,
	LdDiagramSymbol *symbol, LdRectangle *rect);

static gboolean get_symbol_area (LdDiagramView *self,
	LdDiagramSymbol *symbol, LdRectangle *rect);
static void rotate_symbol_area (LdRectangle *area, gint rotation);
static void rotate_symbol (LdDiagramView *self, LdDiagramSymbol *symbol);
static LdSymbol *resolve_symbol (LdDiagramView *self,
	LdDiagramSymbol *diagram_symbol);

/* Diagram connection. */
static gboolean connection_hit_test (LdDiagramView *self,
	LdDiagramConnection *connection, const LdPoint *point);
static gboolean get_connection_clip_area (LdDiagramView *self,
	LdDiagramConnection *connection, LdRectangle *rect);

static gboolean get_connection_area (LdDiagramView *self,
	LdDiagramConnection *connection, LdRectangle *rect);

/* Operations. */
static void ld_diagram_view_real_cancel_operation (LdDiagramView *self);

static void oper_move_view_begin (LdDiagramView *self, const LdPoint *point);
static void oper_move_view_motion (LdDiagramView *self, const LdPoint *point);
static void oper_move_view_end (LdDiagramView *self);

static void oper_add_object_end (LdDiagramView *self);

static void oper_connect_begin (LdDiagramView *self, const LdPoint *point);
static void oper_connect_end (LdDiagramView *self);
static void oper_connect_motion (LdDiagramView *self, const LdPoint *point);
static LdPointArray *create_connection_path (const LdPoint *end_point);

static void oper_select_begin (LdDiagramView *self, const LdPoint *point);
static void oper_select_end (LdDiagramView *self);
static void oper_select_get_rectangle (LdDiagramView *self, LdRectangle *rect);
static void oper_select_queue_draw (LdDiagramView *self);
static void oper_select_draw (DrawData *data);
static void oper_select_motion (LdDiagramView *self, const LdPoint *point);

static void oper_move_selection_begin (LdDiagramView *self,
	const LdPoint *point);
static void oper_move_selection_end (LdDiagramView *self);
static void oper_move_selection_motion (LdDiagramView *self,
	const LdPoint *point);

/* Events, rendering. */
static void simulate_motion (LdDiagramView *self);
static gboolean on_motion_notify (GtkWidget *widget, GdkEventMotion *event,
	gpointer user_data);
static gboolean on_leave_notify (GtkWidget *widget, GdkEventCrossing *event,
	gpointer user_data);
static gboolean on_button_press (GtkWidget *widget, GdkEventButton *event,
	gpointer user_data);
static void on_left_button_press (LdDiagramView *self, GdkEventButton *event,
	const LdPoint *point);
static void on_middle_button_press (LdDiagramView *self, GdkEventButton *event,
	const LdPoint *point);
static void on_right_button_press (LdDiagramView *self, GdkEventButton *event,
	const LdPoint *point);
static gboolean on_button_release (GtkWidget *widget, GdkEventButton *event,
	gpointer user_data);
static gboolean on_scroll (GtkWidget *widget, GdkEventScroll *event,
	gpointer user_data);

static gboolean on_drag_motion (GtkWidget *widget, GdkDragContext *drag_ctx,
	gint x, gint y, guint time, gpointer user_data);
static gboolean on_drag_drop (GtkWidget *widget, GdkDragContext *drag_ctx,
	gint x, gint y, guint time, gpointer user_data);
static void on_drag_data_received (GtkWidget *widget, GdkDragContext *drag_ctx,
	gint x, gint y, GtkSelectionData *data, guint info,
	guint time, gpointer user_data);
static void on_drag_leave (GtkWidget *widget, GdkDragContext *drag_ctx,
	guint time, gpointer user_data);

static gboolean on_draw (GtkWidget *widget, cairo_t *cr, gpointer user_data);
static void draw_grid (DrawData *data);
static void draw_diagram (DrawData *data);
static void draw_terminal (DrawData *data);
static void draw_object (LdDiagramObject *diagram_object, DrawData *data);
static void draw_symbol (LdDiagramSymbol *diagram_symbol, DrawData *data);
static void draw_connection (LdDiagramConnection *connection, DrawData *data);

/* Export. */

static void get_diagram_bounds (LdDiagramView *self, LdRectangle *rect);
static gboolean get_object_bounds (LdDiagramView *self, LdDiagramObject *object,
	LdRectangle *rect);


G_DEFINE_TYPE_WITH_CODE (LdDiagramView, ld_diagram_view, GTK_TYPE_DRAWING_AREA,
	G_IMPLEMENT_INTERFACE (GTK_TYPE_SCROLLABLE,
		ld_diagram_view_scrollable_init))

static void
ld_diagram_view_scrollable_init (GtkScrollableInterface *iface)
{
}

static void
ld_diagram_view_class_init (LdDiagramViewClass *klass)
{
	GObjectClass *object_class;
	GtkBindingSet *binding_set;
	GParamSpec *pspec;

	object_class = G_OBJECT_CLASS (klass);
	object_class->get_property = ld_diagram_view_get_property;
	object_class->set_property = ld_diagram_view_set_property;
	object_class->dispose = ld_diagram_view_dispose;
	object_class->finalize = ld_diagram_view_finalize;

	klass->cancel_operation = ld_diagram_view_real_cancel_operation;
	klass->move = ld_diagram_view_real_move;

	binding_set = gtk_binding_set_by_class (klass);
	gtk_binding_entry_add_signal (binding_set, GDK_KEY_Escape, 0,
		"cancel-operation", 0);
	gtk_binding_entry_add_signal (binding_set, GDK_KEY_Left, 0,
		"move", 2, G_TYPE_DOUBLE, (gdouble) -1, G_TYPE_DOUBLE, (gdouble) 0);
	gtk_binding_entry_add_signal (binding_set, GDK_KEY_Right, 0,
		"move", 2, G_TYPE_DOUBLE, (gdouble) 1, G_TYPE_DOUBLE, (gdouble) 0);
	gtk_binding_entry_add_signal (binding_set, GDK_KEY_Up, 0,
		"move", 2, G_TYPE_DOUBLE, (gdouble) 0, G_TYPE_DOUBLE, (gdouble) -1);
	gtk_binding_entry_add_signal (binding_set, GDK_KEY_Down, 0,
		"move", 2, G_TYPE_DOUBLE, (gdouble) 0, G_TYPE_DOUBLE, (gdouble) 1);

	g_object_class_override_property (object_class,
		PROP_HADJUSTMENT, "hadjustment");
	g_object_class_override_property (object_class,
		PROP_VADJUSTMENT, "vadjustment");

	g_object_class_override_property (object_class,
		PROP_HSCROLL_POLICY, "hscroll-policy");
	g_object_class_override_property (object_class,
		PROP_VSCROLL_POLICY, "vscroll-policy");

/**
 * LdDiagramView:diagram:
 *
 * The underlying #LdDiagram object of this view.
 */
	pspec = g_param_spec_object ("diagram", "Diagram",
		"The underlying diagram object of this view.",
		LD_TYPE_DIAGRAM, G_PARAM_READWRITE);
	g_object_class_install_property (object_class, PROP_DIAGRAM, pspec);

/**
 * LdDiagramView:library:
 *
 * The #LdLibrary from which symbols are retrieved.
 */
	pspec = g_param_spec_object ("library", "Library",
		"The library from which symbols are retrieved.",
		LD_TYPE_LIBRARY, G_PARAM_READWRITE);
	g_object_class_install_property (object_class, PROP_LIBRARY, pspec);

/**
 * LdDiagramView:x:
 *
 * The X coordinate of the center of view.
 */
	pspec = g_param_spec_double ("x", "X",
		"The X coordinate of the center of view.",
		-G_MAXDOUBLE, G_MAXDOUBLE, 0, G_PARAM_READWRITE);
	g_object_class_install_property (object_class, PROP_X, pspec);

/**
 * LdDiagramView:y:
 *
 * The Y coordinate of the center of view.
 */
	pspec = g_param_spec_double ("y", "Y",
		"The Y coordinate of the center of view.",
		-G_MAXDOUBLE, G_MAXDOUBLE, 0, G_PARAM_READWRITE);
	g_object_class_install_property (object_class, PROP_Y, pspec);

/**
 * LdDiagramView:zoom:
 *
 * The zoom of this view.
 */
	pspec = g_param_spec_double ("zoom", "Zoom",
		"The zoom of this view.",
		ZOOM_MIN, ZOOM_MAX, ZOOM_DEFAULT, G_PARAM_READWRITE);
	g_object_class_install_property (object_class, PROP_ZOOM, pspec);

/**
 * LdDiagramView::cancel-operation:
 * @self: an #LdDiagramView object.
 *
 * Cancel any current operation.
 */
	klass->cancel_operation_signal = g_signal_new
		("cancel-operation", G_TYPE_FROM_CLASS (klass),
		G_SIGNAL_RUN_LAST | G_SIGNAL_ACTION,
		G_STRUCT_OFFSET (LdDiagramViewClass, cancel_operation), NULL, NULL,
		g_cclosure_marshal_VOID__VOID,
		G_TYPE_NONE, 0);

/**
 * LdDiagramView::move:
 * @self: an #LdDiagramView object.
 * @dx: The difference by which to move on the horizontal axis.
 * @dy: The difference by which to move on the vertical axis.
 *
 * Move the selection, if any, or the document.
 */
	klass->move_signal = g_signal_new
		("move", G_TYPE_FROM_CLASS (klass),
		G_SIGNAL_RUN_LAST | G_SIGNAL_ACTION,
		G_STRUCT_OFFSET (LdDiagramViewClass, move), NULL, NULL,
		ld_marshal_VOID__DOUBLE_DOUBLE,
		G_TYPE_NONE, 2, G_TYPE_DOUBLE, G_TYPE_DOUBLE);

	g_type_class_add_private (klass, sizeof (LdDiagramViewPrivate));
}

static void
ld_diagram_view_init (LdDiagramView *self)
{
	GtkTargetEntry target = {"ld-symbol", GTK_TARGET_SAME_APP, 0};

	self->priv = G_TYPE_INSTANCE_GET_PRIVATE
		(self, LD_TYPE_DIAGRAM_VIEW, LdDiagramViewPrivate);

	self->priv->adjustment_policy_h = GTK_SCROLL_MINIMUM;
	self->priv->adjustment_policy_v = GTK_SCROLL_MINIMUM;

	self->priv->x = 0;
	self->priv->y = 0;
	self->priv->zoom = ZOOM_DEFAULT;

	self->priv->show_grid = TRUE;

	color_set (COLOR_GET (self, COLOR_BASE), 1, 1, 1, 1);
	color_set (COLOR_GET (self, COLOR_GRID), 0.5, 0.5, 0.5, 1);
	color_set (COLOR_GET (self, COLOR_OBJECT), 0, 0, 0, 1);
	color_set (COLOR_GET (self, COLOR_SELECTION), 1, 0, 0, 1);
	color_set (COLOR_GET (self, COLOR_TERMINAL), 1, 0.5, 0.5, 1);

	g_signal_connect (self, "size-allocate",
		G_CALLBACK (on_size_allocate), NULL);
	g_signal_connect (self, "draw",
		G_CALLBACK (on_draw), NULL);

	g_signal_connect (self, "motion-notify-event",
		G_CALLBACK (on_motion_notify), NULL);
	g_signal_connect (self, "leave-notify-event",
		G_CALLBACK (on_leave_notify), NULL);
	g_signal_connect (self, "button-press-event",
		G_CALLBACK (on_button_press), NULL);
	g_signal_connect (self, "button-release-event",
		G_CALLBACK (on_button_release), NULL);
	g_signal_connect (self, "scroll-event",
		G_CALLBACK (on_scroll), NULL);

	g_signal_connect (self, "drag-motion",
		G_CALLBACK (on_drag_motion), NULL);
	g_signal_connect (self, "drag-leave",
		G_CALLBACK (on_drag_leave), NULL);
	g_signal_connect (self, "drag-drop",
		G_CALLBACK (on_drag_drop), NULL);
	g_signal_connect (self, "drag-data-received",
		G_CALLBACK (on_drag_data_received), NULL);

	g_object_set (self, "can-focus", TRUE, NULL);

	gtk_widget_add_events (GTK_WIDGET (self),
		GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK
		| GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK
		| GDK_SCROLL_MASK | GDK_LEAVE_NOTIFY_MASK);

	gtk_drag_dest_set (GTK_WIDGET (self), 0, &target, 1, GDK_ACTION_COPY);
}

static void
ld_diagram_view_dispose (GObject *gobject)
{
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (gobject);

	g_object_set (self, "hadjustment", NULL, NULL);
	g_object_set (self, "vadjustment", NULL, NULL);

	/* Chain up to the parent class. */
	G_OBJECT_CLASS (ld_diagram_view_parent_class)->dispose (gobject);
}

static void
ld_diagram_view_finalize (GObject *gobject)
{
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (gobject);

	if (self->priv->diagram)
	{
		diagram_disconnect_signals (self);
		g_object_unref (self->priv->diagram);
	}
	if (self->priv->library)
		g_object_unref (self->priv->library);
	if (self->priv->dnd_symbol)
		g_object_unref (self->priv->dnd_symbol);

	/* Chain up to the parent class. */
	G_OBJECT_CLASS (ld_diagram_view_parent_class)->finalize (gobject);
}

static void
ld_diagram_view_get_property (GObject *object, guint property_id,
	GValue *value, GParamSpec *pspec)
{
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (object);
	switch (property_id)
	{
	case PROP_HADJUSTMENT:
		g_value_set_object (value, self->priv->adjustment_h);
		break;
	case PROP_VADJUSTMENT:
		g_value_set_object (value, self->priv->adjustment_v);
		break;
	case PROP_HSCROLL_POLICY:
		g_value_set_enum (value, self->priv->adjustment_policy_h);
		break;
	case PROP_VSCROLL_POLICY:
		g_value_set_enum (value, self->priv->adjustment_policy_v);
		break;
	case PROP_DIAGRAM:
		g_value_set_object (value, ld_diagram_view_get_diagram (self));
		break;
	case PROP_LIBRARY:
		g_value_set_object (value, ld_diagram_view_get_library (self));
		break;
	case PROP_X:
		g_value_set_double (value, ld_diagram_view_get_x (self));
		break;
	case PROP_Y:
		g_value_set_double (value, ld_diagram_view_get_y (self));
		break;
	case PROP_ZOOM:
		g_value_set_double (value, ld_diagram_view_get_zoom (self));
		break;
	default:
		G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
	}
}

static void
set_hadjustment (LdDiagramView *self, GtkAdjustment *hadjustment)
{
	GtkAllocation allocation;
	gdouble scale, page_size;

	/* TODO: Infinite area. */

	if (hadjustment == self->priv->adjustment_h)
		return;

	gtk_widget_get_allocation (GTK_WIDGET (self), &allocation);
	scale = ld_diagram_view_get_scale_in_px (self);

	if (self->priv->adjustment_h)
	{
		g_signal_handlers_disconnect_by_func (self->priv->adjustment_h,
			on_adjustment_value_changed, self);
		g_object_unref (self->priv->adjustment_h);
		self->priv->adjustment_h = NULL;
	}
	if (hadjustment)
	{
		g_object_ref (hadjustment);
		g_signal_connect (hadjustment, "value-changed",
			G_CALLBACK (on_adjustment_value_changed), self);

		page_size = allocation.width / scale;
		gtk_adjustment_configure (hadjustment,
			-page_size / 2, -100, 100, 0.5, 5, page_size);

		self->priv->adjustment_h = hadjustment;
	}
}

static void
set_vadjustment (LdDiagramView *self, GtkAdjustment *vadjustment)
{
	GtkAllocation allocation;
	gdouble scale, page_size;

	/* TODO: Infinite area. */

	if (vadjustment == self->priv->adjustment_v)
		return;

	gtk_widget_get_allocation (GTK_WIDGET (self), &allocation);
	scale = ld_diagram_view_get_scale_in_px (self);

	if (self->priv->adjustment_v)
	{
		g_signal_handlers_disconnect_by_func (self->priv->adjustment_v,
			on_adjustment_value_changed, self);
		g_object_unref (self->priv->adjustment_v);

		self->priv->adjustment_v = NULL;
	}
	if (vadjustment)
	{
		g_object_ref (vadjustment);
		g_signal_connect (vadjustment, "value-changed",
			G_CALLBACK (on_adjustment_value_changed), self);

		page_size = allocation.height / scale;
		gtk_adjustment_configure (vadjustment,
			-page_size / 2, -100, 100, 0.5, 5, page_size);

		self->priv->adjustment_v = vadjustment;
	}
}

static void
ld_diagram_view_set_property (GObject *object, guint property_id,
	const GValue *value, GParamSpec *pspec)
{
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (object);
	switch (property_id)
	{
	case PROP_HADJUSTMENT:
		set_hadjustment (self, g_value_get_object (value));
		break;
	case PROP_VADJUSTMENT:
		set_vadjustment (self, g_value_get_object (value));
		break;
	case PROP_HSCROLL_POLICY:
		self->priv->adjustment_policy_h = g_value_get_enum (value);
		break;
	case PROP_VSCROLL_POLICY:
		self->priv->adjustment_policy_v = g_value_get_enum (value);
		break;
	case PROP_DIAGRAM:
		ld_diagram_view_set_diagram (self,
			LD_DIAGRAM (g_value_get_object (value)));
		break;
	case PROP_LIBRARY:
		ld_diagram_view_set_library (self,
			LD_LIBRARY (g_value_get_object (value)));
		break;
	case PROP_X:
		ld_diagram_view_set_x (self, g_value_get_double (value));
		break;
	case PROP_Y:
		ld_diagram_view_set_y (self, g_value_get_double (value));
		break;
	case PROP_ZOOM:
		ld_diagram_view_set_zoom (self, g_value_get_double (value));
		break;
	default:
		G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
	}
}

static void
on_adjustment_value_changed (GtkAdjustment *adjustment, LdDiagramView *self)
{
	GtkAllocation allocation;
	gdouble scale;

	gtk_widget_get_allocation (GTK_WIDGET (self), &allocation);
	scale = ld_diagram_view_get_scale_in_px (self);

	if (adjustment == self->priv->adjustment_h)
		ld_diagram_view_set_x (self, gtk_adjustment_get_value (adjustment)
			+ allocation.width  / scale / 2);
	else if (adjustment == self->priv->adjustment_v)
		ld_diagram_view_set_y (self, gtk_adjustment_get_value (adjustment)
			+ allocation.height / scale / 2);
}

static void
on_size_allocate (GtkWidget *widget, GtkAllocation *allocation,
	gpointer user_data)
{
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (widget);

	/* FIXME: If the new allocation is bigger, we may see more than
	 *        what we're supposed to be able to see -> adjust X and Y.
	 */
	update_adjustments (self);
}

static void
update_adjustment_value (LdDiagramView *self, GtkAdjustment *adjustment,
	gdouble value, gdouble page_size)
{
	gtk_adjustment_set_page_size (adjustment, page_size);
	g_signal_handlers_block_by_func (adjustment,
		on_adjustment_value_changed, self);
	gtk_adjustment_set_value (adjustment, value - page_size / 2);
	g_signal_handlers_unblock_by_func (adjustment,
		on_adjustment_value_changed, self);
	gtk_adjustment_changed (adjustment);
}

static void
update_adjustments (LdDiagramView *self)
{
	GtkAllocation allocation;
	gdouble scale;

	gtk_widget_get_allocation (GTK_WIDGET (self), &allocation);
	scale = ld_diagram_view_get_scale_in_px (self);

	if (self->priv->adjustment_h)
		update_adjustment_value (self, self->priv->adjustment_h,
			self->priv->x, allocation.width  / scale);
	if (self->priv->adjustment_v)
		update_adjustment_value (self, self->priv->adjustment_v,
			self->priv->y, allocation.height / scale);
}

static void
ld_diagram_view_real_move (LdDiagramView *self, gdouble dx, gdouble dy)
{
	LdDiagram *diagram;

	diagram = self->priv->diagram;
	if (!diagram)
		return;

	if (ld_diagram_get_selection (diagram))
		move_selection (self, dx, dy);
	else
	{
		ld_diagram_view_set_x (self, self->priv->x + dx);
		ld_diagram_view_set_y (self, self->priv->y + dy);
	}
}


/* ===== Generic interface etc. ============================================ */

/**
 * ld_diagram_view_new:
 *
 * Create an instance.
 */
GtkWidget *
ld_diagram_view_new (void)
{
	return g_object_new (LD_TYPE_DIAGRAM_VIEW, NULL);
}

/**
 * ld_diagram_view_set_diagram:
 * @self: an #LdDiagramView object.
 * @diagram: the #LdDiagram to be assigned to the view.
 *
 * Assign an #LdDiagram object to the view.
 */
void
ld_diagram_view_set_diagram (LdDiagramView *self, LdDiagram *diagram)
{
	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));
	g_return_if_fail (LD_IS_DIAGRAM (diagram));

	if (self->priv->diagram)
	{
		diagram_disconnect_signals (self);
		g_object_unref (self->priv->diagram);
	}

	self->priv->diagram = diagram;
	diagram_connect_signals (self);
	g_object_ref (diagram);

	g_object_notify (G_OBJECT (self), "diagram");
}

/**
 * ld_diagram_view_get_diagram:
 * @self: an #LdDiagramView object.
 *
 * Get the #LdDiagram object assigned to this view.
 * The reference count on the diagram is not incremented.
 */
LdDiagram *
ld_diagram_view_get_diagram (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), NULL);
	return self->priv->diagram;
}

static void
diagram_connect_signals (LdDiagramView *self)
{
	g_return_if_fail (LD_IS_DIAGRAM (self->priv->diagram));

	g_signal_connect_swapped (self->priv->diagram, "changed",
		G_CALLBACK (gtk_widget_queue_draw), self);
	g_signal_connect_swapped (self->priv->diagram, "selection-changed",
		G_CALLBACK (gtk_widget_queue_draw), self);
}

static void
diagram_disconnect_signals (LdDiagramView *self)
{
	g_return_if_fail (LD_IS_DIAGRAM (self->priv->diagram));

	g_signal_handlers_disconnect_matched (self->priv->diagram,
		G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA, 0, 0, NULL,
		gtk_widget_queue_draw, self);
}

/**
 * ld_diagram_view_set_library:
 * @self: an #LdDiagramView object.
 * @library: the #LdLibrary to be assigned to the view.
 *
 * Assign an #LdLibrary object to the view.
 */
void
ld_diagram_view_set_library (LdDiagramView *self, LdLibrary *library)
{
	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));
	g_return_if_fail (LD_IS_LIBRARY (library));

	if (self->priv->library)
		g_object_unref (self->priv->library);

	self->priv->library = library;
	g_object_ref (library);

	g_object_notify (G_OBJECT (self), "library");
}

/**
 * ld_diagram_view_get_library:
 * @self: an #LdDiagramView object.
 *
 * Get the #LdLibrary object assigned to this view.
 * The reference count on the library is not incremented.
 */
LdLibrary *
ld_diagram_view_get_library (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), NULL);
	return self->priv->library;
}

/*
 * ld_diagram_view_get_base_unit_in_px:
 * @self: a #GtkWidget object to retrieve DPI from (indirectly).
 *
 * Return value: length of the base unit in pixels.
 */
static gdouble
ld_diagram_view_get_base_unit_in_px (GtkWidget *self)
{
	gdouble resolution;

	g_return_val_if_fail (GTK_IS_WIDGET (self), 1);

	resolution = gdk_screen_get_resolution (gtk_widget_get_screen (self));
	if (resolution == -1)
		resolution = DEFAULT_SCREEN_RESOLUTION;

	/* XXX: It might look better if the unit was rounded to a whole number. */
	return resolution / MM_PER_INCH * LD_DIAGRAM_VIEW_BASE_UNIT_LENGTH;
}

/*
 * ld_diagram_view_get_scale_in_px:
 * @self: an #LdDiagramView object.
 *
 * Return value: displayed length of the base unit in pixels.
 */
static gdouble
ld_diagram_view_get_scale_in_px (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), 1);

	return ld_diagram_view_get_base_unit_in_px (GTK_WIDGET (self))
		* self->priv->zoom;
}

/**
 * ld_diagram_view_widget_to_diagram_coords:
 * @self: an #LdDiagramView object.
 * @wx: the X coordinate to be translated.
 * @wy: the Y coordinate to be translated.
 * @dx: (out): the translated X coordinate.
 * @dy: (out): the translated Y coordinate.
 *
 * Translate widget coordinates into diagram coordinates.
 */
void
ld_diagram_view_widget_to_diagram_coords (LdDiagramView *self,
	gdouble wx, gdouble wy, gdouble *dx, gdouble *dy)
{
	GtkAllocation allocation;
	gdouble scale;

	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));
	g_return_if_fail (dx != NULL);
	g_return_if_fail (dy != NULL);

	gtk_widget_get_allocation (GTK_WIDGET (self), &allocation);
	scale = ld_diagram_view_get_scale_in_px (self);

	/* We know diagram coordinates of the center of view, so we may
	 * translate the given X and Y coordinates to this center and then scale
	 * them by dividing them by the current scale.
	 */
	*dx = self->priv->x + (wx - (allocation.width  * 0.5)) / scale;
	*dy = self->priv->y + (wy - (allocation.height * 0.5)) / scale;
}

/**
 * ld_diagram_view_diagram_to_widget_coords:
 * @self: an #LdDiagramView object.
 * @dx: the X coordinate to be translated.
 * @dy: the Y coordinate to be translated.
 * @wx: (out): the translated X coordinate.
 * @wy: (out): the translated Y coordinate.
 *
 * Translate diagram coordinates into widget coordinates.
 */
void
ld_diagram_view_diagram_to_widget_coords (LdDiagramView *self,
	gdouble dx, gdouble dy, gdouble *wx, gdouble *wy)
{
	GtkAllocation allocation;
	gdouble scale;

	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));
	g_return_if_fail (wx != NULL);
	g_return_if_fail (wy != NULL);

	gtk_widget_get_allocation (GTK_WIDGET (self), &allocation);
	scale = ld_diagram_view_get_scale_in_px (self);

	/* Just the reversal of ld_diagram_view_widget_to_diagram_coords(). */
	*wx = scale * (dx - self->priv->x) + 0.5 * allocation.width;
	*wy = scale * (dy - self->priv->y) + 0.5 * allocation.height;
}

static void
ld_diagram_view_diagram_to_widget_coords_rect (LdDiagramView *self,
	const LdRectangle *area, LdRectangle *rect)
{
	gdouble x1, x2, y1, y2;

	ld_diagram_view_diagram_to_widget_coords (self,
		area->x,
		area->y,
		&x1, &y1);
	ld_diagram_view_diagram_to_widget_coords (self,
		area->x + area->width,
		area->y + area->height,
		&x2, &y2);

	rect->x = floor (x1);
	rect->y = floor (y1);
	rect->width  = ceil (x2) - rect->x;
	rect->height = ceil (y2) - rect->y;
}

/**
 * ld_diagram_view_get_x:
 * @self: an #LdDiagramView object.
 *
 * Return value: the X coordinate of the center of view.
 */
gdouble
ld_diagram_view_get_x (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), 0);
	return self->priv->x;
}

/**
 * ld_diagram_view_set_x:
 * @self: an #LdDiagramView object.
 * @x: the X coordinate.
 *
 * Set the X coordinate of the center of view.
 */
void
ld_diagram_view_set_x (LdDiagramView *self, gdouble x)
{
	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));

	if (self->priv->x == x)
		return;

	/* TODO: Check boundaries. */
	self->priv->x = x;

	simulate_motion (self);
	update_adjustments (self);
	gtk_widget_queue_draw (GTK_WIDGET (self));

	g_object_notify (G_OBJECT (self), "x");
}

/**
 * ld_diagram_view_get_x:
 * @self: an #LdDiagramView object.
 *
 * Return value: the X coordinate of the center of view.
 */
gdouble
ld_diagram_view_get_y (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), 0);
	return self->priv->y;
}

/**
 * ld_diagram_view_set_y:
 * @self: an #LdDiagramView object.
 * @y: the Y coordinate.
 *
 * Set the Y coordinate of the center of view.
 */
void
ld_diagram_view_set_y (LdDiagramView *self, gdouble y)
{
	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));

	if (self->priv->y == y)
		return;

	/* TODO: Check boundaries. */
	self->priv->y = y;

	simulate_motion (self);
	update_adjustments (self);
	gtk_widget_queue_draw (GTK_WIDGET (self));

	g_object_notify (G_OBJECT (self), "y");
}

/**
 * ld_diagram_view_get_zoom:
 * @self: an #LdDiagramView object.
 *
 * Return value: zoom of the view.
 */
gdouble
ld_diagram_view_get_zoom (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), -1);
	return self->priv->zoom;
}

/**
 * ld_diagram_view_set_zoom:
 * @self: an #LdDiagramView object.
 * @zoom: the zoom.
 *
 * Set zoom of the view.
 */
void
ld_diagram_view_set_zoom (LdDiagramView *self, gdouble zoom)
{
	gdouble clamped_zoom;

	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));

	clamped_zoom = CLAMP (zoom, ZOOM_MIN, ZOOM_MAX);
	if (self->priv->zoom == clamped_zoom)
		return;

	self->priv->zoom = clamped_zoom;

	simulate_motion (self);
	update_adjustments (self);
	gtk_widget_queue_draw (GTK_WIDGET (self));

	g_object_notify (G_OBJECT (self), "zoom");
}

/**
 * ld_diagram_view_can_zoom_in:
 * @self: an #LdDiagramView object.
 *
 * Return value: %TRUE if the view can be zoomed in.
 */
gboolean
ld_diagram_view_can_zoom_in (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), FALSE);
	return self->priv->zoom < ZOOM_MAX;
}

/**
 * ld_diagram_view_can_zoom_out:
 * @self: an #LdDiagramView object.
 *
 * Return value: %TRUE if the view can be zoomed out.
 */
gboolean
ld_diagram_view_can_zoom_out (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), FALSE);
	return self->priv->zoom > ZOOM_MIN;
}

/**
 * ld_diagram_view_zoom_in:
 * @self: an #LdDiagramView object.
 *
 * Zoom the view in.
 */
void
ld_diagram_view_zoom_in (LdDiagramView *self)
{
	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));
	ld_diagram_view_set_zoom (self, self->priv->zoom * ZOOM_STEP);
}

/**
 * ld_diagram_view_zoom_out:
 * @self: an #LdDiagramView object.
 *
 * Zoom the view out.
 */
void
ld_diagram_view_zoom_out (LdDiagramView *self)
{
	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));
	ld_diagram_view_set_zoom (self, self->priv->zoom / ZOOM_STEP);
}

/**
 * ld_diagram_view_get_show_grid:
 * @self: an #LdDiagramView object.
 *
 * Return value: whether the grid is shown.
 */
gboolean
ld_diagram_view_get_show_grid (LdDiagramView *self)
{
	g_return_val_if_fail (LD_IS_DIAGRAM_VIEW (self), FALSE);
	return self->priv->show_grid;
}

/**
 * ld_diagram_view_set_show_grid:
 * @self: an #LdDiagramView object.
 * @show_grid: whether to show the grid.
 *
 * Set whether the grid is shown.
 */
void
ld_diagram_view_set_show_grid (LdDiagramView *self, gboolean show_grid)
{
	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));

	self->priv->show_grid = show_grid;
	gtk_widget_queue_draw (GTK_WIDGET (self));
}


/* ===== Helper functions ================================================== */

static void
color_set (Color *color, gdouble r, gdouble g, gdouble b, gdouble a)
{
	color->r = r;
	color->g = g;
	color->b = b;
	color->a = a;
}

static void
color_apply (Color *color, cairo_t *cr)
{
	cairo_set_source_rgba (cr, color->r, color->g, color->b, color->a);
}

static guint32
color_to_cairo_argb (Color *color)
{
	return (guint) (color->a            * 255) << 24
	     | (guint) (color->r * color->a * 255) << 16
	     | (guint) (color->g * color->a * 255) << 8
	     | (guint) (color->b * color->a * 255);
}

static gdouble
point_to_line_segment_distance
	(const LdPoint *point, const LdPoint *p1, const LdPoint *p2)
{
	gdouble dx, dy, u;

	dx = p2->x - p1->x;
	dy = p2->y - p1->y;

	if (dx == 0. && dy == 0.)
		return ld_point_distance (point, p1->x, p1->y);

	/* Find projection of the point onto the line. */
	u = ((point->x - p1->x) * dx + (point->y - p1->y) * dy)
		/ (dx * dx + dy * dy);

	/* The projection is beyond the line segment. */
	if (u < 0.)
		return ld_point_distance (point, p1->x, p1->y);
	if (u > 1.)
		return ld_point_distance (point, p2->x, p2->y);

	/* The projection is on the line segment. */
	return ld_point_distance (point, p1->x + u * dx, p1->y + u * dy);
}


/* ===== Generic functions ================================================= */

static gboolean
object_hit_test (LdDiagramView *self, LdDiagramObject *object,
	const LdPoint *point)
{
	if (LD_IS_DIAGRAM_SYMBOL (object))
		return symbol_hit_test (self,
			LD_DIAGRAM_SYMBOL (object), point);
	if (LD_IS_DIAGRAM_CONNECTION (object))
		return connection_hit_test (self,
			LD_DIAGRAM_CONNECTION (object), point);
	return FALSE;
}

static gboolean
get_object_clip_area (LdDiagramView *self,
	LdDiagramObject *object, LdRectangle *rect)
{
	if (LD_IS_DIAGRAM_SYMBOL (object))
		return get_symbol_clip_area (self,
			LD_DIAGRAM_SYMBOL (object), rect);
	if (LD_IS_DIAGRAM_CONNECTION (object))
		return get_connection_clip_area (self,
			LD_DIAGRAM_CONNECTION (object), rect);
	return FALSE;
}

static void
move_object_to_point (LdDiagramView *self, LdDiagramObject *object,
	const LdPoint *point)
{
	gdouble diagram_x, diagram_y;

	ld_diagram_view_widget_to_diagram_coords (self,
		point->x, point->y, &diagram_x, &diagram_y);
	g_object_set (object,
		"x", floor (diagram_x + 0.5),
		"y", floor (diagram_y + 0.5),
		NULL);
}

static LdDiagramObject *
get_object_at_point (LdDiagramView *self, const LdPoint *point)
{
	GList *objects, *iter;

	/* Iterate from the top object downwards. */
	objects = (GList *) ld_diagram_get_objects (self->priv->diagram);
	for (iter = g_list_last (objects); iter; iter = g_list_previous (iter))
	{
		LdDiagramObject *object;

		object = LD_DIAGRAM_OBJECT (iter->data);
		if (object_hit_test (self, object, point))
			return object;
	}
	return NULL;
}

static void
move_selection (LdDiagramView *self, gdouble dx, gdouble dy)
{
	LdDiagram *diagram;
	GList *selection, *iter;

	diagram = self->priv->diagram;
	if (!diagram)
		return;

	selection = ld_diagram_get_selection (diagram);
	if (!selection)
		return;

	ld_diagram_begin_user_action (diagram);
	for (iter = selection; iter; iter = g_list_next (iter))
	{
		gdouble x, y;

		queue_object_draw (self, iter->data);
		g_object_get (iter->data, "x", &x, "y", &y, NULL);

		x += dx;
		y += dy;

		g_object_set (iter->data, "x", x, "y", y, NULL);
		queue_object_draw (self, iter->data);
	}
	ld_diagram_end_user_action (diagram);
}

static gboolean
is_object_selected (LdDiagramView *self, LdDiagramObject *object)
{
	return g_list_find (ld_diagram_get_selection (self->priv->diagram), object)
		!= NULL;
}

static void
queue_draw (LdDiagramView *self, LdRectangle *rect)
{
	LdRectangle area;

	area = *rect;
	ld_rectangle_extend (&area, QUEUE_DRAW_EXTEND);
	gtk_widget_queue_draw_area (GTK_WIDGET (self),
		area.x, area.y, area.width, area.height);
}

static void
queue_object_draw (LdDiagramView *self, LdDiagramObject *object)
{
	LdRectangle rect;

	if (!get_object_clip_area (self, object, &rect))
		return;
	queue_draw (self, &rect);
}


/* ===== Terminals ========================================================= */

static void
check_terminals (LdDiagramView *self, const LdPoint *point)
{
	GList *objects, *iter;
	CheckTerminalsData data;
	LdDiagramObject *object_at_cursor;

	hide_terminals (self);

	object_at_cursor = get_object_at_point (self, point);
	if (object_at_cursor && is_object_selected (self, object_at_cursor))
		return;

	data.found = FALSE;
	data.point = *point;
	data.distance = TERMINAL_HOVER_TOLERANCE;

	objects = (GList *) ld_diagram_get_objects (self->priv->diagram);
	for (iter = objects; iter; iter = g_list_next (iter))
	{
		if (LD_IS_DIAGRAM_CONNECTION (iter->data))
			check_connection_terminals (self, iter->data, &data);
		else if (LD_IS_DIAGRAM_SYMBOL (iter->data))
			check_symbol_terminals (self, iter->data, &data);
	}

	if (data.found)
	{
		self->priv->terminal_hovered = TRUE;
		self->priv->terminal = data.terminal;
		queue_terminal_draw (self, &data.terminal);
	}
}

static void
check_terminals_point (LdDiagramView *self, const LdPoint *point,
	CheckTerminalsData *data)
{
	LdPoint widget_coords;
	gdouble distance;

	ld_diagram_view_diagram_to_widget_coords (self,
		point->x, point->y, &widget_coords.x, &widget_coords.y);
	distance = ld_point_distance (&widget_coords,
		data->point.x, data->point.y);
	if (distance <= data->distance)
	{
		data->distance = distance;
		data->terminal = *point;
		data->found = TRUE;
	}
}

void
check_connection_terminals (LdDiagramView *self,
	LdDiagramConnection *connection, CheckTerminalsData *data)
{
	LdPointArray *points;
	gdouble object_x, object_y;
	guint last;

	g_object_get (connection, "x", &object_x, "y", &object_y, NULL);

	points = ld_diagram_connection_get_points (connection);
	if (points->length < 2)
	{
		ld_point_array_free (points);
		return;
	}

	points->points[0].x += object_x;
	points->points[0].y += object_y;
	check_terminals_point (self, &points->points[0], data);

	last = points->length - 1;
	points->points[last].x += object_x;
	points->points[last].y += object_y;
	check_terminals_point (self, &points->points[last], data);

	ld_point_array_free (points);
}

void
check_symbol_terminals (LdDiagramView *self,
	LdDiagramSymbol *diagram_symbol, CheckTerminalsData *data)
{
	gdouble object_x, object_y;
	LdSymbol *symbol;
	const LdPointArray *terminals;
	guint i;
	gint rotation;

	symbol = resolve_symbol (self, diagram_symbol);
	if (!symbol)
		return;

	g_object_get (diagram_symbol, "x", &object_x, "y", &object_y,
		"rotation", &rotation, NULL);

	terminals = ld_symbol_get_terminals (symbol);
	for (i = 0; i < terminals->length; i++)
	{
		LdPoint cur_term;

		cur_term = terminals->points[i];
		rotate_symbol_terminal (&cur_term, rotation);
		cur_term.x += object_x;
		cur_term.y += object_y;

		check_terminals_point (self, &cur_term, data);
	}
}

static void
rotate_symbol_terminal (LdPoint *terminal, gint symbol_rotation)
{
	gdouble temp;

	switch (symbol_rotation)
	{
	case LD_DIAGRAM_SYMBOL_ROTATION_90:
		temp = terminal->y;
		terminal->y = terminal->x;
		terminal->x = -temp;
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_180:
		terminal->y = -terminal->y;
		terminal->x = -terminal->x;
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_270:
		temp = terminal->x;
		terminal->x = terminal->y;
		terminal->y = -temp;
		break;
	}
}

static void
hide_terminals (LdDiagramView *self)
{
	if (self->priv->terminal_hovered)
	{
		self->priv->terminal_hovered = FALSE;
		queue_terminal_draw (self, &self->priv->terminal);
	}
}

static void
queue_terminal_draw (LdDiagramView *self, LdPoint *terminal)
{
	LdRectangle rect;
	LdPoint widget_coords;

	ld_diagram_view_diagram_to_widget_coords (self,
		terminal->x, terminal->y, &widget_coords.x, &widget_coords.y);

	rect.x = widget_coords.x - TERMINAL_RADIUS;
	rect.y = widget_coords.y - TERMINAL_RADIUS;
	rect.width  = 2 * TERMINAL_RADIUS;
	rect.height = 2 * TERMINAL_RADIUS;

	queue_draw (self, &rect);
}


/* ===== Diagram symbol ==================================================== */

static gboolean
symbol_hit_test (LdDiagramView *self, LdDiagramSymbol *symbol,
	const LdPoint *point)
{
	LdRectangle rect;

	if (!get_symbol_area (self, symbol, &rect))
		return FALSE;
	ld_rectangle_extend (&rect, OBJECT_BORDER_TOLERANCE);
	return ld_rectangle_contains_point (&rect, point);
}

static gboolean
get_symbol_clip_area (LdDiagramView *self,
	LdDiagramSymbol *symbol, LdRectangle *rect)
{
	LdRectangle object_rect;

	if (!get_symbol_area (self, symbol, &object_rect))
		return FALSE;

	*rect = object_rect;
	ld_rectangle_extend (rect, SYMBOL_CLIP_TOLERANCE);
	return TRUE;
}

static gboolean
get_symbol_area_in_diagram_units (LdDiagramView *self, LdDiagramSymbol *symbol,
	LdRectangle *rect)
{
	gdouble object_x, object_y;
	LdSymbol *library_symbol;
	LdRectangle area;
	gint rotation;

	g_object_get (symbol, "x", &object_x, "y", &object_y,
		"rotation", &rotation, NULL);

	library_symbol = resolve_symbol (self, symbol);
	if (library_symbol)
		ld_symbol_get_area (library_symbol, &area);
	else
		return FALSE;

	rotate_symbol_area (&area, rotation);

	rect->x = object_x + area.x;
	rect->y = object_y + area.y;
	rect->width  = (rect->x + area.width)  - rect->x;
	rect->height = (rect->y + area.height) - rect->y;
	return TRUE;
}

static gboolean
get_symbol_area (LdDiagramView *self, LdDiagramSymbol *symbol,
	LdRectangle *rect)
{
	LdRectangle intermediate;

	if (!get_symbol_area_in_diagram_units (self, symbol, &intermediate))
		return FALSE;

	ld_diagram_view_diagram_to_widget_coords_rect (self, &intermediate, rect);
	return TRUE;
}

static void
rotate_symbol_area (LdRectangle *area, gint rotation)
{
	gdouble temp;

	switch (rotation)
	{
	case LD_DIAGRAM_SYMBOL_ROTATION_90:
		temp = area->y;
		area->y = area->x;
		area->x = -(temp + area->height);
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_180:
		area->y = -(area->y + area->height);
		area->x = -(area->x + area->width);
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_270:
		temp = area->x;
		area->x = area->y;
		area->y = -(temp + area->width);
		break;
	}

	switch (rotation)
	{
	case LD_DIAGRAM_SYMBOL_ROTATION_90:
	case LD_DIAGRAM_SYMBOL_ROTATION_270:
		temp = area->width;
		area->width = area->height;
		area->height = temp;
		break;
	}
}

static void
rotate_symbol (LdDiagramView *self, LdDiagramSymbol *symbol)
{
	gint rotation;

	g_object_get (symbol, "rotation", &rotation, NULL);
	queue_object_draw (self, LD_DIAGRAM_OBJECT (symbol));

	switch (rotation)
	{
	case LD_DIAGRAM_SYMBOL_ROTATION_0:
		rotation = LD_DIAGRAM_SYMBOL_ROTATION_90;
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_90:
		rotation = LD_DIAGRAM_SYMBOL_ROTATION_180;
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_180:
		rotation = LD_DIAGRAM_SYMBOL_ROTATION_270;
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_270:
		rotation = LD_DIAGRAM_SYMBOL_ROTATION_0;
		break;
	}

	g_object_set (symbol, "rotation", rotation, NULL);
	queue_object_draw (self, LD_DIAGRAM_OBJECT (symbol));
}

static LdSymbol *
resolve_symbol (LdDiagramView *self, LdDiagramSymbol *diagram_symbol)
{
	LdSymbol *symbol;
	gchar *klass;

	if (!self->priv->library)
		return NULL;

	klass = ld_diagram_symbol_get_class (diagram_symbol);
	symbol = ld_library_find_symbol (self->priv->library, klass);
	g_free (klass);
	return symbol;
}


/* ===== Diagram connection ================================================ */

static gboolean
connection_hit_test (LdDiagramView *self, LdDiagramConnection *connection,
	const LdPoint *point)
{
	gdouble object_x, object_y, length;
	LdPointArray *points;
	guint i;

	g_object_get (connection, "x", &object_x, "y", &object_y, NULL);

	points = ld_diagram_connection_get_points (connection);
	if (points->length < 2)
	{
		ld_point_array_free (points);
		return FALSE;
	}

	for (i = 0; i < points->length; i++)
	{
		ld_diagram_view_diagram_to_widget_coords (self,
			points->points[i].x + object_x,
			points->points[i].y + object_y,
			&points->points[i].x,
			&points->points[i].y);

		if (!i)
			continue;

		length = point_to_line_segment_distance
			(point, &points->points[i - 1], &points->points[i]);
		if (length <= OBJECT_BORDER_TOLERANCE)
		{
			ld_point_array_free (points);
			return TRUE;
		}
	}
	ld_point_array_free (points);
	return FALSE;
}

static gboolean
get_connection_clip_area (LdDiagramView *self,
	LdDiagramConnection *connection, LdRectangle *rect)
{
	return get_connection_area (self, connection, rect);
}

static gboolean
get_connection_area_in_diagram_units (LdDiagramView *self,
	LdDiagramConnection *connection, LdRectangle *rect)
{
	gdouble x_origin, y_origin;
	gdouble x, y, x_min, x_max, y_min, y_max;
	LdPointArray *points;
	guint i;

	points = ld_diagram_connection_get_points (connection);
	if (!points->length)
	{
		ld_point_array_free (points);
		return FALSE;
	}

	g_object_get (connection, "x", &x_origin, "y", &y_origin, NULL);

	x_max = x_min = x_origin + points->points[0].x;
	y_max = y_min = y_origin + points->points[0].y;

	for (i = 1; i < points->length; i++)
	{
		x = x_origin + points->points[i].x;
		y = y_origin + points->points[i].y;

		if (x < x_min)
			x_min = x;
		else if (x > x_max)
			x_max = x;

		if (y < y_min)
			y_min = y;
		else if (y > y_max)
			y_max = y;
	}

	rect->x = x_min;
	rect->y = y_min;
	rect->width  = x_max - x_min;
	rect->height = y_max - y_min;

	ld_point_array_free (points);
	return TRUE;
}

static gboolean
get_connection_area (LdDiagramView *self,
	LdDiagramConnection *connection, LdRectangle *rect)
{
	LdRectangle intermediate;

	if (!get_connection_area_in_diagram_units (self, connection, &intermediate))
		return FALSE;

	ld_diagram_view_diagram_to_widget_coords_rect (self, &intermediate, rect);
	return TRUE;
}


/* ===== Operations ======================================================== */

static void
ld_diagram_view_real_cancel_operation (LdDiagramView *self)
{
	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));

	if (self->priv->operation)
	{
		if (self->priv->operation_end)
			self->priv->operation_end (self);
		self->priv->operation = OPER_0;
		self->priv->operation_end = NULL;
	}
}

static void
oper_move_view_begin (LdDiagramView *self, const LdPoint *point)
{
	MoveViewData *data;
	GdkCursor *move_cursor;

	g_signal_emit (self,
		LD_DIAGRAM_VIEW_GET_CLASS (self)->cancel_operation_signal, 0);

	self->priv->operation = OPER_MOVE_VIEW;
	self->priv->operation_end = oper_move_view_end;

	data = &OPER_DATA (self, move_view);
	data->last_pos = *point;

	move_cursor = gdk_cursor_new (GDK_FLEUR);
	gdk_window_set_cursor
		(gtk_widget_get_window (GTK_WIDGET (self)), move_cursor);
	g_object_unref (move_cursor);
}

static void
oper_move_view_motion (LdDiagramView *self, const LdPoint *point)
{
	MoveViewData *data;
	gdouble factor;

	data = &OPER_DATA (self, move_view);
	factor = ld_diagram_view_get_scale_in_px (self);

	ld_diagram_view_set_x (self, self->priv->x
		+ (data->last_pos.x - point->x) / factor);
	ld_diagram_view_set_y (self, self->priv->y
		+ (data->last_pos.y - point->y) / factor);

	data->last_pos = *point;
}

static void
oper_move_view_end (LdDiagramView *self)
{
	gdk_window_set_cursor (gtk_widget_get_window (GTK_WIDGET (self)), NULL);
}

/**
 * ld_diagram_view_add_object_begin:
 * @self: an #LdDiagramView object.
 * @object: (transfer full): the object to be added to the diagram.
 *
 * Begin an operation for adding an object into the diagram.
 */
void
ld_diagram_view_add_object_begin (LdDiagramView *self, LdDiagramObject *object)
{
	AddObjectData *data;

	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));
	g_return_if_fail (LD_IS_DIAGRAM_OBJECT (object));

	g_signal_emit (self,
		LD_DIAGRAM_VIEW_GET_CLASS (self)->cancel_operation_signal, 0);

	self->priv->operation = OPER_ADD_OBJECT;
	self->priv->operation_end = oper_add_object_end;

	data = &OPER_DATA (self, add_object);
	data->object = object;
}

static void
oper_add_object_end (LdDiagramView *self)
{
	AddObjectData *data;

	data = &OPER_DATA (self, add_object);
	if (data->object)
	{
		queue_object_draw (self, data->object);
		g_object_unref (data->object);
		data->object = NULL;
	}
}

static void
oper_connect_begin (LdDiagramView *self, const LdPoint *point)
{
	ConnectData *data;

	g_signal_emit (self,
		LD_DIAGRAM_VIEW_GET_CLASS (self)->cancel_operation_signal, 0);

	self->priv->operation = OPER_CONNECT;
	self->priv->operation_end = oper_connect_end;

	data = &OPER_DATA (self, connect);
	data->connection = ld_diagram_connection_new (NULL);

	data->origin = self->priv->terminal;
	g_object_set (data->connection,
		"x", data->origin.x,
		"y", data->origin.y,
		NULL);

	self->priv->terminal_hovered = FALSE;

	oper_connect_motion (self, point);
}

static void
oper_connect_end (LdDiagramView *self)
{
	ConnectData *data;

	data = &OPER_DATA (self, connect);
	queue_object_draw (self, LD_DIAGRAM_OBJECT (data->connection));

	ld_diagram_insert_object (self->priv->diagram,
		LD_DIAGRAM_OBJECT (data->connection), -1);

	g_object_unref (data->connection);
}

static void
oper_connect_motion (LdDiagramView *self, const LdPoint *point)
{
	ConnectData *data;
	LdPointArray *points;
	LdPoint end_point;
	gdouble diagram_x, diagram_y;

	data = &OPER_DATA (self, connect);

	check_terminals (self, point);

	if (self->priv->terminal.x == data->origin.x
		&& self->priv->terminal.y == data->origin.y)
		self->priv->terminal_hovered = FALSE;

	if (self->priv->terminal_hovered)
	{
		end_point.x = self->priv->terminal.x - data->origin.x;
		end_point.y = self->priv->terminal.y - data->origin.y;
	}
	else
	{
		ld_diagram_view_widget_to_diagram_coords (self,
			point->x, point->y, &diagram_x, &diagram_y);
		end_point.x = floor (diagram_x - data->origin.x + 0.5);
		end_point.y = floor (diagram_y - data->origin.y + 0.5);
	}

	points = create_connection_path (&end_point);

	queue_object_draw (self, LD_DIAGRAM_OBJECT (data->connection));
	ld_diagram_connection_set_points (data->connection, points);
	ld_point_array_free (points);
	queue_object_draw (self, LD_DIAGRAM_OBJECT (data->connection));
}

/* create_connection_path:
 * @end_point: the end point of the path. The start point is always at {0, 0}.
 *
 * Create an orthogonal path between two points.
 */
static LdPointArray *
create_connection_path (const LdPoint *end_point)
{
	LdPointArray *points;

	if (end_point->x == 0 || end_point->y == 0)
	{
		points = ld_point_array_sized_new (2);
		points->length = 2;

		points->points[0].x = 0;
		points->points[0].y = 0;
		points->points[1] = *end_point;
		return points;
	}

	points = ld_point_array_sized_new (4);
	points->length = 4;

	points->points[0].x = 0;
	points->points[0].y = 0;
	points->points[3] = *end_point;

	if (ABS (end_point->x) > ABS (end_point->y))
	{
		points->points[1].x = end_point->x / 2;
		points->points[1].y = 0;
		points->points[2].x = end_point->x / 2;
		points->points[2].y = end_point->y;
	}
	else
	{
		points->points[1].x = 0;
		points->points[1].y = end_point->y / 2;
		points->points[2].x = end_point->x;
		points->points[2].y = end_point->y / 2;
	}
	return points;
}

static void
oper_select_begin (LdDiagramView *self, const LdPoint *point)
{
	SelectData *data;

	g_signal_emit (self,
		LD_DIAGRAM_VIEW_GET_CLASS (self)->cancel_operation_signal, 0);

	self->priv->operation = OPER_SELECT;
	self->priv->operation_end = oper_select_end;

	data = &OPER_DATA (self, select);
	data->drag_last_pos.x = self->priv->drag_start_pos.x;
	data->drag_last_pos.y = self->priv->drag_start_pos.y;

	oper_select_motion (self, point);
}

static void
oper_select_end (LdDiagramView *self)
{
	oper_select_queue_draw (self);
}

static void
oper_select_get_rectangle (LdDiagramView *self, LdRectangle *rect)
{
	SelectData *data;

	data = &OPER_DATA (self, select);
	rect->x = MIN (self->priv->drag_start_pos.x, data->drag_last_pos.x);
	rect->y = MIN (self->priv->drag_start_pos.y, data->drag_last_pos.y);
	rect->width  = ABS (self->priv->drag_start_pos.x - data->drag_last_pos.x);
	rect->height = ABS (self->priv->drag_start_pos.y - data->drag_last_pos.y);
}

static void
oper_select_queue_draw (LdDiagramView *self)
{
	LdRectangle rect;

	oper_select_get_rectangle (self, &rect);
	queue_draw (self, &rect);
}

static void
oper_select_draw (DrawData *data)
{
	static const double dashes[] = {3, 5};
	SelectData *select_data;

	g_return_if_fail (data->self->priv->operation == OPER_SELECT);

	color_apply (COLOR_GET (data->self, COLOR_GRID), data->cr);
	cairo_set_line_width (data->cr, 1);
	cairo_set_line_cap (data->cr, CAIRO_LINE_CAP_SQUARE);
	cairo_set_dash (data->cr, dashes, G_N_ELEMENTS (dashes), 0);

	select_data = &OPER_DATA (data->self, select);

	cairo_rectangle (data->cr,
		data->self->priv->drag_start_pos.x - 0.5,
		data->self->priv->drag_start_pos.y - 0.5,
		select_data->drag_last_pos.x - data->self->priv->drag_start_pos.x + 1,
		select_data->drag_last_pos.y - data->self->priv->drag_start_pos.y + 1);
	cairo_stroke (data->cr);
}

static void
oper_select_motion (LdDiagramView *self, const LdPoint *point)
{
	SelectData *data;
	GList *objects, *iter;
	LdRectangle selection_rect, rect;

	data = &OPER_DATA (self, select);

	oper_select_queue_draw (self);
	data->drag_last_pos = *point;
	oper_select_queue_draw (self);

	oper_select_get_rectangle (self, &selection_rect);
	objects = (GList *) ld_diagram_get_objects (self->priv->diagram);

	for (iter = objects; iter; iter = g_list_next (iter))
	{
		LdDiagramObject *object;

		object = LD_DIAGRAM_OBJECT (iter->data);
		if (LD_IS_DIAGRAM_SYMBOL (object))
		{
			if (!get_symbol_area (self,
				LD_DIAGRAM_SYMBOL (object), &rect))
				continue;
		}
		else if (LD_IS_DIAGRAM_CONNECTION (object))
		{
			if (!get_connection_area (self,
				LD_DIAGRAM_CONNECTION (object), &rect))
				continue;
		}

		ld_rectangle_extend (&rect, OBJECT_BORDER_TOLERANCE);
		if (ld_rectangle_contains (&selection_rect, &rect))
			ld_diagram_select (self->priv->diagram, object);
		else
			ld_diagram_unselect (self->priv->diagram, object);
	}
}

static void
oper_move_selection_begin (LdDiagramView *self, const LdPoint *point)
{
	MoveSelectionData *data;

	g_signal_emit (self,
		LD_DIAGRAM_VIEW_GET_CLASS (self)->cancel_operation_signal, 0);

	self->priv->operation = OPER_MOVE_SELECTION;
	self->priv->operation_end = oper_move_selection_end;

	ld_diagram_begin_user_action (self->priv->diagram);

	data = &OPER_DATA (self, move_selection);
	data->move_origin = self->priv->drag_start_pos;

	oper_move_selection_motion (self, point);
}

static void
oper_move_selection_end (LdDiagramView *self)
{
	ld_diagram_end_user_action (self->priv->diagram);
}

static void
oper_move_selection_motion (LdDiagramView *self, const LdPoint *point)
{
	MoveSelectionData *data;
	gdouble scale, dx, dy, move_x, move_y;
	gdouble move = FALSE;

	scale = ld_diagram_view_get_scale_in_px (self);
	data = &OPER_DATA (self, move_selection);

	dx = point->x - data->move_origin.x;
	dy = point->y - data->move_origin.y;

	move_x = dx < 0 ? ceil (dx / scale) : floor (dx / scale);
	move_y = dy < 0 ? ceil (dy / scale) : floor (dy / scale);

	if (ABS (move_x) >= 1)
	{
		data->move_origin.x += move_x * scale;
		move = TRUE;
	}
	if (ABS (move_y) >= 1)
	{
		data->move_origin.y += move_y * scale;
		move = TRUE;
	}

	if (move)
		move_selection (self, move_x, move_y);
}


/* ===== Events, rendering ================================================= */

static void
simulate_motion (LdDiagramView *self)
{
	GdkEventMotion event;
	GtkWidget *widget;
	GdkWindow *window;
	GdkDevice *pointer;
	gint x, y;
	GdkModifierType state;

	if (self->priv->simulation_lock)
		return;

	widget = GTK_WIDGET (self);
	window = gtk_widget_get_window (widget);

	pointer = gdk_device_manager_get_client_pointer
		(gdk_display_get_device_manager (gtk_widget_get_display (widget)));
	if (gdk_device_get_window_at_position (pointer, &x, &y) != window)
		return;
	gdk_device_get_state (pointer, window, NULL, &state);

	memset (&event, 0, sizeof (event));
	event.type = GDK_MOTION_NOTIFY;
	event.window = window;
	event.x = x;
	event.y = y;
	event.state = state;

	on_motion_notify (widget, &event, NULL);
}

static gboolean
on_motion_notify (GtkWidget *widget, GdkEventMotion *event, gpointer user_data)
{
	LdPoint point;
	LdDiagramView *self;
	AddObjectData *add_data;

	point.x = event->x;
	point.y = event->y;

	self = LD_DIAGRAM_VIEW (widget);

	/* Prevent endless looping when any of the following code changes our
	 * properties, for example during OPER_MOVE_VIEW.
	 */
	self->priv->simulation_lock = TRUE;

	switch (self->priv->operation)
	{
	case OPER_MOVE_VIEW:
		oper_move_view_motion (self, &point);
		break;
	case OPER_ADD_OBJECT:
		add_data = &OPER_DATA (self, add_object);
		add_data->visible = TRUE;

		queue_object_draw (self, add_data->object);
		move_object_to_point (self, add_data->object, &point);
		queue_object_draw (self, add_data->object);
		break;
	case OPER_CONNECT:
		oper_connect_motion (self, &point);
		break;
	case OPER_SELECT:
		oper_select_motion (self, &point);
		break;
	case OPER_MOVE_SELECTION:
		oper_move_selection_motion (self, &point);
		break;
	case OPER_0:
		if (event->state & GDK_BUTTON1_MASK
			&& (event->x != self->priv->drag_start_pos.x
				|| event->y != self->priv->drag_start_pos.y))
		{
			switch (self->priv->drag_operation)
			{
			case OPER_CONNECT:
				oper_connect_begin (self, &point);
				break;
			case OPER_SELECT:
				oper_select_begin (self, &point);
				break;
			case OPER_MOVE_SELECTION:
				oper_move_selection_begin (self, &point);
				break;
			}
		}
		check_terminals (self, &point);
		break;
	}

	self->priv->simulation_lock = FALSE;
	return FALSE;
}

static gboolean
on_leave_notify (GtkWidget *widget, GdkEventCrossing *event, gpointer user_data)
{
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (widget);
	switch (self->priv->operation)
	{
		AddObjectData *data;

	case OPER_ADD_OBJECT:
		data = &OPER_DATA (self, add_object);
		data->visible = FALSE;

		queue_object_draw (self, data->object);
		break;
	}
	return FALSE;
}

static gboolean
on_button_press (GtkWidget *widget, GdkEventButton *event, gpointer user_data)
{
	LdPoint point;
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (widget);
	if (!self->priv->diagram
	 || event->type != GDK_BUTTON_PRESS)
		return FALSE;

	point.x = event->x;
	point.y = event->y;

	switch (event->button)
	{
	case 1:
		on_left_button_press (self, event, &point);
		break;
	case 2:
		on_middle_button_press (self, event, &point);
		break;
	case 3:
		on_right_button_press (self, event, &point);
		break;
	}
	return FALSE;
}

static void
on_left_button_press (LdDiagramView *self, GdkEventButton *event,
	const LdPoint *point)
{
	AddObjectData *data;
	LdDiagramObject *object_at_cursor;

	if (!gtk_widget_has_focus (GTK_WIDGET (self)))
		gtk_widget_grab_focus (GTK_WIDGET (self));

	self->priv->drag_operation = OPER_0;
	switch (self->priv->operation)
	{
	case OPER_ADD_OBJECT:
		data = &OPER_DATA (self, add_object);

		queue_object_draw (self, data->object);
		move_object_to_point (self, data->object, point);
		ld_diagram_insert_object (self->priv->diagram, data->object, -1);

		/* XXX: "cancel" causes confusion. */
		g_signal_emit (self,
			LD_DIAGRAM_VIEW_GET_CLASS (self)->cancel_operation_signal, 0);
		break;
	case OPER_0:
		self->priv->drag_start_pos = *point;
		object_at_cursor = get_object_at_point (self, point);

		if (self->priv->terminal_hovered
			&& (!ld_diagram_get_selection (self->priv->diagram)
				|| !object_at_cursor
				|| !is_object_selected (self, object_at_cursor)))
		{
			if (ld_diagram_get_selection (self->priv->diagram))
				ld_diagram_unselect_all (self->priv->diagram);

			self->priv->drag_operation = OPER_CONNECT;
		}
		else if (object_at_cursor)
		{
			if (!is_object_selected (self, object_at_cursor))
			{
				if (!(event->state & GDK_SHIFT_MASK))
					ld_diagram_unselect_all (self->priv->diagram);
				ld_diagram_select (self->priv->diagram, object_at_cursor);
			}
			self->priv->drag_operation = OPER_MOVE_SELECTION;
		}
		else
		{
			ld_diagram_unselect_all (self->priv->diagram);
			self->priv->drag_operation = OPER_SELECT;
		}
		break;
	}
}

static void
on_middle_button_press (LdDiagramView *self, GdkEventButton *event,
	const LdPoint *point)
{
	if (self->priv->operation == OPER_0)
		oper_move_view_begin (self, point);
}

static void
on_right_button_press (LdDiagramView *self, GdkEventButton *event,
	const LdPoint *point)
{
	AddObjectData *data;
	LdDiagramObject *object_at_cursor;

	switch (self->priv->operation)
	{
	case OPER_ADD_OBJECT:
		data = &OPER_DATA (self, add_object);
		rotate_symbol (self, LD_DIAGRAM_SYMBOL (data->object));
		break;
	case OPER_0:
		object_at_cursor = get_object_at_point (self, point);
		if (object_at_cursor && LD_IS_DIAGRAM_SYMBOL (object_at_cursor))
			rotate_symbol (self, LD_DIAGRAM_SYMBOL (object_at_cursor));
		break;
	}
}

static gboolean
on_button_release (GtkWidget *widget, GdkEventButton *event, gpointer user_data)
{
	LdPoint point;
	LdDiagramView *self;
	LdDiagramObject *object_at_cursor;

	self = LD_DIAGRAM_VIEW (widget);
	if (!self->priv->diagram)
		return FALSE;

	point.x = event->x;
	point.y = event->y;

	if (event->button == 2
		&& self->priv->operation == OPER_MOVE_VIEW)
	{
		g_signal_emit (self,
			LD_DIAGRAM_VIEW_GET_CLASS (self)->cancel_operation_signal, 0);
		return FALSE;
	}

	if (event->button != 1)
		return FALSE;

	switch (self->priv->operation)
	{
	case OPER_SELECT:
	case OPER_MOVE_SELECTION:
	case OPER_CONNECT:
		g_signal_emit (self,
			LD_DIAGRAM_VIEW_GET_CLASS (self)->cancel_operation_signal, 0);
		break;
	case OPER_0:
		object_at_cursor = get_object_at_point (self, &point);
		if (object_at_cursor && is_object_selected (self, object_at_cursor))
		{
			if (!(event->state & GDK_SHIFT_MASK))
				ld_diagram_unselect_all (self->priv->diagram);
			ld_diagram_select (self->priv->diagram, object_at_cursor);
		}
		break;
	}
	return FALSE;
}

static gboolean
on_scroll (GtkWidget *widget, GdkEventScroll *event, gpointer user_data)
{
	gdouble prev_x, prev_y;
	gdouble new_x, new_y;
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (widget);

	if (self->priv->operation != OPER_0
		&& self->priv->operation != OPER_ADD_OBJECT)
		return TRUE;

	ld_diagram_view_widget_to_diagram_coords (self,
		event->x, event->y, &prev_x, &prev_y);

	switch (event->direction)
	{
	case GDK_SCROLL_UP:
		ld_diagram_view_zoom_in (self);
		break;
	case GDK_SCROLL_DOWN:
		ld_diagram_view_zoom_out (self);
		break;
	default:
		return FALSE;
	}

	ld_diagram_view_widget_to_diagram_coords (self,
		event->x, event->y, &new_x, &new_y);

	/* Focus on the point under the cursor. */
	ld_diagram_view_set_x (self, self->priv->x + prev_x - new_x);
	ld_diagram_view_set_y (self, self->priv->y + prev_y - new_y);

	return TRUE;
}

static gboolean
on_drag_motion (GtkWidget *widget, GdkDragContext *drag_ctx,
	gint x, gint y, guint time, gpointer user_data)
{
	LdDiagramView *self;
	GdkAtom target;

	self = LD_DIAGRAM_VIEW (widget);
	target = gtk_drag_dest_find_target (widget, drag_ctx, NULL);
	if (target == GDK_NONE)
	{
		gdk_drag_status (drag_ctx, 0, time);
		return TRUE;
	}

	gdk_drag_status (drag_ctx,
		gdk_drag_context_get_suggested_action (drag_ctx), time);

	/* Discard leftovers from any previous unsuccessful drag. */
	if (self->priv->dnd_left)
	{
		/* The Wayland backend does a leave-drop-leave sequence. */
		if (self->priv->dnd_symbol)
			g_object_unref (self->priv->dnd_symbol);
		self->priv->dnd_symbol = NULL;
		self->priv->dnd_left = FALSE;
	}

	self->priv->dnd_last_position.x = x;
	self->priv->dnd_last_position.y = y;

	if (!self->priv->dnd_symbol)
		gtk_drag_get_data (widget, drag_ctx, target, time);
	else
	{
		queue_object_draw (self, self->priv->dnd_symbol);
		move_object_to_point (self, self->priv->dnd_symbol,
			&self->priv->dnd_last_position);
		queue_object_draw (self, self->priv->dnd_symbol);
	}

	return TRUE;
}

static void
on_drag_data_received (GtkWidget *widget, GdkDragContext *drag_ctx,
	gint x, gint y, GtkSelectionData *data, guint info, guint time,
	gpointer user_data)
{
	LdDiagramView *self;
	LdDiagramSymbol *symbol;
	const gchar *klass;

	self = LD_DIAGRAM_VIEW (widget);

	g_return_if_fail (gtk_selection_data_get_length (data) >= 0);
	g_return_if_fail (self->priv->dnd_symbol == NULL);

	klass = (const gchar *) gtk_selection_data_get_data (data);
	symbol = ld_diagram_symbol_new (NULL);
	ld_diagram_symbol_set_class (symbol, klass);
	self->priv->dnd_symbol = LD_DIAGRAM_OBJECT (symbol);

	move_object_to_point (self, self->priv->dnd_symbol,
		&self->priv->dnd_last_position);
	queue_object_draw (self, self->priv->dnd_symbol);
}

static void
on_drag_leave (GtkWidget *widget, GdkDragContext *drag_ctx,
	guint time, gpointer user_data)
{
	LdDiagramView *self;

	self = LD_DIAGRAM_VIEW (widget);
	self->priv->dnd_left = TRUE;
	queue_object_draw (self, self->priv->dnd_symbol);
}

static gboolean
on_drag_drop (GtkWidget *widget, GdkDragContext *drag_ctx,
	gint x, gint y, guint time, gpointer user_data)
{
	LdDiagramView *self;
	gboolean del;

	del = gdk_drag_context_get_suggested_action (drag_ctx)
		== GDK_ACTION_MOVE;

	self = LD_DIAGRAM_VIEW (widget);
	if (!self->priv->dnd_symbol)
		gtk_drag_finish (drag_ctx, FALSE, del, time);
	else
	{
		gtk_drag_finish (drag_ctx, TRUE,  del, time);

		ld_diagram_insert_object (self->priv->diagram,
			self->priv->dnd_symbol, -1);
		g_object_unref (self->priv->dnd_symbol);
		self->priv->dnd_symbol = NULL;
		self->priv->dnd_left = FALSE;
	}
	return TRUE;
}

static gboolean
on_draw (GtkWidget *widget, cairo_t *cr, gpointer user_data)
{
	DrawData data;

	GdkRectangle draw_area;
	if (!gdk_cairo_get_clip_rectangle (cr, &draw_area))
		return FALSE;

	data.cr = cr;
	data.self = LD_DIAGRAM_VIEW (widget);
	data.scale = ld_diagram_view_get_scale_in_px (data.self);
	data.exposed_rect.x = draw_area.x;
	data.exposed_rect.y = draw_area.y;
	data.exposed_rect.width = draw_area.width;
	data.exposed_rect.height = draw_area.height;

	color_apply (COLOR_GET (data.self, COLOR_BASE), data.cr);
	cairo_paint (data.cr);

	if (data.self->priv->show_grid)
		draw_grid (&data);

	draw_diagram (&data);
	draw_terminal (&data);

	if (data.self->priv->operation == OPER_SELECT)
		oper_select_draw (&data);

	return FALSE;
}

static void
draw_grid (DrawData *data)
{
	gdouble grid_step;
	gint grid_factor;
	gdouble x_init, y_init;
	gdouble x, y;
	cairo_surface_t *grid_surface;
	gint stride;
	unsigned char *pixels;
	guint32 color;

	grid_step = data->scale;
	grid_factor = 1;
	while (grid_step < 5)
	{
		grid_step *= 5;
		grid_factor *= 5;
	}

	/* Paint manually on our own raster surface for speed. */
	stride = cairo_format_stride_for_width
		(CAIRO_FORMAT_ARGB32, data->exposed_rect.width);
	pixels = g_malloc0 (stride * data->exposed_rect.height);
	grid_surface = cairo_image_surface_create_for_data
		(pixels, CAIRO_FORMAT_ARGB32,
		data->exposed_rect.width, data->exposed_rect.height, stride);

	/* Get coordinates of the top-left point. */
	ld_diagram_view_widget_to_diagram_coords (data->self,
		data->exposed_rect.x, data->exposed_rect.y, &x_init, &y_init);

	x_init = ceil (x_init);
	x_init = x_init - (gint) x_init % grid_factor;
	y_init = ceil (y_init);
	y_init = y_init - (gint) y_init % grid_factor;

	ld_diagram_view_diagram_to_widget_coords (data->self,
		x_init, y_init, &x_init, &y_init);

	x_init -= data->exposed_rect.x;
	y_init -= data->exposed_rect.y;

	while (x_init < 0)
		x_init += grid_step;
	while (y_init < 0)
		y_init += grid_step;

	color = color_to_cairo_argb (COLOR_GET (data->self, COLOR_GRID));

	for     (x = x_init; x < data->exposed_rect.width;  x += grid_step)
		for (y = y_init; y < data->exposed_rect.height; y += grid_step)
			*((guint32 *) (pixels + stride * (gint) y) + (gint) x) = color;

	cairo_set_source_surface (data->cr, grid_surface,
		data->exposed_rect.x, data->exposed_rect.y);
	cairo_paint (data->cr);

	cairo_surface_destroy (grid_surface);
	g_free (pixels);
}

static void
draw_terminal (DrawData *data)
{
	LdDiagramViewPrivate *priv;
	LdPoint widget_coords;

	priv = data->self->priv;
	if (!priv->terminal_hovered)
		return;

	color_apply (COLOR_GET (data->self, COLOR_TERMINAL), data->cr);
	cairo_set_line_width (data->cr, 1);

	cairo_new_path (data->cr);
	ld_diagram_view_diagram_to_widget_coords (data->self,
		priv->terminal.x, priv->terminal.y,
		&widget_coords.x, &widget_coords.y);
	cairo_arc (data->cr, widget_coords.x, widget_coords.y,
		TERMINAL_RADIUS, 0, 2 * G_PI);
	cairo_stroke (data->cr);
}

static void
draw_diagram (DrawData *data)
{
	GList *objects, *iter;

	if (!data->self->priv->diagram)
		return;

	cairo_save (data->cr);
	cairo_set_line_width (data->cr, 1 / data->scale);

	/* Draw objects from the diagram, from bottom to top. */
	objects = (GList *) ld_diagram_get_objects (data->self->priv->diagram);
	for (iter = objects; iter; iter = g_list_next (iter))
		draw_object (LD_DIAGRAM_OBJECT (iter->data), data);

	switch (data->self->priv->operation)
	{
		AddObjectData *add_data;
		ConnectData *connect_data;

	case OPER_ADD_OBJECT:
		add_data = &OPER_DATA (data->self, add_object);
		if (add_data->visible)
			draw_object (add_data->object, data);
		break;
	case OPER_CONNECT:
		connect_data = &OPER_DATA (data->self, connect);
		draw_object (LD_DIAGRAM_OBJECT (connect_data->connection), data);
		break;
	}

	if (data->self->priv->dnd_symbol && !data->self->priv->dnd_left)
		draw_object (data->self->priv->dnd_symbol, data);

	cairo_restore (data->cr);
}

static void
draw_object (LdDiagramObject *diagram_object, DrawData *data)
{
	g_return_if_fail (LD_IS_DIAGRAM_OBJECT (diagram_object));
	g_return_if_fail (data != NULL);

	if (is_object_selected (data->self, diagram_object))
		color_apply (COLOR_GET (data->self, COLOR_SELECTION), data->cr);
	else
		color_apply (COLOR_GET (data->self, COLOR_OBJECT), data->cr);

	if (LD_IS_DIAGRAM_SYMBOL (diagram_object))
		draw_symbol (LD_DIAGRAM_SYMBOL (diagram_object), data);
	else if (LD_IS_DIAGRAM_CONNECTION (diagram_object))
		draw_connection (LD_DIAGRAM_CONNECTION (diagram_object), data);
}

static void
draw_symbol (LdDiagramSymbol *diagram_symbol, DrawData *data)
{
	LdSymbol *symbol;
	LdRectangle clip_rect;
	gdouble x, y;
	gint rotation;

	symbol = resolve_symbol (data->self, diagram_symbol);

	/* TODO: Resolve this better; draw a cross or whatever. */
	if (!symbol)
	{
		gchar *klass;

		klass = ld_diagram_symbol_get_class (diagram_symbol);
		g_warning ("cannot find symbol `%s' in the library", klass);
		g_free (klass);
		return;
	}

	if (!get_symbol_clip_area (data->self, diagram_symbol, &clip_rect)
		|| !ld_rectangle_intersects (&clip_rect, &data->exposed_rect))
		return;

	cairo_save (data->cr);

	cairo_rectangle (data->cr, clip_rect.x, clip_rect.y,
		clip_rect.width, clip_rect.height);
	cairo_clip (data->cr);

	g_object_get (diagram_symbol, "x", &x, "y", &y,
		"rotation", &rotation, NULL);
	ld_diagram_view_diagram_to_widget_coords (data->self, x, y, &x, &y);
	cairo_translate (data->cr, x, y);
	cairo_scale (data->cr, data->scale, data->scale);

	switch (rotation)
	{
	case LD_DIAGRAM_SYMBOL_ROTATION_90:
		cairo_rotate (data->cr, G_PI * 0.5);
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_180:
		cairo_rotate (data->cr, G_PI);
		break;
	case LD_DIAGRAM_SYMBOL_ROTATION_270:
		cairo_rotate (data->cr, G_PI * 1.5);
		break;
	}

	ld_symbol_draw (symbol, data->cr);
	cairo_restore (data->cr);
}

static void
draw_connection (LdDiagramConnection *connection, DrawData *data)
{
	LdRectangle clip_rect;
	LdPointArray *points;
	gdouble x, y;
	guint i;

	if (!get_connection_clip_area (data->self, connection, &clip_rect)
		|| !ld_rectangle_intersects (&clip_rect, &data->exposed_rect))
		return;

	points = ld_diagram_connection_get_points (connection);
	if (points->length < 2)
		goto draw_connection_end;

	cairo_save (data->cr);

	g_object_get (connection, "x", &x, "y", &y, NULL);
	ld_diagram_view_diagram_to_widget_coords (data->self, x, y, &x, &y);
	cairo_translate (data->cr, x, y);
	cairo_scale (data->cr, data->scale, data->scale);

	for (i = 1; i < points->length; i++)
	{
		cairo_move_to (data->cr,
			points->points[i - 1].x,
			points->points[i - 1].y);
		cairo_line_to (data->cr,
			points->points[i].x,
			points->points[i].y);
		cairo_stroke (data->cr);
	}
	cairo_restore (data->cr);

draw_connection_end:
	ld_point_array_free (points);
}


/* ===== Export ============================================================ */

static void
get_diagram_bounds (LdDiagramView *self, LdRectangle *rect)
{
	GList *objects;
	gboolean initialized = FALSE;
	LdRectangle partial;
	gdouble x2, y2;

	g_return_if_fail (LD_IS_DIAGRAM_VIEW (self));
	g_return_if_fail (rect != NULL);

	memset (rect, 0, sizeof *rect);
	objects = (GList *) ld_diagram_get_objects (self->priv->diagram);
	for (; objects != NULL; objects = objects->next)
	{
		if (!get_object_bounds (self, objects->data, &partial))
			continue;

		if (!initialized)
		{
			*rect = partial;
			initialized = TRUE;
			continue;
		}

		x2 = MAX (partial.x + partial.width,  rect->x + rect->width);
		y2 = MAX (partial.y + partial.height, rect->y + rect->height);
		rect->x = MIN (rect->x, partial.x);
		rect->y = MIN (rect->y, partial.y);
		rect->width  = x2 - rect->x;
		rect->height = y2 - rect->y;
	}
}

static gboolean
get_object_bounds (LdDiagramView *self, LdDiagramObject *object,
	LdRectangle *rect)
{
	if (LD_IS_DIAGRAM_SYMBOL (object))
		return get_symbol_area_in_diagram_units (self,
			LD_DIAGRAM_SYMBOL (object), rect);
	if (LD_IS_DIAGRAM_CONNECTION (object))
		return get_connection_area_in_diagram_units (self,
			LD_DIAGRAM_CONNECTION (object), rect);
	return FALSE;
}

/**
 * ld_diagram_view_get_export_bounds:
 * @self: an #LdDiagramView object.
 * @rect: (out): diagram boundaries.
 *
 * Get the smallest rectangular area containing all objects in the diagram.
 * The diagram object itself doesn't have any idea of how symbols are rendered.
 *
 * Return value: export units per diagram unit.
 */
gdouble
ld_diagram_view_get_export_bounds (LdDiagramView *self, LdRectangle *rect)
{
	LdRectangle intermediate;

	/* Presumably, cairo_recording_surface_ink_extents() could also be used,
	 * though DrawData::exposed_rect currently stands in the way.
	 */
	get_diagram_bounds (self, &intermediate);
	ld_diagram_view_diagram_to_widget_coords_rect (self, &intermediate, rect);
	return ld_diagram_view_get_scale_in_px (self);
}

/**
 * ld_diagram_view_export:
 * @self: an #LdDiagramView object.
 * @cr: Cairo context to draw on.
 * @clip: the clip area (the function itself does not clip).
 *
 * Get the smallest rectangular area containing all objects in the diagram.
 * The diagram object itself doesn't have any idea of how symbols are rendered.
 */
void
ld_diagram_view_export (LdDiagramView *self, cairo_t *cr,
	const LdRectangle *clip)
{
	DrawData data;

	data.cr = cr;
	data.self = self;
	/* FIXME: Various functions call this directly, this export is a hack. */
	data.scale = ld_diagram_view_get_scale_in_px (data.self);
	data.exposed_rect = *clip;

	draw_diagram (&data);
}