MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Names[] for definitions in the current window/notebook?


BTW: The correct way to find out if a symbol has a
value that is a graphics would be

lst = ToExpression /@ ("Hold[" <> # <> "]" & /@ Names["Global`*"]);
hasGraphData = 
  Select[lst, 
    MemberQ[{Graphics, Graphics3D, SurfaceGraphics, DensityGraphics, 
          ContourGraphics}, Head[ReleaseHold[#]]] &];

(*and save the graphics *)

Export[#1 <> ".eps", #2, 
      "EPS"] & @@@ ({StringDrop[StringDrop[ToString[#], 5], -1], 
          ReleaseHold[#]} & /@ hasGraphData)

Regards
  Jens


  • Prev by Date: How to make 2D axis with arrows?
  • Next by Date: ListPlot vs ListPlot3D
  • Previous by thread: Re: Names[] for definitions in the current window/notebook?
  • Next by thread: Re: Names[] for definitions in the current window/notebook?