undefined

Table[Export[NotebookDirectory[] <> ToString[t] <> ".png", 
RemoveBackground[
Plot[Sin[x + t], {x, 0, 2 Pi}, Background -> None(*RGBColor[0,153,
255,1.0]*)]
]
]
, {t, 0, 5, 0.1}]
g = {}; Table[AppendTo[g, Import[NotebookDirectory[] <> ToString[t] <> ".png"]], {t, 0, 5, 0.1}]; Export[NotebookDirectory[] <> "sin.gif", g, "TransparentColor" -> White]


这个就是根据无影东瓜生成的无背景的图形 自己下载可以看下 谢谢大神

http://tieba.baidu.com/p/4981705057?pid=104102691302&cid=0#104102691302&qq-pf-to=pcqq.group

贴吧没权限 没办法只能发这里了