PLYExport


Enhances PLY support in Mathematica.

Current version adds support for exporting Points (currently only for point-only Graphics3D data).


c.f. included PLYExport.demo.nb

<< PLYExport`

Export[".ply"] Can now work with points

n = 10^4;
pts = Point[RandomReal[1., {n, 3}], 
   VertexColors -> RandomReal[1., {n, 4}]];
Graphics3D@pts
Export["test.ply", pts]

title

Can export lots of points very quickly

data = RandomReal[1., {10^6, 3}];
(*Graphics3D@Point[data]*)(*don't do this for large n*)
AbsoluteTiming@
 Export["test 1 mio points.ply", 
  Graphics3D@Point[data], {"PLY", 
   "BinaryFormat" -> True}](*at least in Binary format*)
{0.17947, "test 1 mio points.ply"}