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