/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% G e t I m a g e T y p e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% GetImageType() returns the potential type of image:
%
% Bilevel Grayscale GrayscaleMatte
% Palette PaletteMatte TrueColor
% TrueColorMatte ColorSeparation ColorSeparationMatte
%
% To ensure the image type matches its potential, use SetImageType():
%
% (void) SetImageType(image,GetImageType(image));
%
% The format of the GetImageType method is:
%
% ImageType GetImageType(const Image *image,ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o image: the image.
%
% o exception: return any errors or warnings in this structure.
%
*/
MagickExport ImageType GetImageType(const Image *image,ExceptionInfo *exception)
{
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
if (image->colorspace == CMYKColorspace)
{
if (image->matte == MagickFalse)
return(ColorSeparationType);
return(ColorSeparationMatteType);
}
if (IsMonochromeImage(image,exception) != MagickFalse)
return(BilevelType);
if (IsGrayImage(image,exception) != MagickFalse)
{
if (image->matte != MagickFalse)
return(GrayscaleMatteType);
return(GrayscaleType);
}
if (IsPaletteImage(image,exception) != MagickFalse)
{
if (image->matte != MagickFalse)
return(PaletteMatteType);
return(PaletteType);
}
if (image->matte != MagickFalse)
return(TrueColorMatteType);
return(TrueColorType);
}
static int
parse_header( Read *read )
{
VipsImage *im = read->im;
Image *image = read->image;
Image *p;
int i;
#ifdef DEBUG
printf( "parse_header: filename = %s\n", read->filename );
printf( "GetImageChannelDepth(AllChannels) = %zd\n",
GetImageChannelDepth( image, AllChannels, &image->exception ) );
printf( "GetImageDepth() = %zd\n",
GetImageDepth( image, &image->exception ) );
printf( "image->depth = %zd\n", image->depth );
printf( "GetImageType() = %d\n",
GetImageType( image, &image->exception ) );
printf( "IsGrayImage() = %d\n",
IsGrayImage( image, &image->exception ) );
printf( "IsMonochromeImage() = %d\n",
IsMonochromeImage( image, &image->exception ) );
printf( "IsOpaqueImage() = %d\n",
IsOpaqueImage( image, &image->exception ) );
printf( "image->columns = %zd\n", image->columns );
printf( "image->rows = %zd\n", image->rows );
#endif /*DEBUG*/
im->Xsize = image->columns;
im->Ysize = image->rows;
read->frame_height = image->rows;
if( (im->Bands = get_bands( image )) < 0 )
return( -1 );
/* Depth can be 'fractional'. You'd think we should use
* GetImageDepth() but that seems unreliable. 16-bit mono DICOM images
* are reported as depth 1, for example.
*/
im->BandFmt = -1;
if( image->depth >= 1 && image->depth <= 8 )
im->BandFmt = VIPS_FORMAT_UCHAR;
if( image->depth >= 9 && image->depth <= 16 )
im->BandFmt = VIPS_FORMAT_USHORT;
#ifdef UseHDRI
if( image->depth == 32 )
im->BandFmt = VIPS_FORMAT_FLOAT;
if( image->depth == 64 )
im->BandFmt = VIPS_FORMAT_DOUBLE;
#else /*!UseHDRI*/
if( image->depth == 32 )
im->BandFmt = VIPS_FORMAT_UINT;
#endif /*UseHDRI*/
if( im->BandFmt == -1 ) {
vips_error( "magick2vips", _( "unsupported bit depth %d" ),
(int) image->depth );
return( -1 );
}
switch( image->colorspace ) {
case GRAYColorspace:
if( im->BandFmt == VIPS_FORMAT_USHORT )
im->Type = VIPS_INTERPRETATION_GREY16;
else
im->Type = VIPS_INTERPRETATION_B_W;
break;
case RGBColorspace:
if( im->BandFmt == VIPS_FORMAT_USHORT )
im->Type = VIPS_INTERPRETATION_RGB16;
else
im->Type = VIPS_INTERPRETATION_RGB;
break;
case sRGBColorspace:
if( im->BandFmt == VIPS_FORMAT_USHORT )
im->Type = VIPS_INTERPRETATION_RGB16;
else
im->Type = VIPS_INTERPRETATION_sRGB;
break;
case CMYKColorspace:
im->Type = VIPS_INTERPRETATION_CMYK;
break;
default:
vips_error( "magick2vips", _( "unsupported colorspace %d" ),
(int) image->colorspace );
return( -1 );
}
switch( image->units ) {
case PixelsPerInchResolution:
im->Xres = image->x_resolution / 25.4;
im->Yres = image->y_resolution / 25.4;
break;
case PixelsPerCentimeterResolution:
im->Xres = image->x_resolution / 10.0;
im->Yres = image->y_resolution / 10.0;
break;
default:
im->Xres = 1.0;
im->Yres = 1.0;
break;
}
/* Other fields.
*/
im->Coding = VIPS_CODING_NONE;
vips_image_pipelinev( im, VIPS_DEMAND_STYLE_SMALLTILE, NULL );
/* Three ways to loop over attributes / properties :-(
*/
#ifdef HAVE_RESETIMAGEPROPERTYITERATOR
{
char *key;
/* This is the most recent imagemagick API, test for this first.
*/
ResetImagePropertyIterator( image );
while( (key = GetNextImageProperty( image )) ) {
char name_text[256];
VipsBuf name = VIPS_BUF_STATIC( name_text );
vips_buf_appendf( &name, "magick-%s", key );
vips_image_set_string( im,
vips_buf_all( &name ), GetImageProperty( image, key ) );
}
}
#elif defined(HAVE_RESETIMAGEATTRIBUTEITERATOR)
{
const ImageAttribute *attr;
/* magick6.1-ish and later, deprecated in 6.5ish.
*/
ResetImageAttributeIterator( image );
while( (attr = GetNextImageAttribute( image )) ) {
char name_text[256];
VipsBuf name = VIPS_BUF_STATIC( name_text );
vips_buf_appendf( &name, "magick-%s", attr->key );
vips_image_set_string( im, vips_buf_all( &name ), attr->value );
}
}
#else
{
const ImageAttribute *attr;
/* GraphicsMagick is missing the iterator: we have to loop ourselves.
* ->attributes is marked as private in the header, but there's no
* getter so we have to access it directly.
*/
for( attr = image->attributes; attr; attr = attr->next ) {
char name_text[256];
VipsBuf name = VIPS_BUF_STATIC( name_text );
vips_buf_appendf( &name, "magick-%s", attr->key );
vips_image_set_string( im, vips_buf_all( &name ), attr->value );
}
}
#endif
/* Do we have a set of equal-sized frames? Append them.
FIXME ... there must be an attribute somewhere from dicom read
which says this is a volumetric image
*/
read->n_frames = 0;
for( p = image; p; (p = GetNextImageInList( p )) ) {
if( p->columns != (unsigned int) im->Xsize ||
p->rows != (unsigned int) im->Ysize ||
get_bands( p ) != im->Bands )
break;
read->n_frames += 1;
}
if( p )
/* Nope ... just do the first image in the list.
*/
read->n_frames = 1;
#ifdef DEBUG
printf( "image has %d frames\n", read->n_frames );
#endif /*DEBUG*/
/* If all_frames is off, just get the first one.
*/
if( !read->all_frames )
read->n_frames = 1;
/* Record frame pointers.
*/
im->Ysize *= read->n_frames;
if( !(read->frames = VIPS_ARRAY( NULL, read->n_frames, Image * )) )
return( -1 );
p = image;
for( i = 0; i < read->n_frames; i++ ) {
read->frames[i] = p;
p = GetNextImageInList( p );
}
return( 0 );
}
static MagickBooleanType WritePS3Image(const ImageInfo *image_info,Image *image)
{
static const char
*PostscriptProlog[]=
{
"/ByteStreamDecodeFilter",
"{",
" /z exch def",
" /r exch def",
" /c exch def",
" z "PS3_NoCompression" eq { /ASCII85Decode filter } if",
" z "PS3_FaxCompression" eq",
" {",
" <<",
" /K "CCITTParam,
" /Columns c",
" /Rows r",
" >>",
" /CCITTFaxDecode filter",
" } if",
" z "PS3_JPEGCompression" eq { /DCTDecode filter } if",
" z "PS3_LZWCompression" eq { /LZWDecode filter } if",
" z "PS3_RLECompression" eq { /RunLengthDecode filter } if",
" z "PS3_ZipCompression" eq { /FlateDecode filter } if",
"} bind def",
"",
"/DirectClassImageDict",
"{",
" colorspace "PS3_RGBColorspace" eq",
" {",
" /DeviceRGB setcolorspace",
" <<",
" /ImageType 1",
" /Width columns",
" /Height rows",
" /BitsPerComponent 8",
" /DataSource pixel_stream",
" /MultipleDataSources false",
" /ImageMatrix [columns 0 0 rows neg 0 rows]",
" /Decode [0 1 0 1 0 1]",
" >>",
" }",
" {",
" /DeviceCMYK setcolorspace",
" <<",
" /ImageType 1",
" /Width columns",
" /Height rows",
" /BitsPerComponent 8",
" /DataSource pixel_stream",
" /MultipleDataSources false",
" /ImageMatrix [columns 0 0 rows neg 0 rows]",
" /Decode",
" compression "PS3_JPEGCompression" eq",
" { [1 0 1 0 1 0 1 0] }",
" { [0 1 0 1 0 1 0 1] }",
" ifelse",
" >>",
" }",
" ifelse",
"} bind def",
"",
"/PseudoClassImageDict",
"{",
" % Colors in colormap image.",
" currentfile buffer readline pop",
" token pop /colors exch def pop",
" colors 0 eq",
" {",
" % Depth of grayscale image.",
" currentfile buffer readline pop",
" token pop /bits exch def pop",
" /DeviceGray setcolorspace",
" <<",
" /ImageType 1",
" /Width columns",
" /Height rows",
" /BitsPerComponent bits",
" /Decode [0 1]",
" /ImageMatrix [columns 0 0 rows neg 0 rows]",
" /DataSource pixel_stream",
" >>",
" }",
" {",
" % RGB colormap.",
" /colormap colors 3 mul string def",
" compression "PS3_NoCompression" eq",
" { currentfile /ASCII85Decode filter colormap readstring pop pop }",
" { currentfile colormap readstring pop pop }",
" ifelse",
" [ /Indexed /DeviceRGB colors 1 sub colormap ] setcolorspace",
" <<",
" /ImageType 1",
" /Width columns",
" /Height rows",
" /BitsPerComponent 8",
" /Decode [0 255]",
" /ImageMatrix [columns 0 0 rows neg 0 rows]",
" /DataSource pixel_stream",
" >>",
" }",
" ifelse",
"} bind def",
"",
"/NonMaskedImageDict",
"{",
" class "PS3_PseudoClass" eq",
" { PseudoClassImageDict }",
" { DirectClassImageDict }",
" ifelse",
"} bind def",
"",
"/MaskedImageDict",
"{",
" <<",
" /ImageType 3",
" /InterleaveType 3",
" /DataDict NonMaskedImageDict",
" /MaskDict",
" <<",
" /ImageType 1",
" /Width columns",
" /Height rows",
" /BitsPerComponent 1",
" /DataSource mask_stream",
" /MultipleDataSources false",
" /ImageMatrix [ columns 0 0 rows neg 0 rows]",
" /Decode [ 0 1 ]",
" >>",
" >>",
"} bind def",
"",
"/ClipImage",
"{} def",
"",
"/DisplayImage",
"{",
" /buffer 512 string def",
" % Translation.",
" currentfile buffer readline pop",
" token pop /x exch def",
" token pop /y exch def pop",
" x y translate",
" % Image size and font size.",
" currentfile buffer readline pop",
" token pop /x exch def",
" token pop /y exch def pop",
" currentfile buffer readline pop",
" token pop /pointsize exch def pop",
(char *) NULL
},
*PostscriptEpilog[]=
{
" x y scale",
" % Clipping path.",
" currentfile buffer readline pop",
" token pop /clipped exch def pop",
" % Showpage.",
" currentfile buffer readline pop",
" token pop /sp exch def pop",
" % Image pixel size.",
" currentfile buffer readline pop",
" token pop /columns exch def",
" token pop /rows exch def pop",
" % Colorspace (RGB/CMYK).",
" currentfile buffer readline pop",
" token pop /colorspace exch def pop",
" % Transparency.",
" currentfile buffer readline pop",
" token pop /alpha exch def pop",
" % Stencil mask?",
" currentfile buffer readline pop",
" token pop /stencil exch def pop",
" % Image class (direct/pseudo).",
" currentfile buffer readline pop",
" token pop /class exch def pop",
" % Compression type.",
" currentfile buffer readline pop",
" token pop /compression exch def pop",
" % Clip and render.",
" /pixel_stream currentfile columns rows compression ByteStreamDecodeFilter def",
" clipped { ClipImage } if",
" alpha stencil not and",
" { MaskedImageDict mask_stream resetfile }",
" { NonMaskedImageDict }",
" ifelse",
" stencil { 0 setgray imagemask } { image } ifelse",
" sp { showpage } if",
"} bind def",
(char *) NULL
};
char
buffer[MaxTextExtent],
date[MaxTextExtent],
**labels,
page_geometry[MaxTextExtent];
CompressionType
compression;
const char
*option,
**q,
*value;
double
pointsize;
GeometryInfo
geometry_info;
long
j;
MagickBooleanType
status;
MagickOffsetType
offset,
scene,
start,
stop;
MagickStatusType
flags;
PointInfo
delta,
resolution,
scale;
RectangleInfo
geometry,
media_info,
page_info;
register long
i;
SegmentInfo
bounds;
size_t
length;
time_t
timer;
unsigned char
*pixels;
unsigned long
page,
pixel,
text_size;
/*
Open output image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
status=OpenBlob(image_info,image,WriteBinaryBlobMode,&image->exception);
if (status == MagickFalse)
return(MagickFalse);
compression=image->compression;
if (image_info->compression != UndefinedCompression)
compression=image_info->compression;
switch (compression)
{
case FaxCompression:
case Group4Compression:
{
if ((IsMonochromeImage(image,&image->exception) == MagickFalse) ||
(image->matte != MagickFalse))
compression=RLECompression;
break;
}
#if !defined(MAGICKCORE_JPEG_DELEGATE)
case JPEGCompression:
{
compression=RLECompression;
(void) ThrowMagickException(&image->exception,GetMagickModule(),
MissingDelegateError,"DelegateLibrarySupportNotBuiltIn","`%s' (JPEG)",
image->filename);
break;
}
#endif
#if !defined(MAGICKCORE_ZLIB_DELEGATE)
case ZipCompression:
{
compression=RLECompression;
(void) ThrowMagickException(&image->exception,GetMagickModule(),
MissingDelegateError,"DelegateLibrarySupportNotBuiltIn","`%s' (ZLIB)",
image->filename);
break;
}
#endif
default:
break;
}
(void) ResetMagickMemory(&bounds,0,sizeof(bounds));
page=0;
scene=0;
do
{
/*
Scale relative to dots-per-inch.
*/
delta.x=DefaultResolution;
delta.y=DefaultResolution;
resolution.x=image->x_resolution;
resolution.y=image->y_resolution;
if ((resolution.x == 0.0) || (resolution.y == 0.0))
{
flags=ParseGeometry(PSDensityGeometry,&geometry_info);
resolution.x=geometry_info.rho;
resolution.y=geometry_info.sigma;
if ((flags & SigmaValue) == 0)
resolution.y=resolution.x;
}
if (image_info->density != (char *) NULL)
{
flags=ParseGeometry(image_info->density,&geometry_info);
resolution.x=geometry_info.rho;
resolution.y=geometry_info.sigma;
if ((flags & SigmaValue) == 0)
resolution.y=resolution.x;
}
if (image->units == PixelsPerCentimeterResolution)
{
resolution.x*=2.54;
resolution.y*=2.54;
}
SetGeometry(image,&geometry);
(void) FormatMagickString(page_geometry,MaxTextExtent,"%lux%lu",
image->columns,image->rows);
if (image_info->page != (char *) NULL)
(void) CopyMagickString(page_geometry,image_info->page,MaxTextExtent);
else
if ((image->page.width != 0) && (image->page.height != 0))
(void) FormatMagickString(page_geometry,MaxTextExtent,"%lux%lu%+ld%+ld",
image->page.width,image->page.height,image->page.x,image->page.y);
else
if ((image->gravity != UndefinedGravity) &&
(LocaleCompare(image_info->magick,"PS") == 0))
(void) CopyMagickString(page_geometry,PSPageGeometry,MaxTextExtent);
(void) ConcatenateMagickString(page_geometry,">",MaxTextExtent);
(void) ParseMetaGeometry(page_geometry,&geometry.x,&geometry.y,
&geometry.width,&geometry.height);
scale.x=(double) (geometry.width*delta.x)/resolution.x;
geometry.width=(unsigned long) (scale.x+0.5);
scale.y=(double) (geometry.height*delta.y)/resolution.y;
geometry.height=(unsigned long) (scale.y+0.5);
(void) ParseAbsoluteGeometry(page_geometry,&media_info);
(void) ParseGravityGeometry(image,page_geometry,&page_info,
&image->exception);
if (image->gravity != UndefinedGravity)
{
geometry.x=(-page_info.x);
geometry.y=(long) (media_info.height+page_info.y-image->rows);
}
pointsize=12.0;
if (image_info->pointsize != 0.0)
pointsize=image_info->pointsize;
text_size=0;
value=GetImageProperty(image,"label");
if (value != (const char *) NULL)
text_size=(unsigned long) (MultilineCensus(value)*pointsize+12);
page++;
if (page == 1)
{
/*
Postscript header on the first page.
*/
if (LocaleCompare(image_info->magick,"PS3") == 0)
(void) CopyMagickString(buffer,"%!PS-Adobe-3.0\n",MaxTextExtent);
else
(void) CopyMagickString(buffer,"%!PS-Adobe-3.0 EPSF-3.0\n",
MaxTextExtent);
(void) WriteBlobString(image,buffer);
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%Creator: ImageMagick %s\n",MagickLibVersionText);
(void) WriteBlobString(image,buffer);
(void) FormatMagickString(buffer,MaxTextExtent,"%%%%Title: %s\n",
image->filename);
(void) WriteBlobString(image,buffer);
timer=time((time_t *) NULL);
(void) FormatMagickTime(timer,MaxTextExtent,date);
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%CreationDate: %s\n",date);
(void) WriteBlobString(image,buffer);
bounds.x1=(double) geometry.x;
bounds.y1=(double) geometry.y;
bounds.x2=(double) geometry.x+scale.x;
bounds.y2=(double) geometry.y+scale.y+text_size;
if ((image_info->adjoin != MagickFalse) &&
(GetNextImageInList(image) != (Image *) NULL))
{
(void) WriteBlobString(image,"%%BoundingBox: (atend)\n");
(void) WriteBlobString(image,"%%HiResBoundingBox: (atend)\n");
}
else
{
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%BoundingBox: %g %g %g %g\n",floor(bounds.x1+0.5),
floor(bounds.y1+0.5),ceil(bounds.x2-0.5),ceil(bounds.y2-0.5));
(void) WriteBlobString(image,buffer);
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%HiResBoundingBox: %g %g %g %g\n",bounds.x1,bounds.y1,
bounds.x2,bounds.y2);
(void) WriteBlobString(image,buffer);
if (image->colorspace == CMYKColorspace)
(void) WriteBlobString(image,
"%%DocumentProcessColors: Cyan Magenta Yellow Black\n");
else
if (IsGrayImage(image,&image->exception) != MagickFalse)
(void) WriteBlobString(image,
"%%DocumentProcessColors: Black\n");
}
/*
Font resources
*/
value=GetImageProperty(image,"label");
if (value != (const char *) NULL)
(void) WriteBlobString(image,
"%%DocumentNeededResources: font Helvetica\n");
(void) WriteBlobString(image,"%%LanguageLevel: 3\n");
/*
Pages, orientation and order.
*/
if (LocaleCompare(image_info->magick,"PS3") != 0)
(void) WriteBlobString(image,"%%Pages: 1\n");
else
{
(void) WriteBlobString(image,"%%Orientation: Portrait\n");
(void) WriteBlobString(image,"%%PageOrder: Ascend\n");
if (image_info->adjoin == MagickFalse)
(void) CopyMagickString(buffer,"%%Pages: 1\n",MaxTextExtent);
else
(void) FormatMagickString(buffer,MaxTextExtent,"%%%%Pages: %lu\n",
(unsigned long) GetImageListLength(image));
(void) WriteBlobString(image,buffer);
}
(void) WriteBlobString(image,"%%EndComments\n");
/*
The static postscript procedures prolog.
*/
(void)WriteBlobString(image,"%%BeginProlog\n");
for (q=PostscriptProlog; *q; q++)
{
(void) WriteBlobString(image,*q);
(void) WriteBlobByte(image,'\n');
}
/*
One label line for each line in label string.
*/
value=GetImageProperty(image,"label");
if (value != (const char *) NULL)
{
(void) WriteBlobString(image,"\n %% Labels.\n /Helvetica "
" findfont pointsize scalefont setfont\n");
for (i=(long) MultilineCensus(value)-1; i >= 0; i--)
{
(void) WriteBlobString(image,
" currentfile buffer readline pop token pop\n");
(void) FormatMagickString(buffer,MaxTextExtent,
" 0 y %g add moveto show pop\n",i*pointsize+12);
(void) WriteBlobString(image,buffer);
}
}
/*
The static postscript procedures epilog.
*/
for (q=PostscriptEpilog; *q; q++)
{
(void) WriteBlobString(image,*q);
(void) WriteBlobByte(image,'\n');
}
(void)WriteBlobString(image,"%%EndProlog\n");
}
(void) FormatMagickString(buffer,MaxTextExtent,"%%%%Page: 1 %lu\n",page);
(void) WriteBlobString(image,buffer);
/*
Page bounding box.
*/
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%PageBoundingBox: %ld %ld %ld %ld\n",geometry.x,geometry.y,geometry.x+
(long) geometry.width,geometry.y+(long) (geometry.height+text_size));
(void) WriteBlobString(image,buffer);
/*
Page process colors if not RGB.
*/
if (image->colorspace == CMYKColorspace)
(void) WriteBlobString(image,
"%%PageProcessColors: Cyan Magenta Yellow Black\n");
else
if (IsGrayImage(image,&image->exception) != MagickFalse)
(void) WriteBlobString(image,"%%PageProcessColors: Black\n");
/*
Adjust document bounding box to bound page bounding box.
*/
if ((double) geometry.x < bounds.x1)
bounds.x1=(double) geometry.x;
if ((double) geometry.y < bounds.y1)
bounds.y1=(double) geometry.y;
if ((double) (geometry.x+scale.x) > bounds.x2)
bounds.x2=(double) geometry.x+scale.x;
if ((double) (geometry.y+scale.y+text_size) > bounds.y2)
bounds.y2=(double) geometry.y+scale.y+text_size;
/*
Page font resource if there's a label.
*/
value=GetImageProperty(image,"label");
if (value != (const char *) NULL)
(void) WriteBlobString(image,"%%PageResources: font Helvetica\n");
/*
PS clipping path from Photoshop clipping path.
*/
if ((image->clip_mask == (Image *) NULL) ||
(LocaleNCompare("8BIM:",image->clip_mask->magick_filename,5) != 0))
(void) WriteBlobString(image,"/ClipImage {} def\n");
else
{
const char
*value;
value=GetImageProperty(image,image->clip_mask->magick_filename);
if (value == (const char *) NULL)
return(MagickFalse);
(void) WriteBlobString(image,value);
(void) WriteBlobByte(image,'\n');
}
/*
Push a dictionary for our own def's if this an EPS.
*/
if (LocaleCompare(image_info->magick,"PS3") != 0)
(void) WriteBlobString(image,"userdict begin\n");
/*
Image mask.
*/
if ((image->matte != MagickFalse) &&
(WritePS3MaskImage(image_info,image,compression) == MagickFalse))
{
(void) CloseBlob(image);
return(MagickFalse);
}
/*
Remember position of BeginData comment so we can update it.
*/
start=TellBlob(image);
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%BeginData:%13ld %s Bytes\n",0L,
compression == NoCompression ? "ASCII" : "BINARY");
(void) WriteBlobString(image,buffer);
stop=TellBlob(image);
(void) WriteBlobString(image,"DisplayImage\n");
/*
Translate, scale, and font point size.
*/
(void) FormatMagickString(buffer,MaxTextExtent,"%ld %ld\n%g %g\n%f\n",
geometry.x,geometry.y,scale.x,scale.y,pointsize);
(void) WriteBlobString(image,buffer);
/*
Output labels.
*/
labels=(char **) NULL;
value=GetImageProperty(image,"label");
if (value != (const char *) NULL)
labels=StringToList(value);
if (labels != (char **) NULL)
{
for (i=0; labels[i] != (char *) NULL; i++)
{
if (compression != NoCompression)
{
for (j=0; labels[i][j] != '\0'; j++)
(void) WriteBlobByte(image,(unsigned char) labels[i][j]);
(void) WriteBlobByte(image,'\n');
}
else
{
(void) WriteBlobString(image,"<~");
Ascii85Initialize(image);
for (j=0; labels[i][j] != '\0'; j++)
Ascii85Encode(image,(unsigned char) labels[i][j]);
Ascii85Flush(image);
}
labels[i]=DestroyString(labels[i]);
}
labels=(char **) RelinquishMagickMemory(labels);
}
/*
Photoshop clipping path active?
*/
if ((image->clip_mask != (Image *) NULL) &&
(LocaleNCompare("8BIM:",image->clip_mask->magick_filename,5) == 0))
(void) WriteBlobString(image,"true\n");
else
(void) WriteBlobString(image,"false\n");
/*
Showpage for non-EPS.
*/
(void) WriteBlobString(image, LocaleCompare(image_info->magick,"PS3") == 0 ?
"true\n" : "false\n");
/*
Image columns, rows, and color space.
*/
(void) FormatMagickString(buffer,MaxTextExtent,"%lu %lu\n%s\n",
image->columns,image->rows,image->colorspace == CMYKColorspace ?
PS3_CMYKColorspace : PS3_RGBColorspace);
(void) WriteBlobString(image,buffer);
/*
Masked image?
*/
(void) WriteBlobString(image,image->matte != MagickFalse ?
"true\n" : "false\n");
/*
Render with imagemask operator?
*/
option=GetImageOption(image_info,"ps3:imagemask");
(void) WriteBlobString(image,((option != (const char *) NULL) &&
(IsMonochromeImage(image,&image->exception) != MagickFalse)) ?
"true\n" : "false\n");
/*
Output pixel data.
*/
pixels=(unsigned char *) NULL;
length=0;
if ((image_info->type != TrueColorType) &&
(image_info->type != TrueColorMatteType) &&
(image_info->type != ColorSeparationType) &&
(image_info->type != ColorSeparationMatteType) &&
(image->colorspace != CMYKColorspace) &&
((IsGrayImage(image,&image->exception) != MagickFalse) ||
(IsMonochromeImage(image,&image->exception) != MagickFalse)))
{
/*
Gray images.
*/
(void) WriteBlobString(image,PS3_PseudoClass"\n");
switch (compression)
{
case NoCompression:
default:
{
(void) WriteBlobString(image,PS3_NoCompression"\n");
break;
}
case FaxCompression:
case Group4Compression:
{
(void) WriteBlobString(image,PS3_FaxCompression"\n");
break;
}
case JPEGCompression:
{
(void) WriteBlobString(image,PS3_JPEGCompression"\n");
break;
}
case LZWCompression:
{
(void) WriteBlobString(image,PS3_LZWCompression"\n");
break;
}
case RLECompression:
{
(void) WriteBlobString(image,PS3_RLECompression"\n");
break;
}
case ZipCompression:
{
(void) WriteBlobString(image,PS3_ZipCompression"\n");
break;
}
}
/*
Number of colors -- 0 for single component non-color mapped data.
*/
(void) WriteBlobString(image,"0\n");
/*
1 bit or 8 bit components?
*/
(void) FormatMagickString(buffer,MaxTextExtent,"%d\n",
IsMonochromeImage(image,&image->exception) != MagickFalse ? 1 : 8);
(void) WriteBlobString(image,buffer);
/*
Image data.
*/
if (compression == JPEGCompression)
status=InjectImageBlob(image_info,image,image,"jpeg",
&image->exception);
else
if ((compression == FaxCompression) ||
(compression == Group4Compression))
{
if (LocaleCompare(CCITTParam,"0") == 0)
status=HuffmanEncodeImage(image_info,image,image);
else
status=Huffman2DEncodeImage(image_info,image,image);
}
else
{
status=SerializeImageChannel(image_info,image,&pixels,&length);
if (status == MagickFalse)
{
(void) CloseBlob(image);
return(MagickFalse);
}
switch (compression)
{
case NoCompression:
default:
{
Ascii85Initialize(image);
for (i=0; i < (long) length; i++)
Ascii85Encode(image,pixels[i]);
Ascii85Flush(image);
status=MagickTrue;
break;
}
case LZWCompression:
{
status=LZWEncodeImage(image,length,pixels);
break;
}
case RLECompression:
{
status=PackbitsEncodeImage(image,length,pixels);
break;
}
case ZipCompression:
{
status=ZLIBEncodeImage(image,length,pixels);
break;
}
}
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
}
}
else
if ((image->storage_class == DirectClass) || (image->colors > 256) ||
(compression == JPEGCompression))
{
/*
Truecolor image.
*/
(void) WriteBlobString(image,PS3_DirectClass"\n");
switch (compression)
{
case NoCompression:
default:
{
(void) WriteBlobString(image,PS3_NoCompression"\n");
break;
}
case RLECompression:
{
(void) WriteBlobString(image,PS3_RLECompression"\n");
break;
}
case JPEGCompression:
{
(void) WriteBlobString(image,PS3_JPEGCompression"\n");
break;
}
case LZWCompression:
{
(void) WriteBlobString(image,PS3_LZWCompression"\n");
break;
}
case ZipCompression:
{
(void) WriteBlobString(image,PS3_ZipCompression"\n");
break;
}
}
/*
Image data.
*/
if (compression == JPEGCompression)
status=InjectImageBlob(image_info,image,image,"jpeg",
&image->exception);
else
{
/*
Stream based compressions.
*/
status=SerializeImage(image_info,image,&pixels,&length);
if (status == MagickFalse)
{
(void) CloseBlob(image);
return(MagickFalse);
}
switch (compression)
{
case NoCompression:
default:
{
Ascii85Initialize(image);
for (i=0; i < (long) length; i++)
Ascii85Encode(image,pixels[i]);
Ascii85Flush(image);
status=MagickTrue;
break;
}
case RLECompression:
{
status=PackbitsEncodeImage(image,length,pixels);
break;
}
case LZWCompression:
{
status=LZWEncodeImage(image,length,pixels);
break;
}
case ZipCompression:
{
status=ZLIBEncodeImage(image,length,pixels);
break;
}
}
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
}
}
else
{
/*
Colormapped images.
*/
(void) WriteBlobString(image,PS3_PseudoClass"\n");
switch (compression)
{
case NoCompression:
default:
{
(void) WriteBlobString(image,PS3_NoCompression"\n");
break;
}
case JPEGCompression:
{
(void) WriteBlobString(image,PS3_JPEGCompression"\n");
break;
}
case RLECompression:
{
(void) WriteBlobString(image,PS3_RLECompression"\n");
break;
}
case LZWCompression:
{
(void) WriteBlobString(image,PS3_LZWCompression"\n");
break;
}
case ZipCompression:
{
(void) WriteBlobString(image,PS3_ZipCompression"\n");
break;
}
}
/*
Number of colors in color map.
*/
(void) FormatMagickString(buffer,MaxTextExtent,"%lu\n",
image->colors);
(void) WriteBlobString(image,buffer);
/*
Color map - uncompressed.
*/
if ((compression != NoCompression) &&
(compression != UndefinedCompression))
{
for (i=0; i < (long) image->colors; i++)
{
pixel=ScaleQuantumToChar(image->colormap[i].red);
(void) WriteBlobByte(image,(unsigned char) pixel);
pixel=ScaleQuantumToChar(image->colormap[i].green);
(void) WriteBlobByte(image,(unsigned char) pixel);
pixel=ScaleQuantumToChar(image->colormap[i].blue);
(void) WriteBlobByte(image,(unsigned char) pixel);
}
}
else
{
Ascii85Initialize(image);
for (i=0; i < (long) image->colors; i++)
{
pixel=ScaleQuantumToChar(image->colormap[i].red);
Ascii85Encode(image,(unsigned char) pixel);
pixel=ScaleQuantumToChar(image->colormap[i].green);
Ascii85Encode(image,(unsigned char) pixel);
pixel=ScaleQuantumToChar(image->colormap[i].blue);
Ascii85Encode(image,(unsigned char) pixel);
}
Ascii85Flush(image);
}
status=SerializeImageIndexes(image_info,image,&pixels,&length);
if (status == MagickFalse)
{
(void) CloseBlob(image);
return(MagickFalse);
}
switch (compression)
{
case NoCompression:
default:
{
Ascii85Initialize(image);
for (i=0; i < (long) length; i++)
Ascii85Encode(image,pixels[i]);
Ascii85Flush(image);
status=MagickTrue;
break;
}
case JPEGCompression:
{
status=InjectImageBlob(image_info,image,image,"jpeg",
&image->exception);
break;
}
case RLECompression:
{
status=PackbitsEncodeImage(image,length,pixels);
break;
}
case LZWCompression:
{
status=LZWEncodeImage(image,length,pixels);
break;
}
case ZipCompression:
{
status=ZLIBEncodeImage(image,length,pixels);
break;
}
}
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
}
(void) WriteBlobByte(image,'\n');
if (status == MagickFalse)
{
(void) CloseBlob(image);
return(MagickFalse);
}
/*
Update BeginData now that we know the data size.
*/
length=(size_t) (TellBlob(image)-stop);
stop=TellBlob(image);
offset=SeekBlob(image,start,SEEK_SET);
if (offset < 0)
ThrowWriterException(CorruptImageError,"ImproperImageHeader");
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%BeginData:%13ld %s Bytes\n",(long) length,
compression == NoCompression ? "ASCII" : "BINARY");
(void) WriteBlobString(image,buffer);
offset=SeekBlob(image,stop,SEEK_SET);
(void) WriteBlobString(image,"%%EndData\n");
/*
End private dictionary if this an EPS.
*/
if (LocaleCompare(image_info->magick,"PS3") != 0)
(void) WriteBlobString(image,"end\n");
(void) WriteBlobString(image,"%%PageTrailer\n");
if (GetNextImageInList(image) == (Image *) NULL)
break;
image=SyncNextImageInList(image);
status=SetImageProgress(image,SaveImagesTag,scene++,
GetImageListLength(image));
if (status == MagickFalse)
break;
} while (image_info->adjoin != MagickFalse);
(void) WriteBlobString(image,"%%Trailer\n");
if (page > 1)
{
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%BoundingBox: %g %g %g %g\n",floor(bounds.x1+0.5),
floor(bounds.y1+0.5),ceil(bounds.x2-0.5),ceil(bounds.y2-0.5));
(void) WriteBlobString(image,buffer);
(void) FormatMagickString(buffer,MaxTextExtent,
"%%%%HiResBoundingBox: %g %g %g %g\n",bounds.x1,bounds.y1,
bounds.x2,bounds.y2);
(void) WriteBlobString(image,buffer);
}
(void) WriteBlobString(image,"%%EOF\n");
(void) CloseBlob(image);
return(MagickTrue);
}
static MagickBooleanType WritePCLImage(const ImageInfo *image_info,Image *image)
{
char
buffer[MaxTextExtent];
const char
*option;
MagickBooleanType
status;
MagickOffsetType
scene;
register const IndexPacket
*indexes;
register const PixelPacket *p; register ssize_t i, x; register unsigned char *q; size_t density, length,
one,
packets;
ssize_t
y;
unsigned char
bits_per_pixel,
*compress_pixels,
*pixels,
*previous_pixels;
/*
Open output image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
status=OpenBlob(image_info,image,WriteBinaryBlobMode,&image->exception);
if (status == MagickFalse)
return(status);
density=75;
if (image_info->density != (char *) NULL)
{
GeometryInfo
geometry;
(void) ParseGeometry(image_info->density,&geometry);
density=(size_t) geometry.rho;
}
scene=0;
one=1;
do
{
if (IssRGBCompatibleColorspace(image->colorspace) == MagickFalse)
(void) TransformImageColorspace(image,sRGBColorspace);
/*
Initialize the printer.
*/
(void) WriteBlobString(image,"\033E"); /* printer reset */
(void) WriteBlobString(image,"\033*r3F"); /* set presentation mode */
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*r%.20gs%.20gT",
(double) image->columns,(double) image->rows);
(void) WriteBlobString(image,buffer);
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*t%.20gR",(double)
density);
(void) WriteBlobString(image,buffer);
(void) WriteBlobString(image,"\033&l0E"); /* top margin 0 */
if (IsMonochromeImage(image,&image->exception) != MagickFalse)
{
/*
Monochrome image: use default printer monochrome setup.
*/
bits_per_pixel=1;
}
else
if (image->storage_class == DirectClass)
{
/*
DirectClass image.
*/
bits_per_pixel=24;
(void) WriteBlobString(image,"\033*v6W"); /* set color mode */
(void) WriteBlobByte(image,0); /* RGB */
(void) WriteBlobByte(image,3); /* direct by pixel */
(void) WriteBlobByte(image,0); /* bits per index (ignored) */
(void) WriteBlobByte(image,8); /* bits per red component */
(void) WriteBlobByte(image,8); /* bits per green component */
(void) WriteBlobByte(image,8); /* bits per blue component */
}
else
{
/*
Colormapped image.
*/
bits_per_pixel=8;
(void) WriteBlobString(image,"\033*v6W"); /* set color mode... */
(void) WriteBlobByte(image,0); /* RGB */
(void) WriteBlobByte(image,1); /* indexed by pixel */
(void) WriteBlobByte(image,bits_per_pixel); /* bits per index */
(void) WriteBlobByte(image,8); /* bits per red component */
(void) WriteBlobByte(image,8); /* bits per green component */
(void) WriteBlobByte(image,8); /* bits per blue component */
for (i=0; i < (ssize_t) image->colors; i++)
{
(void) FormatLocaleString(buffer,MaxTextExtent,
"\033*v%da%db%dc%.20gI",
ScaleQuantumToChar(image->colormap[i].red),
ScaleQuantumToChar(image->colormap[i].green),
ScaleQuantumToChar(image->colormap[i].blue),(double) i);
(void) WriteBlobString(image,buffer);
}
for (one=1; i < (ssize_t) (one << bits_per_pixel); i++)
{
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*v%.20gI",
(double) i);
(void) WriteBlobString(image,buffer);
}
}
option=GetImageOption(image_info,"pcl:fit-to-page");
if ((option != (const char *) NULL) &&
(IsMagickTrue(option) != MagickFalse))
(void) WriteBlobString(image,"\033*r3A");
else
(void) WriteBlobString(image,"\033*r1A"); /* start raster graphics */
(void) WriteBlobString(image,"\033*b0Y"); /* set y offset */
length=(image->columns*bits_per_pixel+7)/8;
pixels=(unsigned char *) AcquireQuantumMemory(length+1,sizeof(*pixels));
if (pixels == (unsigned char *) NULL)
ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
(void) ResetMagickMemory(pixels,0,(length+1)*sizeof(*pixels));
compress_pixels=(unsigned char *) NULL;
previous_pixels=(unsigned char *) NULL;
switch (image->compression)
{
case NoCompression:
{
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*b0M");
(void) WriteBlobString(image,buffer);
break;
}
case RLECompression:
{
compress_pixels=(unsigned char *) AcquireQuantumMemory(length+256,
sizeof(*compress_pixels));
if (compress_pixels == (unsigned char *) NULL)
{
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
}
(void) ResetMagickMemory(compress_pixels,0,(length+256)*
sizeof(*compress_pixels));
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*b2M");
(void) WriteBlobString(image,buffer);
break;
}
default:
{
compress_pixels=(unsigned char *) AcquireQuantumMemory(3*length+256,
sizeof(*compress_pixels));
if (compress_pixels == (unsigned char *) NULL)
{
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
}
(void) ResetMagickMemory(compress_pixels,0,(3*length+256)*
sizeof(*compress_pixels));
previous_pixels=(unsigned char *) AcquireQuantumMemory(length+1,
sizeof(*previous_pixels));
if (previous_pixels == (unsigned char *) NULL)
{
compress_pixels=(unsigned char *) RelinquishMagickMemory(
compress_pixels);
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
}
(void) ResetMagickMemory(previous_pixels,0,(length+1)*
sizeof(*previous_pixels));
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*b3M");
(void) WriteBlobString(image,buffer);
break;
}
}
for (y=0; y < (ssize_t) image->rows; y++)
{
p=GetVirtualPixels(image,0,y,image->columns,1,&image->exception);
if (p == (const PixelPacket *) NULL)
break;
indexes=GetAuthenticIndexQueue(image);
q=pixels;
switch (bits_per_pixel)
{
case 1:
{
register unsigned char
bit,
byte;
/*
Monochrome image.
*/
bit=0;
byte=0;
for (x=0; x < (ssize_t) image->columns; x++)
{
byte<<=1;
if (GetPixelIntensity(image,p) < (QuantumRange/2.0))
byte|=0x01;
bit++;
if (bit == 8)
{
*q++=byte;
bit=0;
byte=0;
}
p++;
}
if (bit != 0)
*q++=byte << (8-bit);
break;
}
case 8:
{
/*
Colormapped image.
*/
for (x=0; x < (ssize_t) image->columns; x++)
*q++=(unsigned char) GetPixelIndex(indexes+x);
break;
}
case 24:
case 32:
{
/*
Truecolor image.
*/
for (x=0; x < (ssize_t) image->columns; x++)
{
*q++=ScaleQuantumToChar(GetPixelRed(p));
*q++=ScaleQuantumToChar(GetPixelGreen(p));
*q++=ScaleQuantumToChar(GetPixelBlue(p));
p++;
}
break;
}
}
switch (image->compression)
{
case NoCompression:
{
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*b%.20gW",
(double) length);
(void) WriteBlobString(image,buffer);
(void) WriteBlob(image,length,pixels);
break;
}
case RLECompression:
{
packets=PCLPackbitsCompressImage(length,pixels,compress_pixels);
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*b%.20gW",
(double) packets);
(void) WriteBlobString(image,buffer);
(void) WriteBlob(image,packets,compress_pixels);
break;
}
default:
{
if (y == 0)
for (i=0; i < (ssize_t) length; i++)
previous_pixels[i]=(~pixels[i]);
packets=PCLDeltaCompressImage(length,previous_pixels,pixels,
compress_pixels);
(void) FormatLocaleString(buffer,MaxTextExtent,"\033*b%.20gW",
(double) packets);
(void) WriteBlobString(image,buffer);
(void) WriteBlob(image,packets,compress_pixels);
(void) CopyMagickMemory(previous_pixels,pixels,length*
sizeof(*pixels));
break;
}
}
}
(void) WriteBlobString(image,"\033*rB"); /* end graphics */
switch (image->compression)
{
case NoCompression:
break;
case RLECompression:
{
compress_pixels=(unsigned char *) RelinquishMagickMemory(
compress_pixels);
break;
}
default:
{
previous_pixels=(unsigned char *) RelinquishMagickMemory(
previous_pixels);
compress_pixels=(unsigned char *) RelinquishMagickMemory(
compress_pixels);
break;
}
}
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
if (GetNextImageInList(image) == (Image *) NULL)
break;
image=SyncNextImageInList(image);
status=SetImageProgress(image,SaveImagesTag,scene++,
GetImageListLength(image));
if (status == MagickFalse)
break;
} while (image_info->adjoin != MagickFalse);
(void) WriteBlobString(image,"\033E");
(void) CloseBlob(image);
return(MagickTrue);
}
static MagickBooleanType SerializeImageChannel(const ImageInfo *image_info,
Image *image,unsigned char **pixels,size_t *length)
{
long
y;
MagickBooleanType
status;
register const PixelPacket
*p;
register long
x;
register unsigned char
*q;
unsigned char
code,
bit;
unsigned long
pack,
padded_columns;
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
status=MagickTrue;
pack=IsMonochromeImage(image,&image->exception) == MagickFalse ? 1UL : 8UL;
padded_columns=((image->columns+pack-1)/pack)*pack;
*length=(size_t) padded_columns*image->rows/pack;
*pixels=(unsigned char *) AcquireQuantumMemory(*length,sizeof(**pixels));
if (*pixels == (unsigned char *) NULL)
ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
q=(*pixels);
for (y=0; y < (long) image->rows; y++)
{
p=GetVirtualPixels(image,0,y,image->columns,1,&image->exception);
if (p == (const PixelPacket *) NULL)
break;
if (pack == 1)
for (x=0; x < (long) image->columns; x++)
{
*q++=ScaleQuantumToChar(PixelIntensityToQuantum(p));
p++;
}
else
{
code='\0';
for (x=0; x < (long) padded_columns; x++)
{
bit=(unsigned char) 0x00;
if (x < (long) image->columns)
bit=(unsigned char) (PixelIntensityToQuantum(p) ==
(Quantum) TransparentOpacity ? 0x01 : 0x00);
code=(code << 1)+bit;
if (((x+1) % pack) == 0)
{
*q++=code;
code='\0';
}
p++;
}
}
status=SetImageProgress(image,SaveImageTag,y,image->rows);
if (status == MagickFalse)
break;
}
if (status == MagickFalse)
*pixels=(unsigned char *) RelinquishMagickMemory(*pixels);
return(status);
}
