search for: shade3d

I'm using the command below on an open3d() object to create a shaded cube. Changes to myScalingFactor do not effect changes in the size of the cube. What is the correct approach? Mark shade3d(translate3d(cube3d(identityMatrix() * myScalingFactor),-6,1,-1),col="green", alpha = 0.2) -- Mark W. Kimpel MD ** Neuroinformatics ** Dept. of Psychiatry Indiana University School of Medicine 15032 Hunter Court, Westfield, IN 46074 (317) 490-5129 Work, & Mobile & VoiceMail (31...

...bination of rgl.viewpoint. I am not able to figure out how to let a 3D plot rotating around likewise the example in ?rgl.viewpoint. It seems that when I use persp3d(...) I see something on my screen, which is different from what I get when it's rotating. Is there any different behavior between shade3d and persp3d? Please find below a simple example. Actually, my final aim is to save each of the rotating graphs for creating a "clip". I commented below what I would use later on, but is there any way to do it better? Thanks a lot for your help, Carlo Giovanni Camarda library(rgl) # si...

...y down. How do I say in a custom mouse handler "after having done your work, forward to standard trackball once only"? The example below shows the idea, but it works only once, then reverts to standard trackball handling. Dieter #---------------------- library(rgl) r3dDefaults open3d() shade3d(cube3d(color=rep(rainbow(6),rep(4,6)))) btn3d <- function() { begin <- function(x, y) { # Add checking for key down later cat(x,y,"\n") # Forward to trackball (no easier way?) newhandler <- par3d("mouseMode") newhandler[1] <- "trackball&q...

In building a package, what are the settings in the package files or the build commands that determine whether the compiled HTML help windows have the window title "R Help for package foo" vs. "HTML Help"? I often have quite a few help files active, and it is much more convenient to navigate among them if the window has an informative title. If this is simple to test for in

Dear R community (and Duncan more specifically), I can't work out how to make additional light sources work in rgl. Here is the example. First I create a cube and visualize it: > cubo <- cube3d(col="black") > shade3d(cubo) Next I position the viewpoint at theta=0 and phi=30: > view3d(theta=0,phi=30) Next, I want to create a 2nd light source which diffuses red light from the front face. I thought I could do: >light3d(diffuse="red",theta=0,phi=0) but...the front side doesn't show any red-...

...,-(pi/2),0,1,0) # ... rotation angles theta = atan2(end[2],end[1]) # angle in yx-plane for Z-achses rotation phi = atan2(end[3],sqrt(end[1]^2+end[1]^2)) # angle in zx for Y-achses rotation # ... rotation c=rotate3d(c,phi,0,1,0) # Y-achses rotation c=rotate3d(c, -theta,0,0,1) # Z-achses rotation shade3d(addNormals(c), col=mycol) } open3d() vector3D(start=c(0,0,0),end=data[,1], 'red'); vector3D(start=c(0,0,0),end=data[,2],'green') arrow3d(c(0,0,0),data[,1],color='red');arrow3d(c(0,0,0),data[,2], color='green') axes3d(c('x','y','z'));title...

Hola a todos: Estoy intentando visualizar unos resultados de un programa en R de forma dinámica. Dichos resultados se pueden representar, básicamente, con un plano que gira sobre uno de sus ejes: para dar sensación de movimiento he utilizado la función rgl.clear(), ya que no encuentro los equivalentes en rgl de los parámetros add o new. El problema es que al limpiar la pantalla con rgl.clear la

Dear r users, I have two kinds of data I'm trying to represent in Rgl. The first are measurements of soils: heights, diameters, and centerpoints of each. I would typically represent these in 3d space as cylinders or cones. The second are radar data of the area under the solids , xyz plus amplitude that I would like to represent as a point cloud. Is there a currently implemented method to

Hi folks, I'd like to use scatter3d (which is in R commander) to plot more than one dataset in the same graph, each dataset with a different color. The kind of stuff you would do with "holdon" in Matlab. I read a recent message that was posted to this list with a similar problem, but I couldn't understand the reply. Could someone give me one example? How do you plot subgroups

...pshot("/home/user/pic.png", fmt="png", top=TRUE ) And the pic.png looks right. But if I try to rerun rgl.snapshot anytime again in this session, the file pic.png still outputs but is nothing but colored lines, like in a TV test pattern. I also tried the built-in example: shade3d(oh3d(), color="red") rgl.bringtotop() rgl.viewpoint(0,20) setwd(path) for (i in 1:45) { rgl.viewpoint(i,20) filename <- paste("pic",formatC(i,digits=1,flag="0"),".png",sep="") rgl.snapshot(filename) }...

For a paper dealing with generalized ellipsoids, I want to illustrate in 3D an ellipsoid that is unbounded in one dimension, having the shape of an infinite cylinder along, say, z, but whose cross-section in (x,y) is an ellipse, say, given by the 2x2 matrix cov(x,y). I've looked at rgl:::cylinder3d, but don't see any way to make it accomplish this. Does anyone have any ideas? thx,

...rt if ( opt$debug ) { cat(" vertices", formatC(unlist(vertices), width = 9)) cat("\n") } # active calls object <- qmesh3d(unlist(vertices), indices, homogeneous = F) # 'rgl' quad-mesh function shade3d(object, col = quad.color, alpha = quad.alpha) } # --------------------------------- # function : rect # --------------------------------- # description : generate four 3-space coordinates to pass to function 'quad' # role : utility call # comment : h...