<<"Phred/MSource/Network.m"
ReadDir[dir_String]:=(SetDirectory[dir];(ToExpression[#1<>" = Get[\""<>dir<>#1<>".m\"]"]&)/@(StringTake[#1,{1,-3}]&)/@FileNames["*.m"];ResetDirectory[];)
BaseDir="/cook2/Research/Graphs/PhredLayouts/TrivalentExamples/";
ReadDir[BaseDir<>"UpTo4Nodes/"]
Show[GraphicsArray[Map[NetworkGraphics[#1,InchesWide1]&,{{dumbbell,tribar,tribell,loops3,tetra,square,cowbell}},{2}]]];
ReadDir[BaseDir<>"MiscExamples/"]
Show[GraphicsArray[Map[NetworkGraphics[#1,InchesWide1]&,{{prism,K33,TreeCell,Dodec1,asym12a,asym12b,cube}},{2}]]];
ReadDir[BaseDir<>"Petersen/"]
Show[GraphicsArray[Map[NetworkGraphics[Network[#1,NodeSize1],InchesWide1]&,{Table[ToExpression["Pete"<>ToString[i]],{i,9}]},{2}]]];