The R Project SVN R

Rev

Rev 87879 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87879 Rev 88607
Line 495... Line 495...
495 
	      break;
 495 
	      break;
496 
	  NEXT_CONTROL_POINTS(k, n);
 496 
	  NEXT_CONTROL_POINTS(k, n);
497 
      }
 497 
      }
498 
 
 498 
 
499 
      /* last control point is needed twice for the last segment */
 499 
      /* last control point is needed twice for the last segment */
- 
 
 500 
      if (n == 2) {
- 
 
 501 
	COPY_CONTROL_POINT(0, n - 2, n);
- 
 
 502 
      } else {
500 
      COPY_CONTROL_POINT(0, n - 3, n);
 503 
	COPY_CONTROL_POINT(0, n - 3, n);
- 
 
 504 
      }
501 
      COPY_CONTROL_POINT(1, n - 2, n);
 505 
      COPY_CONTROL_POINT(1, n - 2, n);
502 
      COPY_CONTROL_POINT(2, n - 1, n);
 506 
      COPY_CONTROL_POINT(2, n - 1, n);
503 
      COPY_CONTROL_POINT(3, n - 1, n);
 507 
      COPY_CONTROL_POINT(3, n - 1, n);
504 
      SPLINE_SEGMENT_LOOP(k, px, py, ps[1], ps[2], precision);
 508 
      SPLINE_SEGMENT_LOOP(k, px, py, ps[1], ps[2], precision);
505 
 
 509