The R Project SVN R

Rev

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

Rev 8061 Rev 8578
Line 2820... Line 2820...
2820 
}
 2820 
}
2821 
 
 2821 
 
2822 
/* Calculate width of expression */
 2822 
/* Calculate width of expression */
2823 
/* BBOXes are in INCHES (see MetricUnit) */
 2823 
/* BBOXes are in INCHES (see MetricUnit) */
2824 
 
 2824 
 
- 
 
 2825 
/* #ifdef'ed this function out to shut -Wall up */
- 
 
 2826 
#ifdef OLD
2825 
static
 2827 
static
2826 
void GExpressionBBox(SEXP expr, int units, double *width,
 2828 
void GExpressionBBox(SEXP expr, int units, double *width,
2827 
		     double *height, double *depth, DevDesc *dd)
 2829 
		     double *height, double *depth, DevDesc *dd)
2828 
{
 2830 
{
2829 
    BBOX bbox;
 2831 
    BBOX bbox;
Line 2842... Line 2844...
2842 
	*width = GConvertXUnits(*width, INCHES, units, dd);
 2844 
	*width = GConvertXUnits(*width, INCHES, units, dd);
2843 
	*height = GConvertYUnits(*height, INCHES, units, dd);
 2845 
	*height = GConvertYUnits(*height, INCHES, units, dd);
2844 
	*depth = GConvertYUnits(*depth, INCHES, units, dd);
 2846 
	*depth = GConvertYUnits(*depth, INCHES, units, dd);
2845 
    }
 2847 
    }
2846 
}
 2848 
}
- 
 
 2849 
#endif
2847 
 
 2850 
 
2848 
double GExpressionWidth(SEXP expr, int units, DevDesc *dd)
 2851 
double GExpressionWidth(SEXP expr, int units, DevDesc *dd)
2849 
{
 2852 
{
2850 
    BBOX bbox;
 2853 
    BBOX bbox;
2851 
    double width;
 2854 
    double width;