Re: Re: export graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg22263] Re: [mg22260] Re: [mg22202] export graphics*From*: schadow at netcom.ca*Date*: Mon, 21 Feb 2000 20:00:23 -0500 (EST)*References*: <200002190634.BAA12480@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

> Wolfgang, and all: > > When we upgraded to version 4 at my institution, I threw together a web > page (mostly for the benefit of my colleagues here) describing the simplest > new ways to export graphics. You can find it here: > > http://www.wittenberg.edu/academics/mathcomp/nicholswww/mmamisc/mmaexport.html > > The simple animated gif example on that page comes down to this: > > sinemovie = Table[ > Plot[Sin[x - t], {x, 0, 2*Pi}], > {t, Pi/10, 2*Pi, Pi/10}]; > > Export["sineloop.gif", sinemovie, > ConversionOptions -> {"Loop" -> True}]; > > You could wrap Block[{$DisplayFunction=Identity}, ] around the Table > command if you don't want to see the frames before exporting them. > > Part of the reason your attempt (below) went wrong is (perhaps obviously?) > that Animate returns Null, not Graphics objects. For the same reason, I > had to use Table rather than Do in my example above. > > (In the code for Graphics`Animation`, one can see that the last action > performed by Animate is to explicitly call the low-level function, > analogous to $DisplayFunction, which displays the frames of the animation, > by default in the Notebook window.) Thanks for pointing out your page, it was very helpful to how it's done. BUT I still get *black* GIFs and JPG's, only EPS works. One way to get at least a non black curve is: Needs["Graphics`Colors`"]; anim1 = Plot[Exp[-(x - 1/3)^2], {x, 0, 10}, PlotRange -> {0, 1}, PlotStyle -> {Blue}, Background -> GrayLevel[1]] Export["anim1.gif", anim1, "GIF"] This produces a blue curve on black background. This is of course not satisfactory and fails with PLOT3D. I am wondering if this is a Linux specific problem, since you work with Windows. Is this a known problem or specific to my installation? Wolfgang ======================================================================== Wolfgang Schadow Phone: +1-604-222-1047 ext. 6453 (office) TRIUMF +1-604-875-6066 (home) Theory Group FAX: +1-604-222-1074 4004 Wesbrook Mall Vancouver, B.C. V6T 2A3 email: schadow at triumf.ca Canada www : http://www.triumf.ca/people/schadow ========================================================================

**References**:**Re: export graphics***From:*Preston Nichols <pnichols@wittenberg.edu>