The R Project SVN R

Rev

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

Rev 6191 Rev 6415
Line 1424... Line 1424...
1424 
    if (!LimitCheck(REAL(ylim), &yc, &ys))
 1424 
    if (!LimitCheck(REAL(ylim), &yc, &ys))
1425 
	errorcall(call, "invalid y limits");
 1425 
	errorcall(call, "invalid y limits");
1426 
    if (!LimitCheck(REAL(zlim), &zc, &zs))
 1426 
    if (!LimitCheck(REAL(zlim), &zc, &zs))
1427 
	errorcall(call, "invalid z limits");
 1427 
	errorcall(call, "invalid z limits");
1428 
 
 1428 
 
1429 
    theta = asReal(CAR(args));
 1429 
    theta = asReal(CAR(args));	args = CDR(args);
- 
 
 1430 
    phi	  = asReal(CAR(args));	args = CDR(args);
- 
 
 1431 
    r	= asReal(CAR(args));	args = CDR(args);
- 
 
 1432 
    d	= asReal(CAR(args));	args = CDR(args);
- 
 
 1433 
    scale  = asLogical(CAR(args)); args = CDR(args);
- 
 
 1434 
    expand = asReal(CAR(args)); args = CDR(args);
- 
 
 1435 
    col	   = CAR(args);		args = CDR(args);
1430 
    args = CDR(args);
 1436 
    border = CAR(args);		args = CDR(args);
- 
 
 1437 
    ltheta = asReal(CAR(args)); args = CDR(args);
- 
 
 1438 
    lphi   = asReal(CAR(args)); args = CDR(args);
- 
 
 1439 
    Shade  = asReal(CAR(args)); args = CDR(args);
- 
 
 1440 
    dobox  = asLogical(CAR(args)); args = CDR(args);
1431 
 
 1441 
 
1432 
    phi = asReal(CAR(args));
 - 
 
1433 
    args = CDR(args);
 - 
 
1434 
 
 - 
 
1435 
    r = asReal(CAR(args));
 - 
 
1436 
    args = CDR(args);
 - 
 
1437 
 
 - 
 
1438 
    d = asReal(CAR(args));
 - 
 
1439 
    args = CDR(args);
 - 
 
1440 
 
 - 
 
1441 
    scale = asLogical(CAR(args));
 - 
 
1442 
    args = CDR(args);
 - 
 
1443 
 
 - 
 
1444 
    expand = asReal(CAR(args));
 - 
 
1445 
    args = CDR(args);
 - 
 
1446 
 
 - 
 
1447 
    col = CAR(args);
 - 
 
1448 
    args = CDR(args);
 - 
 
1449 
 
 - 
 
1450 
    border = CAR(args);
 - 
 
1451 
    args = CDR(args);
 - 
 
1452 
 
 - 
 
1453 
    ltheta = asReal(CAR(args));
 - 
 
1454 
    args = CDR(args);
 - 
 
1455 
 
 - 
 
1456 
    lphi = asReal(CAR(args));
 - 
 
1457 
    args = CDR(args);
 - 
 
1458 
 
 - 
 
1459 
    Shade = asReal(CAR(args));
 - 
 
1460 
    if (R_FINITE(Shade) && Shade <= 0) Shade = 1;
 1442 
    if (R_FINITE(Shade) && Shade <= 0) Shade = 1;
1461 
    args = CDR(args);
 - 
 
1462 
 
 - 
 
1463 
    dobox = asLogical(CAR(args));
 - 
 
1464 
    args = CDR(args);
 - 
 
1465 
 
 - 
 
1466 
    if (R_FINITE(ltheta) && R_FINITE(lphi) && R_FINITE(Shade))
 1443 
    if (R_FINITE(ltheta) && R_FINITE(lphi) && R_FINITE(Shade))
1467 
	DoLighting = 1;
 1444 
	DoLighting = 1;
1468 
    else
 1445 
    else
1469 
	DoLighting = 0;
 1446 
	DoLighting = 0;
1470 
 
 1447