アニメ作り

*1
を作ってたのしかった()というおはなし．
RのRGLパッケージ．

library("rgl")
x<-c(0.9,0.45,0.6,0.3,0  ,0  ,0  ,0,1,0,0,0,0  ,0   ,0  ,0.9,0.45,0.6)
y<-c(0.8,0.2 ,0.1,0.4,0.2,0.8,0.7,0,0,1,0,1,0.8,0.2 ,0.1,0,0,0)
z<-c(0.5,0.4 ,0.8,0.5,0.5,0.7,0.2,0,0,0,1,1,0.5,0.4 ,0.8,0,0,0)
labels <- c("C1","C2","C3","G","T2","T3","T1","","X","Y","Z","","","","","","","")
bl <- c(1,5,2,6,3,7,8,9,8,10,8,11,10,12,11,12)
gl<- c(1,13,2,14,3,15,1,16,2,17,3,18)
open3d()
text3d(y,x+0.1,z+0.1,labels)

points3d(y,x,z)
segments3d(y[bl],x[bl],z[bl])
segments3d(y[gl],x[gl],z[gl],col="gray")

M <- par3d("userMatrix")
tt <- 3
positions <- list(rotate3d(M,-pi/2,0,0,1),rotate3d(M,-pi,0,0,1))
movie3d( par3dinterp(times=c(0,tt),method="spline",userMatrix=positions),fps=20,duration=tt*2 ,movie="ghost",dir=".") 

参考:rglパッケージとImageMagick - ryamadaの遺伝学・遺伝統計学メモ - http://goo.gl/3t76f

*1: IJPC 2012 #3 - http://goo.gl/9R16x