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
|
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "grap.h"
#include "y.tab.h"
char *dflt_coord = "gg";
char *curr_coord = "gg";
int ncoord = 0; /* number of explicit coord's given */
Point xcoord;
Point ycoord;
int xcflag = 0; /* 1 if xcoord set */
int ycflag = 0;
int logcoord = 0;
void coord_x(Point pt) /* remember x coord */
{
xcoord = pt;
xcflag = 1;
margin = 0; /* no extra space around picture if explicit coords */
}
void coord_y(Point pt)
{
ycoord = pt;
ycflag = 1;
margin = 0; /* no extra space if explicit coords */
}
void coordlog(int n) /* remember log scaling */
{
logcoord = n;
}
void coord(Obj *p) /* set coord range */
{
static char buf[10];
ncoord++;
if (ncoord > 1 && strcmp(p->name, dflt_coord) == 0) {
/* resetting default coordinate by implication */
sprintf(buf, "gg%d", ncoord);
dflt_coord = buf;
p = lookup(dflt_coord, 1);
}
if (xcflag) {
p->coord |= XFLAG;
p->pt.x = min(xcoord.x,xcoord.y); /* "xcoord" is xmin, xmax */
p->pt1.x = max(xcoord.x,xcoord.y);
if ((logcoord&XFLAG) && p->pt.x <= 0.0)
ERROR "can't have log of x coord %g,%g", p->pt.x, p->pt1.x FATAL;
xcflag = 0;
}
if (ycflag) {
p->coord |= YFLAG;
p->pt.y = min(ycoord.x,ycoord.y); /* "ycoord" is ymin, ymax */
p->pt1.y = max(ycoord.x,ycoord.y);
if ((logcoord&YFLAG) && p->pt.y <= 0.0)
ERROR "can't have log of y coord %g,%g", p->pt.y, p->pt1.y FATAL;
ycflag = 0;
}
p->log = logcoord;
logcoord = 0;
auto_x = 0;
}
void resetcoord(Obj *p) /* reset current coordinate */
{
curr_coord = p->name;
}
|