The R Project SVN R

Rev

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

Rev 59292 Rev 61771
Line 32... Line 32...
32 
#include <float.h> /* for DBL_EPSILON etc */
 32 
#include <float.h> /* for DBL_EPSILON etc */
33 
#include <Graphics.h>
 33 
#include <Graphics.h>
34 
// --> R_ext/GraphicsEngine.h + Rgraphics.h
 34 
// --> R_ext/GraphicsEngine.h + Rgraphics.h
35 
#include <Rmath.h>		/* eg. fmax2() */
 35 
#include <Rmath.h>		/* eg. fmax2() */
36 
 
 36 
 
- 
 
 37 
static void GLPretty(double *ul, double *uh, int *n);
- 
 
 38 
 
37 
// used in GScale(), but also grDevices/src/axis_scales.c :
 39 
// used in GScale(), but also grDevices/src/axis_scales.c :
38 
// (usr, log, n_inp) |--> (axp, n_out) :
 40 
// (usr, log, n_inp) |--> (axp, n_out) :
39 
void GAxisPars(double *min, double *max, int *n, Rboolean log, int axis)
 41 
void GAxisPars(double *min, double *max, int *n, Rboolean log, int axis)
40 
{
 42 
{
41 
#define EPS_FAC_2 100
 43 
#define EPS_FAC_2 100
Line 84... Line 86...
84 
}
 86 
}
85 
 
 87 
 
86 
#define LPR_SMALL  2
 88 
#define LPR_SMALL  2
87 
#define LPR_MEDIUM 3
 89 
#define LPR_MEDIUM 3
88 
 
 90 
 
89 
void GLPretty(double *ul, double *uh, int *n)
 91 
static void GLPretty(double *ul, double *uh, int *n)
90 
{
 92 
{
91 
/* Generate pretty tick values --	LOGARITHMIC scale
 93 
/* Generate pretty tick values --	LOGARITHMIC scale
92 
 * __ ul < uh __
 94 
 * __ ul < uh __
93 
 * This only does a very simple setup.
 95 
 * This only does a very simple setup.
94 
 * The real work happens when the axis is drawn. */
 96 
 * The real work happens when the axis is drawn. */