(* writes a povray include file *)

P= ReadList["3d.dat", {Real,Real,Real}];
WriteString["surface.inc","union{\n"];
Do[WriteString["surface.inc","S(<",A[[i,1]],",",A[[i,2]],",",A[[i,3]],">)\n"],{i,Length[A]}];
WriteString["surface.inc","}\n"];

