The R Project SVN R

Rev

Rev 45667 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 45667 Rev 47460
Line 1974... Line 1974...
1974 
	}
 1974 
	}
1975 
    }
 1975 
    }
1976 
}
 1976 
}
1977 
 
 1977 
 
1978 
 
 1978 
 
1979 
#ifdef NOT_used_currently/*-- out 'def'  (-Wall) --*/
 - 
 
1980 
static void CheckRange(double *x, int n, double min, double max)
 - 
 
1981 
{
 - 
 
1982 
    double xmin, xmax;
 - 
 
1983 
    int i;
 - 
 
1984 
    xmin =  DBL_MAX;
 - 
 
1985 
    xmax = -DBL_MAX;
 - 
 
1986 
    for (i = 0; i < n; i++)
 - 
 
1987 
	if (R_FINITE(x[i])) {
 - 
 
1988 
	    if (x[i] < xmin) xmin = x[i];
 - 
 
1989 
	    if (x[i] > xmax) xmax = x[i];
 - 
 
1990 
	}
 - 
 
1991 
    if (xmin < min || xmax > max)
 - 
 
1992 
	errorcall(gcall, _("coordinates outsize specified range"));
 - 
 
1993 
}
 - 
 
1994 
#endif
 - 
 
1995 
 
 - 
 
1996 
static void PerspWindow(double *xlim, double *ylim, double *zlim, pGEDevDesc dd)
 1979 
static void PerspWindow(double *xlim, double *ylim, double *zlim, pGEDevDesc dd)
1997 
{
 1980 
{
1998 
    double pin1, pin2, scale, xdelta, ydelta, xscale, yscale, xadd, yadd;
 1981 
    double pin1, pin2, scale, xdelta, ydelta, xscale, yscale, xadd, yadd;
1999 
    double xmax, xmin, ymax, ymin, xx, yy;
 1982 
    double xmax, xmin, ymax, ymin, xx, yy;
2000 
    Vector3d u, v;
 1983 
    Vector3d u, v;