search for: vector3d

...a cylinder3d. Therefore I scale and rotate a basis-cylinder). However, somehow the rotation is wrong as verified by overplotting arrow3d(). Where is my mistake? library(heplots) library(rgl) # ... 2 vectors data=data.frame(row.names=c('X','Y','Z'), x1=c(2,1,5),y=c(4,3,2)) vector3D=function(start=c(0,0,0), end, mycol='green'){ # ... cylinder as basis-vector c=cylinder3d(rbind( c(start), # start c(0,0,1)), # end radius = 0.2, e1=cbind(0, 0, 1), e2=cbind(1, 0, 0), sides=10...

Hi All, I'm using 'tck' option to *reduce* the length of tick marks but it is not working, can anyone please tell me where I'm going wrong... require(graphics) require(grDevices) x <- seq(-10, 10, length= 30) y <- x f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r } z <- outer(x, y, f) z[is.na(z)] <- 1 # 'bg' works but 'tck' is not showing

.../ + } /* if (method == 0) else ... */ + } /* if ((drawLabels == 1) && (labelDistance > 0)) */ else { GPolyline(ns, xxx, yyy, USER, dd); } @@ -1889,7 +1889,7 @@ static void PerspAxis(double *x, double *y, double *z, int axis, int axisType, DevDesc *dd) { Vector3d u1, u2, u3, v1, v2, v3; - double tickLength = .03; // proportion of axis length + double tickLength = .03; /* proportion of axis length */ double min, max, *range; double axp[3]; int nint, i; -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-d...