search for: open3d

Dear all, The documentation on the function open3d in the rgl package, reads: open3d opens a new rgl device, and sets the parameters as requested. I want the new rgl device (window) to be sized and positioned in a specific place on my screen. So, I try to set the "windowRect" parameter as follows: > library("rgl")...

...x A is closer to the observer, and then the object rotates and the B vortex gets closer. I would like to capture this movie to a file. By the way, I am not being able to insert unicode text with text3d. rgl 0.82, R 2.8.1, Windows Vista. Any help would be appreciated. Code follows: library(rgl) open3d() coord.1=c(0,100,0) coord.2=c(100,100,0) coord.3=c(100,0,0) coord.4=c(0,0,0) coord.5=c(50,50,70) pyrcolor="red" triangles3d(rbind(coord.1,coord.4,coord.5),color=pyrcolor) triangles3d(rbind(coord.1,coord.2,coord.5),color=pyrcolor) triangles3d(rbind(coord.2,coord.3,coord.5),color=pyrcolo...

Dear r-helpers, Can one save a dynamic graphic produced by rgl, e.g.: open3d(); x <- sort(rnorm(1000)); y <- rnorm(1000); z <- rnorm(1000) + atan2(x,y); plot3d(x, y, z, col=rainbow(1000), size=2) as a dynamic figure that can be embedded in a pdf? _____________________________ Professor Michael Kubovy University of Virginia Department of Psychology USPS:...

...f the values of the measurement for 2 of the axes. So in the end I will have one axis (z actually) behave per normal (auto-hide) and I'd like the other two axes to be custom character vectors that auto-hide. Example: x <- 1:10 y <- 1:10 z <- matrix(outer(x-5,y-5) + rnorm(100), 10, 10) open3d() persp3d(x, y, z, col="red", alpha=0.7, aspect=c(1,1,0.5),xlab='',ylab='',zlab='', axes=F) For the above, axes=F for demonstration purposes only. Now when I call: axes3d() ...the axis values hide/behave the way I want, but I want my own characters in there instea...

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 ** D...

Hi all, I just started using the rgl package in R, and I need to know how I connect the dots I created. A simple line from one co?rdinate (x0,y0,z0) to another (x1,y1,z1) will do. I tried using the code rgl.lines, but it doesn't accept lines that don't stem from O (0,0,0). Please help! Thanks! -- View this message in context:

...miliar with. The examples for rgl.surface are a bit more complex than what I need and I am having trouble understanding them. Here is the code if I come up with, but which obviously doesn't work. require(rgl) set.seed(123) d3.mat <- matrix(runif(30, min = -5, max = 5), ncol = 3, nrow = 10) open3d() plot3d(x = d3.mat, type = "s", col = "blue", size = 0.33, xlab ="x", ylab = "y", zlab = "z") x <- 0 y <- 0 z <- matrix(c(floor(min(d3.mat[,1])),ceiling(max(d3.mat[,1])),floor(min(d3.mat[,3])),ceiling(max(d3.mat[,3]))),nrow = 2, ncol =2) r...

...package, but I can't seem to figure out how to use any of them. I tried to take the rgl.surface3d example and use it for myself, and this is what I have so far: setwd(".") data <- read.csv("data.csv",header=T) x <- data$X y <- data$Y z <- data$Z open3d() surface3d(x, y, z) That gives me the following error: Error in rgl.surface(x = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : y length != x rows * z cols I have no idea what it is trying to tell me there. Would anyone mind helping me out? Wesley [[alternative HTM...

I'm trying to use the rgl package on R-2.7.1 running on top of Ubuntu Hardy amd64. using open3d() and plot3d() I get a plot, but it is not interactive. Furthermore, changes to par3d("FOV"=my.new.value) do nothing. I suspect something is wrong with the rendering engine or interface to it. I do have an Nvidia driver installed and compiz works correctly on the desktop. I've corres...

Hi all, How can I tell RGL to set the center for the rotation to the origin of the coordinate system (0,0,0). It seems that the default is to use the center of the display not the origin of the coordinate system. open3d() lines3d(c(0, 1), c(0,0), c(0,0)) lines3d(c(0,0), c(0, 1), c(0,0)) lines3d(c(0,0), c(0,0), c(0, 1)) TIA Mark ??????????????????????????????????????? Mark Heckmann Blog: www.markheckmann.de R-Blog: http://ryouready.wordpress.com

...' command and that X11(type ="*cairo") is not understood or something to the effect [I do not have the Mac with me at the time]. The script just stops after this error, so I do not know if the rgl or the .Rimage files save properly yet. Thank you for your time, James Thomas # PLOT open3d() dev.new() setwd(...) plot3d(SN_PCA_All, col=rainbow(nrow(SN_PCA_All))) decorate3d(main ="SN_All_Ca") barplot(SN_Scree_All_Percent[,1], main = "SN_All_Ca") savePlot(filename = "01 +S+Na_AllCa_Scree", type ="tiff") rgl.viewpoint(180,0) rgl.snapshot("01 +...

...() - allowed normals and texture coordinates to be specified in triangles and quads - normals may be specified in qmesh objects, but (at present) subdivide removes them - material3d() now preserves the values of unspecified parameters (as documented, but not previously functioning) - open3d() now resets all material properties to the defaults. Could people who have been having problems with rgl (or just making use of it) please test this update? Some of the changes are very recent, and may still be buggy: but I'm going offline from late tomorrow until March 4, so I'm not...

Just installed Fedora 13, and reinstalled the lastest rgl package 0.91. The problem is that open3d() opens a window, but then halt. Nothing happens and I have to kill R. In the previous version of Fedora 12, everything worked fine. Any tests etc I should/could do? Best, H -- H?vard Rue Department of Mathematical Sciences Norwegian University of Science and Technology N-7491 Trondheim,...

...ndling key 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] <- "t...

