Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: incorrect display for Export[Image[]]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104979] Re: incorrect display for Export[Image[]]
  • From: "Nasser M. Abbasi" <nma at 12000.org>
  • Date: Sun, 15 Nov 2009 20:48:11 -0500 (EST)
  • References: <hdomv1$98l$1@smc.vnet.net>

"divisor" <congruentialuminaire at yahoo.com> wrote in message 
news:hdomv1$98l$1 at smc.vnet.net...
> Hello MathGroup:
>
> Here is a simple command to create an Image[]:
>
> Image@Table[
>  With[{z = x + I y},
>   With[{w = (1 + z + z^2 + z^3)/(1 + z + z^2)}, {Re[w],
>     Im[w]}]], {x, -1, 1, 0.01}, {y, -1, 1, 0.01}]
>
> It displays correctly in Mathematica. Then I attempt to Export[] this 
> image
> with:
>
> Export["e:\\t111409A.jpg", %, "JPEG"]
>
> When I look at the image outside of Mathematica, it does not show 
> correctly.
> It looks like only the Alpha channel shows. I also tried these other
> $ExportFormats:
>
> - GIF
> - TIFF
>
> with the same result.
>
> I imagine there is a simple resolution to this problem, but I cannot
> find it yet.
>
> Thanks in advance.
>
> Roger Williams
> Franklin Laboratory
>

But the image is not an RGB image? becuase there is only 2 channels in the 
image as can be seen by looking at the dimensions of the data

im = Image[Table[With[{z = x + I*y},
     With[{w = (1 + z + z^2 + z^3)/(1 + z + z^2)},
      {Re[w], Im[w]}]], {x, -1, 1, 0.01},
    {y, -1, 1, 0.01}]]
d = ImageData[im];
Dimensions[d]

{201, 201, 2}

--Nasser





  • Prev by Date: Re: Error when working with a derivative
  • Next by Date: Re: Text on a curve,
  • Previous by thread: incorrect display for Export[Image[]]
  • Next by thread: Re: incorrect display for Export[Image[]]