The R Project SVN R

Rev

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

Rev 52111 Rev 52683
Line 1194... Line 1194...
1194 
			GText(xxx[indx], yyy[indx], USER, buffer,
 1194 
			GText(xxx[indx], yyy[indx], USER, buffer,
1195 
			      CE_NATIVE/*FIX*/,
 1195 
			      CE_NATIVE/*FIX*/,
1196 
			      .5, .5, 0, dd);
 1196 
			      .5, .5, 0, dd);
1197 
		    }
 1197 
		    }
1198 
		    else {
 1198 
		    else {
1199 
			for (iii = 0; iii < indx; iii++)
 1199 
			if (indx > 0)
1200 
			    GLine(xxx[iii], yyy[iii],
 - 
 
1201 
				  xxx[iii+1], yyy[iii+1], USER, dd);
 1200 
		            GPolyline(indx+1, xxx, yyy, USER, dd);
1202 
			for (iii = indx+range; iii < ns - 1; iii++)
 1201 
			if (ns-1-indx-range > 0)
1203 
			    GLine(xxx[iii], yyy[iii],
 1202 
			    GPolyline(ns-indx-range, xxx+indx+range, yyy+indx+range,
1204 
				  xxx[iii+1], yyy[iii+1], USER, dd);
 1203 
			          USER, dd);
1205 
 
 - 
 
1206 
			if (gotLabel) {
 1204 
			if (gotLabel) {
1207 
			    /* find which plot edge we are closest to */
 1205 
			    /* find which plot edge we are closest to */
1208 
			    int closest; /* 0 = indx,  1 = indx+range */
 1206 
			    int closest; /* 0 = indx,  1 = indx+range */
1209 
			    double dx1, dx2, dy1, dy2, dmin;
 1207 
			    double dx1, dx2, dy1, dy2, dmin;
1210 
			    dx1 = fmin2((xxx[indx] - gpptr(dd)->usr[0]),
 1208 
			    dx1 = fmin2((xxx[indx] - gpptr(dd)->usr[0]),