## Mathematica graphics to VRML converter

m2wrl.m *(Mathematica to wrl VRML format)* provides a set of
functions to convert Mathematica 3D graphics objects to virtual
reality modeling language (VRML) version 1.0 documents.
Limitations:
Only Polygon graphic primitives are supported.
However, the polygons are constructed by using a shared set of
points, which makes the rendering faster and gives the VRML browser
better hints how to shade the polygons.

Note:
The program is free software;
you can redistribute it and/or modify it.
It is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

source:
m2wrl.m

known bugs:
the seams

*
Sample:
Torus (Doughnut)
*
```
<<m2wrl.m
```

ParametricPlot3D[{(2 + Sin[2 Pi u]) Cos[2 Pi t],
(2 + Sin[2 Pi u]) Sin[2 Pi t], Cos[2Pi u]},
{t, 0, 1}, {u, 0, 1}]

m2wrl[%]

OpenWrite["m2wrl-torus.wrl"]

WriteString[%, %%]

Close[%%]

*
Output:
*

#VRML V1.0 ascii
...

Separator {
Coordinate3 {point [
-2.95571 -0.493222 -0.0825793,
-2.95571 0.493222 -0.0825793,
...
]}

IndexedFaceSet {coordIndex [
351, 345, 361, 367, -1,
345, 323, 339, 361, -1,
...
]}
}

*Enjoy!*

Keywords:
m2wrl, mtowrl,
Mathematica, mma,
Graphics3D, Polygon,
virtual reality modeling language,
VRML, VRML 1.0,
world/vrml, x-world/x-vrml,
Mathematica converter, Mathematica document converter,
Mathematica graphics converter, Mathematica 3D graphics converter,
Mathematica to VRML converter,
conversion, converter, convert,
source code

*
lr
/
Mon Mar 30 1998
*