The R Project SVN R

Rev

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

Rev 61744 Rev 61746
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995-2012  The R Core Team
 3 
 *  Copyright (C) 1995-2013  The R Core Team
4 
 *
 4 
 *
5 
 *  This program is free software; you can redistribute it and/or modify
 5 
 *  This program is free software; you can redistribute it and/or modify
6 
 *  it under the terms of the GNU General Public License as published by
 6 
 *  it under the terms of the GNU General Public License as published by
7 
 *  the Free Software Foundation; either version 2 of the License, or
 7 
 *  the Free Software Foundation; either version 2 of the License, or
8 
 *  (at your option) any later version.
 8 
 *  (at your option) any later version.
Line 64... Line 64...
64 
# define attribute_hidden __attribute__ ((visibility ("hidden")))
 64 
# define attribute_hidden __attribute__ ((visibility ("hidden")))
65 
#else
 65 
#else
66 
# define attribute_hidden
 66 
# define attribute_hidden
67 
#endif
 67 
#endif
68 
 
 68 
 
69 
/* non-API, used by rgl */
 69 
attribute_hidden
70 
double R_pretty0(double *lo, double *up, int *ndiv, int min_n,
 70 
double R_pretty(double *lo, double *up, int *ndiv, int min_n,
71 
	       double shrink_sml, double high_u_fact[],
 71 
		double shrink_sml, double high_u_fact[],
72 
	       int eps_correction, int return_bounds)
 72 
	       int eps_correction, int return_bounds)
73 
{
 73 
{
74 
/* From version 0.65 on, we had rounding_eps := 1e-5, before, r..eps = 0
 74 
/* From version 0.65 on, we had rounding_eps := 1e-5, before, r..eps = 0
75 
 * 1e-7 is consistent with seq.default() */
 75 
 * 1e-7 is consistent with seq.default() */
76 
#define rounding_eps 1e-7
 76 
#define rounding_eps 1e-7