1 /*
2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 % %
4 % %
5 % %
6 % PPPP AAA N N GGGG OOO %
7 % P P A A NN N G O O %
8 % PPPP AAAAA N N N G GGG O O %
9 % P A A N NN G G O O %
10 % P A A N N GGGG OOO %
11 % %
12 % %
13 % Read Pango Markup Language Format %
14 % %
15 % Software Design %
16 % Cristy %
17 % March 2012 %
18 % %
19 % %
20 % Copyright 1999-2016 ImageMagick Studio LLC, a non-profit organization %
21 % dedicated to making software imaging solutions freely available. %
22 % %
23 % You may not use this file except in compliance with the License. You may %
24 % obtain a copy of the License at %
25 % %
26 % http://www.imagemagick.org/script/license.php %
27 % %
28 % Unless required by applicable law or agreed to in writing, software %
29 % distributed under the License is distributed on an "AS IS" BASIS, %
30 % WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %
31 % See the License for the specific language governing permissions and %
32 % limitations under the License. %
33 % %
34 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
35 %
36 %
37 */
38
39 /*
40 Include declarations.
41 */
42 #include "MagickCore/studio.h"
43 #include "MagickCore/annotate.h"
44 #include "MagickCore/artifact.h"
45 #include "MagickCore/blob.h"
46 #include "MagickCore/blob-private.h"
47 #include "MagickCore/composite-private.h"
48 #include "MagickCore/draw.h"
49 #include "MagickCore/draw-private.h"
50 #include "MagickCore/exception.h"
51 #include "MagickCore/exception-private.h"
52 #include "MagickCore/image.h"
53 #include "MagickCore/image-private.h"
54 #include "MagickCore/list.h"
55 #include "MagickCore/magick.h"
56 #include "MagickCore/memory_.h"
57 #include "MagickCore/module.h"
58 #include "MagickCore/monitor.h"
59 #include "MagickCore/monitor-private.h"
60 #include "MagickCore/option.h"
61 #include "MagickCore/pixel-accessor.h"
62 #include "MagickCore/property.h"
63 #include "MagickCore/quantum-private.h"
64 #include "MagickCore/static.h"
65 #include "MagickCore/string_.h"
66 #include "MagickCore/string-private.h"
67 #include "MagickCore/token.h"
68 #include "MagickCore/utility.h"
69 #if defined(MAGICKCORE_PANGOCAIRO_DELEGATE)
70 #include <pango/pango.h>
71 #include <pango/pangocairo.h>
72 #include <pango/pango-features.h>
73 #endif
74
75 #if defined(MAGICKCORE_PANGOCAIRO_DELEGATE)
76 /*
77 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
78 % %
79 % %
80 % %
81 % R e a d P A N G O I m a g e %
82 % %
83 % %
84 % %
85 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
86 %
87 % ReadPANGOImage() reads an image in the Pango Markup Language Format.
88 %
89 % The format of the ReadPANGOImage method is:
90 %
91 % Image *ReadPANGOImage(const ImageInfo *image_info,
92 % ExceptionInfo *exception)
93 %
94 % A description of each parameter follows:
95 %
96 % o image_info: the image info.
97 %
98 % o exception: return any errors or warnings in this structure.
99 %
100 */
ReadPANGOImage(const ImageInfo * image_info,ExceptionInfo * exception)101 static Image *ReadPANGOImage(const ImageInfo *image_info,
102 ExceptionInfo *exception)
103 {
104 cairo_font_options_t
105 *font_options;
106
107 cairo_surface_t
108 *surface;
109
110 char
111 *caption,
112 *property;
113
114 cairo_t
115 *cairo_image;
116
117 const char
118 *option;
119
120 DrawInfo
121 *draw_info;
122
123 Image
124 *image;
125
126 MagickBooleanType
127 status;
128
129 MemoryInfo
130 *pixel_info;
131
132 PangoAlignment
133 align;
134
135 PangoContext
136 *context;
137
138 PangoFontDescription
139 *description;
140
141 PangoFontMap
142 *fontmap;
143
144 PangoGravity
145 gravity;
146
147 PangoLayout
148 *layout;
149
150 PangoRectangle
151 extent;
152
153 PixelInfo
154 fill_color;
155
156 RectangleInfo
157 page;
158
159 register unsigned char
160 *p;
161
162 size_t
163 stride;
164
165 ssize_t
166 y;
167
168 unsigned char
169 *pixels;
170
171 /*
172 Initialize Image structure.
173 */
174 assert(image_info != (const ImageInfo *) NULL);
175 assert(image_info->signature == MagickCoreSignature);
176 if (image_info->debug != MagickFalse)
177 (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
178 image_info->filename);
179 assert(exception != (ExceptionInfo *) NULL);
180 assert(exception->signature == MagickCoreSignature);
181 image=AcquireImage(image_info,exception);
182 (void) ResetImagePage(image,"0x0+0+0");
183 /*
184 Format caption.
185 */
186 option=GetImageOption(image_info,"filename");
187 if (option == (const char *) NULL)
188 property=InterpretImageProperties((ImageInfo *) image_info,image,
189 image_info->filename,exception);
190 else
191 if (LocaleNCompare(option,"pango:",6) == 0)
192 property=InterpretImageProperties((ImageInfo *) image_info,image,option+6,
193 exception);
194 else
195 property=InterpretImageProperties((ImageInfo *) image_info,image,option,
196 exception);
197 (void) SetImageProperty(image,"caption",property,exception);
198 property=DestroyString(property);
199 caption=ConstantString(GetImageProperty(image,"caption",exception));
200 /*
201 Get context.
202 */
203 fontmap=pango_cairo_font_map_new();
204 pango_cairo_font_map_set_resolution(PANGO_CAIRO_FONT_MAP(fontmap),
205 image->resolution.x == 0.0 ? 90.0 : image->resolution.x);
206 font_options=cairo_font_options_create();
207 option=GetImageOption(image_info,"pango:hinting");
208 if (option != (const char *) NULL)
209 {
210 if (LocaleCompare(option,"none") != 0)
211 cairo_font_options_set_hint_style(font_options,CAIRO_HINT_STYLE_NONE);
212 if (LocaleCompare(option,"full") != 0)
213 cairo_font_options_set_hint_style(font_options,CAIRO_HINT_STYLE_FULL);
214 }
215 context=pango_font_map_create_context(fontmap);
216 pango_cairo_context_set_font_options(context,font_options);
217 cairo_font_options_destroy(font_options);
218 option=GetImageOption(image_info,"pango:language");
219 if (option != (const char *) NULL)
220 pango_context_set_language(context,pango_language_from_string(option));
221 draw_info=CloneDrawInfo(image_info,(DrawInfo *) NULL);
222 pango_context_set_base_dir(context,draw_info->direction ==
223 RightToLeftDirection ? PANGO_DIRECTION_RTL : PANGO_DIRECTION_LTR);
224 switch (draw_info->gravity)
225 {
226 case NorthGravity:
227 {
228 gravity=PANGO_GRAVITY_NORTH;
229 break;
230 }
231 case NorthWestGravity:
232 case WestGravity:
233 case SouthWestGravity:
234 {
235 gravity=PANGO_GRAVITY_WEST;
236 break;
237 }
238 case NorthEastGravity:
239 case EastGravity:
240 case SouthEastGravity:
241 {
242 gravity=PANGO_GRAVITY_EAST;
243 break;
244 }
245 case SouthGravity:
246 {
247 gravity=PANGO_GRAVITY_SOUTH;
248 break;
249 }
250 default:
251 {
252 gravity=PANGO_GRAVITY_AUTO;
253 break;
254 }
255 }
256 pango_context_set_base_gravity(context,gravity);
257 option=GetImageOption(image_info,"pango:gravity-hint");
258 if (option != (const char *) NULL)
259 {
260 if (LocaleCompare(option,"line") == 0)
261 pango_context_set_gravity_hint(context,PANGO_GRAVITY_HINT_LINE);
262 if (LocaleCompare(option,"natural") == 0)
263 pango_context_set_gravity_hint(context,PANGO_GRAVITY_HINT_NATURAL);
264 if (LocaleCompare(option,"strong") == 0)
265 pango_context_set_gravity_hint(context,PANGO_GRAVITY_HINT_STRONG);
266 }
267 /*
268 Configure layout.
269 */
270 layout=pango_layout_new(context);
271 option=GetImageOption(image_info,"pango:auto-dir");
272 if (option != (const char *) NULL)
273 pango_layout_set_auto_dir(layout,1);
274 option=GetImageOption(image_info,"pango:ellipsize");
275 if (option != (const char *) NULL)
276 {
277 if (LocaleCompare(option,"end") == 0)
278 pango_layout_set_ellipsize(layout,PANGO_ELLIPSIZE_END);
279 if (LocaleCompare(option,"middle") == 0)
280 pango_layout_set_ellipsize(layout,PANGO_ELLIPSIZE_MIDDLE);
281 if (LocaleCompare(option,"none") == 0)
282 pango_layout_set_ellipsize(layout,PANGO_ELLIPSIZE_NONE);
283 if (LocaleCompare(option,"start") == 0)
284 pango_layout_set_ellipsize(layout,PANGO_ELLIPSIZE_START);
285 }
286 option=GetImageOption(image_info,"pango:justify");
287 if (IsStringTrue(option) != MagickFalse)
288 pango_layout_set_justify(layout,1);
289 option=GetImageOption(image_info,"pango:single-paragraph");
290 if (IsStringTrue(option) != MagickFalse)
291 pango_layout_set_single_paragraph_mode(layout,1);
292 option=GetImageOption(image_info,"pango:wrap");
293 if (option != (const char *) NULL)
294 {
295 if (LocaleCompare(option,"char") == 0)
296 pango_layout_set_wrap(layout,PANGO_WRAP_CHAR);
297 if (LocaleCompare(option,"word") == 0)
298 pango_layout_set_wrap(layout,PANGO_WRAP_WORD);
299 if (LocaleCompare(option,"word-char") == 0)
300 pango_layout_set_wrap(layout,PANGO_WRAP_WORD_CHAR);
301 }
302 option=GetImageOption(image_info,"pango:indent");
303 if (option != (const char *) NULL)
304 pango_layout_set_indent(layout,(int) ((StringToLong(option)*
305 (image->resolution.x == 0.0 ? 90.0 : image->resolution.x)*PANGO_SCALE+36)/
306 90.0+0.5));
307 switch (draw_info->align)
308 {
309 case CenterAlign: align=PANGO_ALIGN_CENTER; break;
310 case RightAlign: align=PANGO_ALIGN_RIGHT; break;
311 case LeftAlign: align=PANGO_ALIGN_LEFT; break;
312 default:
313 {
314 if (draw_info->gravity == CenterGravity)
315 {
316 align=PANGO_ALIGN_CENTER;
317 break;
318 }
319 align=PANGO_ALIGN_LEFT;
320 break;
321 }
322 }
323 if ((align != PANGO_ALIGN_CENTER) &&
324 (draw_info->direction == RightToLeftDirection))
325 align=(PangoAlignment) (PANGO_ALIGN_LEFT+PANGO_ALIGN_RIGHT-align);
326 pango_layout_set_alignment(layout,align);
327 if (draw_info->font == (char *) NULL)
328 description=pango_font_description_new();
329 else
330 description=pango_font_description_from_string(draw_info->font);
331 pango_font_description_set_size(description,(int) (PANGO_SCALE*
332 draw_info->pointsize+0.5));
333 pango_layout_set_font_description(layout,description);
334 pango_font_description_free(description);
335 option=GetImageOption(image_info,"pango:markup");
336 if ((option != (const char *) NULL) && (IsStringTrue(option) == MagickFalse))
337 pango_layout_set_text(layout,caption,-1);
338 else
339 {
340 GError
341 *error;
342
343 error=(GError *) NULL;
344 if (pango_parse_markup(caption,-1,0,NULL,NULL,NULL,&error) == 0)
345 (void) ThrowMagickException(exception,GetMagickModule(),CoderError,
346 error->message,"`%s'",image_info->filename);
347 pango_layout_set_markup(layout,caption,-1);
348 }
349 pango_layout_context_changed(layout);
350 page.x=0;
351 page.y=0;
352 if (image_info->page != (char *) NULL)
353 (void) ParseAbsoluteGeometry(image_info->page,&page);
354 if (image->columns == 0)
355 {
356 pango_layout_get_extents(layout,NULL,&extent);
357 image->columns=(extent.x+extent.width+PANGO_SCALE/2)/PANGO_SCALE+2*page.x;
358 }
359 else
360 {
361 image->columns-=2*page.x;
362 pango_layout_set_width(layout,(int) ((PANGO_SCALE*image->columns*
363 (image->resolution.x == 0.0 ? 90.0 : image->resolution.x)+45.0)/90.0+
364 0.5));
365 }
366 if (image->rows == 0)
367 {
368 pango_layout_get_extents(layout,NULL,&extent);
369 image->rows=(extent.y+extent.height+PANGO_SCALE/2)/PANGO_SCALE+2*page.y;
370 }
371 else
372 {
373 image->rows-=2*page.y;
374 pango_layout_set_height(layout,(int) ((PANGO_SCALE*image->rows*
375 (image->resolution.y == 0.0 ? 90.0 : image->resolution.y)+45.0)/90.0+
376 0.5));
377 }
378 status=SetImageExtent(image,image->columns,image->rows,exception);
379 if (status == MagickFalse)
380 return(DestroyImageList(image));
381 /*
382 Render markup.
383 */
384 stride=(size_t) cairo_format_stride_for_width(CAIRO_FORMAT_ARGB32,
385 (int) image->columns);
386 pixel_info=AcquireVirtualMemory(image->rows,stride*sizeof(*pixels));
387 if (pixel_info == (MemoryInfo *) NULL)
388 {
389 draw_info=DestroyDrawInfo(draw_info);
390 caption=DestroyString(caption);
391 ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
392 }
393 pixels=(unsigned char *) GetVirtualMemoryBlob(pixel_info);
394 surface=cairo_image_surface_create_for_data(pixels,CAIRO_FORMAT_ARGB32,
395 (int) image->columns,(int) image->rows,(int) stride);
396 cairo_image=cairo_create(surface);
397 cairo_set_operator(cairo_image,CAIRO_OPERATOR_CLEAR);
398 cairo_paint(cairo_image);
399 cairo_set_operator(cairo_image,CAIRO_OPERATOR_OVER);
400 cairo_translate(cairo_image,page.x,page.y);
401 cairo_set_source_rgba(cairo_image,QuantumScale*draw_info->fill.red,
402 QuantumScale*draw_info->fill.green,QuantumScale*draw_info->fill.blue,
403 QuantumScale*draw_info->fill.alpha);
404 pango_cairo_show_layout(cairo_image,layout);
405 cairo_destroy(cairo_image);
406 cairo_surface_destroy(surface);
407 g_object_unref(layout);
408 g_object_unref(fontmap);
409 /*
410 Convert surface to image.
411 */
412 (void) SetImageBackgroundColor(image,exception);
413 p=pixels;
414 GetPixelInfo(image,&fill_color);
415 for (y=0; y < (ssize_t) image->rows; y++)
416 {
417 register Quantum
418 *q;
419
420 register ssize_t
421 x;
422
423 q=GetAuthenticPixels(image,0,y,image->columns,1,exception);
424 if (q == (Quantum *) NULL)
425 break;
426 for (x=0; x < (ssize_t) image->columns; x++)
427 {
428 double
429 gamma;
430
431 fill_color.blue=(double) ScaleCharToQuantum(*p++);
432 fill_color.green=(double) ScaleCharToQuantum(*p++);
433 fill_color.red=(double) ScaleCharToQuantum(*p++);
434 fill_color.alpha=(double) ScaleCharToQuantum(*p++);
435 /*
436 Disassociate alpha.
437 */
438 gamma=QuantumScale*fill_color.alpha;
439 gamma=PerceptibleReciprocal(gamma);
440 fill_color.blue*=gamma;
441 fill_color.green*=gamma;
442 fill_color.red*=gamma;
443 CompositePixelOver(image,&fill_color,fill_color.alpha,q,(double)
444 GetPixelAlpha(image,q),q);
445 q+=GetPixelChannels(image);
446 }
447 if (SyncAuthenticPixels(image,exception) == MagickFalse)
448 break;
449 if (image->previous == (Image *) NULL)
450 {
451 status=SetImageProgress(image,LoadImageTag,(MagickOffsetType) y,
452 image->rows);
453 if (status == MagickFalse)
454 break;
455 }
456 }
457 /*
458 Relinquish resources.
459 */
460 pixel_info=RelinquishVirtualMemory(pixel_info);
461 draw_info=DestroyDrawInfo(draw_info);
462 caption=DestroyString(caption);
463 return(GetFirstImageInList(image));
464 }
465 #endif
466
467 /*
468 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
469 % %
470 % %
471 % %
472 % R e g i s t e r P A N G O I m a g e %
473 % %
474 % %
475 % %
476 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
477 %
478 % RegisterPANGOImage() adds attributes for the Pango Markup Language format to
479 % the list of supported formats. The attributes include the image format
480 % tag, a method to read and/or write the format, whether the format
481 % supports the saving of more than one frame to the same file or blob,
482 % whether the format supports native in-memory I/O, and a brief
483 % description of the format.
484 %
485 % The format of the RegisterPANGOImage method is:
486 %
487 % size_t RegisterPANGOImage(void)
488 %
489 */
RegisterPANGOImage(void)490 ModuleExport size_t RegisterPANGOImage(void)
491 {
492 char
493 version[MagickPathExtent];
494
495 MagickInfo
496 *entry;
497
498 *version='\0';
499 #if defined(PANGO_VERSION_STRING)
500 (void) FormatLocaleString(version,MagickPathExtent,"Pangocairo %s",
501 PANGO_VERSION_STRING);
502 #endif
503 entry=AcquireMagickInfo("PANGO","PANGO","Pango Markup Language");
504 #if defined(MAGICKCORE_PANGOCAIRO_DELEGATE)
505 entry->decoder=(DecodeImageHandler *) ReadPANGOImage;
506 #endif
507 if (*version != '\0')
508 entry->version=ConstantString(version);
509 entry->flags^=CoderAdjoinFlag;
510 (void) RegisterMagickInfo(entry);
511 return(MagickImageCoderSignature);
512 }
513
514 /*
515 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 % %
517 % %
518 % %
519 % U n r e g i s t e r P A N G O I m a g e %
520 % %
521 % %
522 % %
523 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
524 %
525 % UnregisterPANGOImage() removes format registrations made by the Pango module
526 % from the list of supported formats.
527 %
528 % The format of the UnregisterPANGOImage method is:
529 %
530 % UnregisterPANGOImage(void)
531 %
532 */
UnregisterPANGOImage(void)533 ModuleExport void UnregisterPANGOImage(void)
534 {
535 (void) UnregisterMagickInfo("PANGO");
536 }
537