Displaying 1 result from an estimated 1 matches for "t2ve".
2011 May 12
2
Exporting interactive 3D plots with axes and labels
...ot;) {
scene <- misc3d:::colorScene(scene)
triangles <- misc3d:::canonicalizeAndMergeScene(scene, "color", "color2",
"alpha", "col.mesh",
"fill", "smooth")
ve <- misc3d:::t2ve(triangles)
f <- file(filename, open = "w")
on.exit(close(f))
write("OFF", f)
write(c(ncol(ve$vb), ncol(ve$ib), 3 * ncol(ve$ib)), f, 3)
write(ve$vb, f, 3)
write(rbind(3, ve$ib - 1), f, 4)
invis...