The R Project SVN R

Rev

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

Rev 29956 Rev 29959
Line 445... Line 445...
445 
    int jjj = ns - 2;
 445 
    int jjj = ns - 2;
446 
    while ((jjj > -1) && (distanceSum < labelDistance)) {
 446 
    while ((jjj > -1) && (distanceSum < labelDistance)) {
447 
	/* Find a gap big enough for the label
 447 
	/* Find a gap big enough for the label
448 
	   use several segments if necessary
 448 
	   use several segments if necessary
449 
	*/
 449 
	*/
450 
	REprintf("%d %d %d\n",ns, jjj, jjj+n+1);
 - 
 
451 
	dX = xxx[jjj] - xxx[jjj + n + 1]; /*jjj + n + 1 == ns -1 */
 450 
	dX = xxx[jjj] - xxx[jjj + n + 1]; /*jjj + n + 1 == ns -1 */
452 
	dY = yyy[jjj] - yyy[jjj + n + 1];
 451 
	dY = yyy[jjj] - yyy[jjj + n + 1];
453 
	dXC = GConvertXUnits(dX, USER, INCHES, dd);
 452 
	dXC = GConvertXUnits(dX, USER, INCHES, dd);
454 
	dYC = GConvertYUnits(dY, USER, INCHES, dd);
 453 
	dYC = GConvertYUnits(dY, USER, INCHES, dd);
455 
	distanceSum = hypot(dXC, dYC);
 454 
	distanceSum = hypot(dXC, dYC);