1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
/* This file is part of the GNU plotutils package. Copyright (C) 1995,
1996, 1997, 1998, 1999, 2000, 2005, 2008, Free Software Foundation, Inc.
The GNU plotutils package is free software. You may redistribute it
and/or modify it under the terms of the GNU General Public License as
published by the Free Software foundation; either version 2, or (at your
option) any later version.
The GNU plotutils package is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License along
with the GNU plotutils package; see the file COPYING. If not, write to
the Free Software Foundation, Inc., 51 Franklin St., Fifth Floor,
Boston, MA 02110-1301, USA. */
/* This file contains the Fig-driver-specific version of the low-level
paint_text_string() method, which is called to plot a label in the
current PS font, at the current fontsize and textangle. The label is
just a string: no control codes (font switching or sub/superscripts).
The width of the string in user units is returned.
This version does not support `sheared' fonts, since xfig does not
support them. But it does support center-justification and right
justification as well as the default left-justification, since the xfig
format supports them. */
#include "sys-defines.h"
#include "extern.h"
#define FONT_TYPE_LATEX 0 /* don't support LaTeX fonts currently */
#define FONT_TYPE_PS 4
#define GOOD_PRINTABLE_ASCII(c) ((c >= 0x20) && (c <= 0x7E))
/* Fig horizontal alignment styles, indexed by internal number
(left/center/right) */
#define FIG_ALIGN_LEFT 0
#define FIG_ALIGN_CENTER 1
#define FIG_ALIGN_RIGHT 2
static const int fig_horizontal_alignment_style[PL_NUM_HORIZ_JUST_TYPES] =
{ FIG_ALIGN_LEFT, FIG_ALIGN_CENTER, FIG_ALIGN_RIGHT };
/* This prints a single-font, single-font-size label. When this is called,
the current point is on the intended baseline of the label. */
/* ARGS: h_just,v_just are PL_JUST_{LEFT|CENTER|RIGHT}, PL_JUST_{TOP etc.} */
double
_pl_f_paint_text_string (R___(Plotter *_plotter) const unsigned char *s, int h_just, int v_just)
{
int len, master_font_index;
unsigned char *ptr, *t;
double theta, costheta, sintheta;
double label_width, label_ascent;
double initial_x, initial_y;
double horizontal_x, horizontal_y, vertical_x, vertical_y;
double horizontal_fig_length, vertical_fig_length;
double horizontal_fig_x, vertical_fig_x;
double horizontal_fig_y, vertical_fig_y;
double angle_device;
/* sanity check */
if (_plotter->drawstate->font_type != PL_F_POSTSCRIPT)
return 0.0;
/* sanity check; this routine supports only baseline positioning */
if (v_just != PL_JUST_BASE)
return 0.0;
/* if empty string, nothing to do */
if (*s == (unsigned char)'\0')
return 0.0;
/* if font (previously retrieved) has a font size of zero in terms of
integer `Fig points', bail out right now, since xfig can't handle text
strings with zero point size */
if (_plotter->drawstate->fig_font_point_size == 0)
return 0.0;
/* label rotation angle in radians */
theta = M_PI * _plotter->drawstate->text_rotation / 180.0;
sintheta = sin (theta);
costheta = cos (theta);
/* compute index of font in master table of PS fonts, in g_fontdb.h */
master_font_index =
(_pl_g_ps_typeface_info[_plotter->drawstate->typeface_index].fonts)[_plotter->drawstate->font_index];
/* compute label height and width, in user units */
label_width = _plotter->get_text_width (R___(_plotter) s);
label_ascent = _plotter->drawstate->true_font_size * (_pl_g_ps_font_info[master_font_index]).font_ascent / 1000.0;
/* vector along baseline of label, and an orthogonal vector which is the
other side of a rectangle containing the portion of the string above
the baseline (both in the user frame) */
horizontal_x = costheta * label_width;
horizontal_y = sintheta * label_width;
vertical_x = - sintheta * label_ascent;
vertical_y = costheta * label_ascent;
/* Convert two above orthogonal vectors to the device frame, and compute
their lengths. In the device frame they may no longer be orthogonal.
But xfig supports setting up only rectangular `hot regions', so we'll
use their lengths as the sides of a rectangle. If user coor->device
coor map is highly sheared, this would be inappropriate.
Incidentally, the height of the rectangular hot region should really
be the string ascent (from its bounding box), not the font ascent.
But since we don't include the bounding boxes of individual characters
in our g_fontdb.c, we have no way of computing the former. */
horizontal_fig_x = XDV(horizontal_x, horizontal_y);
horizontal_fig_y = YDV(horizontal_x, horizontal_y);
horizontal_fig_length = sqrt(horizontal_fig_x * horizontal_fig_x
+ horizontal_fig_y * horizontal_fig_y);
/* text angle in device frame (note flipped-y convention) */
angle_device = - _xatan2 (horizontal_fig_y, horizontal_fig_x);
if (angle_device == 0.0)
angle_device = 0.0; /* remove sign bit if any */
/* avoid triggering a bug in xfig, which as of release 3.2.2 can't handle
rotated text strings consisting of a single space character (they
cause it to crash) */
if (angle_device != 0.0 && strcmp ((const char *)s, " ") == 0)
return _plotter->get_text_width (R___(_plotter) s);
vertical_fig_x = XDV(vertical_x, vertical_y);
vertical_fig_y = YDV(vertical_x, vertical_y);
vertical_fig_length = sqrt(vertical_fig_x * vertical_fig_x
+ vertical_fig_y * vertical_fig_y);
/* where we should start from, in device frame (i.e. in Fig units) */
initial_x = XD((_plotter->drawstate->pos).x, (_plotter->drawstate->pos).y);
initial_y = YD((_plotter->drawstate->pos).x, (_plotter->drawstate->pos).y);
/* evaluate fig colors lazily, i.e. only when needed */
_pl_f_set_pen_color (S___(_plotter));
/* escape all backslashes in the text string, before output */
len = strlen ((char *)s);
ptr = (unsigned char *)_pl_xmalloc ((4 * len + 1) * sizeof(char));
t = ptr;
while (*s)
{
switch (*s)
{
case '\\':
*ptr++ = (unsigned char)'\\';
*ptr++ = *s++;
break;
default:
if GOOD_PRINTABLE_ASCII (*s)
*ptr++ = *s++;
else
{
sprintf ((char *)ptr, "\\%03o", (unsigned int)*s);
ptr += 4;
s++;
}
break;
}
}
*ptr = (unsigned char)'\0';
/* update xfig's `depth' attribute */
if (_plotter->fig_drawing_depth > 0)
(_plotter->fig_drawing_depth)--;
sprintf(_plotter->data->page->point,
"#TEXT\n%d %d %d %d %d %d %.3f %.3f %d %.3f %.3f %d %d %s\\001\n",
4, /* text object */
/* xfig supports 3 justification types: left, center, or right. */
fig_horizontal_alignment_style[h_just],/* horizontal just. type */
_plotter->drawstate->fig_fgcolor, /* pen color */
_plotter->fig_drawing_depth, /* depth */
0, /* pen style, ignored */
_pl_g_ps_font_info[master_font_index].fig_id, /* Fig font id */
(double)_plotter->drawstate->fig_font_point_size, /* point size (float) */
angle_device, /* text rotation in radians (float) */
FONT_TYPE_PS, /* Fig font type */
/* these next two are used only for setting up `hot spots' */
vertical_fig_length, /* string height, Fig units (float) */
horizontal_fig_length, /* string width, Fig units (float) */
/* coors of origin of label, in Fig units */
IROUND(initial_x),
IROUND(initial_y),
t); /* munged string */
free (t);
_update_buffer (_plotter->data->page);
return label_width;
}
|
