search for: mesh3d

Displaying 2 results from an estimated 2 matches for "mesh3d".

Did you mean: mesa3d
2011 Jan 31
1
rgl: draw multiple ellipsoids
...id at a given location, with axes a,b,c and Euler angles phi, theta, psi rgl.ellipsoid <- function (x=0,y=0,z=0, a = 1,b=1,c=1, phi=0,theta=0,psi=0, subdivide = 3, smooth = TRUE, ...) { sphere <- subdivision3d(cube3d(...), subdivide) class(sphere) <- c("mesh3d","shape3d") norm <- sqrt(sphere$vb[1, ]^2 + sphere$vb[2, ]^2 + sphere$vb[3, ]^2) for (i in 1:3) sphere$vb[i, ] <- sphere$vb[i, ]/norm sphere$vb[4, ] <- 1 sphere$normals <- sphere$vb result <- scale3d(sphere, a,b,c) rotM <- euler(phi,...
2011 Jul 29
2
change pch in 3dplot, export graph
Hello I was wondering if anyone has been able to change the pch value for points in 3dplot()? I am able to change point colors just not symbol types. I have included a portion of my code below. I realize this won't work outside of my script, but thought, maybe there is something obvious that I am doing wrong. Also is it possible to utilize the interactive feature of 3dplot in a