Surface reconstruction from parallel serial sections using the program mathematica: example and source code

A "package"-module of commented source code-for the computer program Mathematica has been designed to reconstruct surfaces from curves, collected in parallel serial sections through these surfaces. The package contains routines to interpolate digitized curves using continuous functions, to interpolate transversally between the resulting continuous curves, and to render the results of this later operation as a parametrized surface in three dimensions. This paper provides a listing of the package and an example of surface reconstruction using curves which were collected from serial thin sections through a garnet porphyroblast with spiral-shaped inclusion trails.