The R Project SVN R

Rev

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

Rev 6191 Rev 6259
Line 2936... Line 2936...
2936 
    MathDevice = dd;
 2936 
    MathDevice = dd;
2937 
 
 2937 
 
2938 
    if (outer) {
 2938 
    if (outer) {
2939 
	switch (side) {
 2939 
	switch (side) {
2940 
	case 1:
 2940 
	case 1:
2941 
	    line = line + 1;
 - 
 
2942 
	    coords = MAR1;
 2941 
	    coords = OMA1;
2943 
	    a = 0;
 2942 
	    a = 0;
2944 
	    xadj = MathDevice->gp.adj;
 2943 
	    xadj = MathDevice->gp.adj;
2945 
	    yadj = NA_REAL;
 2944 
	    yadj = NA_REAL;
2946 
	    break;
 2945 
	    break;
2947 
	case 2:
 2946 
	case 2:
2948 
	    coords = MAR2;
 2947 
	    coords = OMA2;
2949 
	    a = 90;
 2948 
	    a = 90;
2950 
	    xadj = MathDevice->gp.adj;
 2949 
	    xadj = MathDevice->gp.adj;
2951 
	    yadj = NA_REAL;
 2950 
	    yadj = NA_REAL;
2952 
	    break;
 2951 
	    break;
2953 
	case 3:
 2952 
	case 3:
2954 
	    coords = MAR3;
 2953 
	    coords = OMA3;
2955 
	    a = 0.0;
 2954 
	    a = 0.0;
2956 
	    xadj = MathDevice->gp.adj;
 2955 
	    xadj = MathDevice->gp.adj;
2957 
	    yadj = NA_REAL;
 2956 
	    yadj = NA_REAL;
2958 
	    break;
 2957 
	    break;
2959 
	case 4:
 2958 
	case 4:
2960 
	    line = line + 1;
 - 
 
2961 
	    coords = MAR4;
 2959 
	    coords = OMA4;
2962 
	    a = 90.0;
 2960 
	    a = 90.0;
2963 
	    xadj = MathDevice->gp.adj;
 2961 
	    xadj = MathDevice->gp.adj;
2964 
	    yadj = NA_REAL;
 2962 
	    yadj = NA_REAL;
2965 
	    break;
 2963 
	    break;
2966 
	default: return;/* never happens */
 2964 
	default: return;/* never happens */