Why I love R [Number 6]: Chinese extend a helping hand to Russians who happen to be in Brazilabout a package written in Germany. Trotsky would be proud -- and amazed!
url: www.econ.uiuc.edu/~roger Roger Koenker email rkoen...@uiuc.edu Department of Economics vox: 217-333-4558 University of Illinois fax: 217-244-6678 Champaign, IL 61820 On Feb 17, 2009, at 8:37 PM, Yihui Xie wrote:
(1) you'll need ImageMagick installed to use the command "convert" to convert image sequences into GIF animations; see ?movie3d (2) "viewport" is read only!! see ?open3d carefully Regards, Yihui -- Yihui Xie <xieyi...@gmail.com> Phone: +86-(0)10-82509086 Fax: +86-(0)10-82509086 Mobile: +86-15810805877 Homepage: http://www.yihui.name School of Statistics, Room 1037, Mingde Main Building, Renmin University of China, Beijing, 100872, China On Tue, Feb 17, 2009 at 2:45 AM, Iuri Gavronski <i...@ufrgs.br> wrote:Hi, I don't know much about the RGL package, and I have read the documentation and tried some parameters, with no luck... I would like to generate a movie from a 3D object (code below), where the vortex 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=pyrcolor) triangles3d(rbind(coord.3,coord.4,coord.5),color=pyrcolor) quads3d(rbind(coord.1,coord.2,coord.3,coord.4),color=pyrcolor) vertices = LETTERS[1:5] text3d(coord.1,text=vertices[1],adj=1,color="blue") text3d(coord.2,text=vertices[2],adj=0,color="blue") text3d(coord.3,text=vertices[3],adj=0,color="blue") text3d(coord.4,text=vertices[4],adj=1,color="blue") text3d(coord.5,text=vertices[5],adj=0,color="blue") # couldn't make this work... #open3d(viewport=c(0,0,686,489)) #par3d(zoom = 1.157625) filename = "piramide.png" rgl.snapshot(filename)______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
