MagickCore  6.9.12-81
Convert, Edit, Or Compose Bitmap Images
 All Data Structures
annotate.c
1 /*
2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 % %
4 % %
5 % %
6 % AAA N N N N OOO TTTTT AAA TTTTT EEEEE %
7 % A A NN N NN N O O T A A T E %
8 % AAAAA N N N N N N O O T AAAAA T EEE %
9 % A A N NN N NN O O T A A T E %
10 % A A N N N N OOO T A A T EEEEE %
11 % %
12 % %
13 % MagickCore Image Annotation Methods %
14 % %
15 % Software Design %
16 % Cristy %
17 % July 1992 %
18 % %
19 % %
20 % Copyright 1999-2021 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 % https://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 % Digital Applications (www.digapp.com) contributed the stroked text algorithm.
37 % It was written by Leonard Rosenthol.
38 %
39 %
40 */
41 
42 /*
43  Include declarations.
44 */
45 #include "magick/studio.h"
46 #include "magick/annotate.h"
47 #include "magick/attribute.h"
48 #include "magick/cache-private.h"
49 #include "magick/cache-view.h"
50 #include "magick/channel.h"
51 #include "magick/client.h"
52 #include "magick/color.h"
53 #include "magick/color-private.h"
54 #include "magick/colorspace-private.h"
55 #include "magick/composite.h"
56 #include "magick/composite-private.h"
57 #include "magick/constitute.h"
58 #include "magick/draw.h"
59 #include "magick/draw-private.h"
60 #include "magick/exception.h"
61 #include "magick/exception-private.h"
62 #include "magick/gem.h"
63 #include "magick/geometry.h"
64 #include "magick/image-private.h"
65 #include "magick/log.h"
66 #include "magick/quantum.h"
67 #include "magick/quantum-private.h"
68 #include "magick/pixel-accessor.h"
69 #include "magick/policy.h"
70 #include "magick/property.h"
71 #include "magick/resource_.h"
72 #include "magick/semaphore.h"
73 #include "magick/statistic.h"
74 #include "magick/string_.h"
75 #include "magick/token.h"
76 #include "magick/token-private.h"
77 #include "magick/transform.h"
78 #include "magick/type.h"
79 #include "magick/utility.h"
80 #include "magick/utility-private.h"
81 #include "magick/xwindow-private.h"
82 #if defined(MAGICKCORE_FREETYPE_DELEGATE)
83 #if defined(__MINGW32__)
84 # undef interface
85 #endif
86 #include <ft2build.h>
87 #if defined(FT_FREETYPE_H)
88 # include FT_FREETYPE_H
89 #else
90 # include <freetype/freetype.h>
91 #endif
92 #if defined(FT_GLYPH_H)
93 # include FT_GLYPH_H
94 #else
95 # include <freetype/ftglyph.h>
96 #endif
97 #if defined(FT_OUTLINE_H)
98 # include FT_OUTLINE_H
99 #else
100 # include <freetype/ftoutln.h>
101 #endif
102 #if defined(FT_BBOX_H)
103 # include FT_BBOX_H
104 #else
105 # include <freetype/ftbbox.h>
106 #endif /* defined(FT_BBOX_H) */
107 #endif
108 #if defined(MAGICKCORE_RAQM_DELEGATE)
109 #include <raqm.h>
110 #endif
111 typedef struct _GraphemeInfo
112 {
113  ssize_t
114  index,
115  x_offset,
116  x_advance,
117  y_offset;
118 
119  size_t
120  cluster;
121 } GraphemeInfo;
122 
123 /*
124  Annotate semaphores.
125 */
126 static SemaphoreInfo
127  *annotate_semaphore = (SemaphoreInfo *) NULL;
128 
129 /*
130  Forward declarations.
131 */
132 static MagickBooleanType
133  RenderType(Image *,const DrawInfo *,const PointInfo *,TypeMetric *),
134  RenderPostscript(Image *,const DrawInfo *,const PointInfo *,TypeMetric *),
135  RenderFreetype(Image *,const DrawInfo *,const char *,const PointInfo *,
136  TypeMetric *),
137  RenderX11(Image *,const DrawInfo *,const PointInfo *,TypeMetric *);
138 
139 /*
140 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
141 % %
142 % %
143 % %
144 + A n n o t a t e C o m p o n e n t G e n e s i s %
145 % %
146 % %
147 % %
148 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 %
150 % AnnotateComponentGenesis() instantiates the annotate component.
151 %
152 % The format of the AnnotateComponentGenesis method is:
153 %
154 % MagickBooleanType AnnotateComponentGenesis(void)
155 %
156 */
157 MagickExport MagickBooleanType AnnotateComponentGenesis(void)
158 {
159  if (annotate_semaphore == (SemaphoreInfo *) NULL)
160  annotate_semaphore=AllocateSemaphoreInfo();
161  return(MagickTrue);
162 }
163 
164 /*
165 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 % %
167 % %
168 % %
169 + A n n o t a t e C o m p o n e n t T e r m i n u s %
170 % %
171 % %
172 % %
173 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174 %
175 % AnnotateComponentTerminus() destroys the annotate component.
176 %
177 % The format of the AnnotateComponentTerminus method is:
178 %
179 % AnnotateComponentTerminus(void)
180 %
181 */
182 MagickExport void AnnotateComponentTerminus(void)
183 {
184  if (annotate_semaphore == (SemaphoreInfo *) NULL)
185  ActivateSemaphoreInfo(&annotate_semaphore);
186  DestroySemaphoreInfo(&annotate_semaphore);
187 }
188 
189 /*
190 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
191 % %
192 % %
193 % %
194 % A n n o t a t e I m a g e %
195 % %
196 % %
197 % %
198 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199 %
200 % AnnotateImage() annotates an image with text.
201 %
202 % The format of the AnnotateImage method is:
203 %
204 % MagickBooleanType AnnotateImage(Image *image,DrawInfo *draw_info)
205 %
206 % A description of each parameter follows:
207 %
208 % o image: the image.
209 %
210 % o draw_info: the draw info.
211 %
212 */
213 MagickExport MagickBooleanType AnnotateImage(Image *image,
214  const DrawInfo *draw_info)
215 {
216  char
217  *p,
218  color[MaxTextExtent],
219  primitive[MaxTextExtent],
220  *text,
221  **textlist;
222 
223  DrawInfo
224  *annotate,
225  *annotate_info;
226 
227  GeometryInfo
228  geometry_info;
229 
230  MagickBooleanType
231  status;
232 
233  PixelPacket
234  pixel;
235 
236  PointInfo
237  offset;
238 
239  RectangleInfo
240  geometry;
241 
242  ssize_t
243  i;
244 
245  TypeMetric
246  metrics;
247 
248  size_t
249  height,
250  number_lines;
251 
252  assert(image != (Image *) NULL);
253  assert(image->signature == MagickCoreSignature);
254  if (IsEventLogging() != MagickFalse)
255  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
256  assert(draw_info != (DrawInfo *) NULL);
257  assert(draw_info->signature == MagickCoreSignature);
258  if (draw_info->text == (char *) NULL)
259  return(MagickFalse);
260  if (*draw_info->text == '\0')
261  return(MagickTrue);
262  annotate=CloneDrawInfo((ImageInfo *) NULL,draw_info);
263  text=annotate->text;
264  annotate->text=(char *) NULL;
265  annotate_info=CloneDrawInfo((ImageInfo *) NULL,draw_info);
266  number_lines=1;
267  for (p=text; *p != '\0'; p++)
268  if (*p == '\n')
269  number_lines++;
270  textlist=(char **) AcquireQuantumMemory(number_lines+1,sizeof(*textlist));
271  if (textlist == (char **) NULL)
272  {
273  annotate_info=DestroyDrawInfo(annotate_info);
274  annotate=DestroyDrawInfo(annotate);
275  text=DestroyString(text);
276  return(MagickFalse);
277  }
278  p=text;
279  for (i=0; i < (ssize_t) number_lines; i++)
280  {
281  char
282  *q;
283 
284  textlist[i]=p;
285  for (q=p; *q != '\0'; q++)
286  if ((*q == '\r') || (*q == '\n'))
287  break;
288  if (*q == '\r')
289  {
290  *q='\0';
291  q++;
292  }
293  *q='\0';
294  p=q+1;
295  }
296  textlist[i]=(char *) NULL;
297  SetGeometry(image,&geometry);
298  SetGeometryInfo(&geometry_info);
299  if (annotate_info->geometry != (char *) NULL)
300  {
301  (void) ParsePageGeometry(image,annotate_info->geometry,&geometry,
302  &image->exception);
303  (void) ParseGeometry(annotate_info->geometry,&geometry_info);
304  }
305  if (SetImageStorageClass(image,DirectClass) == MagickFalse)
306  {
307  annotate_info=DestroyDrawInfo(annotate_info);
308  annotate=DestroyDrawInfo(annotate);
309  textlist=(char **) RelinquishMagickMemory(textlist);
310  text=DestroyString(text);
311  return(MagickFalse);
312  }
313  if (IsGrayColorspace(image->colorspace) != MagickFalse)
314  (void) SetImageColorspace(image,sRGBColorspace);
315  status=MagickTrue;
316  (void) memset(&metrics,0,sizeof(metrics));
317  for (i=0; textlist[i] != (char *) NULL; i++)
318  {
319  if (*textlist[i] == '\0')
320  continue;
321  /*
322  Position text relative to image.
323  */
324  annotate_info->affine.tx=geometry_info.xi-image->page.x;
325  annotate_info->affine.ty=geometry_info.psi-image->page.y;
326  (void) CloneString(&annotate->text,textlist[i]);
327  if ((metrics.width == 0) || (annotate->gravity != NorthWestGravity))
328  (void) GetTypeMetrics(image,annotate,&metrics);
329  height=(size_t) floor(metrics.ascent-metrics.descent+0.5);
330  if (height == 0)
331  height=draw_info->pointsize;
332  height+=(size_t) floor(draw_info->interline_spacing+0.5);
333  switch (annotate->gravity)
334  {
335  case UndefinedGravity:
336  default:
337  {
338  offset.x=annotate_info->affine.tx+i*annotate_info->affine.ry*height;
339  offset.y=annotate_info->affine.ty+i*annotate_info->affine.sy*height;
340  break;
341  }
342  case (GravityType) NorthWestGravity:
343  {
344  offset.x=(geometry.width == 0 ? -1.0 : 1.0)*annotate_info->affine.tx+i*
345  annotate_info->affine.ry*height+annotate_info->affine.ry*
346  (metrics.ascent+metrics.descent);
347  offset.y=(geometry.height == 0 ? -1.0 : 1.0)*annotate_info->affine.ty+i*
348  annotate_info->affine.sy*height+annotate_info->affine.sy*
349  metrics.ascent;
350  break;
351  }
352  case (GravityType) NorthGravity:
353  {
354  offset.x=(geometry.width == 0 ? -1.0 : 1.0)*annotate_info->affine.tx+
355  geometry.width/2.0+i*annotate_info->affine.ry*height-
356  annotate_info->affine.sx*metrics.width/2.0+annotate_info->affine.ry*
357  (metrics.ascent+metrics.descent);
358  offset.y=(geometry.height == 0 ? -1.0 : 1.0)*annotate_info->affine.ty+i*
359  annotate_info->affine.sy*height+annotate_info->affine.sy*
360  metrics.ascent-annotate_info->affine.rx*metrics.width/2.0;
361  break;
362  }
363  case (GravityType) NorthEastGravity:
364  {
365  offset.x=(geometry.width == 0 ? 1.0 : -1.0)*annotate_info->affine.tx+
366  geometry.width+i*annotate_info->affine.ry*height-
367  annotate_info->affine.sx*metrics.width+annotate_info->affine.ry*
368  (metrics.ascent+metrics.descent)-1.0;
369  offset.y=(geometry.height == 0 ? -1.0 : 1.0)*annotate_info->affine.ty+i*
370  annotate_info->affine.sy*height+annotate_info->affine.sy*
371  metrics.ascent-annotate_info->affine.rx*metrics.width;
372  break;
373  }
374  case (GravityType) WestGravity:
375  {
376  offset.x=(geometry.width == 0 ? -1.0 : 1.0)*annotate_info->affine.tx+i*
377  annotate_info->affine.ry*height+annotate_info->affine.ry*
378  (metrics.ascent+metrics.descent-(number_lines-1.0)*height)/2.0;
379  offset.y=(geometry.height == 0 ? -1.0 : 1.0)*annotate_info->affine.ty+
380  geometry.height/2.0+i*annotate_info->affine.sy*height+
381  annotate_info->affine.sy*(metrics.ascent+metrics.descent-
382  (number_lines-1.0)*height)/2.0;
383  break;
384  }
385  case (GravityType) StaticGravity:
386  case (GravityType) CenterGravity:
387  {
388  offset.x=(geometry.width == 0 ? -1.0 : 1.0)*annotate_info->affine.tx+
389  geometry.width/2.0+i*annotate_info->affine.ry*height-
390  annotate_info->affine.sx*metrics.width/2.0+annotate_info->affine.ry*
391  (metrics.ascent+metrics.descent-(number_lines-1)*height)/2.0;
392  offset.y=(geometry.height == 0 ? -1.0 : 1.0)*annotate_info->affine.ty+
393  geometry.height/2.0+i*annotate_info->affine.sy*height-
394  annotate_info->affine.rx*metrics.width/2.0+annotate_info->affine.sy*
395  (metrics.ascent+metrics.descent-(number_lines-1.0)*height)/2.0;
396  break;
397  }
398  case (GravityType) EastGravity:
399  {
400  offset.x=(geometry.width == 0 ? 1.0 : -1.0)*annotate_info->affine.tx+
401  geometry.width+i*annotate_info->affine.ry*height-
402  annotate_info->affine.sx*metrics.width+annotate_info->affine.ry*
403  (metrics.ascent+metrics.descent-(number_lines-1.0)*height)/2.0-1.0;
404  offset.y=(geometry.height == 0 ? -1.0 : 1.0)*annotate_info->affine.ty+
405  geometry.height/2.0+i*annotate_info->affine.sy*height-
406  annotate_info->affine.rx*metrics.width+annotate_info->affine.sy*
407  (metrics.ascent+metrics.descent-(number_lines-1.0)*height)/2.0;
408  break;
409  }
410  case (GravityType) SouthWestGravity:
411  {
412  offset.x=(geometry.width == 0 ? -1.0 : 1.0)*annotate_info->affine.tx+i*
413  annotate_info->affine.ry*height-annotate_info->affine.ry*
414  (number_lines-1.0)*height;
415  offset.y=(geometry.height == 0 ? 1.0 : -1.0)*annotate_info->affine.ty+
416  geometry.height+i*annotate_info->affine.sy*height-
417  annotate_info->affine.sy*(number_lines-1.0)*height+metrics.descent;
418  break;
419  }
420  case (GravityType) SouthGravity:
421  {
422  offset.x=(geometry.width == 0 ? -1.0 : 1.0)*annotate_info->affine.tx+
423  geometry.width/2.0+i*annotate_info->affine.ry*height-
424  annotate_info->affine.sx*metrics.width/2.0-annotate_info->affine.ry*
425  (number_lines-1.0)*height/2.0;
426  offset.y=(geometry.height == 0 ? 1.0 : -1.0)*annotate_info->affine.ty+
427  geometry.height+i*annotate_info->affine.sy*height-
428  annotate_info->affine.rx*metrics.width/2.0-annotate_info->affine.sy*
429  (number_lines-1.0)*height+metrics.descent;
430  break;
431  }
432  case (GravityType) SouthEastGravity:
433  {
434  offset.x=(geometry.width == 0 ? 1.0 : -1.0)*annotate_info->affine.tx+
435  geometry.width+i*annotate_info->affine.ry*height-
436  annotate_info->affine.sx*metrics.width-annotate_info->affine.ry*
437  (number_lines-1.0)*height-1.0;
438  offset.y=(geometry.height == 0 ? 1.0 : -1.0)*annotate_info->affine.ty+
439  geometry.height+i*annotate_info->affine.sy*height-
440  annotate_info->affine.rx*metrics.width-annotate_info->affine.sy*
441  (number_lines-1.0)*height+metrics.descent;
442  break;
443  }
444  }
445  switch (annotate->align)
446  {
447  case LeftAlign:
448  {
449  offset.x=annotate_info->affine.tx+i*annotate_info->affine.ry*height;
450  offset.y=annotate_info->affine.ty+i*annotate_info->affine.sy*height;
451  break;
452  }
453  case CenterAlign:
454  {
455  offset.x=annotate_info->affine.tx+i*annotate_info->affine.ry*height-
456  annotate_info->affine.sx*metrics.width/2.0;
457  offset.y=annotate_info->affine.ty+i*annotate_info->affine.sy*height-
458  annotate_info->affine.rx*metrics.width/2.0;
459  break;
460  }
461  case RightAlign:
462  {
463  offset.x=annotate_info->affine.tx+i*annotate_info->affine.ry*height-
464  annotate_info->affine.sx*metrics.width;
465  offset.y=annotate_info->affine.ty+i*annotate_info->affine.sy*height-
466  annotate_info->affine.rx*metrics.width;
467  break;
468  }
469  default:
470  break;
471  }
472  if (draw_info->undercolor.opacity != TransparentOpacity)
473  {
474  DrawInfo
475  *undercolor_info;
476 
477  /*
478  Text box.
479  */
480  undercolor_info=CloneDrawInfo((ImageInfo *) NULL,(DrawInfo *) NULL);
481  undercolor_info->fill=draw_info->undercolor;
482  undercolor_info->affine=draw_info->affine;
483  undercolor_info->affine.tx=offset.x-draw_info->affine.ry*metrics.ascent;
484  undercolor_info->affine.ty=offset.y-draw_info->affine.sy*metrics.ascent;
485  (void) FormatLocaleString(primitive,MaxTextExtent,
486  "rectangle 0.0,0.0 %g,%g",metrics.origin.x,(double) height);
487  (void) CloneString(&undercolor_info->primitive,primitive);
488  (void) DrawImage(image,undercolor_info);
489  (void) DestroyDrawInfo(undercolor_info);
490  }
491  annotate_info->affine.tx=offset.x;
492  annotate_info->affine.ty=offset.y;
493  pixel=annotate_info->fill;
494  if (annotate_info->stroke.opacity != TransparentOpacity)
495  pixel=annotate_info->stroke;
496  (void) QueryColorname(image,&pixel,SVGCompliance,color,&image->exception);
497  (void) FormatLocaleString(primitive,MagickPathExtent,"stroke %s "
498  "stroke-width %g line 0,0 %g,0",color,(double)
499  metrics.underline_thickness,(double) metrics.width);
500  /*
501  Annotate image with text.
502  */
503  switch (annotate->decorate)
504  {
505  case OverlineDecoration:
506  {
507  annotate_info->affine.ty-=(draw_info->affine.sy*(metrics.ascent+
508  metrics.descent-metrics.underline_position));
509  (void) CloneString(&annotate_info->primitive,primitive);
510  (void) DrawImage(image,annotate_info);
511  break;
512  }
513  case UnderlineDecoration:
514  {
515  annotate_info->affine.ty-=(draw_info->affine.sy*
516  metrics.underline_position);
517  (void) CloneString(&annotate_info->primitive,primitive);
518  (void) DrawImage(image,annotate_info);
519  break;
520  }
521  default:
522  break;
523  }
524  status=RenderType(image,annotate,&offset,&metrics);
525  if (status == MagickFalse)
526  break;
527  if (annotate->decorate == LineThroughDecoration)
528  {
529  annotate_info->affine.ty-=(draw_info->affine.sy*(height+
530  metrics.underline_position+metrics.descent*2)/2.0);
531  (void) CloneString(&annotate_info->primitive,primitive);
532  (void) DrawImage(image,annotate_info);
533  }
534  }
535  /*
536  Relinquish resources.
537  */
538  annotate_info=DestroyDrawInfo(annotate_info);
539  annotate=DestroyDrawInfo(annotate);
540  textlist=(char **) RelinquishMagickMemory(textlist);
541  text=DestroyString(text);
542  return(status);
543 }
544 
545 /*
546 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 % %
548 % %
549 % %
550 % F o r m a t M a g i c k C a p t i o n %
551 % %
552 % %
553 % %
554 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 %
556 % FormatMagickCaption() formats a caption so that it fits within the image
557 % width. It returns the number of lines in the formatted caption.
558 %
559 % The format of the FormatMagickCaption method is:
560 %
561 % ssize_t FormatMagickCaption(Image *image,DrawInfo *draw_info,
562 % const MagickBooleanType split,TypeMetric *metrics,char **caption)
563 %
564 % A description of each parameter follows.
565 %
566 % o image: The image.
567 %
568 % o draw_info: the draw info.
569 %
570 % o split: when no convenient line breaks-- insert newline.
571 %
572 % o metrics: Return the font metrics in this structure.
573 %
574 % o caption: the caption.
575 %
576 */
577 
578 static inline char *ReplaceSpaceWithNewline(char **caption,char *space)
579 {
580  size_t
581  octets;
582 
583  if ((caption == (char **) NULL) || (space == (char *) NULL))
584  return((char *) NULL);
585  octets=(size_t) GetUTFOctets(space);
586  if (octets == 1)
587  *space='\n';
588  else
589  {
590  char
591  *target;
592 
593  size_t
594  length,
595  offset;
596 
597  length=strlen(*caption);
598  *space='\n';
599  offset=space-(*caption);
600  target=AcquireString(*caption);
601  CopyMagickString(target,*caption,offset+2);
602  ConcatenateMagickString(target,space+octets,length);
603  (void) DestroyString(*caption);
604  *caption=target;
605  space=(*caption)+offset;
606  }
607  return(space);
608 }
609 
610 MagickExport ssize_t FormatMagickCaption(Image *image,DrawInfo *draw_info,
611  const MagickBooleanType split,TypeMetric *metrics,char **caption)
612 {
613  char
614  *p,
615  *q,
616  *s;
617 
618  MagickBooleanType
619  status;
620 
621  size_t
622  width;
623 
624  ssize_t
625  i,
626  n;
627 
628  if ((caption == (char **) NULL) || (*caption == (char *) NULL))
629  return(-1);
630  q=draw_info->text;
631  s=(char *) NULL;
632  width=0;
633  for (p=(*caption); GetUTFCode(p) != 0; p+=GetUTFOctets(p))
634  {
635  int
636  code;
637 
638  code=GetUTFCode(p);
639  if (code == '\n')
640  {
641  q=draw_info->text;
642  continue;
643  }
644  if ((IsUTFSpace(code) != MagickFalse) &&
645  (IsNonBreakingUTFSpace(code) == MagickFalse))
646  {
647  s=p;
648  if (width > image->columns)
649  p=ReplaceSpaceWithNewline(caption,s);
650  }
651  for (i=0; i < (ssize_t) GetUTFOctets(p); i++)
652  *q++=(*(p+i));
653  *q='\0';
654  status=GetTypeMetrics(image,draw_info,metrics);
655  if (status == MagickFalse)
656  break;
657  width=(size_t) floor(metrics->width+draw_info->stroke_width+0.5);
658  if (width <= image->columns)
659  continue;
660  if (s != (char *) NULL)
661  p=ReplaceSpaceWithNewline(caption,s);
662  else
663  if ((split != MagickFalse) || (GetUTFOctets(p) > 2))
664  {
665  /*
666  No convenient line breaks-- insert newline.
667  */
668  n=p-(*caption);
669  if ((n > 0) && ((*caption)[n-1] != '\n'))
670  {
671  char
672  *target;
673 
674  target=AcquireString(*caption);
675  CopyMagickString(target,*caption,n+1);
676  ConcatenateMagickString(target,"\n",strlen(*caption)+1);
677  ConcatenateMagickString(target,p,strlen(*caption)+2);
678  (void) DestroyString(*caption);
679  *caption=target;
680  p=(*caption)+n;
681  }
682  }
683  q=draw_info->text;
684  s=(char *) NULL;
685  }
686  n=0;
687  for (p=(*caption); GetUTFCode(p) != 0; p+=GetUTFOctets(p))
688  if (GetUTFCode(p) == '\n')
689  n++;
690  return(n);
691 }
692 
693 /*
694 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
695 % %
696 % %
697 % %
698 % G e t M u l t i l i n e T y p e M e t r i c s %
699 % %
700 % %
701 % %
702 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
703 %
704 % GetMultilineTypeMetrics() returns the following information for the
705 % specified font and text:
706 %
707 % character width
708 % character height
709 % ascender
710 % descender
711 % text width
712 % text height
713 % maximum horizontal advance
714 % bounds: x1
715 % bounds: y1
716 % bounds: x2
717 % bounds: y2
718 % origin: x
719 % origin: y
720 % underline position
721 % underline thickness
722 %
723 % This method is like GetTypeMetrics() but it returns the maximum text width
724 % and height for multiple lines of text.
725 %
726 % The format of the GetMultilineTypeMetrics method is:
727 %
728 % MagickBooleanType GetMultilineTypeMetrics(Image *image,
729 % const DrawInfo *draw_info,TypeMetric *metrics)
730 %
731 % A description of each parameter follows:
732 %
733 % o image: the image.
734 %
735 % o draw_info: the draw info.
736 %
737 % o metrics: Return the font metrics in this structure.
738 %
739 */
740 MagickExport MagickBooleanType GetMultilineTypeMetrics(Image *image,
741  const DrawInfo *draw_info,TypeMetric *metrics)
742 {
743  char
744  **textlist;
745 
746  double
747  height;
748 
749  DrawInfo
750  *annotate_info;
751 
752  MagickBooleanType
753  status;
754 
755  MagickSizeType
756  size;
757 
758  ssize_t
759  i;
760 
761  size_t
762  count;
763 
764  TypeMetric
765  extent;
766 
767  assert(image != (Image *) NULL);
768  assert(image->signature == MagickCoreSignature);
769  if (IsEventLogging() != MagickFalse)
770  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
771  assert(draw_info != (DrawInfo *) NULL);
772  assert(draw_info->text != (char *) NULL);
773  assert(draw_info->signature == MagickCoreSignature);
774  if (*draw_info->text == '\0')
775  {
776  (void) ThrowMagickException(&image->exception,GetMagickModule(),
777  OptionError,"LabelExpected","`%s'",image->filename);
778  return(MagickFalse);
779  }
780  annotate_info=CloneDrawInfo((ImageInfo *) NULL,draw_info);
781  annotate_info->text=DestroyString(annotate_info->text);
782  /*
783  Convert newlines to multiple lines of text.
784  */
785  textlist=StringToStrings(draw_info->text,&count);
786  if (textlist == (char **) NULL)
787  return(MagickFalse);
788  annotate_info->render=MagickFalse;
789  annotate_info->direction=UndefinedDirection;
790  (void) memset(metrics,0,sizeof(*metrics));
791  (void) memset(&extent,0,sizeof(extent));
792  /*
793  Find the widest of the text lines.
794  */
795  annotate_info->text=textlist[0];
796  status=GetTypeMetrics(image,annotate_info,&extent);
797  *metrics=extent;
798  height=(count*(size_t) (metrics->ascent-metrics->descent+
799  0.5)+(count-1)*draw_info->interline_spacing);
800  size=(MagickSizeType) fabs(height);
801  if (AcquireMagickResource(HeightResource,size) == MagickFalse)
802  {
803  (void) ThrowMagickException(&image->exception,GetMagickModule(),
804  ImageError,"WidthOrHeightExceedsLimit","`%s'",image->filename);
805  status=MagickFalse;
806  }
807  else
808  {
809  for (i=1; i < (ssize_t) count; i++)
810  {
811  annotate_info->text=textlist[i];
812  status=GetTypeMetrics(image,annotate_info,&extent);
813  if (status == MagickFalse)
814  break;
815  if (extent.width > metrics->width)
816  *metrics=extent;
817  size=(MagickSizeType) fabs(extent.width);
818  if (AcquireMagickResource(WidthResource,size) == MagickFalse)
819  {
820  (void) ThrowMagickException(&image->exception,GetMagickModule(),
821  ImageError,"WidthOrHeightExceedsLimit","`%s'",image->filename);
822  status=MagickFalse;
823  break;
824  }
825  }
826  metrics->height=(double) height;
827  }
828  /*
829  Relinquish resources.
830  */
831  annotate_info->text=(char *) NULL;
832  annotate_info=DestroyDrawInfo(annotate_info);
833  for (i=0; i < (ssize_t) count; i++)
834  textlist[i]=DestroyString(textlist[i]);
835  textlist=(char **) RelinquishMagickMemory(textlist);
836  return(status);
837 }
838 
839 /*
840 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841 % %
842 % %
843 % %
844 % G e t T y p e M e t r i c s %
845 % %
846 % %
847 % %
848 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
849 %
850 % GetTypeMetrics() returns the following information for the specified font
851 % and text:
852 %
853 % character width
854 % character height
855 % ascender
856 % descender
857 % text width
858 % text height
859 % maximum horizontal advance
860 % bounds: x1
861 % bounds: y1
862 % bounds: x2
863 % bounds: y2
864 % origin: x
865 % origin: y
866 % underline position
867 % underline thickness
868 %
869 % The format of the GetTypeMetrics method is:
870 %
871 % MagickBooleanType GetTypeMetrics(Image *image,const DrawInfo *draw_info,
872 % TypeMetric *metrics)
873 %
874 % A description of each parameter follows:
875 %
876 % o image: the image.
877 %
878 % o draw_info: the draw info.
879 %
880 % o metrics: Return the font metrics in this structure.
881 %
882 */
883 MagickExport MagickBooleanType GetTypeMetrics(Image *image,
884  const DrawInfo *draw_info,TypeMetric *metrics)
885 {
886  DrawInfo
887  *annotate_info;
888 
889  MagickBooleanType
890  status;
891 
892  PointInfo
893  offset;
894 
895  assert(image != (Image *) NULL);
896  assert(image->signature == MagickCoreSignature);
897  if (IsEventLogging() != MagickFalse)
898  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
899  assert(draw_info != (DrawInfo *) NULL);
900  assert(draw_info->text != (char *) NULL);
901  assert(draw_info->signature == MagickCoreSignature);
902  annotate_info=CloneDrawInfo((ImageInfo *) NULL,draw_info);
903  annotate_info->render=MagickFalse;
904  annotate_info->direction=UndefinedDirection;
905  (void) memset(metrics,0,sizeof(*metrics));
906  offset.x=0.0;
907  offset.y=0.0;
908  status=RenderType(image,annotate_info,&offset,metrics);
909  if (draw_info->debug != MagickFalse)
910  (void) LogMagickEvent(AnnotateEvent,GetMagickModule(),"Metrics: text: %s; "
911  "width: %g; height: %g; ascent: %g; descent: %g; max advance: %g; "
912  "bounds: %g,%g %g,%g; origin: %g,%g; pixels per em: %g,%g; "
913  "underline position: %g; underline thickness: %g",annotate_info->text,
914  metrics->width,metrics->height,metrics->ascent,metrics->descent,
915  metrics->max_advance,metrics->bounds.x1,metrics->bounds.y1,
916  metrics->bounds.x2,metrics->bounds.y2,metrics->origin.x,metrics->origin.y,
917  metrics->pixels_per_em.x,metrics->pixels_per_em.y,
918  metrics->underline_position,metrics->underline_thickness);
919  annotate_info=DestroyDrawInfo(annotate_info);
920  return(status);
921 }
922 
923 /*
924 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
925 % %
926 % %
927 % %
928 + R e n d e r T y p e %
929 % %
930 % %
931 % %
932 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
933 %
934 % RenderType() renders text on the image. It also returns the bounding box of
935 % the text relative to the image.
936 %
937 % The format of the RenderType method is:
938 %
939 % MagickBooleanType RenderType(Image *image,DrawInfo *draw_info,
940 % const PointInfo *offset,TypeMetric *metrics)
941 %
942 % A description of each parameter follows:
943 %
944 % o image: the image.
945 %
946 % o draw_info: the draw info.
947 %
948 % o offset: (x,y) location of text relative to image.
949 %
950 % o metrics: bounding box of text.
951 %
952 */
953 static MagickBooleanType RenderType(Image *image,const DrawInfo *draw_info,
954  const PointInfo *offset,TypeMetric *metrics)
955 {
956  char
957  *font;
958 
959  const TypeInfo
960  *type_info;
961 
962  DrawInfo
963  *annotate_info;
964 
965  ExceptionInfo
966  *sans_exception;
967 
968  MagickBooleanType
969  status;
970 
971  type_info=(const TypeInfo *) NULL;
972  if (draw_info->font != (char *) NULL)
973  {
974  if (*draw_info->font == '@')
975  {
976  status=RenderFreetype(image,draw_info,draw_info->encoding,offset,
977  metrics);
978  return(status);
979  }
980  if (*draw_info->font == '-')
981  return(RenderX11(image,draw_info,offset,metrics));
982  if (*draw_info->font == '^')
983  return(RenderPostscript(image,draw_info,offset,metrics));
984  if (IsPathAccessible(draw_info->font) != MagickFalse)
985  {
986  status=RenderFreetype(image,draw_info,draw_info->encoding,offset,
987  metrics);
988  return(status);
989  }
990  type_info=GetTypeInfo(draw_info->font,&image->exception);
991  if (type_info == (const TypeInfo *) NULL)
992  (void) ThrowMagickException(&image->exception,GetMagickModule(),
993  TypeWarning,"UnableToReadFont","`%s'",draw_info->font);
994  }
995  if ((type_info == (const TypeInfo *) NULL) &&
996  (draw_info->family != (const char *) NULL))
997  {
998  if (strpbrk(draw_info->family,",'\"") == (char *) NULL)
999  type_info=GetTypeInfoByFamily(draw_info->family,draw_info->style,
1000  draw_info->stretch,draw_info->weight,&image->exception);
1001  if (type_info == (const TypeInfo *) NULL)
1002  {
1003  char
1004  **family;
1005 
1006  int
1007  number_families;
1008 
1009  ssize_t
1010  i;
1011 
1012  /*
1013  Parse font family list.
1014  */
1015  family=StringToArgv(draw_info->family,&number_families);
1016  for (i=1; i < (ssize_t) number_families; i++)
1017  {
1018  (void) SubstituteString(&family[i],",","");
1019  type_info=GetTypeInfoByFamily(family[i],draw_info->style,
1020  draw_info->stretch,draw_info->weight,&image->exception);
1021  if ((type_info != (const TypeInfo *) NULL) &&
1022  (LocaleCompare(family[i],type_info->family) == 0))
1023  break;
1024  }
1025  for (i=0; i < (ssize_t) number_families; i++)
1026  family[i]=DestroyString(family[i]);
1027  family=(char **) RelinquishMagickMemory(family);
1028  if (type_info == (const TypeInfo *) NULL)
1029  (void) ThrowMagickException(&image->exception,GetMagickModule(),
1030  TypeWarning,"UnableToReadFont","`%s'",draw_info->family);
1031  }
1032  }
1033  font=GetPolicyValue("system:font");
1034  if (font != (char *) NULL)
1035  {
1036  if (IsPathAccessible(font) != MagickFalse)
1037  {
1038  /*
1039  Render with default system font.
1040  */
1041  annotate_info=CloneDrawInfo((ImageInfo *) NULL,draw_info);
1042  annotate_info->font=font;
1043  status=RenderFreetype(image,annotate_info,annotate_info->encoding,
1044  offset,metrics);
1045  annotate_info=DestroyDrawInfo(annotate_info);
1046  return(status);
1047  }
1048  font=DestroyString(font);
1049  }
1050  sans_exception=AcquireExceptionInfo();
1051  if (type_info == (const TypeInfo *) NULL)
1052  type_info=GetTypeInfoByFamily("Noto Sans",draw_info->style,
1053  draw_info->stretch,draw_info->weight,sans_exception);
1054  if (type_info == (const TypeInfo *) NULL)
1055  type_info=GetTypeInfoByFamily("Nimbus Sans",draw_info->style,
1056  draw_info->stretch,draw_info->weight,sans_exception);
1057  if (type_info == (const TypeInfo *) NULL)
1058  type_info=GetTypeInfoByFamily((const char *) NULL,draw_info->style,
1059  draw_info->stretch,draw_info->weight,sans_exception);
1060  if (type_info == (const TypeInfo *) NULL)
1061  type_info=GetTypeInfo("*",sans_exception);
1062  sans_exception=DestroyExceptionInfo(sans_exception);
1063  if (type_info == (const TypeInfo *) NULL)
1064  {
1065  status=RenderFreetype(image,draw_info,draw_info->encoding,offset,metrics);
1066  return(status);
1067  }
1068  annotate_info=CloneDrawInfo((ImageInfo *) NULL,draw_info);
1069  annotate_info->face=type_info->face;
1070  if (type_info->metrics != (char *) NULL)
1071  (void) CloneString(&annotate_info->metrics,type_info->metrics);
1072  if (type_info->glyphs != (char *) NULL)
1073  (void) CloneString(&annotate_info->font,type_info->glyphs);
1074  status=RenderFreetype(image,annotate_info,type_info->encoding,offset,metrics);
1075  annotate_info=DestroyDrawInfo(annotate_info);
1076  return(status);
1077 }
1078 
1079 /*
1080 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1081 % %
1082 % %
1083 % %
1084 + R e n d e r F r e e t y p e %
1085 % %
1086 % %
1087 % %
1088 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1089 %
1090 % RenderFreetype() renders text on the image with a Truetype font. It also
1091 % returns the bounding box of the text relative to the image.
1092 %
1093 % The format of the RenderFreetype method is:
1094 %
1095 % MagickBooleanType RenderFreetype(Image *image,DrawInfo *draw_info,
1096 % const char *encoding,const PointInfo *offset,TypeMetric *metrics)
1097 %
1098 % A description of each parameter follows:
1099 %
1100 % o image: the image.
1101 %
1102 % o draw_info: the draw info.
1103 %
1104 % o encoding: the font encoding.
1105 %
1106 % o offset: (x,y) location of text relative to image.
1107 %
1108 % o metrics: bounding box of text.
1109 %
1110 */
1111 
1112 #if defined(MAGICKCORE_FREETYPE_DELEGATE)
1113 
1114 static size_t ComplexTextLayout(const Image *image,const DrawInfo *draw_info,
1115  const char *text,const size_t length,const FT_Face face,const FT_Int32 flags,
1116  GraphemeInfo **grapheme)
1117 {
1118 #if defined(MAGICKCORE_RAQM_DELEGATE)
1119  const char
1120  *features;
1121 
1122  raqm_t
1123  *rq;
1124 
1125  raqm_glyph_t
1126  *glyphs;
1127 
1128  ssize_t
1129  i;
1130 
1131  size_t
1132  extent;
1133 
1134  magick_unreferenced(flags);
1135  extent=0;
1136  rq=raqm_create();
1137  if (rq == (raqm_t *) NULL)
1138  goto cleanup;
1139  if (raqm_set_text_utf8(rq,text,length) == 0)
1140  goto cleanup;
1141  if (raqm_set_par_direction(rq,(raqm_direction_t) draw_info->direction) == 0)
1142  goto cleanup;
1143  if (raqm_set_freetype_face(rq,face) == 0)
1144  goto cleanup;
1145  features=GetImageProperty(image,"type:features");
1146  if (features != (const char *) NULL)
1147  {
1148  char
1149  breaker,
1150  quote,
1151  *token;
1152 
1153  int
1154  next,
1155  status_token;
1156 
1157  TokenInfo
1158  *token_info;
1159 
1160  next=0;
1161  token_info=AcquireTokenInfo();
1162  token=AcquireString("");
1163  status_token=Tokenizer(token_info,0,token,50,features,"",",","",'\0',
1164  &breaker,&next,&quote);
1165  while (status_token == 0)
1166  {
1167  raqm_add_font_feature(rq,token,strlen(token));
1168  status_token=Tokenizer(token_info,0,token,50,features,"",",","",'\0',
1169  &breaker,&next,&quote);
1170  }
1171  token_info=DestroyTokenInfo(token_info);
1172  token=DestroyString(token);
1173  }
1174  if (raqm_layout(rq) == 0)
1175  goto cleanup;
1176  glyphs=raqm_get_glyphs(rq,&extent);
1177  if (glyphs == (raqm_glyph_t *) NULL)
1178  {
1179  extent=0;
1180  goto cleanup;
1181  }
1182  *grapheme=(GraphemeInfo *) AcquireQuantumMemory(extent,sizeof(**grapheme));
1183  if (*grapheme == (GraphemeInfo *) NULL)
1184  {
1185  extent=0;
1186  goto cleanup;
1187  }
1188  for (i=0; i < (ssize_t) extent; i++)
1189  {
1190  (*grapheme)[i].index=glyphs[i].index;
1191  (*grapheme)[i].x_offset=glyphs[i].x_offset;
1192  (*grapheme)[i].x_advance=glyphs[i].x_advance;
1193  (*grapheme)[i].y_offset=glyphs[i].y_offset;
1194  (*grapheme)[i].cluster=glyphs[i].cluster;
1195  }
1196 
1197 cleanup:
1198  raqm_destroy(rq);
1199  return(extent);
1200 #else
1201  const char
1202  *p;
1203 
1204  ssize_t
1205  i;
1206 
1207  ssize_t
1208  last_glyph;
1209 
1210  /*
1211  Simple layout for bi-directional text (right-to-left or left-to-right).
1212  */
1213  magick_unreferenced(image);
1214  *grapheme=(GraphemeInfo *) AcquireQuantumMemory(length+1,sizeof(**grapheme));
1215  if (*grapheme == (GraphemeInfo *) NULL)
1216  return(0);
1217  last_glyph=0;
1218  p=text;
1219  for (i=0; GetUTFCode(p) != 0; p+=GetUTFOctets(p), i++)
1220  {
1221  (*grapheme)[i].index=FT_Get_Char_Index(face,GetUTFCode(p));
1222  (*grapheme)[i].x_offset=0;
1223  (*grapheme)[i].y_offset=0;
1224  if (((*grapheme)[i].index != 0) && (last_glyph != 0))
1225  {
1226  if (FT_HAS_KERNING(face))
1227  {
1228  FT_Error
1229  ft_status;
1230 
1231  FT_Vector
1232  kerning;
1233 
1234  ft_status=FT_Get_Kerning(face,(FT_UInt) last_glyph,(FT_UInt)
1235  (*grapheme)[i].index,ft_kerning_default,&kerning);
1236  if (ft_status == 0)
1237  (*grapheme)[i-1].x_advance+=(FT_Pos) ((draw_info->direction ==
1238  RightToLeftDirection ? -1.0 : 1.0)*kerning.x);
1239  }
1240  }
1241  (void) FT_Load_Glyph(face,(*grapheme)[i].index,flags);
1242  (*grapheme)[i].x_advance=face->glyph->advance.x;
1243  (*grapheme)[i].cluster=p-text;
1244  last_glyph=(*grapheme)[i].index;
1245  }
1246  return((size_t) i);
1247 #endif
1248 }
1249 
1250 static void FTCloseStream(FT_Stream stream)
1251 {
1252  FILE *file = (FILE *) stream->descriptor.pointer;
1253  if (file != (FILE *) NULL)
1254  (void) fclose(file);
1255  stream->descriptor.pointer=NULL;
1256 }
1257 
1258 static unsigned long FTReadStream(FT_Stream stream,unsigned long offset,
1259  unsigned char *buffer,unsigned long count)
1260 {
1261  FILE *file = (FILE *) stream->descriptor.pointer;
1262  if (file == (FILE *) NULL)
1263  return(0);
1264  if (count == 0) /* seek operation */
1265  {
1266  if (offset > stream->size)
1267  return(1);
1268 
1269  return((unsigned long) fseek(file,(off_t) offset,SEEK_SET));
1270  }
1271  return((unsigned long) fread(buffer,1,count,file));
1272 }
1273 
1274 static inline MagickBooleanType IsEmptyOutline(FT_Outline outline)
1275 {
1276  return((outline.n_points == 0) || (outline.n_contours <= 0) ? MagickTrue :
1277  MagickFalse);
1278 }
1279 
1280 static int TraceCubicBezier(FT_Vector *p,FT_Vector *q,FT_Vector *to,
1281  DrawInfo *draw_info)
1282 {
1283  AffineMatrix
1284  affine;
1285 
1286  char
1287  path[MaxTextExtent];
1288 
1289  affine=draw_info->affine;
1290  (void) FormatLocaleString(path,MaxTextExtent,"C%g,%g %g,%g %g,%g",affine.tx+
1291  p->x/64.0,affine.ty-p->y/64.0,affine.tx+q->x/64.0,affine.ty-q->y/64.0,
1292  affine.tx+to->x/64.0,affine.ty-to->y/64.0);
1293  (void) ConcatenateString(&draw_info->primitive,path);
1294  return(0);
1295 }
1296 
1297 static int TraceLineTo(FT_Vector *to,DrawInfo *draw_info)
1298 {
1299  AffineMatrix
1300  affine;
1301 
1302  char
1303  path[MaxTextExtent];
1304 
1305  affine=draw_info->affine;
1306  (void) FormatLocaleString(path,MaxTextExtent,"L%g,%g",affine.tx+to->x/64.0,
1307  affine.ty-to->y/64.0);
1308  (void) ConcatenateString(&draw_info->primitive,path);
1309  return(0);
1310 }
1311 
1312 static int TraceMoveTo(FT_Vector *to,DrawInfo *draw_info)
1313 {
1314  AffineMatrix
1315  affine;
1316 
1317  char
1318  path[MaxTextExtent];
1319 
1320  affine=draw_info->affine;
1321  (void) FormatLocaleString(path,MaxTextExtent,"M%g,%g",affine.tx+to->x/64.0,
1322  affine.ty-to->y/64.0);
1323  (void) ConcatenateString(&draw_info->primitive,path);
1324  return(0);
1325 }
1326 
1327 static int TraceQuadraticBezier(FT_Vector *control,FT_Vector *to,
1328  DrawInfo *draw_info)
1329 {
1330  AffineMatrix
1331  affine;
1332 
1333  char
1334  path[MaxTextExtent];
1335 
1336  affine=draw_info->affine;
1337  (void) FormatLocaleString(path,MaxTextExtent,"Q%g,%g %g,%g",affine.tx+
1338  control->x/64.0,affine.ty-control->y/64.0,affine.tx+to->x/64.0,affine.ty-
1339  to->y/64.0);
1340  (void) ConcatenateString(&draw_info->primitive,path);
1341  return(0);
1342 }
1343 
1344 static inline const char *FreetypeErrorMessage(FT_Error ft_status)
1345 {
1346 #if FREETYPE_MAJOR == 2 && FREETYPE_MINOR >= 10
1347  return(FT_Error_String(ft_status));
1348 #else
1349  magick_unreferenced(ft_status);
1350  return((const char *) NULL);
1351 #endif
1352 }
1353 
1354 static MagickBooleanType RenderFreetype(Image *image,const DrawInfo *draw_info,
1355  const char *encoding,const PointInfo *offset,TypeMetric *metrics)
1356 {
1357 #if !defined(FT_OPEN_PATHNAME)
1358 #define FT_OPEN_PATHNAME ft_open_pathname
1359 #endif
1360 
1361 #define ThrowFreetypeErrorException(tag,ft_status,value) \
1362 { \
1363  const char \
1364  *error_string=FreetypeErrorMessage(ft_status); \
1365  if (error_string != (const char *) NULL) \
1366  (void) ThrowMagickException(exception,GetMagickModule(),TypeError, \
1367  tag,"`%s (%s)'",value, error_string); \
1368  else \
1369  (void) ThrowMagickException(exception,GetMagickModule(),TypeError, \
1370  tag,"`%s'",value); \
1371 }
1372 
1373  typedef struct _GlyphInfo
1374  {
1375  FT_UInt
1376  id;
1377 
1378  FT_Vector
1379  origin;
1380 
1381  FT_Glyph
1382  image;
1383  } GlyphInfo;
1384 
1385  char
1386  *p;
1387 
1388  const char
1389  *value;
1390 
1391  DrawInfo
1392  *annotate_info;
1393 
1394  ExceptionInfo
1395  *exception;
1396 
1397  FT_BBox
1398  bounds;
1399 
1400  FT_Encoding
1401  encoding_type;
1402 
1403  FT_Error
1404  ft_status;
1405 
1406  FT_Face
1407  face;
1408 
1409  FT_Int32
1410  flags;
1411 
1412  FT_Library
1413  library;
1414 
1415  FT_Long
1416  face_index;
1417 
1418  FT_Matrix
1419  affine;
1420 
1421  FT_Open_Args
1422  args;
1423 
1424  FT_StreamRec
1425  *stream;
1426 
1427  FT_UInt
1428  first_glyph_id,
1429  last_glyph_id,
1430  missing_glyph_id;
1431 
1432  FT_Vector
1433  origin;
1434 
1435  GlyphInfo
1436  glyph;
1437 
1438  GraphemeInfo
1439  *grapheme;
1440 
1441  MagickBooleanType
1442  status;
1443 
1444  PointInfo
1445  resolution;
1446 
1447  ssize_t
1448  i;
1449 
1450  size_t
1451  length;
1452 
1453  ssize_t
1454  code,
1455  last_character,
1456  y;
1457 
1458  static FT_Outline_Funcs
1459  OutlineMethods =
1460  {
1461  (FT_Outline_MoveTo_Func) TraceMoveTo,
1462  (FT_Outline_LineTo_Func) TraceLineTo,
1463  (FT_Outline_ConicTo_Func) TraceQuadraticBezier,
1464  (FT_Outline_CubicTo_Func) TraceCubicBezier,
1465  0, 0
1466  };
1467 
1468  struct stat
1469  attributes;
1470 
1471  unsigned char
1472  *utf8;
1473 
1474  /*
1475  Initialize Truetype library.
1476  */
1477  exception=(&image->exception);
1478  ft_status=FT_Init_FreeType(&library);
1479  if (ft_status != 0)
1480  ThrowFreetypeErrorException("UnableToInitializeFreetypeLibrary",ft_status,
1481  image->filename);
1482  face_index=(FT_Long) draw_info->face;
1483  /*
1484  Open font face.
1485  */
1486  (void) memset(&args,0,sizeof(args));
1487  if (draw_info->font == (char *) NULL)
1488  {
1489  const TypeInfo *type_info = GetTypeInfo("*",exception);
1490  if (type_info != (const TypeInfo *) NULL)
1491  args.pathname=ConstantString(type_info->glyphs);
1492  }
1493  else
1494  if (*draw_info->font != '@')
1495  args.pathname=ConstantString(draw_info->font);
1496  else
1497  {
1498  /*
1499  Extract face index, e.g. @msgothic[1].
1500  */
1501  ImageInfo *image_info=AcquireImageInfo();
1502  (void) CopyMagickString(image_info->filename,draw_info->font+1,
1503  MagickPathExtent);
1504  (void) SetImageInfo(image_info,0,exception);
1505  face_index=(FT_Long) image_info->scene;
1506  args.pathname=ConstantString(image_info->filename);
1507  image_info=DestroyImageInfo(image_info);
1508  }
1509  /*
1510  Configure streaming interface.
1511  */
1512  stream=(FT_StreamRec *) AcquireCriticalMemory(sizeof(*stream));
1513  (void) memset(stream,0,sizeof(*stream));
1514  (void) stat(args.pathname,&attributes);
1515  stream->size=attributes.st_size;
1516  stream->descriptor.pointer=fopen_utf8(args.pathname,"rb");
1517  stream->read=(&FTReadStream);
1518  stream->close=(&FTCloseStream);
1519  args.flags=FT_OPEN_STREAM;
1520  args.stream=stream;
1521  face=(FT_Face) NULL;
1522  ft_status=FT_Open_Face(library,&args,face_index,&face);
1523  if (ft_status != 0)
1524  {
1525  (void) FT_Done_FreeType(library);
1526  stream=(FT_StreamRec *) RelinquishMagickMemory(stream);
1527  ThrowFreetypeErrorException("UnableToReadFont",ft_status,args.pathname);
1528  args.pathname=DestroyString(args.pathname);
1529  return(MagickFalse);
1530  }
1531  args.pathname=DestroyString(args.pathname);
1532  if ((draw_info->metrics != (char *) NULL) &&
1533  (IsPathAccessible(draw_info->metrics) != MagickFalse))
1534  (void) FT_Attach_File(face,draw_info->metrics);
1535  encoding_type=FT_ENCODING_UNICODE;
1536  ft_status=FT_Select_Charmap(face,encoding_type);
1537  if ((ft_status != 0) && (face->num_charmaps != 0))
1538  ft_status=FT_Set_Charmap(face,face->charmaps[0]);
1539  if (encoding != (const char *) NULL)
1540  {
1541  if (LocaleCompare(encoding,"AdobeCustom") == 0)
1542  encoding_type=FT_ENCODING_ADOBE_CUSTOM;
1543  if (LocaleCompare(encoding,"AdobeExpert") == 0)
1544  encoding_type=FT_ENCODING_ADOBE_EXPERT;
1545  if (LocaleCompare(encoding,"AdobeStandard") == 0)
1546  encoding_type=FT_ENCODING_ADOBE_STANDARD;
1547  if (LocaleCompare(encoding,"AppleRoman") == 0)
1548  encoding_type=FT_ENCODING_APPLE_ROMAN;
1549  if (LocaleCompare(encoding,"BIG5") == 0)
1550  encoding_type=FT_ENCODING_BIG5;
1551 #if defined(FT_ENCODING_PRC)
1552  if (LocaleCompare(encoding,"GB2312") == 0)
1553  encoding_type=FT_ENCODING_PRC;
1554 #endif
1555 #if defined(FT_ENCODING_JOHAB)
1556  if (LocaleCompare(encoding,"Johab") == 0)
1557  encoding_type=FT_ENCODING_JOHAB;
1558 #endif
1559 #if defined(FT_ENCODING_ADOBE_LATIN_1)
1560  if (LocaleCompare(encoding,"Latin-1") == 0)
1561  encoding_type=FT_ENCODING_ADOBE_LATIN_1;
1562 #endif
1563 #if defined(FT_ENCODING_ADOBE_LATIN_2)
1564  if (LocaleCompare(encoding,"Latin-2") == 0)
1565  encoding_type=FT_ENCODING_OLD_LATIN_2;
1566 #endif
1567  if (LocaleCompare(encoding,"None") == 0)
1568  encoding_type=FT_ENCODING_NONE;
1569  if (LocaleCompare(encoding,"SJIScode") == 0)
1570  encoding_type=FT_ENCODING_SJIS;
1571  if (LocaleCompare(encoding,"Symbol") == 0)
1572  encoding_type=FT_ENCODING_MS_SYMBOL;
1573  if (LocaleCompare(encoding,"Unicode") == 0)
1574  encoding_type=FT_ENCODING_UNICODE;
1575  if (LocaleCompare(encoding,"Wansung") == 0)
1576  encoding_type=FT_ENCODING_WANSUNG;
1577  ft_status=FT_Select_Charmap(face,encoding_type);
1578  if (ft_status != 0)
1579  {
1580  (void) FT_Done_Face(face);
1581  (void) FT_Done_FreeType(library);
1582  stream=(FT_StreamRec *) RelinquishMagickMemory(stream);
1583  ThrowFreetypeErrorException("UnrecognizedFontEncoding",ft_status,
1584  encoding);
1585  return(MagickFalse);
1586  }
1587  }
1588  /*
1589  Set text size.
1590  */
1591  resolution.x=DefaultResolution;
1592  resolution.y=DefaultResolution;
1593  if (draw_info->density != (char *) NULL)
1594  {
1595  GeometryInfo
1596  geometry_info;
1597 
1598  MagickStatusType
1599  flags;
1600 
1601  flags=ParseGeometry(draw_info->density,&geometry_info);
1602  if ((flags & RhoValue) != 0)
1603  resolution.x=geometry_info.rho;
1604  resolution.y=resolution.x;
1605  if ((flags & SigmaValue) != 0)
1606  resolution.y=geometry_info.sigma;
1607  }
1608  ft_status=FT_Set_Char_Size(face,(FT_F26Dot6) (64.0*draw_info->pointsize),
1609  (FT_F26Dot6) (64.0*draw_info->pointsize),(FT_UInt) resolution.x,
1610  (FT_UInt) resolution.y);
1611  if (ft_status != 0)
1612  {
1613  (void) FT_Done_Face(face);
1614  (void) FT_Done_FreeType(library);
1615  stream=(FT_StreamRec *) RelinquishMagickMemory(stream);
1616  ThrowFreetypeErrorException("UnableToReadFont",ft_status,
1617  draw_info->font);
1618  return(MagickFalse);
1619  }
1620  metrics->pixels_per_em.x=face->size->metrics.x_ppem;
1621  metrics->pixels_per_em.y=face->size->metrics.y_ppem;
1622  metrics->ascent=(double) face->size->metrics.ascender/64.0;
1623  metrics->descent=(double) face->size->metrics.descender/64.0;
1624  if (face->size->metrics.ascender == 0)
1625  {
1626  /*
1627  Sanitize buggy ascender and descender values.
1628  */
1629  metrics->ascent=face->size->metrics.y_ppem;
1630  if (face->size->metrics.descender == 0)
1631  metrics->descent=face->size->metrics.y_ppem/-3.5;
1632  }
1633  metrics->width=0;
1634  metrics->origin.x=0;
1635  metrics->origin.y=0;
1636  metrics->height=(double) face->size->metrics.height/64.0;
1637  metrics->max_advance=0.0;
1638  if (face->size->metrics.max_advance > MagickEpsilon)
1639  metrics->max_advance=(double) face->size->metrics.max_advance/64.0;
1640  metrics->bounds.x1=0.0;
1641  metrics->bounds.y1=metrics->descent;
1642  metrics->bounds.x2=metrics->ascent+metrics->descent;
1643  metrics->bounds.y2=metrics->ascent+metrics->descent;
1644  metrics->underline_position=face->underline_position*
1645  (metrics->pixels_per_em.x*PerceptibleReciprocal(face->units_per_EM));
1646  metrics->underline_thickness=face->underline_thickness*
1647  (metrics->pixels_per_em.x*PerceptibleReciprocal(face->units_per_EM));
1648  first_glyph_id=0;
1649  FT_Get_First_Char(face,&first_glyph_id);
1650  if ((draw_info->text == (char *) NULL) || (*draw_info->text == '\0') ||
1651  (first_glyph_id == 0))
1652  {
1653  (void) FT_Done_Face(face);
1654  (void) FT_Done_FreeType(library);
1655  stream=(FT_StreamRec *) RelinquishMagickMemory(stream);
1656  return(MagickTrue);
1657  }
1658  /*
1659  Compute bounding box.
1660  */
1661  if (draw_info->debug != MagickFalse)
1662  (void) LogMagickEvent(AnnotateEvent,GetMagickModule(),"Font %s; "
1663  "font-encoding %s; text-encoding %s; pointsize %g",
1664  draw_info->font != (char *) NULL ? draw_info->font : "none",
1665  encoding != (char *) NULL ? encoding : "none",
1666  draw_info->encoding != (char *) NULL ? draw_info->encoding : "none",
1667  draw_info->pointsize);
1668  flags=FT_LOAD_DEFAULT;
1669  if (draw_info->render == MagickFalse)
1670  flags=FT_LOAD_NO_BITMAP;
1671  if (draw_info->text_antialias == MagickFalse)
1672  flags|=FT_LOAD_TARGET_MONO;
1673  else
1674  {
1675 #if defined(FT_LOAD_TARGET_LIGHT)
1676  flags|=FT_LOAD_TARGET_LIGHT;
1677 #elif defined(FT_LOAD_TARGET_LCD)
1678  flags|=FT_LOAD_TARGET_LCD;
1679 #endif
1680  }
1681  value=GetImageProperty(image,"type:hinting");
1682  if ((value != (const char *) NULL) && (LocaleCompare(value,"off") == 0))
1683  flags|=FT_LOAD_NO_HINTING;
1684  glyph.id=0;
1685  glyph.image=(FT_Glyph) NULL;
1686  last_glyph_id=0;
1687  origin.x=0;
1688  origin.y=0;
1689  affine.xx=65536L;
1690  affine.yx=0L;
1691  affine.xy=0L;
1692  affine.yy=65536L;
1693  if (draw_info->render != MagickFalse)
1694  {
1695  affine.xx=(FT_Fixed) (65536L*draw_info->affine.sx+0.5);
1696  affine.yx=(FT_Fixed) (-65536L*draw_info->affine.rx+0.5);
1697  affine.xy=(FT_Fixed) (-65536L*draw_info->affine.ry+0.5);
1698  affine.yy=(FT_Fixed) (65536L*draw_info->affine.sy+0.5);
1699  }
1700  annotate_info=CloneDrawInfo((ImageInfo *) NULL,draw_info);
1701  if (annotate_info->dash_pattern != (double *) NULL)
1702  annotate_info->dash_pattern[0]=0.0;
1703  (void) CloneString(&annotate_info->primitive,"path '");
1704  status=MagickTrue;
1705  if (draw_info->render != MagickFalse)
1706  {
1707  if (image->storage_class != DirectClass)
1708  (void) SetImageStorageClass(image,DirectClass);
1709  if (image->matte == MagickFalse)
1710  (void) SetImageAlphaChannel(image,OpaqueAlphaChannel);
1711  }
1712  for (p=draw_info->text; GetUTFCode(p) != 0; p+=GetUTFOctets(p))
1713  if (GetUTFCode(p) < 0)
1714  break;
1715  utf8=(unsigned char *) NULL;
1716  if (GetUTFCode(p) == 0)
1717  p=draw_info->text;
1718  else
1719  {
1720  utf8=ConvertLatin1ToUTF8((unsigned char *) draw_info->text);
1721  if (utf8 != (unsigned char *) NULL)
1722  p=(char *) utf8;
1723  }
1724  grapheme=(GraphemeInfo *) NULL;
1725  length=ComplexTextLayout(image,draw_info,p,strlen(p),face,flags,&grapheme);
1726  missing_glyph_id=FT_Get_Char_Index(face,' ');
1727  code=0;
1728  last_character=(ssize_t) length-1;
1729  for (i=0; i < (ssize_t) length; i++)
1730  {
1731  FT_BitmapGlyph
1732  bitmap;
1733 
1734  FT_Outline
1735  outline;
1736 
1737  PointInfo
1738  point;
1739 
1740  /*
1741  Render UTF-8 sequence.
1742  */
1743  glyph.id=grapheme[i].index;
1744  if (glyph.id == 0)
1745  glyph.id=missing_glyph_id;
1746  if ((glyph.id != 0) && (last_glyph_id != 0))
1747  origin.x+=(FT_Pos) (64.0*draw_info->kerning);
1748  glyph.origin=origin;
1749  glyph.origin.x+=grapheme[i].x_offset;
1750  glyph.origin.y+=grapheme[i].y_offset;
1751  if (glyph.image != (FT_Glyph) NULL)
1752  {
1753  FT_Done_Glyph(glyph.image);
1754  glyph.image=(FT_Glyph) NULL;
1755  }
1756  ft_status=FT_Load_Glyph(face,glyph.id,flags);
1757  if (ft_status != 0)
1758  continue;
1759  ft_status=FT_Get_Glyph(face->glyph,&glyph.image);
1760  if (ft_status != 0)
1761  continue;
1762  outline=((FT_OutlineGlyph) glyph.image)->outline;
1763  if ((glyph.image->format != FT_GLYPH_FORMAT_OUTLINE) &&
1764  (IsEmptyOutline(outline) == MagickFalse))
1765  continue;
1766  ft_status=FT_Outline_Get_BBox(&outline,&bounds);
1767  if (ft_status != 0)
1768  continue;
1769  if ((bounds.xMin < metrics->bounds.x1) && (bounds.xMin != 0))
1770  metrics->bounds.x1=(double) bounds.xMin;
1771  if ((bounds.yMin < metrics->bounds.y1) && (bounds.yMin != 0))
1772  metrics->bounds.y1=(double) bounds.yMin;
1773  if ((bounds.xMax > metrics->bounds.x2) && (bounds.xMax != 0))
1774  metrics->bounds.x2=(double) bounds.xMax;
1775  if ((bounds.yMax > metrics->bounds.y2) && (bounds.yMax != 0))
1776  metrics->bounds.y2=(double) bounds.yMax;
1777  if (((draw_info->stroke.opacity != TransparentOpacity) ||
1778  (draw_info->stroke_pattern != (Image *) NULL)) &&
1779  ((status != MagickFalse) && (draw_info->render != MagickFalse)))
1780  {
1781  /*
1782  Trace the glyph.
1783  */
1784  annotate_info->affine.tx=glyph.origin.x/64.0;
1785  annotate_info->affine.ty=(-glyph.origin.y/64.0);
1786  if (IsEmptyOutline(outline) == MagickFalse)
1787  ft_status=FT_Outline_Decompose(&outline,&OutlineMethods,
1788  annotate_info);
1789  }
1790  FT_Vector_Transform(&glyph.origin,&affine);
1791  (void) FT_Glyph_Transform(glyph.image,&affine,&glyph.origin);
1792  ft_status=FT_Glyph_To_Bitmap(&glyph.image,FT_RENDER_MODE_NORMAL,
1793  (FT_Vector *) NULL,MagickTrue);
1794  if (ft_status != 0)
1795  continue;
1796  bitmap=(FT_BitmapGlyph) glyph.image;
1797  point.x=offset->x+bitmap->left;
1798  if (bitmap->bitmap.pixel_mode == ft_pixel_mode_mono)
1799  point.x+=(origin.x/64.0);
1800  point.y=offset->y-bitmap->top;
1801  if (draw_info->render != MagickFalse)
1802  {
1803  CacheView
1804  *image_view;
1805 
1806  unsigned char
1807  *p;
1808 
1809  MagickBooleanType
1810  transparent_fill;
1811 
1812  /*
1813  Rasterize the glyph.
1814  */
1815  transparent_fill=((draw_info->fill.opacity == TransparentOpacity) &&
1816  (draw_info->fill_pattern == (Image *) NULL) &&
1817  (draw_info->stroke.opacity == TransparentOpacity) &&
1818  (draw_info->stroke_pattern == (Image *) NULL)) ? MagickTrue :
1819  MagickFalse;
1820  p=bitmap->bitmap.buffer;
1821  image_view=AcquireAuthenticCacheView(image,exception);
1822  for (y=0; y < (ssize_t) bitmap->bitmap.rows; y++)
1823  {
1824  MagickBooleanType
1825  active,
1826  sync;
1827 
1828  MagickRealType
1829  fill_opacity;
1830 
1831  PixelPacket
1832  fill_color,
1833  *magick_restrict q;
1834 
1835  ssize_t
1836  x;
1837 
1838  ssize_t
1839  n,
1840  x_offset,
1841  y_offset;
1842 
1843  if (status == MagickFalse)
1844  continue;
1845  x_offset=CastDoubleToLong(ceil(point.x-0.5));
1846  y_offset=CastDoubleToLong(ceil(point.y+y-0.5));
1847  if ((y_offset < 0) || (y_offset >= (ssize_t) image->rows))
1848  continue;
1849  q=(PixelPacket *) NULL;
1850  if ((x_offset < 0) || (x_offset >= (ssize_t) image->columns))
1851  active=MagickFalse;
1852  else
1853  {
1854  q=GetCacheViewAuthenticPixels(image_view,x_offset,y_offset,
1855  bitmap->bitmap.width,1,exception);
1856  active=q != (PixelPacket *) NULL ? MagickTrue : MagickFalse;
1857  }
1858  n=y*bitmap->bitmap.pitch;
1859  for (x=0; x < (ssize_t) bitmap->bitmap.width; x++, n++)
1860  {
1861  x_offset=CastDoubleToLong(ceil(point.x+x-0.5));
1862  if ((x_offset < 0) || (x_offset >= (ssize_t) image->columns))
1863  {
1864  if (q != (PixelPacket *) NULL)
1865  q++;
1866  continue;
1867  }
1868  fill_opacity=1.0;
1869  if (bitmap->bitmap.buffer != (unsigned char *) NULL)
1870  {
1871  if (bitmap->bitmap.pixel_mode == ft_pixel_mode_grays)
1872  fill_opacity=(MagickRealType) (p[n])/(
1873  bitmap->bitmap.num_grays-1);
1874  else
1875  if (bitmap->bitmap.pixel_mode == ft_pixel_mode_mono)
1876  fill_opacity=((p[(x >> 3)+y*bitmap->bitmap.pitch] &
1877  (1 << (~x & 0x07)))) == 0 ? 0.0 : 1.0;
1878  }
1879  if (draw_info->text_antialias == MagickFalse)
1880  fill_opacity=fill_opacity >= 0.5 ? 1.0 : 0.0;
1881  if (active == MagickFalse)
1882  q=GetCacheViewAuthenticPixels(image_view,x_offset,y_offset,1,1,
1883  exception);
1884  if (q == (PixelPacket *) NULL)
1885  continue;
1886  if (transparent_fill == MagickFalse)
1887  {
1888  (void) GetFillColor(draw_info,x_offset,y_offset,&fill_color);
1889  fill_opacity=QuantumRange-fill_opacity*(QuantumRange-
1890  fill_color.opacity);
1891  MagickCompositeOver(&fill_color,fill_opacity,q,q->opacity,q);
1892  }
1893  else
1894  {
1895  double
1896  Sa,
1897  Da;
1898 
1899  Da=1.0-(QuantumScale*(QuantumRange-q->opacity));
1900  Sa=fill_opacity;
1901  fill_opacity=(1.0-RoundToUnity(Sa+Da-Sa*Da))*QuantumRange;
1902  SetPixelAlpha(q,fill_opacity);
1903  }
1904  if (active == MagickFalse)
1905  {
1906  sync=SyncCacheViewAuthenticPixels(image_view,exception);
1907  if (sync == MagickFalse)
1908  status=MagickFalse;
1909  }
1910  q++;
1911  }
1912  sync=SyncCacheViewAuthenticPixels(image_view,exception);
1913  if (sync == MagickFalse)
1914  status=MagickFalse;
1915  }
1916  image_view=DestroyCacheView(image_view);
1917  if (((draw_info->stroke.opacity != TransparentOpacity) ||
1918  (draw_info->stroke_pattern != (Image *) NULL)) &&
1919  (status != MagickFalse))
1920  {
1921  /*
1922  Draw text stroke.
1923  */
1924  annotate_info->linejoin=RoundJoin;
1925  annotate_info->affine.tx=offset->x;
1926  annotate_info->affine.ty=offset->y;
1927  (void) ConcatenateString(&annotate_info->primitive,"'");
1928  if (strlen(annotate_info->primitive) > 7)
1929  (void) DrawImage(image,annotate_info);
1930  (void) CloneString(&annotate_info->primitive,"path '");
1931  }
1932  }
1933  if ((fabs(draw_info->interword_spacing) >= MagickEpsilon) &&
1934  (IsUTFSpace(GetUTFCode(p+grapheme[i].cluster)) != MagickFalse) &&
1935  (IsUTFSpace(code) == MagickFalse))
1936  origin.x+=(FT_Pos) (64.0*draw_info->interword_spacing);
1937  else
1938  if (i == last_character)
1939  origin.x+=MagickMax((FT_Pos) grapheme[i].x_advance,bounds.xMax);
1940  else
1941  origin.x+=(FT_Pos) grapheme[i].x_advance;
1942  metrics->origin.x=(double) origin.x;
1943  metrics->origin.y=(double) origin.y;
1944  if (metrics->origin.x > metrics->width)
1945  metrics->width=metrics->origin.x;
1946  last_glyph_id=glyph.id;
1947  code=GetUTFCode(p+grapheme[i].cluster);
1948  }
1949  if (grapheme != (GraphemeInfo *) NULL)
1950  grapheme=(GraphemeInfo *) RelinquishMagickMemory(grapheme);
1951  if (utf8 != (unsigned char *) NULL)
1952  utf8=(unsigned char *) RelinquishMagickMemory(utf8);
1953  if (glyph.image != (FT_Glyph) NULL)
1954  {
1955  FT_Done_Glyph(glyph.image);
1956  glyph.image=(FT_Glyph) NULL;
1957  }
1958  /*
1959  Determine font metrics.
1960  */
1961  metrics->bounds.x1/=64.0;
1962  metrics->bounds.y1/=64.0;
1963  metrics->bounds.x2/=64.0;
1964  metrics->bounds.y2/=64.0;
1965  metrics->origin.x/=64.0;
1966  metrics->origin.y/=64.0;
1967  metrics->width/=64.0;
1968  /*
1969  Relinquish resources.
1970  */
1971  annotate_info=DestroyDrawInfo(annotate_info);
1972  (void) FT_Done_Face(face);
1973  (void) FT_Done_FreeType(library);
1974  stream=(FT_StreamRec *) RelinquishMagickMemory(stream);
1975  return(status);
1976 }
1977 #else
1978 static MagickBooleanType RenderFreetype(Image *image,const DrawInfo *draw_info,
1979  const char *magick_unused(encoding),const PointInfo *offset,
1980  TypeMetric *metrics)
1981 {
1982  (void) ThrowMagickException(&image->exception,GetMagickModule(),
1983  MissingDelegateWarning,"DelegateLibrarySupportNotBuiltIn","`%s' (Freetype)",
1984  draw_info->font != (char *) NULL ? draw_info->font : "none");
1985  return(RenderPostscript(image,draw_info,offset,metrics));
1986 }
1987 #endif
1988 
1989 /*
1990 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1991 % %
1992 % %
1993 % %
1994 + R e n d e r P o s t s c r i p t %
1995 % %
1996 % %
1997 % %
1998 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1999 %
2000 % RenderPostscript() renders text on the image with a Postscript font. It
2001 % also returns the bounding box of the text relative to the image.
2002 %
2003 % The format of the RenderPostscript method is:
2004 %
2005 % MagickBooleanType RenderPostscript(Image *image,DrawInfo *draw_info,
2006 % const PointInfo *offset,TypeMetric *metrics)
2007 %
2008 % A description of each parameter follows:
2009 %
2010 % o image: the image.
2011 %
2012 % o draw_info: the draw info.
2013 %
2014 % o offset: (x,y) location of text relative to image.
2015 %
2016 % o metrics: bounding box of text.
2017 %
2018 */
2019 
2020 static char *EscapeParenthesis(const char *source)
2021 {
2022  char
2023  *destination;
2024 
2025  char
2026  *q;
2027 
2028  const char
2029  *p;
2030 
2031  size_t
2032  length;
2033 
2034  assert(source != (const char *) NULL);
2035  length=0;
2036  for (p=source; *p != '\0'; p++)
2037  {
2038  if ((*p == '\\') || (*p == '(') || (*p == ')'))
2039  {
2040  if (~length < 1)
2041  ThrowFatalException(ResourceLimitFatalError,"UnableToEscapeString");
2042  length++;
2043  }
2044  length++;
2045  }
2046  destination=(char *) NULL;
2047  if (~length >= (MaxTextExtent-1))
2048  destination=(char *) AcquireQuantumMemory(length+MaxTextExtent,
2049  sizeof(*destination));
2050  if (destination == (char *) NULL)
2051  ThrowFatalException(ResourceLimitFatalError,"UnableToEscapeString");
2052  *destination='\0';
2053  q=destination;
2054  for (p=source; *p != '\0'; p++)
2055  {
2056  if ((*p == '\\') || (*p == '(') || (*p == ')'))
2057  *q++='\\';
2058  *q++=(*p);
2059  }
2060  *q='\0';
2061  return(destination);
2062 }
2063 
2064 static MagickBooleanType RenderPostscript(Image *image,
2065  const DrawInfo *draw_info,const PointInfo *offset,TypeMetric *metrics)
2066 {
2067  char
2068  filename[MaxTextExtent],
2069  geometry[MaxTextExtent],
2070  *text;
2071 
2072  FILE
2073  *file;
2074 
2075  Image
2076  *annotate_image;
2077 
2078  ImageInfo
2079  *annotate_info;
2080 
2081  int
2082  unique_file;
2083 
2084  MagickBooleanType
2085  identity;
2086 
2087  PointInfo
2088  extent,
2089  point,
2090  resolution;
2091 
2092  ssize_t
2093  i;
2094 
2095  size_t
2096  length;
2097 
2098  ssize_t
2099  y;
2100 
2101  /*
2102  Render label with a Postscript font.
2103  */
2104  if (draw_info->debug != MagickFalse)
2105  (void) LogMagickEvent(AnnotateEvent,GetMagickModule(),
2106  "Font %s; pointsize %g",draw_info->font != (char *) NULL ?
2107  draw_info->font : "none",draw_info->pointsize);
2108  file=(FILE *) NULL;
2109  unique_file=AcquireUniqueFileResource(filename);
2110  if (unique_file != -1)
2111  file=fdopen(unique_file,"wb");
2112  if ((unique_file == -1) || (file == (FILE *) NULL))
2113  {
2114  ThrowFileException(&image->exception,FileOpenError,"UnableToOpenFile",
2115  filename);
2116  return(MagickFalse);
2117  }
2118  (void) FormatLocaleFile(file,"%%!PS-Adobe-3.0\n");
2119  (void) FormatLocaleFile(file,"/ReencodeType\n");
2120  (void) FormatLocaleFile(file,"{\n");
2121  (void) FormatLocaleFile(file," findfont dup length\n");
2122  (void) FormatLocaleFile(file,
2123  " dict begin { 1 index /FID ne {def} {pop pop} ifelse } forall\n");
2124  (void) FormatLocaleFile(file,
2125  " /Encoding ISOLatin1Encoding def currentdict end definefont pop\n");
2126  (void) FormatLocaleFile(file,"} bind def\n");
2127  /*
2128  Sample to compute bounding box.
2129  */
2130  identity=(fabs(draw_info->affine.sx-draw_info->affine.sy) < MagickEpsilon) &&
2131  (fabs(draw_info->affine.rx) < MagickEpsilon) &&
2132  (fabs(draw_info->affine.ry) < MagickEpsilon) ? MagickTrue : MagickFalse;
2133  extent.x=0.0;
2134  extent.y=0.0;
2135  length=strlen(draw_info->text);
2136  for (i=0; i <= (ssize_t) (length+2); i++)
2137  {
2138  point.x=fabs(draw_info->affine.sx*i*draw_info->pointsize+
2139  draw_info->affine.ry*2.0*draw_info->pointsize);
2140  point.y=fabs(draw_info->affine.rx*i*draw_info->pointsize+
2141  draw_info->affine.sy*2.0*draw_info->pointsize);
2142  if (point.x > extent.x)
2143  extent.x=point.x;
2144  if (point.y > extent.y)
2145  extent.y=point.y;
2146  }
2147  (void) FormatLocaleFile(file,"%g %g moveto\n",identity != MagickFalse ? 0.0 :
2148  extent.x/2.0,extent.y/2.0);
2149  (void) FormatLocaleFile(file,"%g %g scale\n",draw_info->pointsize,
2150  draw_info->pointsize);
2151  if ((draw_info->font == (char *) NULL) || (*draw_info->font == '\0') ||
2152  (strchr(draw_info->font,'/') != (char *) NULL))
2153  (void) FormatLocaleFile(file,
2154  "/Times-Roman-ISO dup /Times-Roman ReencodeType findfont setfont\n");
2155  else
2156  (void) FormatLocaleFile(file,
2157  "/%s-ISO dup /%s ReencodeType findfont setfont\n",draw_info->font,
2158  draw_info->font);
2159  (void) FormatLocaleFile(file,"[%g %g %g %g 0 0] concat\n",
2160  draw_info->affine.sx,-draw_info->affine.rx,-draw_info->affine.ry,
2161  draw_info->affine.sy);
2162  text=EscapeParenthesis(draw_info->text);
2163  if (identity == MagickFalse)
2164  (void) FormatLocaleFile(file,"(%s) stringwidth pop -0.5 mul -0.5 rmoveto\n",
2165  text);
2166  (void) FormatLocaleFile(file,"(%s) show\n",text);
2167  text=DestroyString(text);
2168  (void) FormatLocaleFile(file,"showpage\n");
2169  (void) fclose(file);
2170  (void) FormatLocaleString(geometry,MaxTextExtent,"%.20gx%.20g+0+0!",
2171  floor(extent.x+0.5),floor(extent.y+0.5));
2172  annotate_info=AcquireImageInfo();
2173  (void) FormatLocaleString(annotate_info->filename,MaxTextExtent,"ps:%s",
2174  filename);
2175  (void) CloneString(&annotate_info->page,geometry);
2176  if (draw_info->density != (char *) NULL)
2177  (void) CloneString(&annotate_info->density,draw_info->density);
2178  annotate_info->antialias=draw_info->text_antialias;
2179  annotate_image=ReadImage(annotate_info,&image->exception);
2180  CatchException(&image->exception);
2181  annotate_info=DestroyImageInfo(annotate_info);
2182  (void) RelinquishUniqueFileResource(filename);
2183  if (annotate_image == (Image *) NULL)
2184  return(MagickFalse);
2185  resolution.x=DefaultResolution;
2186  resolution.y=DefaultResolution;
2187  if (draw_info->density != (char *) NULL)
2188  {
2189  GeometryInfo
2190  geometry_info;
2191 
2192  MagickStatusType
2193  flags;
2194 
2195  flags=ParseGeometry(draw_info->density,&geometry_info);
2196  if ((flags & RhoValue) != 0)
2197  resolution.x=geometry_info.rho;
2198  resolution.y=resolution.x;
2199  if ((flags & SigmaValue) != 0)
2200  resolution.y=geometry_info.sigma;
2201  }
2202  if (identity == MagickFalse)
2203  (void) TransformImage(&annotate_image,"0x0",(char *) NULL);
2204  else
2205  {
2206  RectangleInfo
2207  crop_info;
2208 
2209  crop_info=GetImageBoundingBox(annotate_image,&annotate_image->exception);
2210  crop_info.height=(size_t) ((resolution.y/DefaultResolution)*
2211  ExpandAffine(&draw_info->affine)*draw_info->pointsize+0.5);
2212  crop_info.y=CastDoubleToLong(ceil((resolution.y/DefaultResolution)*
2213  extent.y/8.0-0.5));
2214  (void) FormatLocaleString(geometry,MaxTextExtent,
2215  "%.20gx%.20g%+.20g%+.20g",(double) crop_info.width,(double)
2216  crop_info.height,(double) crop_info.x,(double) crop_info.y);
2217  (void) TransformImage(&annotate_image,geometry,(char *) NULL);
2218  }
2219  metrics->pixels_per_em.x=(resolution.y/DefaultResolution)*
2220  ExpandAffine(&draw_info->affine)*draw_info->pointsize;
2221  metrics->pixels_per_em.y=metrics->pixels_per_em.x;
2222  metrics->ascent=metrics->pixels_per_em.y;
2223  metrics->descent=metrics->pixels_per_em.y/-5.0;
2224  metrics->width=(double) annotate_image->columns/
2225  ExpandAffine(&draw_info->affine);
2226  metrics->height=floor(metrics->ascent-metrics->descent+0.5);
2227  metrics->max_advance=metrics->pixels_per_em.x;
2228  metrics->bounds.x1=0.0;
2229  metrics->bounds.y1=metrics->descent;
2230  metrics->bounds.x2=metrics->ascent+metrics->descent;
2231  metrics->bounds.y2=metrics->ascent+metrics->descent;
2232  metrics->underline_position=(-2.0);
2233  metrics->underline_thickness=1.0;
2234  if (draw_info->render == MagickFalse)
2235  {
2236  annotate_image=DestroyImage(annotate_image);
2237  return(MagickTrue);
2238  }
2239  if (draw_info->fill.opacity != TransparentOpacity)
2240  {
2241  ExceptionInfo
2242  *exception;
2243 
2244  MagickBooleanType
2245  sync;
2246 
2247  PixelPacket
2248  fill_color;
2249 
2250  CacheView
2251  *annotate_view;
2252 
2253  /*
2254  Render fill color.
2255  */
2256  if (image->matte == MagickFalse)
2257  (void) SetImageAlphaChannel(image,OpaqueAlphaChannel);
2258  if (annotate_image->matte == MagickFalse)
2259  (void) SetImageAlphaChannel(annotate_image,OpaqueAlphaChannel);
2260  fill_color=draw_info->fill;
2261  exception=(&image->exception);
2262  annotate_view=AcquireAuthenticCacheView(annotate_image,exception);
2263  for (y=0; y < (ssize_t) annotate_image->rows; y++)
2264  {
2265  PixelPacket
2266  *magick_restrict q;
2267 
2268  ssize_t
2269  x;
2270 
2271  q=GetCacheViewAuthenticPixels(annotate_view,0,y,annotate_image->columns,
2272  1,exception);
2273  if (q == (PixelPacket *) NULL)
2274  break;
2275  for (x=0; x < (ssize_t) annotate_image->columns; x++)
2276  {
2277  (void) GetFillColor(draw_info,x,y,&fill_color);
2278  SetPixelAlpha(q,ClampToQuantum((((QuantumRange-GetPixelIntensity(
2279  annotate_image,q))*(QuantumRange-fill_color.opacity))/
2280  QuantumRange)));
2281  SetPixelRed(q,fill_color.red);
2282  SetPixelGreen(q,fill_color.green);
2283  SetPixelBlue(q,fill_color.blue);
2284  q++;
2285  }
2286  sync=SyncCacheViewAuthenticPixels(annotate_view,exception);
2287  if (sync == MagickFalse)
2288  break;
2289  }
2290  annotate_view=DestroyCacheView(annotate_view);
2291  (void) CompositeImage(image,OverCompositeOp,annotate_image,
2292  (ssize_t) ceil(offset->x-0.5),(ssize_t) ceil(offset->y-(metrics->ascent+
2293  metrics->descent)-0.5));
2294  }
2295  annotate_image=DestroyImage(annotate_image);
2296  return(MagickTrue);
2297 }
2298 
2299 /*
2300 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2301 % %
2302 % %
2303 % %
2304 + R e n d e r X 1 1 %
2305 % %
2306 % %
2307 % %
2308 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2309 %
2310 % RenderX11() renders text on the image with an X11 font. It also returns the
2311 % bounding box of the text relative to the image.
2312 %
2313 % The format of the RenderX11 method is:
2314 %
2315 % MagickBooleanType RenderX11(Image *image,DrawInfo *draw_info,
2316 % const PointInfo *offset,TypeMetric *metrics)
2317 %
2318 % A description of each parameter follows:
2319 %
2320 % o image: the image.
2321 %
2322 % o draw_info: the draw info.
2323 %
2324 % o offset: (x,y) location of text relative to image.
2325 %
2326 % o metrics: bounding box of text.
2327 %
2328 */
2329 static MagickBooleanType RenderX11(Image *image,const DrawInfo *draw_info,
2330  const PointInfo *offset,TypeMetric *metrics)
2331 {
2332  MagickBooleanType
2333  status;
2334 
2335  if (annotate_semaphore == (SemaphoreInfo *) NULL)
2336  ActivateSemaphoreInfo(&annotate_semaphore);
2337  LockSemaphoreInfo(annotate_semaphore);
2338  status=XRenderImage(image,draw_info,offset,metrics);
2339  UnlockSemaphoreInfo(annotate_semaphore);
2340  return(status);
2341 }
_TypeMetric
Definition: draw.h:383
_ExceptionInfo
Definition: exception.h:102
_DrawInfo
Definition: draw.h:210
_ImageInfo
Definition: image.h:361
_AffineMatrix
Definition: geometry.h:95
_GraphemeInfo
Definition: annotate.c:111
_CacheView
Definition: cache-view.c:65
_PixelPacket
Definition: pixel.h:131
_Image
Definition: image.h:152
_TypeInfo
Definition: type.h:50
_RectangleInfo
Definition: geometry.h:123
_GeometryInfo
Definition: geometry.h:106
_TokenInfo
Definition: token.c:59
_PointInfo
Definition: draw.h:138