gimp/plug-ins/fractal-explorer/fractal-explorer.c

1174 lines
35 KiB
C

/**********************************************************************
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 <http://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"
/**********************************************************************
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_x1;
gint sel_y1;
gint sel_x2;
gint sel_y2;
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;
GimpDrawable *drawable;
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 query (void);
static void run (const gchar *name,
gint nparams,
const GimpParam *param,
gint *nreturn_vals,
GimpParam **return_vals);
static void explorer (GimpDrawable *drawable);
/**********************************************************************
Declare local functions
*********************************************************************/
/* Functions for dialog widgets */
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);
const GimpPlugInInfo PLUG_IN_INFO =
{
NULL, /* init_proc */
NULL, /* quit_proc */
query, /* query_proc */
run, /* run_proc */
};
/**********************************************************************
MAIN()
*********************************************************************/
MAIN()
/**********************************************************************
FUNCTION: query
*********************************************************************/
static void
query (void)
{
static const GimpParamDef args[] =
{
{ GIMP_PDB_INT32, "run-mode", "The run mode { RUN-INTERACTIVE (0), RUN-NONINTERACTIVE (1) }" },
{ GIMP_PDB_IMAGE, "image", "Input image" },
{ GIMP_PDB_DRAWABLE, "drawable", "Input drawable" },
{ GIMP_PDB_INT8, "fractaltype", "0: Mandelbrot; "
"1: Julia; "
"2: Barnsley 1; "
"3: Barnsley 2; "
"4: Barnsley 3; "
"5: Spider; "
"6: ManOWar; "
"7: Lambda; "
"8: Sierpinski" },
{ GIMP_PDB_FLOAT, "xmin", "xmin fractal image delimiter" },
{ GIMP_PDB_FLOAT, "xmax", "xmax fractal image delimiter" },
{ GIMP_PDB_FLOAT, "ymin", "ymin fractal image delimiter" },
{ GIMP_PDB_FLOAT, "ymax", "ymax fractal image delimiter" },
{ GIMP_PDB_FLOAT, "iter", "Iteration value" },
{ GIMP_PDB_FLOAT, "cx", "cx value ( only Julia)" },
{ GIMP_PDB_FLOAT, "cy", "cy value ( only Julia)" },
{ GIMP_PDB_INT8, "colormode", "0: Apply colormap as specified by the parameters below; "
"1: Apply active gradient to final image" },
{ GIMP_PDB_FLOAT, "redstretch", "Red stretching factor" },
{ GIMP_PDB_FLOAT, "greenstretch", "Green stretching factor" },
{ GIMP_PDB_FLOAT, "bluestretch", "Blue stretching factor" },
{ GIMP_PDB_INT8, "redmode", "Red application mode (0:SIN;1:COS;2:NONE)" },
{ GIMP_PDB_INT8, "greenmode", "Green application mode (0:SIN;1:COS;2:NONE)" },
{ GIMP_PDB_INT8, "bluemode", "Blue application mode (0:SIN;1:COS;2:NONE)" },
{ GIMP_PDB_INT8, "redinvert", "Red inversion mode (1: enabled; 0: disabled)" },
{ GIMP_PDB_INT8, "greeninvert", "Green inversion mode (1: enabled; 0: disabled)" },
{ GIMP_PDB_INT8, "blueinvert", "Green inversion mode (1: enabled; 0: disabled)" },
{ GIMP_PDB_INT32, "ncolors", "Number of Colors for mapping (2<=ncolors<=8192)" }
};
gimp_install_procedure (PLUG_IN_PROC,
N_("Render fractal art"),
"No help yet.",
"Daniel Cotting (cotting@multimania.com, www.multimania.com/cotting)",
"Daniel Cotting (cotting@multimania.com, www.multimania.com/cotting)",
"December, 1998",
N_("_Fractal Explorer..."),
"RGB*, GRAY*",
GIMP_PLUGIN,
G_N_ELEMENTS (args), 0,
args, NULL);
gimp_plugin_menu_register (PLUG_IN_PROC, "<Image>/Filters/Render");
}
/**********************************************************************
FUNCTION: run
*********************************************************************/
static void
run (const gchar *name,
gint nparams,
const GimpParam *param,
gint *nreturn_vals,
GimpParam **return_vals)
{
static GimpParam values[1];
gint32 image_ID;
GimpRunMode run_mode;
gint pwidth;
gint pheight;
GimpPDBStatusType status = GIMP_PDB_SUCCESS;
gint sel_width;
gint sel_height;
run_mode = param[0].data.d_int32;
values[0].type = GIMP_PDB_STATUS;
values[0].data.d_status = status;
*nreturn_vals = 1;
*return_vals = values;
INIT_I18N ();
/* Get the specified drawable */
drawable = gimp_drawable_get (param[2].data.d_drawable);
image_ID = param[1].data.d_image;
gimp_drawable_mask_bounds (drawable->drawable_id,
&sel_x1, &sel_y1, &sel_x2, &sel_y2);
sel_width = sel_x2 - sel_x1;
sel_height = sel_y2 - sel_y1;
/* 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);
/* See how we will run */
switch (run_mode)
{
case GIMP_RUN_INTERACTIVE:
/* Possibly retrieve data */
gimp_get_data ("plug_in_fractalexplorer", &wvals);
/* Get information from the dialog */
if (!explorer_dialog ())
return;
break;
case GIMP_RUN_NONINTERACTIVE:
/* Make sure all the arguments are present */
if (nparams != 22)
{
status = GIMP_PDB_CALLING_ERROR;
}
else
{
wvals.fractaltype = param[3].data.d_int8;
wvals.xmin = param[4].data.d_float;
wvals.xmax = param[5].data.d_float;
wvals.ymin = param[6].data.d_float;
wvals.ymax = param[7].data.d_float;
wvals.iter = param[8].data.d_float;
wvals.cx = param[9].data.d_float;
wvals.cy = param[10].data.d_float;
wvals.colormode = param[11].data.d_int8;
wvals.redstretch = param[12].data.d_float;
wvals.greenstretch = param[13].data.d_float;
wvals.bluestretch = param[14].data.d_float;
wvals.redmode = param[15].data.d_int8;
wvals.greenmode = param[16].data.d_int8;
wvals.bluemode = param[17].data.d_int8;
wvals.redinvert = param[18].data.d_int8;
wvals.greeninvert = param[19].data.d_int8;
wvals.blueinvert = param[20].data.d_int8;
wvals.ncolors = CLAMP (param[21].data.d_int32, 2, MAXNCOLORS);
}
make_color_map();
break;
case GIMP_RUN_WITH_LAST_VALS:
/* Possibly retrieve data */
gimp_get_data ("plug_in_fractalexplorer", &wvals);
make_color_map ();
break;
default:
break;
}
xmin = wvals.xmin;
xmax = wvals.xmax;
ymin = wvals.ymin;
ymax = wvals.ymax;
cx = wvals.cx;
cy = wvals.cy;
if (status == GIMP_PDB_SUCCESS)
{
/* Make sure that the drawable is not indexed */
if (! gimp_drawable_is_indexed (drawable->drawable_id))
{
gimp_progress_init (_("Rendering fractal"));
/* Set the tile cache size */
gimp_tile_cache_ntiles (2 * (drawable->width / gimp_tile_width() + 1));
/* Run! */
explorer (drawable);
if (run_mode != GIMP_RUN_NONINTERACTIVE)
gimp_displays_flush ();
/* Store data */
if (run_mode == GIMP_RUN_INTERACTIVE)
gimp_set_data ("plug_in_fractalexplorer",
&wvals, sizeof (explorer_vals_t));
}
else
{
status = GIMP_PDB_EXECUTION_ERROR;
}
}
values[0].data.d_status = status;
gimp_drawable_detach (drawable);
}
/**********************************************************************
FUNCTION: explorer
*********************************************************************/
static void
explorer (GimpDrawable * drawable)
{
GimpPixelRgn srcPR;
GimpPixelRgn destPR;
gint width;
gint height;
gint bpp;
gint row;
gint x1;
gint y1;
gint x2;
gint y2;
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).
*/
gimp_drawable_mask_bounds (drawable->drawable_id, &x1, &y1, &x2, &y2);
/* Get the size of the input image. (This will/must be the same
* as the size of the output image.
*/
width = drawable->width;
height = drawable->height;
bpp = drawable->bpp;
/* allocate row buffers */
src_row = g_new (guchar, bpp * (x2 - x1));
dest_row = g_new (guchar, bpp * (x2 - x1));
/* initialize the pixel regions */
gimp_pixel_rgn_init (&srcPR, drawable, 0, 0, width, height, FALSE, FALSE);
gimp_pixel_rgn_init (&destPR, drawable, 0, 0, width, height, TRUE, TRUE);
xbild = width;
ybild = height;
xdiff = (xmax - xmin) / xbild;
ydiff = (ymax - ymin) / ybild;
/* for grayscale drawables */
if (bpp < 3)
{
gint i;
for (i = 0; i < MAXNCOLORS; i++)
valuemap[i] = GIMP_RGB_LUMINANCE (colormap[i].r,
colormap[i].g,
colormap[i].b);
}
for (row = y1; row < y2; row++)
{
gimp_pixel_rgn_get_row (&srcPR, src_row, x1, row, (x2 - x1));
explorer_render_row (src_row,
dest_row,
row,
(x2 - x1),
bpp);
/* store the dest */
gimp_pixel_rgn_set_row (&destPR, dest_row, x1, row, (x2 - x1));
if ((row % 10) == 0)
gimp_progress_update ((double) row / (double) (y2 - y1));
}
/* update the processed region */
gimp_drawable_flush (drawable);
gimp_drawable_merge_shadow (drawable->drawable_id, TRUE);
gimp_drawable_update (drawable->drawable_id, x1, y1, (x2 - x1), (y2 - y1));
g_free (src_row);
g_free (dest_row);
}
/**********************************************************************
FUNCTION: explorer_render_row
*********************************************************************/
void
explorer_render_row (const guchar *src_row,
guchar *dest_row,
gint row,
gint row_width,
gint bpp)
{
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;
gint iteration;
gint useloglog;
gdouble log2;
cx = wvals.cx;
cy = wvals.cy;
useloglog = wvals.useloglog;
iteration = wvals.iter;
log2 = log (2.0);
for (col = 0; col < row_width; col++)
{
a = xmin + (double) col * xdiff;
b = ymin + (double) row * ydiff;
if (wvals.fractaltype != 0)
{
tmpx = x = a;
tmpy = y = b;
}
else
{
x = 0;
y = 0;
}
for (counter = 0; counter < iteration; counter++)
{
oldx=x;
oldy=y;
switch (wvals.fractaltype)
{
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) * (wvals.ncolors - 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 + asssociated 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,
GTK_STOCK_DIALOG_QUESTION,
str,
GTK_STOCK_DELETE, GTK_STOCK_CANCEL,
G_OBJECT (widget), "destroy",
delete_dialog_callback,
data);
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;
wvals = current_obj->opts;
dialog_change_scale ();
set_cmap_preview ();
dialog_update_preview ();
}
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_foreach (fractalexplorer_list, (GFunc) fractalexplorer_free, NULL);
g_list_free (fractalexplorer_list);
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);
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);
return NULL;
}
fclose (fp);
fractalexplorer->obj_status = fractalexplorer_OK;
return fractalexplorer;
}
static void
fractalexplorer_list_load_one (const GimpDatafileData *file_data,
gpointer user_data)
{
fractalexplorerOBJ *fractalexplorer;
fractalexplorer = fractalexplorer_load (file_data->filename,
file_data->basename);
if (fractalexplorer)
fractalexplorer_list_insert (fractalexplorer);
}
static void
fractalexplorer_list_load_all (const gchar *path)
{
/* Make sure to clear any existing fractalexplorers */
current_obj = NULL;
fractalexplorer_list_free_all ();
gimp_datafiles_read_directories (path, G_FILE_TEST_IS_REGULAR,
fractalexplorer_list_load_one,
NULL);
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 *table;
GtkWidget *scrolled_win;
GtkTreeViewColumn *col;
GtkCellRenderer *renderer;
GtkWidget *view;
GtkTreeSelection *selection;
GtkListStore *list_store;
GtkWidget *button;
table = gtk_table_new (3, 2, FALSE);
gtk_table_set_row_spacings (GTK_TABLE (table), 6);
gtk_table_set_col_spacings (GTK_TABLE (table), 6);
gtk_container_set_border_width (GTK_CONTAINER (table), 12);
gtk_widget_show (table);
scrolled_win = gtk_scrolled_window_new (NULL, NULL);
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_table_attach (GTK_TABLE (table), scrolled_win, 0, 3, 0, 1,
GTK_FILL|GTK_EXPAND , GTK_FILL|GTK_EXPAND, 0, 0);
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_from_stock (GTK_STOCK_REFRESH);
gtk_table_attach (GTK_TABLE (table), button, 0, 1, 1, 2,
GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0);
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_from_stock (GTK_STOCK_APPLY);
gtk_table_attach (GTK_TABLE (table), button, 1, 2, 1, 2,
GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0);
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_from_stock (GTK_STOCK_DELETE);
gtk_table_attach (GTK_TABLE (table), button, 2, 3, 1, 2,
GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0);
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 table;
}
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_BINARY,
gtk_widget_get_toplevel (view),
GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT,
gimp_standard_help_func, PLUG_IN_PROC,
GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
GTK_STOCK_OK, GTK_RESPONSE_OK,
NULL);
gtk_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);
}