スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

first bunny

bunny <- read.delim("bun000.ply",skip=25,header=F, sep=" ")
bunny <- bunny[,c(1,2,3)]
bunny <- bunny[bunny[,1]!=1,]
points3d(bunny[,1],bunny[,2], bunny[,3],col="#9E0200",size=0.1)

library(rgl)
points3d(bunny[,1],bunny[,2], bunny[,3],col="#9E0200",size=0.1)
for(i in 1:360) {
rgl.viewpoint(i,10)
rgl.postscript(filename = paste("bunny",i,".eps",sep=""), fmt = "eps")
}

bunny.gif


epsファイルのpng形式への一括変換
mogrify -density 100 -format png *.eps

C:\Program Files\Giam
Giamにコマを追加するときは、*1~9.pngを先に、次に*10~99.pngを、次に*100~999.pngを追加していく。
スポンサーサイト
Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
06 | 2013/07 | 08
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。