The R Project SVN R

Rev

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

Rev 6098 Rev 6191
Line 2885... Line 2885...
2885 
    /* IF font metric information is not available for device */
 2885 
    /* IF font metric information is not available for device */
2886 
    /* then bail out */
 2886 
    /* then bail out */
2887 
    double ascent, descent, width;
 2887 
    double ascent, descent, width;
2888 
    GMetricInfo(0, &ascent, &descent, &width, DEVICE, dd);
 2888 
    GMetricInfo(0, &ascent, &descent, &width, DEVICE, dd);
2889 
    if ((ascent==0) && (descent==0) && (width==0))
 2889 
    if ((ascent==0) && (descent==0) && (width==0))
2890 
	error("Metric information not yet available for this device\n");
 2890 
	error("Metric information not yet available for this device");
2891 
#endif
 2891 
#endif
2892 
 
 2892 
 
2893 
    MathDevice = dd;
 2893 
    MathDevice = dd;
2894 
    BaseCex = MathDevice->gp.cex;
 2894 
    BaseCex = MathDevice->gp.cex;
2895 
    BoxColor = name2col("pink");
 2895 
    BoxColor = name2col("pink");
Line 2928... Line 2928...
2928 
    /* IF font metric information is not available for device */
 2928 
    /* IF font metric information is not available for device */
2929 
    /* then bail out */
 2929 
    /* then bail out */
2930 
    double ascent, descent, width;
 2930 
    double ascent, descent, width;
2931 
    GMetricInfo(0, &ascent, &descent, &width, DEVICE, dd);
 2931 
    GMetricInfo(0, &ascent, &descent, &width, DEVICE, dd);
2932 
    if ((ascent==0) && (descent==0) && (width==0))
 2932 
    if ((ascent==0) && (descent==0) && (width==0))
2933 
	error("Metric information not yet available for this device\n");
 2933 
	error("Metric information not yet available for this device");
2934 
#endif
 2934 
#endif
2935 
 
 2935 
 
2936 
    MathDevice = dd;
 2936 
    MathDevice = dd;
2937 
 
 2937 
 
2938 
    if (outer) {
 2938 
    if (outer) {