coders/vid.c - platform/external/ImageMagick - Gitiles

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %                            V   V  IIIII  DDDD                               %
 %                            V   V    I    D   D                              %
 %                            V   V    I    D   D                              %
 %                             V V     I    D   D                              %
 %                              V    IIIII  DDDD                               %
 %                                                                             %
 %                                                                             %
 %             Return a Visual Image Directory for matching images.            %
 %                                                                             %
 %                              Software Design                                %
 %                                   Cristy                                    %
 %                                 July 1992                                   %
 %                                                                             %
 %                                                                             %
 %  Copyright 1999-2015 ImageMagick Studio LLC, a non-profit organization      %
 %  dedicated to making software imaging solutions freely available.           %
 %                                                                             %
 %  You may not use this file except in compliance with the License.  You may  %
 %  obtain a copy of the License at                                            %
 %                                                                             %
 %    http://www.imagemagick.org/script/license.php                            %
 %                                                                             %
 %  Unless required by applicable law or agreed to in writing, software        %
 %  distributed under the License is distributed on an "AS IS" BASIS,          %
 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
 %  See the License for the specific language governing permissions and        %
 %  limitations under the License.                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %
 */

 /*
   Include declarations.
 */
 #include "MagickCore/studio.h"
 #include "MagickCore/property.h"
 #include "MagickCore/blob.h"
 #include "MagickCore/blob-private.h"
 #include "MagickCore/constitute.h"
 #include "MagickCore/exception.h"
 #include "MagickCore/exception-private.h"
 #include "MagickCore/geometry.h"
 #include "MagickCore/image.h"
 #include "MagickCore/image-private.h"
 #include "MagickCore/list.h"
 #include "MagickCore/log.h"
 #include "MagickCore/magick.h"
 #include "MagickCore/memory_.h"
 #include "MagickCore/monitor.h"
 #include "MagickCore/monitor-private.h"
 #include "MagickCore/montage.h"
 #include "MagickCore/quantum-private.h"
 #include "MagickCore/resize.h"
 #include "MagickCore/static.h"
 #include "MagickCore/string_.h"
 #include "MagickCore/module.h"
 #include "MagickCore/utility.h"

 /*
   Forward declarations.
 */
 static MagickBooleanType
   WriteVIDImage(const ImageInfo *,Image *,ExceptionInfo *);

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   R e a d V I D I m a g e                                                   %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  ReadVIDImage reads one of more images and creates a Visual Image
 %  Directory file.  It allocates the memory necessary for the new Image
 %  structure and returns a pointer to the new image.
 %
 %  The format of the ReadVIDImage method is:
 %
 %      Image *ReadVIDImage(const ImageInfo *image_info,ExceptionInfo *exception)
 %
 %  A description of each parameter follows:
 %
 %    o image_info: the image info.
 %
 %    o exception: return any errors or warnings in this structure.
 %
 */
 static Image *ReadVIDImage(const ImageInfo *image_info,ExceptionInfo *exception)
 {
 #define ClientName  "montage"

   char
     **filelist,
     *label;

   Image
     *image,
     *images,
     *montage_image,
     *next_image,
     *thumbnail_image;

   ImageInfo
     *read_info;

   int
     number_files;

   MagickBooleanType
     status;

   MontageInfo
     *montage_info;

   RectangleInfo
     geometry;

   register ssize_t
     i;

   /*
     Expand the filename.
   */
   assert(image_info != (const ImageInfo *) NULL);
   assert(image_info->signature == MagickSignature);
   if (image_info->debug != MagickFalse)
     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
       image_info->filename);
   assert(exception != (ExceptionInfo *) NULL);
   assert(exception->signature == MagickSignature);
   image=AcquireImage(image_info,exception);
   filelist=(char **) AcquireMagickMemory(sizeof(*filelist));
   if (filelist == (char **) NULL)
     ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
   filelist[0]=ConstantString(image_info->filename);
   number_files=1;
   status=ExpandFilenames(&number_files,&filelist);
   if ((status == MagickFalse) || (number_files == 0))
     ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
   image=DestroyImage(image);
   /*
     Read each image and convert them to a tile.
   */
   images=NewImageList();
   read_info=CloneImageInfo(image_info);
   SetImageInfoBlob(read_info,(void *) NULL,0);
   (void) SetImageInfoProgressMonitor(read_info,(MagickProgressMonitor) NULL,
     (void *) NULL);
   if (read_info->size == (char *) NULL)
     (void) CloneString(&read_info->size,DefaultTileGeometry);
   for (i=0; i < (ssize_t) number_files; i++)
   {
     if (image_info->debug != MagickFalse)
       (void) LogMagickEvent(CoderEvent,GetMagickModule(),"name: %s",
         filelist[i]);
     (void) CopyMagickString(read_info->filename,filelist[i],MagickPathExtent);
     filelist[i]=DestroyString(filelist[i]);
     *read_info->magick='\0';
     next_image=ReadImage(read_info,exception);
     CatchException(exception);
     if (next_image == (Image *) NULL)
       break;
     label=InterpretImageProperties((ImageInfo *) image_info,next_image,
       DefaultTileLabel,exception);
     (void) SetImageProperty(next_image,"label",label,exception);
     label=DestroyString(label);
     if (image_info->debug != MagickFalse)
       (void) LogMagickEvent(CoderEvent,GetMagickModule(),
         "geometry: %.20gx%.20g",(double) next_image->columns,(double)
         next_image->rows);
     SetGeometry(next_image,&geometry);
     (void) ParseMetaGeometry(read_info->size,&geometry.x,&geometry.y,
       &geometry.width,&geometry.height);
     thumbnail_image=ThumbnailImage(next_image,geometry.width,geometry.height,
       exception);
     if (thumbnail_image != (Image *) NULL)
       {
         next_image=DestroyImage(next_image);
         next_image=thumbnail_image;
       }
     if (image_info->debug != MagickFalse)
       (void) LogMagickEvent(CoderEvent,GetMagickModule(),
         "thumbnail geometry: %.20gx%.20g",(double) next_image->columns,(double)
         next_image->rows);
     AppendImageToList(&images,next_image);
     status=SetImageProgress(images,LoadImagesTag,i,number_files);
     if (status == MagickFalse)
       break;
   }
   read_info=DestroyImageInfo(read_info);
   filelist=(char **) RelinquishMagickMemory(filelist);
   if (images == (Image *) NULL)
     ThrowReaderException(CorruptImageError,
       "ImageFileDoesNotContainAnyImageData");
   /*
     Create the visual image directory.
   */
   montage_info=CloneMontageInfo(image_info,(MontageInfo *) NULL);
   if (image_info->debug != MagickFalse)
     (void) LogMagickEvent(CoderEvent,GetMagickModule(),"creating montage");
   montage_image=MontageImageList(image_info,montage_info,
     GetFirstImageInList(images),exception);
   montage_info=DestroyMontageInfo(montage_info);
   images=DestroyImageList(images);
   return(montage_image);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   R e g i s t e r V I D I m a g e                                           %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  RegisterVIDImage() adds attributes for the VID image format to
 %  the list of supported formats.  The attributes include the image format
 %  tag, a method to read and/or write the format, whether the format
 %  supports the saving of more than one frame to the same file or blob,
 %  whether the format supports native in-memory I/O, and a brief
 %  description of the format.
 %
 %  The format of the RegisterVIDImage method is:
 %
 %      size_t RegisterVIDImage(void)
 %
 */
 ModuleExport size_t RegisterVIDImage(void)
 {
   MagickInfo
     *entry;

   entry=AcquireMagickInfo("VID","VID","Visual Image Directory");
   entry->decoder=(DecodeImageHandler *) ReadVIDImage;
   entry->encoder=(EncodeImageHandler *) WriteVIDImage;
   entry->format_type=ImplicitFormatType;
   (void) RegisterMagickInfo(entry);
   return(MagickImageCoderSignature);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   U n r e g i s t e r V I D I m a g e                                       %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  UnregisterVIDImage() removes format registrations made by the
 %  VID module from the list of supported formats.
 %
 %  The format of the UnregisterVIDImage method is:
 %
 %      UnregisterVIDImage(void)
 %
 */
 ModuleExport void UnregisterVIDImage(void)
 {
   (void) UnregisterMagickInfo("VID");
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   W r i t e V I D I m a g e                                                 %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  WriteVIDImage() writes an image to a file in VID X image format.
 %
 %  The format of the WriteVIDImage method is:
 %
 %      MagickBooleanType WriteVIDImage(const ImageInfo *image_info,
 %        Image *image,ExceptionInfo *exception)
 %
 %  A description of each parameter follows.
 %
 %    o image_info: the image info.
 %
 %    o image:  The image.
 %
 %    o exception: return any errors or warnings in this structure.
 %
 */
 static MagickBooleanType WriteVIDImage(const ImageInfo *image_info,Image *image,
   ExceptionInfo *exception)
 {
   Image
     *montage_image;

   ImageInfo
     *write_info;

   MagickBooleanType
     status;

   MontageInfo
     *montage_info;

   register Image
     *p;

   /*
     Create the visual image directory.
   */
   for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
     (void) SetImageProperty(p,"label",DefaultTileLabel,exception);
   montage_info=CloneMontageInfo(image_info,(MontageInfo *) NULL);
   montage_image=MontageImageList(image_info,montage_info,image,exception);
   montage_info=DestroyMontageInfo(montage_info);
   if (montage_image == (Image *) NULL)
     return(MagickFalse);
   (void) CopyMagickString(montage_image->filename,image_info->filename,
     MagickPathExtent);
   write_info=CloneImageInfo(image_info);
   (void) SetImageInfo(write_info,1,exception);
   if (LocaleCompare(write_info->magick,"VID") == 0)
     (void) FormatLocaleString(montage_image->filename,MagickPathExtent,
       "miff:%s",write_info->filename);
   status=WriteImage(write_info,montage_image,exception);
   montage_image=DestroyImage(montage_image);
   write_info=DestroyImageInfo(write_info);
   return(status);
 }
	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% V V IIIII DDDD %
	% V V I D D %
	% V V I D D %
	% V V I D D %
	% V IIIII DDDD %
	% %
	% %
	% Return a Visual Image Directory for matching images. %
	% %
	% Software Design %
	% Cristy %
	% July 1992 %
	% %
	% %
	% Copyright 1999-2015 ImageMagick Studio LLC, a non-profit organization %
	% dedicated to making software imaging solutions freely available. %
	% %
	% You may not use this file except in compliance with the License. You may %
	% obtain a copy of the License at %
	% %
	% http://www.imagemagick.org/script/license.php %
	% %
	% Unless required by applicable law or agreed to in writing, software %
	% distributed under the License is distributed on an "AS IS" BASIS, %
	% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %
	% See the License for the specific language governing permissions and %
	% limitations under the License. %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	%
	*/

	/*
	Include declarations.
	*/
	#include "MagickCore/studio.h"
	#include "MagickCore/property.h"
	#include "MagickCore/blob.h"
	#include "MagickCore/blob-private.h"
	#include "MagickCore/constitute.h"
	#include "MagickCore/exception.h"
	#include "MagickCore/exception-private.h"
	#include "MagickCore/geometry.h"
	#include "MagickCore/image.h"
	#include "MagickCore/image-private.h"
	#include "MagickCore/list.h"
	#include "MagickCore/log.h"
	#include "MagickCore/magick.h"
	#include "MagickCore/memory_.h"
	#include "MagickCore/monitor.h"
	#include "MagickCore/monitor-private.h"
	#include "MagickCore/montage.h"
	#include "MagickCore/quantum-private.h"
	#include "MagickCore/resize.h"
	#include "MagickCore/static.h"
	#include "MagickCore/string_.h"
	#include "MagickCore/module.h"
	#include "MagickCore/utility.h"

	/*
	Forward declarations.
	*/
	static MagickBooleanType
	WriteVIDImage(const ImageInfo ,Image ,ExceptionInfo *);

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% R e a d V I D I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% ReadVIDImage reads one of more images and creates a Visual Image
	% Directory file. It allocates the memory necessary for the new Image
	% structure and returns a pointer to the new image.
	%
	% The format of the ReadVIDImage method is:
	%
	% Image ReadVIDImage(const ImageInfo image_info,ExceptionInfo *exception)
	%
	% A description of each parameter follows:
	%
	% o image_info: the image info.
	%
	% o exception: return any errors or warnings in this structure.
	%
	*/
	static Image ReadVIDImage(const ImageInfo image_info,ExceptionInfo *exception)
	{
	#define ClientName "montage"

	char
	**filelist,
	*label;

	Image
	*image,
	*images,
	*montage_image,
	*next_image,
	*thumbnail_image;

	ImageInfo
	*read_info;

	int
	number_files;

	MagickBooleanType
	status;

	MontageInfo
	*montage_info;

	RectangleInfo
	geometry;

	register ssize_t
	i;

	/*
	Expand the filename.
	*/
	assert(image_info != (const ImageInfo *) NULL);
	assert(image_info->signature == MagickSignature);
	if (image_info->debug != MagickFalse)
	(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
	image_info->filename);
	assert(exception != (ExceptionInfo *) NULL);
	assert(exception->signature == MagickSignature);
	image=AcquireImage(image_info,exception);
	filelist=(char *) AcquireMagickMemory(sizeof(filelist));
	if (filelist == (char **) NULL)
	ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
	filelist[0]=ConstantString(image_info->filename);
	number_files=1;
	status=ExpandFilenames(&number_files,&filelist);
	if ((status == MagickFalse) \|\| (number_files == 0))
	ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
	image=DestroyImage(image);
	/*
	Read each image and convert them to a tile.
	*/
	images=NewImageList();
	read_info=CloneImageInfo(image_info);
	SetImageInfoBlob(read_info,(void *) NULL,0);
	(void) SetImageInfoProgressMonitor(read_info,(MagickProgressMonitor) NULL,
	(void *) NULL);
	if (read_info->size == (char *) NULL)
	(void) CloneString(&read_info->size,DefaultTileGeometry);
	for (i=0; i < (ssize_t) number_files; i++)
	{
	if (image_info->debug != MagickFalse)
	(void) LogMagickEvent(CoderEvent,GetMagickModule(),"name: %s",
	filelist[i]);
	(void) CopyMagickString(read_info->filename,filelist[i],MagickPathExtent);
	filelist[i]=DestroyString(filelist[i]);
	*read_info->magick='\0';
	next_image=ReadImage(read_info,exception);
	CatchException(exception);
	if (next_image == (Image *) NULL)
	break;
	label=InterpretImageProperties((ImageInfo *) image_info,next_image,
	DefaultTileLabel,exception);
	(void) SetImageProperty(next_image,"label",label,exception);
	label=DestroyString(label);
	if (image_info->debug != MagickFalse)
	(void) LogMagickEvent(CoderEvent,GetMagickModule(),
	"geometry: %.20gx%.20g",(double) next_image->columns,(double)
	next_image->rows);
	SetGeometry(next_image,&geometry);
	(void) ParseMetaGeometry(read_info->size,&geometry.x,&geometry.y,
	&geometry.width,&geometry.height);
	thumbnail_image=ThumbnailImage(next_image,geometry.width,geometry.height,
	exception);
	if (thumbnail_image != (Image *) NULL)
	{
	next_image=DestroyImage(next_image);
	next_image=thumbnail_image;
	}
	if (image_info->debug != MagickFalse)
	(void) LogMagickEvent(CoderEvent,GetMagickModule(),
	"thumbnail geometry: %.20gx%.20g",(double) next_image->columns,(double)
	next_image->rows);
	AppendImageToList(&images,next_image);
	status=SetImageProgress(images,LoadImagesTag,i,number_files);
	if (status == MagickFalse)
	break;
	}
	read_info=DestroyImageInfo(read_info);
	filelist=(char **) RelinquishMagickMemory(filelist);
	if (images == (Image *) NULL)
	ThrowReaderException(CorruptImageError,
	"ImageFileDoesNotContainAnyImageData");
	/*
	Create the visual image directory.
	*/
	montage_info=CloneMontageInfo(image_info,(MontageInfo *) NULL);
	if (image_info->debug != MagickFalse)
	(void) LogMagickEvent(CoderEvent,GetMagickModule(),"creating montage");
	montage_image=MontageImageList(image_info,montage_info,
	GetFirstImageInList(images),exception);
	montage_info=DestroyMontageInfo(montage_info);
	images=DestroyImageList(images);
	return(montage_image);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% R e g i s t e r V I D I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% RegisterVIDImage() adds attributes for the VID image format to
	% the list of supported formats. The attributes include the image format
	% tag, a method to read and/or write the format, whether the format
	% supports the saving of more than one frame to the same file or blob,
	% whether the format supports native in-memory I/O, and a brief
	% description of the format.
	%
	% The format of the RegisterVIDImage method is:
	%
	% size_t RegisterVIDImage(void)
	%
	*/
	ModuleExport size_t RegisterVIDImage(void)
	{
	MagickInfo
	*entry;

	entry=AcquireMagickInfo("VID","VID","Visual Image Directory");
	entry->decoder=(DecodeImageHandler *) ReadVIDImage;
	entry->encoder=(EncodeImageHandler *) WriteVIDImage;
	entry->format_type=ImplicitFormatType;
	(void) RegisterMagickInfo(entry);
	return(MagickImageCoderSignature);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% U n r e g i s t e r V I D I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% UnregisterVIDImage() removes format registrations made by the
	% VID module from the list of supported formats.
	%
	% The format of the UnregisterVIDImage method is:
	%
	% UnregisterVIDImage(void)
	%
	*/
	ModuleExport void UnregisterVIDImage(void)
	{
	(void) UnregisterMagickInfo("VID");
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% W r i t e V I D I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% WriteVIDImage() writes an image to a file in VID X image format.
	%
	% The format of the WriteVIDImage method is:
	%
	% MagickBooleanType WriteVIDImage(const ImageInfo *image_info,
	% Image image,ExceptionInfo exception)
	%
	% A description of each parameter follows.
	%
	% o image_info: the image info.
	%
	% o image: The image.
	%
	% o exception: return any errors or warnings in this structure.
	%
	*/
	static MagickBooleanType WriteVIDImage(const ImageInfo image_info,Image image,
	ExceptionInfo *exception)
	{
	Image
	*montage_image;

	ImageInfo
	*write_info;

	MagickBooleanType
	status;

	MontageInfo
	*montage_info;

	register Image
	*p;

	/*
	Create the visual image directory.
	*/
	for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
	(void) SetImageProperty(p,"label",DefaultTileLabel,exception);
	montage_info=CloneMontageInfo(image_info,(MontageInfo *) NULL);
	montage_image=MontageImageList(image_info,montage_info,image,exception);
	montage_info=DestroyMontageInfo(montage_info);
	if (montage_image == (Image *) NULL)
	return(MagickFalse);
	(void) CopyMagickString(montage_image->filename,image_info->filename,
	MagickPathExtent);
	write_info=CloneImageInfo(image_info);
	(void) SetImageInfo(write_info,1,exception);
	if (LocaleCompare(write_info->magick,"VID") == 0)
	(void) FormatLocaleString(montage_image->filename,MagickPathExtent,
	"miff:%s",write_info->filename);
	status=WriteImage(write_info,montage_image,exception);
	montage_image=DestroyImage(montage_image);
	write_info=DestroyImageInfo(write_info);
	return(status);
	}