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
|
/* replacement for pltroff.c to produce a TeX file that makes a box */
#include <stdio.h>
#include <math.h>
#include "pic.h"
double rangex, rangey; /* probably already available inside pic somewhere */
extern int dbg;
int frameno;
/*-----------copied from old version----------*/
void
arrow(double x0, double y0, double x1, double y1, double w, double h, double ang, int nhead) /* draw arrow (without shaft) */
/* head wid w, len h, rotated ang */
/* and drawn with nhead lines */
{
double alpha, rot, drot, hyp;
float dx, dy;
int i;
rot = atan2(w / 2, h);
hyp = sqrt(w/2 * w/2 + h * h);
alpha = atan2(y1-y0, x1-x0) + ang;
if (nhead < 2)
nhead = 2;
for (i = nhead-1; i >= 0; i--) {
drot = 2 * rot / (double) (nhead-1) * (double) i;
dx = hyp * cos(alpha + PI - rot + drot);
dy = hyp * sin(alpha + PI - rot + drot);
line(x1+dx, y1+dy, x1, y1);
}
}
/*-----------new code----------*/
void
printlf(int line, char *name)
{
}
void
fillstart(double v) /* only choose black, light grey (.75), or white, for now */
{
if (v<.05)
fprintf(TEXFILE, " \\special{bk}%%\n");
else if (v>.95)
fprintf(TEXFILE, " \\special{wh}%%\n");
else
fprintf(TEXFILE, " \\special{sh}%%\n");
}
void
fillend(void)
{
}
void
troff(char *s)
{
int size;
if (strncmp(s, ".ps", 3) == 0) {
if (sscanf(&s[3], " %d ", &size) > 0) {
fprintf(TEXFILE, " \\special{pn %d}%%\n", size);
e1->pdiam = size;
} else fprintf(stderr, "Malformed .ps command: %s\n", s);
}
}
void
space(double x0, double y0, double x1, double y1) /* set limits of page */
{
e0->sidex = e1->sidex = deltx*1000;
e0->sidey = e1->sidey = e0->bottom = e1->bottom = delty*1000;
range(x0, y0, x1, y1);
}
void
dot(void)
{
/* use .005" radius at nominal 9pt pen size */
disc(e1->copyx,e1->copyy,(e1->pdiam/9.0)*(4.3/e1->scalex));
}
void
label(char *s, int t, int nh) /* text s of type t nh half-lines up */
{
double nem;
if (t & ABOVE)
nh++;
else if (t & BELOW)
nh--;
nem = .2 - nh*.6;
fprintf(TEXFILE," \\rlap{\\kern %6.3fin\\lower%6.3fin\\hbox{\\lower%5.2fem\\hbox to 0pt{",
INCHES(DTRX(e1->copyx)), INCHES(DTRY(e1->copyy)), nem);
fprintf(TEXFILE,t&LJUST?"%s\\hss":(t&RJUST?"\\hss %s":"\\hss %s\\hss"),s);
fprintf(TEXFILE,"}}}%%\n");
}
void
spline(double x, double y, double/*sic*/ n, float *p, int dashed, double ddval)
{
int k, j;
fprintf(TEXFILE," \\special{pa %d %d}%%\n",TRX(x),TRY(y));
for(k=0, j=0; k<n; k++, j+=2){
x += p[j];
y += p[j+1];
fprintf(TEXFILE," \\special{pa %d %d}%%\n",TRX(x),TRY(y));
}
fprintf(TEXFILE," \\special{sp}%%\n");
}
void
ellipse(double x, double y, double r1, double r2)
{
fprintf(TEXFILE, " \\special{ar %d %d %d %d 0.0 6.2832}%%\n",
TRX(x), TRY(y), SCX(r1), -SCY(r2));
}
void
arc(double xc, double yc, double x0, double y0, double x1, double y1) /* draw arc with center xc,yc */
{
devarc(x0, y0, x1, y1, xc, yc, 1 ); /* radius=1 means counterclockwise */
}
/* If NOEXPANDDASH is defined, use this instead of the normal dotline
* in print(). This dotline relies on vec() noticing that e1->pen
* is not SOLIDPEN, and putting out a call to a different postscript
* routine.
*/
#ifdef NOEXPANDDASH
void
dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval)
{
if (ddval != 0)
e1->dashlen = ddval;
e1->pen = (ddtype&DOTBIT)? DOTPEN : DASHPEN;
move(x0, y0);
vec(x1, y1);
e1->pen = SOLIDPEN;
e1->dashlen = e0->dashlen;
}
#endif
|