edata = Import["/Users/ccarter/People/Neri/Neri/bdta","TSV"];

edata[[2]]

idata =edata/.{a_,b_,c_}->{{a,b},c};

ifunc = Interpolation[idata]

Plot3D[ifunc[x,y],{x,0,72},{y,0,41}]

pts = Import["/Users/ccarter/People/Neri/Neri/garb.pnts","CSV"];

pts[[1]]

gp=Table[{Hue[0.3 +Mod[i,300]/900,.5,.6,RandomReal[]],Line[{pts[[i]],pts[[i+1]]}]},{i,1,Length[pts]-1}];

gp[[4]]

ggp=Graphics[gp]

Export["~/ForNeri/Loops.svg",ggp,"SVG"]

pts = Import["/Users/ccarter/People/Neri/Neri/garb.pnts","CSV"];

pgons = Import["/Users/ccarter/People/Neri/Neri/garb.skel","CSV"]+1;

Length[pts]

Max[pgons]

(pgons)[[1]]

Graphics[GraphicsComplex[pts,Map[Line,pgons]],Background-> White]

currentedge=1;

UniqueEdge[va_, vb_] :=Which[
ValueQ[edge[va,vb]],edge[va,vb],
ValueQ[edge[vb,va]],-edge[vb,va],
True,edge[va,vb] = currentedge;edgevertices[currentedge]={va,vb};currentedge++]

MakeEdges[ v_List] :=Module[{len=Length[v]},
Return[
Append[
 Table[UniqueEdge[v[[i]],v[[i+1]]],{i,1,len-1}],
UniqueEdge[v[[len]],v[[1]]]
]

]
]

Length[pgons]

psmall=Drop[pgons,6250]

Map[MakeEdges,pgons];

currentedge

edgevertices[10770]

elist =Table[{Hue[Mod[i,100]/400,.6,.4],Line[edgevertices[i]]},{i,1,currentedge-1}];

elist[[101]]

Graphics[GraphicsComplex[pts,elist]]

pts3 = Table[Append[pts[[i]],RandomReal[{-2,2}]],{i,1,Length[pts]}];

elist =Table[{EdgeForm[],Hue[Mod[i,100]/400,.6,.4,RandomReal[]],Cylinder[edgevertices[i],.03]},{i,1,10}];

g3 = Graphics3D[GraphicsComplex[pts3,elist],Boxed-> False]

g3

Export["~/ForNeri/3DTest.x3d",g3,"X3D"]