71 lines
1.5 KiB
C
71 lines
1.5 KiB
C
#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;
|
|
}
|