I want to print characters from the symbol font (or perhaps even Wingdings) in an rgl 3d plot, but I am having no luck. So, what do I have to do in order to get this snippet to print out a character from the symbol font? library(rgl) open3d() text3d(1,1,1,"a",adj=c(0.5,0.5),cex=10,family="symbol",font=1) I am on Windows XP with R 2.9.1. Tom -- View this message in context: http://www.nabble.com/Character-from-Symbol-Font-on-rgl-Plot-tp24781990p24781990.html Sent from the R help mailing list archive at Nabble.c...

...1, 50000, by=500) v = matrix(0, nrow=length(a), ncol=length(a)) for (i in 1:length(a)) { for (j in 1:length(a)) { d = c(17989*a[i], -18109*b[j]) v[i,j] = t(d) %*% matrix(c(0.0001741, 0.0001280, 0.0001280, 0.0002570), nrow=2) %*% d } } library("rgl") open3d() persp3d(a,b,v,col="green",alpha=0.7,aspect=c(1,1,0.5)) Now I want to shed the portion with different color of the surface which satisfy following condition: 0 < (a-b) < max(a) Can anyone please tell me how to do that? Regards, --------------------...

...colors to show different selections of points in a 3d plot. My problem is that if I plot a red point at a location where already a blue point was plotted, than the point is still blue. Is there a parameter or so which can be used to draw over a existing point? Example: > require(rgl) > open3d() > plot3d(a<-c(1,2,3,4,5),a,a,type="l", col="blue") # draw line > plot3d(a<-c(1,2,3,4,5),a,a,type="p",col="blue",add=TRUE) # mark points at the line > plot3d(a<-c(3),a,a,col="red",type="p",add=TRUE) # mark a...

Dear all, I have a question about the plotting of the dynamical orbit by using rgl. My code is as follows: open3d() par3d(cex=2) bg3d("white") for(i in 1:out.length){ ind<-which plot3d(x[1:i],y[1:i],out[,"z"][1:i],xlim=c(-10,10),ylim=c(-10,10),zlim=c(-10,10),col="red",cex=2) Sys.sleep(0.0001) } ,where x,y,out[,"z"] are the position of the object in different time. I w...

Hi, I'm using rgl to generate a 3D surface plot and I'm struggling to get the lighting correct. Currently the surface gets plotted, but is very 'shiny'. On rotating the view, I get to see parts of the surface - but overall I don't see much detail because of the spotlight like lighting. I've played around with the specular, ambient and diffuse but I can't

...ize now, and I cannot figure out why. When I try to load the package using ... > library(rgl) ... I get a warning message: Warning messages: 1: In rgl.init(initValue) : RGL: no suitable visual available 2: In fun(...) : error in rgl_init I also notice I cannot open a new rgl device: > open3d() Error in rgl.open() : rgl.open failed I am on MacOS 10.6.5. X11 is installed and is working to my knowledge. Does anybody have any suggestions to figure this problem out? I tried reinstalling the RGL package (v0.92.794), I tried removing all but the base R packages, I tried installing from b...