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
|
/* Function: multi_text_box_path, multi_lines
**
** Author: Paul W. Carlson March 1992
*/
#include "ps_info.h"
#define LEFT 0
#define RIGHT 1
#define LOWER 0
#define UPPER 1
#define CENTER 2
int multi_text_box_path (double x, double y,
int xref, int yref, char *text, int fontsize, float rotate)
{
int numlines;
char *ptr;
static int firsttime = 1;
/* write procs if first time called */
if (firsttime)
{
firsttime = 0;
/* procs to get box for multiple text lines */
fprintf(PS.fp, "/CMX {l sub r l sub D2 sub} BD\n");
fprintf(PS.fp, "/CMY {t sub t b sub D2 add} BD\n");
fprintf(PS.fp, "/LMX {l sub} BD\n");
fprintf(PS.fp, "/LMY {b sub} BD\n");
fprintf(PS.fp, "/RMX {r sub} BD\n");
fprintf(PS.fp, "/UMY {t sub} BD\n");
fprintf(PS.fp, "/MTBX {/y dely def\n");
fprintf(PS.fp, "0 1 nlm1 { /i exch def\n");
fprintf(PS.fp, "newpath /y y dely sub def\n");
fprintf(PS.fp, "0 y moveto ta i get\n");
fprintf(PS.fp, "false charpath flattenpath pathbbox\n");
fprintf(PS.fp, "/tt XD /rr XD /bb XD /ll XD\n");
fprintf(PS.fp, "tt t gt {/t tt def} if rr r gt {/r rr def} if\n");
fprintf(PS.fp, "bb b lt {/b bb def} if ll l lt {/l ll def} if\n");
fprintf(PS.fp, "} for\n");
fprintf(PS.fp, "/t t mg add def /r r mg add def \n");
fprintf(PS.fp, "/b b mg sub def /l l mg sub def} BD\n");
fprintf(PS.fp, "/TBM {l b r t B} BD\n");
/* proc to draw multiple text lines in text color*/
fprintf(PS.fp, "/DMT {/y dely def 0 1 nlm1 {\n");
fprintf(PS.fp, "/i exch def /y y dely sub def\n");
fprintf(PS.fp, "0 y moveto ta i get show } for grestore} BD\n");
/* proc to draw multiple text lines in highlight color*/
fprintf(PS.fp, "/DMH {/y dely def 0 1 nlm1 {\n");
fprintf(PS.fp, "/i exch def /y y dely sub def\n");
fprintf(PS.fp, "newpath 0 y moveto ta i get\n");
fprintf(PS.fp, "false charpath stroke} for} BD\n");
}
/* put text into array */
numlines = 0;
ptr = text;
fprintf(PS.fp, "/ta [ (");
while (*ptr)
{
if (*ptr == '\\' && *(ptr+1) == 'n')
{
fprintf(PS.fp, ")\n(");
ptr++;
numlines++;
}
else fprintf(PS.fp, "%c", *ptr);
ptr++;
}
fprintf(PS.fp, ") ] def\n");
numlines++;
/*initialize PostScript variables */
fprintf(PS.fp, "/t -9999 def /r -9999 def /b 9999 def /l 9999 def\n");
fprintf(PS.fp, "/dely %d def /nlm1 %d def\n", fontsize, numlines - 1);
/* get relative box coordinates */
fprintf(PS.fp, "MTBX\n");
/* set box x coordinate */
fprintf(PS.fp, "%.2f ", x);
/* set box y coordinate */
fprintf(PS.fp, " %.2f ", y);
fprintf(PS.fp, "gsave TR %.2f rotate ", rotate);
fprintf(PS.fp, " 0 ");
switch (xref)
{
case LEFT: fprintf(PS.fp, "LMX"); break;
case RIGHT: fprintf(PS.fp, "RMX"); break;
case CENTER:
default:
fprintf(PS.fp, "CMX"); break;
}
fprintf(PS.fp, " 0 ");
switch (yref)
{
case UPPER: fprintf(PS.fp, "UMY"); break;
case LOWER: fprintf(PS.fp, "LMY"); break;
case CENTER:
default:
fprintf(PS.fp, "CMY"); break;
}
fprintf(PS.fp, " TR TBM\n");
return 0;
}
int multi_lines (char *text)
{
char *ptr;
ptr = text;
while (*ptr)
{
if (*ptr == '\\' && *(ptr+1) == 'n') return 1;
ptr++;
}
return 0;
}
|
