The R Project SVN R

Rev

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

Rev 9280 Rev 9296
Line 1580... Line 1580...
1580 
		    if (R_FINITE(u[0]) &&  R_FINITE(u[1]) && R_FINITE(u[2])) {
 1580 
		    if (R_FINITE(u[0]) &&  R_FINITE(u[1]) && R_FINITE(u[2])) {
1581 
			TransVector(u, VT, v);
 1581 
			TransVector(u, VT, v);
1582 
			if (v[3] > d) d = v[3];
 1582 
			if (v[3] > d) d = v[3];
1583 
		    }
 1583 
		    }
1584 
		}
 1584 
		}
1585 
	    depth[i+j*nx1] = d;
 1585 
	    depth[i+j*nx1] = -d;
1586 
 
 1586 
 
1587 
	}
 1587 
	}
1588 
    /* Determine the depth ordering of the facets to ensure
 1588 
    /* Determine the depth ordering of the facets to ensure
1589 
       that they are drawn in an occlusion compatible order. */
 1589 
       that they are drawn in an occlusion compatible order. */
1590 
    rsort_with_index(depth, index, nx1 * ny1);
 1590 
    rsort_with_index(depth, index, nx1 * ny1);