/*! \brief Replace all selected pictures with a new picture
* \par Function Description
* Replaces all pictures in the current selection with a new image.
*
* \param [in] w_current The GschemToplevel object
* \param [in] filename The filename of the new picture
* \param [out] error The location to return error information.
* \return TRUE on success, FALSE on failure.
*/
gboolean
o_picture_exchange (GschemToplevel *w_current,
const gchar *filename, GError **error)
{
TOPLEVEL *toplevel = gschem_toplevel_get_toplevel (w_current);
GList *iter;
for (iter = geda_list_get_glist (toplevel->page_current->selection_list);
iter != NULL;
iter = g_list_next (iter)) {
OBJECT *object = (OBJECT *) iter->data;
g_assert (object != NULL);
if (object->type == OBJ_PICTURE) {
gboolean status;
/* Erase previous picture */
o_invalidate (w_current, object);
status = o_picture_set_from_file (toplevel, object, filename, error);
if (!status) return FALSE;
/* Draw new picture */
o_invalidate (w_current, object);
}
}
return TRUE;
}
/*! \brief Unembed a picture, reloading the image from disk
* \par Function Description
* Verify that the file associated with \a object exists on disk and
* is usable, and if so, reload the picture and mark it as unembedded.
*
* \param [in] toplevel The TOPLEVEL object.
* \param [in] object The picture OBJECT to unembed
*/
void o_picture_unembed (TOPLEVEL *toplevel, OBJECT *object)
{
GError *err = NULL;
const gchar *filename = o_picture_get_filename (object);
gchar *basename;
if (!o_picture_is_embedded (object)) return;
o_picture_set_from_file (toplevel, object, filename, &err);
if (err != NULL) {
s_log_message (_("Failed to load image from file [%1$s]: %2$s"),
filename, err->message);
s_log_message (_("Picture is still embedded."));
g_error_free (err);
return;
}
object->picture->embedded = 0;
basename = g_path_get_basename(filename);
s_log_message (_("Picture [%1$s] has been unembedded."), basename);
g_free(basename);
}
/*! \brief Create a picture object.
* \par Function Description
* This function creates a new object representing a picture.
*
* The picture is described by its upper left corner (\a x1, \a y1)
* and its lower right corner (\a x2, \a y2). The \a type parameter
* must be equal to #OBJ_PICTURE.
*
* If \a file_content is non-NULL, it must be a pointer to a buffer
* containing raw image data. If loading data from \a file_content
* is unsuccessful, and \a filename is non-NULL, an image will
* attempt to be loaded from \a filename. Otherwise, the picture
* object will be initially empty.
*
* \param [in] toplevel The TOPLEVEL object.
* \param [in] file_content Raw data of the image file, or NULL.
* \param [in] file_length Length of raw data buffer
* \param [in] filename File name backing this picture, or NULL.
* \param [in] type Must be OBJ_PICTURE.
* \param [in] x1 Upper x coordinate.
* \param [in] y1 Upper y coordinate.
* \param [in] x2 Lower x coordinate.
* \param [in] y2 Lower y coordinate.
* \param [in] angle Picture rotation angle.
* \param [in] mirrored Whether the image should be mirrored or not.
* \param [in] embedded Whether the embedded flag should be set or not.
* \return A pointer to a new picture #OBJECT.
*/
OBJECT *o_picture_new (TOPLEVEL *toplevel,
const gchar *file_content, gsize file_length,
const gchar *filename,
char type, int x1, int y1, int x2, int y2, int angle,
int mirrored, int embedded)
{
OBJECT *new_node;
PICTURE *picture;
/* create the object */
new_node = s_basic_new_object(type, "picture");
picture = geda_picture_new ();
new_node->picture = picture;
/* describe the picture with its upper left and lower right corner */
picture->upper_x = (x1 > x2) ? x2 : x1;
picture->upper_y = (y1 > y2) ? y1 : y2;
picture->lower_x = (x1 > x2) ? x1 : x2;
picture->lower_y = (y1 > y2) ? y2 : y1;
picture->pixbuf = NULL;
picture->file_content = NULL;
picture->file_length = 0;
picture->ratio = abs ((double) (x1 - x2) / (y1 - y2));
picture->filename = g_strdup (filename);
picture->angle = angle;
picture->mirrored = mirrored;
picture->embedded = embedded;
if (file_content != NULL) {
GError *error = NULL;
if (!o_picture_set_from_buffer (toplevel, new_node, filename,
file_content, file_length, &error)) {
s_log_message (_("Failed to load buffer image [%1$s]: %2$s"),
filename, error->message);
g_error_free (error);
/* Force the data into the object anyway, so as to prevent data
* loss of embedded images. */
picture->file_content = (gchar*) g_memdup (file_content, file_length);
picture->file_length = file_length;
}
}
if (picture->pixbuf == NULL && filename != NULL) {
GError *error = NULL;
if (!o_picture_set_from_file (toplevel, new_node, filename, &error)) {
s_log_message (_("Failed to load image from [%1$s]: %2$s"),
filename, error->message);
g_error_free (error);
/* picture not found; try to open a fall back pixbuf */
picture->pixbuf = o_picture_get_fallback_pixbuf(toplevel);
}
}
/* compute the bounding picture */
new_node->w_bounds_valid_for = NULL;
return new_node;
}
