/**
* Convert an array of Image *s to an ImageMagick scene sequence (i.e. a
* doubly-linked list of Images).
*
* No Ruby usage (internal function)
*
* @param imagelist the imagelist
* @return a pointer to the head of the scene sequence list
* @see rm_imagelist_from_images
*/
static Image *
images_from_imagelist(VALUE imagelist)
{
long x, len;
Image *head = NULL;
VALUE images, t;
len = check_imagelist_length(imagelist);
images = rb_iv_get(imagelist, "@images");
for (x = 0; x < len; x++)
{
Image *image;
t = rb_ary_entry(images, x);
image = rm_check_destroyed(t);
// avoid a loop in this linked imagelist, issue #202
if (head == image || GetPreviousImageInList(image) != NULL)
{
image = rm_clone_image(image);
}
AppendImageToList(&head, image);
}
RB_GC_GUARD(images);
RB_GC_GUARD(t);
return head;
}
/*
Extern: images_from_imagelist
Purpose: Convert an array of Image *s to an ImageMagick scene
sequence (i.e. a doubly-linked list of Images)
Returns: a pointer to the head of the scene sequence list
*/
static Image *
images_from_imagelist(VALUE imagelist)
{
long x, len;
Image *head = NULL;
volatile VALUE images, t;
len = check_imagelist_length(imagelist);
images = rb_iv_get(imagelist, "@images");
for (x = 0; x < len; x++)
{
Image *image;
t = rb_ary_entry(images, x);
image = rm_check_destroyed(t);
AppendImageToList(&head, image);
}
return head;
}