The R Project SVN R

Rev

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

Rev 15508 Rev 15973
Line 1685... Line 1685...
1685 
    sy0 = CAR(args); ny0 = length(sy0); args = CDR(args);
 1685 
    sy0 = CAR(args); ny0 = length(sy0); args = CDR(args);
1686 
    sx1 = CAR(args); nx1 = length(sx1); args = CDR(args);
 1686 
    sx1 = CAR(args); nx1 = length(sx1); args = CDR(args);
1687 
    sy1 = CAR(args); ny1 = length(sy1); args = CDR(args);
 1687 
    sy1 = CAR(args); ny1 = length(sy1); args = CDR(args);
1688 
 
 1688 
 
1689 
    hlength = asReal(CAR(args));
 1689 
    hlength = asReal(CAR(args));
1690 
    if (!R_FINITE(hlength) || hlength <= 0)
 1690 
    if (!R_FINITE(hlength) || hlength < 0)
1691 
	errorcall(call, "invalid head length");
 1691 
	errorcall(call, "invalid head length");
1692 
    args = CDR(args);
 1692 
    args = CDR(args);
1693 
 
 1693 
 
1694 
    angle = asReal(CAR(args));
 1694 
    angle = asReal(CAR(args));
1695 
    if (!R_FINITE(angle))
 1695 
    if (!R_FINITE(angle))