dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
gimp/plug-ins/fractal-explorer/fractal-explorer.c

1448 lines
47 KiB
C
Raw Blame History

/**********************************************************************
Fractal Explorer Plug-in (Version 2.00 Beta 2)
Daniel Cotting (cotting@multimania.com)
**********************************************************************
**********************************************************************
Official homepages: http://www.multimania.com/cotting
http://cotting.citeweb.net
*********************************************************************/
/**********************************************************************
GIMP - The GNU Image Manipulation Program
Copyright (C) 1995 Spencer Kimball and Peter Mattis
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 3 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, see <https://www.gnu.org/licenses/>.
*********************************************************************/
/**********************************************************************
Some code has been 'stolen' from:
- Peter Kirchgessner (Pkirchg@aol.com)
- Scott Draves (spot@cs.cmu.edu)
- Andy Thomas (alt@picnic.demon.co.uk)
.
.
.
**********************************************************************
"If you steal from one author it's plagiarism; if you steal from
many it's research." --Wilson Mizner
*********************************************************************/
/**********************************************************************
Include necessary files
*********************************************************************/
#include "config.h"
#include <errno.h>
#include <stdlib.h>
#include <string.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <glib/gstdio.h>
#ifdef G_OS_WIN32
#include <libgimpbase/gimpwin32-io.h>
#endif
#include <gtk/gtk.h>
#include <libgimp/gimp.h>
#include <libgimp/gimpui.h>
#include "fractal-explorer.h"
#include "fractal-explorer-dialogs.h"
#include "libgimp/stdplugins-intl.h"
typedef struct _Explorer Explorer;
typedef struct _ExplorerClass ExplorerClass;
struct _Explorer
{
GimpPlugIn parent_instance;
};
struct _ExplorerClass
{
GimpPlugInClass parent_class;
};
#define EXPLORER_TYPE (explorer_get_type ())
#define EXPLORER(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), EXPLORER_TYPE, Explorer))
GType explorer_get_type (void) G_GNUC_CONST;
static GList * explorer_query_procedures (GimpPlugIn *plug_in);
static GimpProcedure * explorer_create_procedure (GimpPlugIn *plug_in,
const gchar *name);
static GimpValueArray * explorer_run (GimpProcedure *procedure,
GimpRunMode run_mode,
GimpImage *image,
gint n_drawables,
GimpDrawable **drawables,
GimpProcedureConfig *config,
gpointer run_data);
static void explorer (GimpDrawable *drawable,
GimpProcedureConfig *config);
static void delete_dialog_callback (GtkWidget *widget,
gboolean value,
gpointer data);
static gboolean delete_fractal_callback (GtkWidget *widget,
gpointer data);
static gint fractalexplorer_list_pos (fractalexplorerOBJ *feOBJ);
static gint fractalexplorer_list_insert (fractalexplorerOBJ *feOBJ);
static fractalexplorerOBJ *fractalexplorer_new (void);
static void fill_list_store (GtkListStore *list_store);
static void activate_fractal (fractalexplorerOBJ *sel_obj);
static void activate_fractal_callback (GtkTreeView *view,
GtkTreePath *path,
GtkTreeViewColumn *col,
gpointer data);
static gboolean apply_fractal_callback (GtkWidget *widget,
gpointer data);
static void fractalexplorer_free (fractalexplorerOBJ *feOBJ);
static void fractalexplorer_free_everything (fractalexplorerOBJ *feOBJ);
static void fractalexplorer_list_free_all (void);
static fractalexplorerOBJ * fractalexplorer_load (const gchar *filename,
const gchar *name);
static void fractalexplorer_list_load_all (const gchar *path);
static void fractalexplorer_rescan_list (GtkWidget *widget,
gpointer data);
G_DEFINE_TYPE (Explorer, explorer, GIMP_TYPE_PLUG_IN)
GIMP_MAIN (EXPLORER_TYPE)
DEFINE_STD_SET_I18N
/**********************************************************************
Global variables
*********************************************************************/
gdouble xmin = -2;
gdouble xmax = 1;
gdouble ymin = -1.5;
gdouble ymax = 1.5;
gdouble xbild;
gdouble ybild;
gdouble xdiff;
gdouble ydiff;
gint sel_x;
gint sel_y;
gint preview_width;
gint preview_height;
gdouble *gg;
gint line_no;
gchar *filename;
clrmap colormap;
vlumap valuemap;
gchar *fractalexplorer_path = NULL;
static gfloat cx = -0.75;
static gfloat cy = -0.2;
static GList *fractalexplorer_list = NULL;
explorer_interface_t wint =
{
NULL, /* preview */
NULL, /* wimage */
FALSE /* run */
}; /* wint */
explorer_vals_t wvals =
{
0,
-2.0,
2.0,
-1.5,
1.5,
50.0,
-0.75,
-0.2,
0,
1.0,
1.0,
1.0,
1,
1,
0,
0,
0,
0,
1,
256,
0,
0
}; /* wvals */
fractalexplorerOBJ *current_obj = NULL;
static GtkWidget *delete_dialog = NULL;
static void
explorer_class_init (ExplorerClass *klass)
{
GimpPlugInClass *plug_in_class = GIMP_PLUG_IN_CLASS (klass);
plug_in_class->query_procedures = explorer_query_procedures;
plug_in_class->create_procedure = explorer_create_procedure;
plug_in_class->set_i18n = STD_SET_I18N;
}
static void
explorer_init (Explorer *explorer)
{
}
static GList *
explorer_query_procedures (GimpPlugIn *plug_in)
{
return g_list_append (NULL, g_strdup (PLUG_IN_PROC));
}
static GimpProcedure *
explorer_create_procedure (GimpPlugIn *plug_in,
const gchar *name)
{
GimpProcedure *procedure = NULL;
if (! strcmp (name, PLUG_IN_PROC))
{
procedure = gimp_image_procedure_new (plug_in, name,
GIMP_PDB_PROC_TYPE_PLUGIN,
explorer_run, NULL, NULL);
gimp_procedure_set_image_types (procedure, "RGB*, GRAY*");
gimp_procedure_set_sensitivity_mask (procedure,
GIMP_PROCEDURE_SENSITIVE_DRAWABLE);
gimp_procedure_set_menu_label (procedure, _("_Fractal Explorer..."));
gimp_procedure_add_menu_path (procedure, "<Image>/Filters/Render/Fractals");
gimp_procedure_set_documentation (procedure,
_("Render fractal art"),
"No help yet.",
name);
gimp_procedure_set_attribution (procedure,
"Daniel Cotting (cotting@multimania.com, "
"www.multimania.com/cotting)",
"Daniel Cotting (cotting@multimania.com, "
"www.multimania.com/cotting)",
"December, 1998");
gimp_procedure_add_choice_argument (procedure, "fractal-type",
_("Fr_actal Type"),
_("Type of Fractal Pattern"),
gimp_choice_new_with_values ("mandelbrot", 0, _("Mandelbrot"), NULL,
"julia", 1, _("Julia"), NULL,
"barnsley-1", 2, _("Barnsley 1"), NULL,
"barnsley-2", 3, _("Barnsley 2"), NULL,
"barnsley-3", 4, _("Barnsley 3"), NULL,
"spider", 5, _("Spider"), NULL,
"man-o-war", 6, _("Man-o-War"), NULL,
"lambda", 7, _("Lambda"), NULL,
"sierpinski", 8, _("Sierpinski"), NULL,
NULL),
"mandelbrot",
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "xmin",
_("Lef_t"),
_("X min fractal image delimiter"),
-3.000, 3.000, -2.000,
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "xmax",
_("Ri_ght"),
_("X max fractal image delimiter"),
-3.000, 3.000, 2.000,
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "ymin",
_("To_p"),
_("Y min fractal image delimiter"),
-3.000, 3.000, -1.500,
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "ymax",
_("_Bottom"),
_("Y max fractal image delimiter"),
-3.000, 3.000, 1.500,
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "iter",
_("Iteratio_ns"),
_("Iteration value"),
1, 1000, 50,
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "cx",
_("C_X"),
_("cx value"),
-2.5000, 2.5000, -0.75,
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "cy",
_("C_Y"),
_("cy value"),
-2.5000, 2.5000, -0.2,
G_PARAM_READWRITE);
gimp_procedure_add_choice_argument (procedure, "color-mode",
_("Color mode"),
_("Apply specified color map or active gradient to final image"),
gimp_choice_new_with_values ("colormap", 0, _("As specified above"), NULL,
"gradient", 1, _("Apply active gradient to final image"), NULL,
NULL),
"colormap",
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "red-stretch",
_("Red stretch"),
_("Red stretching factor"),
0, 1, 1,
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "green-stretch",
_("Green stretch"),
_("Green stretching factor"),
0, 1, 1,
G_PARAM_READWRITE);
gimp_procedure_add_double_argument (procedure, "blue-stretch",
_("Blue stretch"),
_("Blue stretching factor"),
0, 1, 1,
G_PARAM_READWRITE);
gimp_procedure_add_choice_argument (procedure, "red-mode",
_("_Red"),
_("Red application mode"),
gimp_choice_new_with_values ("red-sin", 0, _("Sine"), NULL,
"red-cos", 1, _("Cosine"), NULL,
"red-none", 2, _("None"), NULL,
NULL),
"red-cos",
G_PARAM_READWRITE);
gimp_procedure_add_choice_argument (procedure, "green-mode",
_("_Green"),
_("Green application mode"),
gimp_choice_new_with_values ("green-sin", 0, _("Sine"), NULL,
"green-cos", 1, _("Cosine"), NULL,
"green-none", 2, _("None"), NULL,
NULL),
"green-cos",
G_PARAM_READWRITE);
gimp_procedure_add_choice_argument (procedure, "blue-mode",
_("_Blue"),
_("Blue application mode"),
gimp_choice_new_with_values ("blue-sin", 0, _("Sine"), NULL,
"blue-cos", 1, _("Cosine"), NULL,
"blue-none", 2, _("None"), NULL,
NULL),
"blue-sin",
G_PARAM_READWRITE);
gimp_procedure_add_boolean_argument (procedure, "red-invert",
_("In_version"),
_("Red inversion mode"),
FALSE,
G_PARAM_READWRITE);
gimp_procedure_add_boolean_argument (procedure, "green-invert",
_("I_nversion"),
_("Green inversion mode"),
FALSE,
G_PARAM_READWRITE);
gimp_procedure_add_boolean_argument (procedure, "blue-invert",
_("_Inversion"),
_("Blue inversion mode"),
FALSE,
G_PARAM_READWRITE);
gimp_procedure_add_int_argument (procedure, "n-colors",
_("_Number of colors"),
_("Number of Colors for mapping"),
2, 8192, 512,
G_PARAM_READWRITE);
gimp_procedure_add_boolean_argument (procedure, "use-loglog-smoothing",
_("_Use log log smoothing"),
_("Use log log smoothing to eliminate "
"\"banding\" in the result"),
FALSE,
G_PARAM_READWRITE);
}
return procedure;
}
static GimpValueArray *
explorer_run (GimpProcedure *procedure,
GimpRunMode run_mode,
GimpImage *image,
gint n_drawables,
GimpDrawable **drawables,
GimpProcedureConfig *config,
gpointer run_data)
{
GimpDrawable *drawable;
gint pwidth;
gint pheight;
GimpPDBStatusType status = GIMP_PDB_SUCCESS;
gint sel_width;
gint sel_height;
gegl_init (NULL, NULL);
if (n_drawables != 1)
{
GError *error = NULL;
g_set_error (&error, GIMP_PLUG_IN_ERROR, 0,
_("Procedure '%s' only works with one drawable."),
gimp_procedure_get_name (procedure));
return gimp_procedure_new_return_values (procedure,
GIMP_PDB_CALLING_ERROR,
error);
}
else
{
drawable = drawables[0];
}
if (! gimp_drawable_mask_intersect (drawable,
&sel_x, &sel_y,
&sel_width, &sel_height))
{
return gimp_procedure_new_return_values (procedure, status, NULL);
}
/* Calculate preview size */
if (sel_width > sel_height)
{
pwidth = MIN (sel_width, PREVIEW_SIZE);
pheight = sel_height * pwidth / sel_width;
}
else
{
pheight = MIN (sel_height, PREVIEW_SIZE);
pwidth = sel_width * pheight / sel_height;
}
preview_width = MAX (pwidth, 2);
preview_height = MAX (pheight, 2);
wvals.config = config;
/* See how we will run */
switch (run_mode)
{
case GIMP_RUN_INTERACTIVE:
/* Get information from the dialog */
if (! explorer_dialog (procedure, config))
return gimp_procedure_new_return_values (procedure, GIMP_PDB_CANCEL,
NULL);
break;
case GIMP_RUN_NONINTERACTIVE:
case GIMP_RUN_WITH_LAST_VALS:
make_color_map (config);
break;
default:
break;
}
g_object_get (config,
"xmin", &xmin,
"xmax", &xmax,
"ymin", &ymin,
"ymax", &ymax,
"cx", &cx,
"cy", &cy,
NULL);
if (status == GIMP_PDB_SUCCESS)
{
gimp_progress_init (_("Rendering fractal"));
explorer (drawable, config);
if (run_mode != GIMP_RUN_NONINTERACTIVE)
gimp_displays_flush ();
}
return gimp_procedure_new_return_values (procedure, status, NULL);
}
/**********************************************************************
FUNCTION: explorer
*********************************************************************/
static void
explorer (GimpDrawable *drawable,
GimpProcedureConfig *config)
{
GeglBuffer *src_buffer;
GeglBuffer *dest_buffer;
const Babl *format;
gint width;
gint height;
gint bpp;
gint row;
gint x;
gint y;
gint w;
gint h;
guchar *src_row;
guchar *dest_row;
/* Get the input area. This is the bounding box of the selection in
* the image (or the entire image if there is no selection). Only
* operating on the input area is simply an optimization. It doesn't
* need to be done for correct operation. (It simply makes it go
* faster, since fewer pixels need to be operated on).
*/
if (! gimp_drawable_mask_intersect (drawable, &x, &y, &w, &h))
return;
/* Get the size of the input image. (This will/must be the same
* as the size of the output image.
*/
width = gimp_drawable_get_width (drawable);
height = gimp_drawable_get_height (drawable);
if (gimp_drawable_has_alpha (drawable))
format = babl_format ("R'G'B'A u8");
else
format = babl_format ("R'G'B' u8");
bpp = babl_format_get_bytes_per_pixel (format);
/* allocate row buffers */
src_row = g_new (guchar, bpp * w);
dest_row = g_new (guchar, bpp * w);
src_buffer = gimp_drawable_get_buffer (drawable);
dest_buffer = gimp_drawable_get_shadow_buffer (drawable);
xbild = width;
ybild = height;
xdiff = (xmax - xmin) / xbild;
ydiff = (ymax - ymin) / ybild;
for (row = y; row < y + h; row++)
{
gegl_buffer_get (src_buffer, GEGL_RECTANGLE (x, row, w, 1), 1.0,
format, src_row,
GEGL_AUTO_ROWSTRIDE, GEGL_ABYSS_NONE);
explorer_render_row (src_row,
dest_row,
row,
w,
bpp,
config);
gegl_buffer_set (dest_buffer, GEGL_RECTANGLE (x, row, w, 1), 0,
format, dest_row,
GEGL_AUTO_ROWSTRIDE);
if ((row % 10) == 0)
gimp_progress_update ((double) row / (double) h);
}
g_object_unref (src_buffer);
g_object_unref (dest_buffer);
g_free (src_row);
g_free (dest_row);
gimp_progress_update (1.0);
/* update the processed region */
gimp_drawable_merge_shadow (drawable, TRUE);
gimp_drawable_update (drawable, x, y, w, h);
}
/**********************************************************************
FUNCTION: explorer_render_row
*********************************************************************/
void
explorer_render_row (const guchar *src_row,
guchar *dest_row,
gint row,
gint row_width,
gint bpp,
GimpProcedureConfig *config)
{
gint col;
gdouble a;
gdouble b;
gdouble x;
gdouble y;
gdouble oldx;
gdouble oldy;
gdouble tempsqrx;
gdouble tempsqry;
gdouble tmpx = 0;
gdouble tmpy = 0;
gdouble foldxinitx;
gdouble foldxinity;
gdouble foldyinitx;
gdouble foldyinity;
gdouble xx = 0;
gdouble adjust;
gdouble cx;
gdouble cy;
gint counter;
gint color;
gdouble iter;
gint iteration;
gint useloglog;
gint n_colors;
gint fractal_type;
gdouble log2;
g_object_get (config,
"cx", &cx,
"cy", &cy,
"iter", &iter,
"use-loglog-smoothing", &useloglog,
"n-colors", &n_colors,
NULL);
fractal_type =
gimp_procedure_config_get_choice_id (wvals.config, "fractal-type");
iteration = (gint) iter;
log2 = log (2.0);
for (col = 0; col < row_width; col++)
{
a = xmin + (double) col * xdiff;
b = ymin + (double) row * ydiff;
if (fractal_type != 0)
{
tmpx = x = a;
tmpy = y = b;
}
else
{
x = 0;
y = 0;
}
for (counter = 0; counter < iteration; counter++)
{
oldx=x;
oldy=y;
switch (fractal_type)
{
case TYPE_MANDELBROT:
xx = x * x - y * y + a;
y = 2.0 * x * y + b;
break;
case TYPE_JULIA:
xx = x * x - y * y + cx;
y = 2.0 * x * y + cy;
break;
case TYPE_BARNSLEY_1:
foldxinitx = oldx * cx;
foldyinity = oldy * cy;
foldxinity = oldx * cy;
foldyinitx = oldy * cx;
/* orbit calculation */
if (oldx >= 0)
{
xx = (foldxinitx - cx - foldyinity);
y = (foldyinitx - cy + foldxinity);
}
else
{
xx = (foldxinitx + cx - foldyinity);
y = (foldyinitx + cy + foldxinity);
}
break;
case TYPE_BARNSLEY_2:
foldxinitx = oldx * cx;
foldyinity = oldy * cy;
foldxinity = oldx * cy;
foldyinitx = oldy * cx;
/* orbit calculation */
if (foldxinity + foldyinitx >= 0)
{
xx = foldxinitx - cx - foldyinity;
y = foldyinitx - cy + foldxinity;
}
else
{
xx = foldxinitx + cx - foldyinity;
y = foldyinitx + cy + foldxinity;
}
break;
case TYPE_BARNSLEY_3:
foldxinitx = oldx * oldx;
foldyinity = oldy * oldy;
foldxinity = oldx * oldy;
/* orbit calculation */
if (oldx > 0)
{
xx = foldxinitx - foldyinity - 1.0;
y = foldxinity * 2;
}
else
{
xx = foldxinitx - foldyinity -1.0 + cx * oldx;
y = foldxinity * 2;
y += cy * oldx;
}
break;
case TYPE_SPIDER:
/* { c=z=pixel: z=z*z+c; c=c/2+z, |z|<=4 } */
xx = x*x - y*y + tmpx + cx;
y = 2 * oldx * oldy + tmpy +cy;
tmpx = tmpx/2 + xx;
tmpy = tmpy/2 + y;
break;
case TYPE_MAN_O_WAR:
xx = x*x - y*y + tmpx + cx;
y = 2.0 * x * y + tmpy + cy;
tmpx = oldx;
tmpy = oldy;
break;
case TYPE_LAMBDA:
tempsqrx = x * x;
tempsqry = y * y;
tempsqrx = oldx - tempsqrx + tempsqry;
tempsqry = -(oldy * oldx);
tempsqry += tempsqry + oldy;
xx = cx * tempsqrx - cy * tempsqry;
y = cx * tempsqry + cy * tempsqrx;
break;
case TYPE_SIERPINSKI:
xx = oldx + oldx;
y = oldy + oldy;
if (oldy > .5)
y = y - 1;
else if (oldx > .5)
xx = xx - 1;
break;
default:
break;
}
x = xx;
if (((x * x) + (y * y)) >= 4.0)
break;
}
if (useloglog)
{
gdouble modulus_square = (x * x) + (y * y);
if (modulus_square > (G_E * G_E))
adjust = log (log (modulus_square) / 2.0) / log2;
else
adjust = 0.0;
}
else
{
adjust = 0.0;
}
color = (int) (((counter - adjust) * (n_colors - 1)) / iteration);
if (bpp >= 3)
{
dest_row[col * bpp + 0] = colormap[color].r;
dest_row[col * bpp + 1] = colormap[color].g;
dest_row[col * bpp + 2] = colormap[color].b;
}
else
dest_row[col * bpp + 0] = valuemap[color];
if (! ( bpp % 2))
dest_row [col * bpp + bpp - 1] = 255;
}
}
static void
delete_dialog_callback (GtkWidget *widget,
gboolean delete,
gpointer data)
{
GtkWidget *view = (GtkWidget *) data;
GtkTreeSelection *selection;
GtkTreeModel *model;
GtkTreeIter iter;
gboolean valid;
fractalexplorerOBJ *sel_obj;
if (delete)
{
/* Must update which object we are editing */
/* Get the list and which item is selected */
/* Only allow single selections */
selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (view));
gtk_tree_selection_get_selected (selection, &model, &iter);
gtk_tree_model_get (model, &iter, 1, &sel_obj, -1);
/* Delete the current item + associated file */
valid = gtk_list_store_remove (GTK_LIST_STORE(model), &iter);
/* Try to select first item if last one was deleted */
if (!valid)
valid = gtk_tree_model_get_iter_first (model, &iter);
/* Shadow copy for ordering info */
fractalexplorer_list = g_list_remove (fractalexplorer_list, sel_obj);
/*
if(sel_obj == current_obj)
{
clear_undo();
}
*/
/* Free current obj */
fractalexplorer_free_everything (sel_obj);
/* Check whether there are items left */
if (valid)
{
gtk_tree_selection_select_iter (selection, &iter);
gtk_tree_model_get (model, &iter, 1, &current_obj, -1);
}
}
delete_dialog = NULL;
}
static gboolean
delete_fractal_callback (GtkWidget *widget,
gpointer data)
{
gchar *str;
GtkWidget *view = (GtkWidget *) data;
GtkTreeSelection *selection;
GtkTreeModel *model;
GtkTreeIter iter;
fractalexplorerOBJ *sel_obj;
if (delete_dialog)
return FALSE;
selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (view));
if (gtk_tree_selection_get_selected (selection, &model, &iter))
{
gtk_tree_model_get (model, &iter, 1, &sel_obj, -1);
str = g_strdup_printf (_("Are you sure you want to delete "
"\"%s\" from the list and from disk?"),
sel_obj->draw_name);
delete_dialog = gimp_query_boolean_box (_("Delete Fractal"),
gtk_widget_get_toplevel (view),
gimp_standard_help_func, NULL,
GIMP_ICON_DIALOG_QUESTION,
str,
_("_Delete"), _("_Cancel"),
G_OBJECT (widget), "destroy",
delete_dialog_callback,
data, NULL);
g_free (str);
gtk_widget_show (delete_dialog);
}
return FALSE;
}
static gint
fractalexplorer_list_pos (fractalexplorerOBJ *fractalexplorer)
{
fractalexplorerOBJ *g;
gint n;
GList *tmp;
n = 0;
for (tmp = fractalexplorer_list; tmp; tmp = g_list_next (tmp))
{
g = tmp->data;
if (strcmp (fractalexplorer->draw_name, g->draw_name) <= 0)
break;
n++;
}
return n;
}
static gint
fractalexplorer_list_insert (fractalexplorerOBJ *fractalexplorer)
{
gint n = fractalexplorer_list_pos (fractalexplorer);
/*
* Insert fractalexplorers in alphabetical order
*/
fractalexplorer_list = g_list_insert (fractalexplorer_list,
fractalexplorer, n);
return n;
}
static fractalexplorerOBJ *
fractalexplorer_new (void)
{
return g_new0 (fractalexplorerOBJ, 1);
}
static void
fill_list_store (GtkListStore *list_store)
{
GList *tmp;
GtkTreeIter iter;
for (tmp = fractalexplorer_list; tmp; tmp = tmp->next)
{
fractalexplorerOBJ *g;
g = tmp->data;
gtk_list_store_append (list_store, &iter);
gtk_list_store_set (list_store, &iter, 0, g->draw_name, 1, g, -1);
}
}
static void
activate_fractal (fractalexplorerOBJ *sel_obj)
{
current_obj = sel_obj;
g_object_set (wvals.config,
"xmin", current_obj->opts.xmin,
"xmax", current_obj->opts.xmax,
"ymin", current_obj->opts.ymin,
"ymax", current_obj->opts.ymax,
"iter", current_obj->opts.iter,
"cx", current_obj->opts.cx,
"cy", current_obj->opts.cy,
"red-stretch", current_obj->opts.redstretch,
"green-stretch", current_obj->opts.greenstretch,
"blue-stretch", current_obj->opts.bluestretch,
"color-mode", current_obj->opts.colormode,
"red-invert", current_obj->opts.redinvert,
"green-invert", current_obj->opts.greeninvert,
"blue-invert", current_obj->opts.blueinvert,
NULL);
switch (current_obj->opts.fractaltype)
{
case 0:
g_object_set (wvals.config, "fractal-type", "mandelbrot", NULL);
break;
case 1:
g_object_set (wvals.config, "fractal-type", "julia", NULL);
break;
case 2:
g_object_set (wvals.config, "fractal-type", "barnsley-1", NULL);
break;
case 3:
g_object_set (wvals.config, "fractal-type", "barnsley-2", NULL);
break;
case 4:
g_object_set (wvals.config, "fractal-type", "barnsley-3", NULL);
break;
case 5:
g_object_set (wvals.config, "fractal-type", "spider", NULL);
break;
case 6:
g_object_set (wvals.config, "fractal-type", "man-o-war", NULL);
break;
case 7:
g_object_set (wvals.config, "fractal-type", "lambda", NULL);
break;
case 8:
g_object_set (wvals.config, "fractal-type", "sierpinski", NULL);
break;
default:
break;
}
switch (current_obj->opts.redmode)
{
case 0:
g_object_set (wvals.config, "red-mode", "red-sin", NULL);
break;
case 1:
g_object_set (wvals.config, "red-mode", "red-cos", NULL);
break;
case 2:
g_object_set (wvals.config, "red-mode", "red-none", NULL);
break;
default:
break;
}
switch (current_obj->opts.greenmode)
{
case 0:
g_object_set (wvals.config, "green-mode", "green-sin", NULL);
break;
case 1:
g_object_set (wvals.config, "green-mode", "green-cos", NULL);
break;
case 2:
g_object_set (wvals.config, "green-mode", "green-none", NULL);
break;
default:
break;
}
switch (current_obj->opts.bluemode)
{
case 0:
g_object_set (wvals.config, "blue-mode", "blue-sin", NULL);
break;
case 1:
g_object_set (wvals.config, "blue-mode", "blue-cos", NULL);
break;
case 2:
g_object_set (wvals.config, "blue-mode", "blue-none", NULL);
break;
default:
break;
}
set_cmap_preview (wvals.config);
dialog_update_preview (wvals.config);
}
static void
activate_fractal_callback (GtkTreeView *view,
GtkTreePath *path,
GtkTreeViewColumn *col,
gpointer data)
{
GtkTreeModel *model;
GtkTreeIter iter;
fractalexplorerOBJ *sel_obj;
model = gtk_tree_view_get_model (view);
if (gtk_tree_model_get_iter (model, &iter, path))
{
gtk_tree_model_get (model, &iter, 1, &sel_obj, -1);
activate_fractal (sel_obj);
}
}
static gboolean
apply_fractal_callback (GtkWidget *widget,
gpointer data)
{
GtkWidget *view = (GtkWidget *) data;
GtkTreeSelection *selection;
GtkTreeModel *model;
GtkTreeIter iter;
fractalexplorerOBJ *sel_obj;
selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (view));
if (gtk_tree_selection_get_selected (selection, &model, &iter))
{
gtk_tree_model_get (model, &iter, 1, &sel_obj, -1);
activate_fractal (sel_obj);
}
return FALSE;
}
static void
fractalexplorer_free (fractalexplorerOBJ *fractalexplorer)
{
g_assert (fractalexplorer != NULL);
g_free (fractalexplorer->name);
g_free (fractalexplorer->filename);
g_free (fractalexplorer->draw_name);
g_free (fractalexplorer);
}
static void
fractalexplorer_free_everything (fractalexplorerOBJ *fractalexplorer)
{
g_assert (fractalexplorer != NULL);
if (fractalexplorer->filename)
g_remove (fractalexplorer->filename);
fractalexplorer_free (fractalexplorer);
}
static void
fractalexplorer_list_free_all (void)
{
g_list_free_full (fractalexplorer_list, (GDestroyNotify) fractalexplorer_free);
fractalexplorer_list = NULL;
}
static fractalexplorerOBJ *
fractalexplorer_load (const gchar *filename,
const gchar *name)
{
fractalexplorerOBJ * fractalexplorer;
FILE * fp;
gchar load_buf[MAX_LOAD_LINE];
g_assert (filename != NULL);
fp = g_fopen (filename, "rt");
if (!fp)
{
g_message (_("Could not open '%s' for reading: %s"),
gimp_filename_to_utf8 (filename), g_strerror (errno));
return NULL;
}
fractalexplorer = fractalexplorer_new ();
fractalexplorer->name = g_strdup (name);
fractalexplorer->draw_name = g_strdup (name);
fractalexplorer->filename = g_strdup (filename);
/* HEADER
* draw_name
* version
* obj_list
*/
get_line (load_buf, MAX_LOAD_LINE, fp, 1);
if (strncmp (fractalexplorer_HEADER, load_buf, strlen (load_buf)))
{
g_message (_("File '%s' is not a FractalExplorer file"),
gimp_filename_to_utf8 (filename));
fclose (fp);
fractalexplorer_free (fractalexplorer);
return NULL;
}
if (load_options (fractalexplorer, fp))
{
g_message (_("File '%s' is corrupt.\nLine %d Option section incorrect"),
gimp_filename_to_utf8 (filename), line_no);
fclose (fp);
fractalexplorer_free (fractalexplorer);
return NULL;
}
fclose (fp);
fractalexplorer->obj_status = fractalexplorer_OK;
return fractalexplorer;
}
static void
fractalexplorer_list_load_all (const gchar *explorer_path)
{
GList *path;
GList *list;
/* Make sure to clear any existing fractalexplorers */
current_obj = NULL;
fractalexplorer_list_free_all ();
path = gimp_config_path_expand_to_files (explorer_path, NULL);
for (list = path; list; list = g_list_next (list))
{
GFileEnumerator *enumerator;
enumerator = g_file_enumerate_children (list->data,
G_FILE_ATTRIBUTE_STANDARD_NAME ","
G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN ","
G_FILE_ATTRIBUTE_STANDARD_TYPE,
G_FILE_QUERY_INFO_NONE,
NULL, NULL);
if (enumerator)
{
GFileInfo *info;
while ((info = g_file_enumerator_next_file (enumerator, NULL, NULL)))
{
GFileType file_type = g_file_info_get_attribute_uint32 (info, G_FILE_ATTRIBUTE_STANDARD_TYPE);
if (file_type == G_FILE_TYPE_REGULAR &&
! g_file_info_get_attribute_boolean (info, G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN))
{
fractalexplorerOBJ *fractalexplorer;
GFile *child;
gchar *filename;
gchar *basename;
child = g_file_enumerator_get_child (enumerator, info);
filename = g_file_get_path (child);
basename = g_file_get_basename (child);
fractalexplorer = fractalexplorer_load (filename,
basename);
g_free (filename);
g_free (basename);
if (fractalexplorer)
fractalexplorer_list_insert (fractalexplorer);
g_object_unref (child);
}
g_object_unref (info);
}
g_object_unref (enumerator);
}
}
g_list_free_full (path, (GDestroyNotify) g_object_unref);
if (!fractalexplorer_list)
{
fractalexplorerOBJ *fractalexplorer;
/* lets have at least one! */
fractalexplorer = fractalexplorer_new ();
fractalexplorer->draw_name = g_strdup (_("My first fractal"));
fractalexplorer_list_insert (fractalexplorer);
}
current_obj = fractalexplorer_list->data; /* set to first entry */
}
GtkWidget *
add_objects_list (void)
{
GtkWidget *grid;
GtkWidget *scrolled_win;
GtkTreeViewColumn *col;
GtkCellRenderer *renderer;
GtkWidget *view;
GtkTreeSelection *selection;
GtkListStore *list_store;
GtkWidget *button;
grid = gtk_grid_new ();
gtk_grid_set_row_spacing (GTK_GRID (grid), 6);
gtk_grid_set_column_spacing (GTK_GRID (grid), 6);
gtk_container_set_border_width (GTK_CONTAINER (grid), 12);
gtk_widget_show (grid);
scrolled_win = gtk_scrolled_window_new (NULL, NULL);
gtk_widget_set_hexpand (scrolled_win, TRUE);
gtk_widget_set_vexpand (scrolled_win, TRUE);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_win),
GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (scrolled_win),
GTK_SHADOW_IN);
gtk_grid_attach (GTK_GRID (grid), scrolled_win, 0, 0, 3, 1);
gtk_widget_show (scrolled_win);
view = gtk_tree_view_new ();
col = gtk_tree_view_column_new ();
gtk_tree_view_append_column (GTK_TREE_VIEW (view), col);
renderer = gtk_cell_renderer_text_new ();
gtk_tree_view_column_pack_start (col, renderer, TRUE);
gtk_tree_view_column_add_attribute (col, renderer, "text", 0);
gtk_tree_view_set_headers_visible (GTK_TREE_VIEW (view), FALSE);
selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (view));
gtk_tree_selection_set_mode (selection, GTK_SELECTION_BROWSE);
g_signal_connect (view, "row-activated",
G_CALLBACK (activate_fractal_callback),
NULL);
gtk_container_add (GTK_CONTAINER (scrolled_win), view);
gtk_widget_show (view);
fractalexplorer_list_load_all (fractalexplorer_path);
list_store = gtk_list_store_new (2, G_TYPE_STRING, G_TYPE_POINTER);
fill_list_store (list_store);
gtk_tree_view_set_model (GTK_TREE_VIEW (view), GTK_TREE_MODEL (list_store));
g_object_unref (list_store); /* destroy model automatically with view */
/* Put buttons in */
button = gtk_button_new_with_mnemonic (_("_Refresh"));
gtk_grid_attach (GTK_GRID (grid), button, 0, 1, 1, 1);
gtk_widget_show (button);
gimp_help_set_help_data (button,
_("Select folder and rescan collection"), NULL);
g_signal_connect (button, "clicked",
G_CALLBACK (fractalexplorer_rescan_list),
view);
button = gtk_button_new_with_mnemonic (_("_Apply"));
gtk_grid_attach (GTK_GRID (grid), button, 1, 1, 1, 1);
gtk_widget_show (button);
gimp_help_set_help_data (button,
_("Apply currently selected fractal"), NULL);
g_signal_connect (button, "clicked",
G_CALLBACK (apply_fractal_callback),
view);
button = gtk_button_new_with_mnemonic (_("_Delete"));
gtk_grid_attach (GTK_GRID (grid), button, 2, 1, 1, 1);
gtk_widget_show (button);
gimp_help_set_help_data (button,
_("Delete currently selected fractal"), NULL);
g_signal_connect (button, "clicked",
G_CALLBACK (delete_fractal_callback),
view);
return grid;
}
static void
fractalexplorer_rescan_list (GtkWidget *widget,
gpointer data)
{
static GtkWidget *dlg = NULL;
GtkWidget *view = data;
GtkWidget *patheditor;
if (dlg)
{
gtk_window_present (GTK_WINDOW (dlg));
return;
}
dlg = gimp_dialog_new (_("Rescan for Fractals"), PLUG_IN_ROLE,
gtk_widget_get_toplevel (view),
GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT,
gimp_standard_help_func, PLUG_IN_PROC,
_("_Cancel"), GTK_RESPONSE_CANCEL,
_("_OK"), GTK_RESPONSE_OK,
NULL);
gimp_dialog_set_alternative_button_order (GTK_DIALOG (dlg),
GTK_RESPONSE_OK,
GTK_RESPONSE_CANCEL,
-1);
g_signal_connect (dlg, "destroy",
G_CALLBACK (gtk_widget_destroyed),
&dlg);
patheditor = gimp_path_editor_new (_("Add FractalExplorer Path"),
fractalexplorer_path);
gtk_container_set_border_width (GTK_CONTAINER (patheditor), 12);
gtk_box_pack_start (GTK_BOX (gtk_dialog_get_content_area (GTK_DIALOG (dlg))),
patheditor, TRUE, TRUE, 0);
gtk_widget_show (patheditor);
if (gimp_dialog_run (GIMP_DIALOG (dlg)) == GTK_RESPONSE_OK)
{
g_free (fractalexplorer_path);
fractalexplorer_path =
gimp_path_editor_get_path (GIMP_PATH_EDITOR (patheditor));
if (fractalexplorer_path)
{
GtkTreeModel *model;
GtkTreeSelection *selection;
GtkTreePath *path;
GtkTreeIter iter;
fractalexplorer_list_load_all (fractalexplorer_path);
model = gtk_tree_view_get_model (GTK_TREE_VIEW (view));
gtk_list_store_clear (GTK_LIST_STORE (model));
fill_list_store (GTK_LIST_STORE (model));
/* select active fractal, otherwise first fractal */
selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (view));
if (gtk_tree_model_get_iter_first (model, &iter))
{
gtk_tree_selection_select_iter (selection, &iter);
path = gtk_tree_model_get_path (model, &iter);
current_obj = fractalexplorer_list->data;
gtk_tree_view_scroll_to_cell (GTK_TREE_VIEW (view), path, NULL,
FALSE, 0.0, 0.0);
gtk_tree_path_free (path);
}
}
}
gtk_widget_destroy (dlg);
}
Reference in New Issue View Git Blame Copy Permalink