问题一：老问题。
http://quaternions.blog.163.com/blog/static/206082147201331173925194/
f的数据来自这个例子，这里我提取的老版的ListSurfacePlot3D,例子是Graphics的几百M的电子书的的第二章的第一章的第二节的2.1.2，效果参见@
@网易相册不能外链。
http://quaternions.blog.163.com/blog/static/206082147201331211754990/MakePolygons[vl_List]:=Module[{l=vl,l1=Map[RotateLeft,vl],mesh},mesh={l,l1,RotateLeft[l1],RotateLeft[l]};
mesh=Map[Drop[#,-1]&,mesh,{1}];
mesh=Map[Drop[#,-1]&,mesh,{2}];
Polygon/@Transpose[Map[Flatten[#,1]&,mesh]]]
listSurfacePlot3D[t3_List,opts___]:=Show[Graphics3D[MakePolygons[t3]],opts]
makeTubes[{p0_,d1_,d2_,dt_},m_,r_,pp\[CurlyPhi]_,ppt_,T_]:=Cases[Table[listSurfacePlot3D[(*tube parametrizations*)Table[{x0,y0,0}+p0+r (Cos[\[CurlyPhi]] d1+Sin[\[CurlyPhi]] d2)+t dt,{\[CurlyPhi],0.,2.Pi,2Pi/pp\[CurlyPhi]},{t,-T,T,2T/ppt}]],{x0,-m,m},{y0,-m,m}],_Polygon,Infinity]
Show[Graphics3D[{EdgeForm[],Transpose[{Specularity[.1]&/@{RGBColor[1,0,0],RGBColor[0,1,0],RGBColor[0,0,1]},f=makeTubes[#,2,0.1,12,24,3]&/@N[(*three groups of non-intersecting tubes*){{{0,0,1},1/Sqrt[2] {0,1,1},1/Sqrt[6] {-2,1,-1},1/Sqrt[3] {1,1,-1}},{{1/2,0,1/2},1/Sqrt[2] {1,-1,0},1/Sqrt[6] {-1,-1,2},1/Sqrt[3] {1,1,1}},{{1/2,0,0},1/Sqrt[2] {1,1,0},1/Sqrt[6] {1,-1,2},1/Sqrt[3] {-1,1,1}}}]}]}],PlotRange->All]
那么如何直接用新版的ListSurfacePlot3D画出圆柱图及用f的数据画出圆管呢？
注意测试新版的时候，在合适的地方可能要Normal一下，使用最图数据是顶点坐标数据而非GraphicsComplex的索引数据。
问题2：Graphics这书有没有电子版的pdf，djvu之类的，类似于同一系列的Numerics 和symbolics和programming.

你们看到得一楼的这张图吗，我竟然看见了，不知道是不是因为我登录着网易博客的原因。

http://mathematica.stackexchange.com/questions/24450/difference-of-old-graphicsgraphics3dlistsurfaceplot3d-and-the-current-listsurf

PaletteNotebook[Tooltip],NotebookRead[SelectedNotebook[]]],Beep[],FrontEndTokenExecute[SelectedNotebook[],"CopySpecial","InputText"];
Map[CreateDocument[Cell,"Code",Evaluatable->False,InitializationCell->False,Background->White,CellMargins->10],DockedCells->Cell,All,Notebook];
FrontEndTokenExecute[SelectedNotebook[],"Copy"]],"DockedCell"],WindowTitle->"Code to copy (from "<>NotebookTools`NotebookName@SelectedNotebook[]<>")",Saveable->False]&,Cases[NotebookGet@ClipboardNotebook[],Cell[c_String,___]:>" "<>StringReplace[StringJoin@Riffle[StringReplace[StringTrim@StringSplit[c,("In"|"Out")~~"["~~DigitCharacter..~~"]"],{StartOfString~~":="~~WhitespaceCharacter~~input__:>input,StartOfString~~"="~~WhitespaceCharacter~~output__:>If[StringFreeQ[output,"\n"],"(* ==> "<>output<>" *)","(*\n==> "<>output<>"\n*)"]}],"\n\n"],{"\n"->"\n ","\[Pi]"->"Pi","E"->"E","I"|"\[ImaginaryJ]"->"I","\[UndirectedEdge]"->"<->","\[Infinity]"->"Infinity"}],Infinity]]],Appearance->"Palette"],"Copy formatted for use on Mathematica.SE",TooltipDelay->Automatic],WindowTitle->"Code Copy",Saveable->False]

1:eJylVktvFDkQHiBkQ0KADZw49Up7SCItCgFpJbRBSuYBWe2EMB6Jw4KEp7s6scZjN7Y7JPx6XOV+ZdITXnOwxnaVv6/qK1f7j4kepbc6nY6974djLsE5ONIOJlpPw8ZvfhhrLZ3IwsKyHw5y57Rid/3frs4uolSbaMj6weCmHw7T9G
bp
PYTZBMzbsLnkh9daJmmnnP0nrCO7PwdcSEjSG7iDR5dERsCTb1uEEx/4gYGE2EFSBVJhHQBkgdgGUZ9lOldJ/zwzYK3QKnB85IeB0cr1VTLWU1D9c4hzB4sR2FqRCZZBLLhkdzAHKsvdGM5dQMSjhzwL5FcQIlexQ1BkZu/hCQa4g56O8xkoly6XtLsgZfDDLBzo8x53PCzgNpPaCZwxMtYJBEScjXIJFtn1z7jMvdvEz28jOpd23m6DWAvnIxBfOHJD5IXmq0iGx9MTg1kks3enwrWh4zlDbk6EsgLdWkx82FNICLDevSbyUJh+CQr7RmGulIXJvfs39V6vFPVLQ31WCL1RZ82vl1KTjvue5Eqj/gLGT9TNUlk3q5cy0JKed0Il+vNYOAmBNXowZ4Q6+VcLxR4W0kdORzGGvpkaPYtCrh43uOJlth/L2RGfXccPvbfm2GDgjJ/BXCkRKZx2ufWSEO5aA/cVuAD0O9pIkU00N8nlDK4VGD2Q/MJf9Mt1UHWUY+7blFEWMeKAhMAHkqsplUHISw1HO0e5lAw+5aDiokTnUohAkf+FzfVqcwSZ5N7nxlWfuvJGIk0lfKfr2IhZHXFYY5kUrghpqRKEthoFS053qQQxBb40z8AyarmKoQRvckeq/V83Gk8C+0pCPaYnToTrnnLDvdCGTD/UecZm3C7FQkpFtNy4N2kRCR7wYs8+LBuCzXwOKsyrOqJ4ArtlUGy9VKxUq2Hwy9ww4B+ghtLq3C3mdvWbV0s6MABvG0dQhb3febrbeoMRdnM72tt7GTV90DTa3mp1WSUXPHHea7lA2t6iZoh/Cbj6ptRKlxe7Yld51JehsqFzX+w86+6QyseidX/w9/MeZbp/eXtB+VZO/frvgPwP249/1ntOefnnr5etBru7T/sUxaFKhf+gXdjmpOUztp/5K2K415MF9eklxDY79QNnhhWR0FMntxBpFQ25OwW/LGL+hM1FSkEW7yYqU4tPgv3caXK4vsHT84GaOYJ/V/v9Ct6vXWU=