Re: Export["...",...,"GIF"] results in nonreadable gif file
- To: mathgroup at smc.vnet.net
- Subject: [mg119387] Re: Export["...",...,"GIF"] results in nonreadable gif file
- From: Roman Bortnikov <kolbasa.sapiens at gmail.com>
- Date: Wed, 1 Jun 2011 04:35:03 -0400 (EDT)
- References: <irvrum$8kr$1@smc.vnet.net> <is2kgq$qp4$1@smc.vnet.net>
On 31 =D0=BC=D0=B0=D0=B9, 15:47, "Nasser M. Abbasi" <n... at 12000.org> wrote:
> On 5/30/2011 3:36 AM, neuromanthic wrote:
>
>
>
>
>
>
>
>
>
> > I've expirienced some problems with exporting images and graphics to
> > gif and animated gif's with Export[]. Here are inputs for exporting
> > lists of graphics as well as images
>
> > In[138]:= Export["E:\\work\\projects\\anim2.gif",
> > =C2 Table[Graphics@
> > =C2 =C2 Raster@Table[
> > =C2 =C2 =C2 k - (i + j), {j, 0, 0.5, 0.05}, {i, 0., 0.5, 0.05}=
], {k, 0, 1,
> > =C2 =C2 0.1}], "GIF"]
>
> > Out[138]= "E:\\work\\projects\\anim2.gif"
>
> > ========================
===
>
> > In[148]:= Export["E:\\work\\projects\\anim4.gif",
> > =C2 Table[Image@
> > =C2 =C2 Table[k - (i + j), {j, 0, 0.5, 0.05}, {i, 0., 0.5, 0.05}]=
, {k, 0,
> > =C2 =C2 1, 0.1}], "GIF"]
>
> > Out[148]= "E:\\work\\projects\\anim4.gif"
>
> > The arguments of exports are evaluated and shown properly, but
> > resulting output files are corrupted and unreasoonably small (390
> > bytes)
>
> > On the other hand selecting an image in frontend and choosing "Save
> > Image As..." to save as gif works just fine. However, I need to make
> > animated gifs and this trick doesn't help.
>
> > Is it a bug in GIF converter or what?
> > Any advice would be appreciated.
>
> try this, it worked for me:
>
> v = Table[Graphics@Raster@Table[
> =C2 =C2 =C2 =C2 =C2 =C2 k - (i + j), {j, 0, 0.5, 0.05}, =
{i, 0., 0.5, 0.05}],
> =C2 =C2 =C2 =C2 =C2 =C2 {k, 0, 1,0.1}
> =C2 =C2 =C2 ];
>
> Export["anim.gif",a,"DisplayDurations"->.5]
>
> --Nasser
To Nasser:
That didn't work. Result was the same, 390 bytes of nonreadable gif.
Interestingly, exported corrupted gifs all give on Import[] the
following output:
======================
In:=
v = Image@Graphics@Raster[Table[i + j, {i, 0, 0.5, 0.1}, {j, 0, 0.5,
0.1}]];
Export["E:\\work\\projects\\anima12.gif", v];
Import["E:\\work\\projects\\anima12.gif"]
======================
During evaluation of In[291]:= Image::imgarray: The specified argument
{} should be an array of rank 2 or 3 with machine-sized numbers. >>
During evaluation of In[291]:= ImageDimensions::imginv: Expecting an
image or graphics instead of Image[{},Byte,ColorSpace->RGBColor]. >>
During evaluation of In[291]:= ImageCompose::imginv: Expecting an
image or graphics instead of Image[{},Byte,ColorSpace->RGBColor]. >>
During evaluation of In[291]:= ImageDimensions::imginv: Expecting an
image or graphics instead of ImageCompose[Image[{},Byte,ColorSpace-
>RGBColor],Image[{},Byte,ColorSpace-
>RGBColor],System`ConvertersDump`GIFCalculateOverlayPosition[ImageDimension=
s[Image[{},Byte,ColorSpace-
>RGBColor]],ImageDimensions[Image[{},Byte,ColorSpace->RGBColor]],
{0,0}]]. >>
During evaluation of In[291]:= ImageRotate::imginv: Expecting an image
or graphics instead of ImageCompose[Image[{},Byte,ColorSpace-
>RGBColor],Image[{},Byte,ColorSpace-
>RGBColor],System`ConvertersDump`GIFCalculateOverlayPosition[ImageDimension=
s[Image[{},Byte,ColorSpace-
>RGBColor]],ImageDimensions[Image[{},Byte,ColorSpace->RGBColor]],
{0,0}]]. >>
======================
Out=
ImageRotate[
ImageCompose[Image[{}, "Byte", ColorSpace -> RGBColor],
Image[{}, "Byte", ColorSpace -> RGBColor],
System`ConvertersDump`GIFCalculateOverlayPosition[
ImageDimensions[Image[{}, "Byte", ColorSpace -> RGBColor]],
ImageDimensions[Image[{}, "Byte", ColorSpace -> RGBColor]], {0,
0}]], Top -> Top]
======================
Does anyone have an idea of what's wrong with my Export?
Roman Bortnikov