/* * Copyright (C) 1995 Spencer Kimball and Peter Mattis * * This is a plug-in for the GIMP. * * Plugin to convert a selection to a path. * * Copyright (C) 1999 Andy Thomas alt@gimp.org * * This program 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 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * */ /* Change log:- * 0.1 First version. */ #include "config.h" #include #include #include #include #include #define SCALE_WIDTH 100 #define SCALE_DIGITS 8 static GSList * adjust_widgets = NULL; /* Reset to recommended defaults */ void reset_adv_dialog (void) { GSList *list; GtkObject *widget; gdouble *value; for (list = adjust_widgets; list; list = g_slist_next (list)) { widget = GTK_OBJECT (list->data); value = (gdouble *) g_object_get_data (G_OBJECT (widget), "default_value"); if (GTK_IS_ADJUSTMENT (widget)) { gtk_adjustment_set_value (GTK_ADJUSTMENT (widget), *value); } else if (GTK_IS_TOGGLE_BUTTON (widget)) { gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (widget), (gboolean)(*value)); } else g_warning ("Internal widget list error"); } } gpointer def_val (gdouble default_value) { gdouble *value = g_new0 (gdouble, 1); *value = default_value; return (value); } GtkWidget * dialog_create_selection_area (SELVALS *sels) { GtkWidget *table; GtkWidget *check; GtkObject *adj; gint row; table = gtk_table_new (20, 3, FALSE); gtk_table_set_row_spacings (GTK_TABLE (table), 6); gtk_table_set_col_spacings (GTK_TABLE (table), 6); row = 0; adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Align Threshold:", SCALE_WIDTH, SCALE_DIGITS, sels->align_threshold, 0.2, 2.0, 0.1, 0.1, 2, TRUE, 0, 0, "If two endpoints are closer than this," "they are made to be equal.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->align_threshold); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (0.5)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Corner Always Threshold:", SCALE_WIDTH, SCALE_DIGITS, sels->corner_always_threshold, 30, 180, 1, 1, 2, TRUE, 0, 0, "If the angle defined by a point and its predecessors " "and successors is smaller than this, it's a corner, " "even if it's within `corner_surround' pixels of a " "point with a smaller angle.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->corner_always_threshold); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (60.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Corner Surround:", SCALE_WIDTH, SCALE_DIGITS, sels->corner_surround, 3, 8, 1, 1, 0, TRUE, 0, 0, "Number of points to consider when determining if a " "point is a corner or not.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->corner_surround); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (4.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Corner Threshold:", SCALE_WIDTH, SCALE_DIGITS, sels->corner_threshold, 0, 180, 1, 1, 2, TRUE, 0, 0, "If a point, its predecessors, and its successors " "define an angle smaller than this, it's a corner.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->corner_threshold); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (100.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Error Threshold:", SCALE_WIDTH, SCALE_DIGITS, sels->error_threshold, 0.2, 10, 0.1, 0.1, 2, TRUE, 0, 0, "Amount of error at which a fitted spline is " "unacceptable. If any pixel is further away " "than this from the fitted curve, we try again.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->error_threshold); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (0.40)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Filter Alternative Surround:", SCALE_WIDTH, SCALE_DIGITS, sels->filter_alternative_surround, 1, 10, 1, 1, 0, TRUE, 0, 0, "A second number of adjacent points to consider " "when filtering.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->filter_alternative_surround); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (1.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Filter Epsilon:", SCALE_WIDTH, SCALE_DIGITS, sels->filter_epsilon, 5, 40, 1, 1, 2, TRUE, 0, 0, "If the angles between the vectors produced by " "filter_surround and filter_alternative_surround " "points differ by more than this, use the one from " "filter_alternative_surround.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->filter_epsilon); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (10.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Filter Iteration Count:", SCALE_WIDTH, SCALE_DIGITS, sels->filter_iteration_count, 4, 70, 1, 1, 0, TRUE, 0, 0, "Number of times to smooth original data points. " "Increasing this number dramatically --- to 50 or " "so --- can produce vastly better results. But if " "any points that ``should'' be corners aren't found, " "the curve goes to hell around that point.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->filter_iteration_count); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (4.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Filter Percent:", SCALE_WIDTH, SCALE_DIGITS, sels->filter_percent, 0, 1, 0.05, 0.01, 2, TRUE, 0, 0, "To produce the new point, use the old point plus " "this times the neighbors.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->filter_percent); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (0.33)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Filter Secondary Surround:", SCALE_WIDTH, SCALE_DIGITS, sels->filter_secondary_surround, 3, 10, 1, 1, 0, TRUE, 0, 0, "Number of adjacent points to consider if " "`filter_surround' points defines a straight line.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->filter_secondary_surround); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (3.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Filter Surround:", SCALE_WIDTH, SCALE_DIGITS, sels->filter_surround, 2, 10, 1, 1, 0, TRUE, 0, 0, "Number of adjacent points to consider when filtering.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->filter_surround); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (2.0)); check = gtk_check_button_new_with_label ("Keep Knees"); gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (check), sels->keep_knees); gtk_table_attach (GTK_TABLE (table), check, 1, 3, row, row + 1, GTK_EXPAND | GTK_FILL, GTK_EXPAND | GTK_FILL, 0, 0); gimp_help_set_help_data (GTK_WIDGET (check), "Says whether or not to remove ``knee'' " "points after finding the outline.", NULL); g_signal_connect (check, "toggled", G_CALLBACK (gimp_toggle_button_update), &sels->keep_knees); gtk_widget_show (check); adjust_widgets = g_slist_append (adjust_widgets, check); g_object_set_data (G_OBJECT (check), "default_value", def_val ((gdouble)FALSE)); row++; adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Line Reversion Threshold:", SCALE_WIDTH, SCALE_DIGITS, sels->line_reversion_threshold, 0.01, 0.2, 0.01, 0.01, 3, TRUE, 0, 0, "If a spline is closer to a straight line than this, " "it remains a straight line, even if it would otherwise " "be changed back to a curve. This is weighted by the " "square of the curve length, to make shorter curves " "more likely to be reverted.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->line_reversion_threshold); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (0.01)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Line Threshold:", SCALE_WIDTH, SCALE_DIGITS, sels->line_threshold, 0.2, 4, 0.1, 0.01, 2, TRUE, 0, 0, "How many pixels (on the average) a spline can " "diverge from the line determined by its endpoints " "before it is changed to a straight line.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->line_threshold); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (0.5)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Reparametrize Improvement:", SCALE_WIDTH, SCALE_DIGITS, sels->reparameterize_improvement, 0, 1, 0.05, 0.01, 2, TRUE, 0, 0, "If reparameterization doesn't improve the fit by this " "much percent, stop doing it. ""Amount of error at which " "it is pointless to reparameterize.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->reparameterize_improvement); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (0.01)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Reparametrize Threshold:", SCALE_WIDTH, SCALE_DIGITS, sels->reparameterize_threshold, 1, 50, 0.5, 0.5, 2, TRUE, 0, 0, "Amount of error at which it is pointless to reparameterize. " "This happens, for example, when we are trying to fit the " "outline of the outside of an `O' with a single spline. " "The initial fit is not good enough for the Newton-Raphson " "iteration to improve it. It may be that it would be better " "to detect the cases where we didn't find any corners.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->reparameterize_threshold); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (1.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Subdivide Search:", SCALE_WIDTH, SCALE_DIGITS, sels->subdivide_search, 0.05, 1, 0.05, 0.01, 2, TRUE, 0, 0, "Percentage of the curve away from the worst point " "to look for a better place to subdivide.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->subdivide_search); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (0.1)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Subdivide Surround:", SCALE_WIDTH, SCALE_DIGITS, sels->subdivide_surround, 2, 10, 1, 1, 0, TRUE, 0, 0, "Number of points to consider when deciding whether " "a given point is a better place to subdivide.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->subdivide_surround); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (4.0)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Subdivide Threshold:", SCALE_WIDTH, SCALE_DIGITS, sels->subdivide_threshold, 0.01, 1, 0.01, 0.01, 2, TRUE, 0, 0, "How many pixels a point can diverge from a straight " "line and still be considered a better place to " "subdivide.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->subdivide_threshold); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (0.03)); adj = gimp_scale_entry_new (GTK_TABLE (table), 0, row++, "Tangent Surround:", SCALE_WIDTH, SCALE_DIGITS, sels->tangent_surround, 2, 10, 1, 1, 0, TRUE, 0, 0, "Number of points to look at on either side of a " "point when computing the approximation to the " "tangent at that point.", NULL); g_signal_connect (adj, "value_changed", G_CALLBACK (gimp_double_adjustment_update), &sels->tangent_surround); adjust_widgets = g_slist_append (adjust_widgets, adj); g_object_set_data (G_OBJECT (adj), "default_value", def_val (3.0)); return table; }