Re: Show[] von Grafiken, PlotRange

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

++Hallo Thomas,

in Mma 4.2 ist die Import[] Funktion anscheinend in Ordnung. Also 
könnten Sie auf 5.0.1 upgraden oder einen workaround anbringen und statt 
Show[chess] schreiben:

In[94]:= With[{myPlotRange = {{0, 1}, {0, 1}} + (PlotRange /. 
Cases[InputForm[chess], _Rule, 2])},
 Show[chess, PlotRange -> myPlotRange]]

{{0, 1}, {0, 1}} wäre dann so eine Art Offset. Damit stellen Sie fest, 
ob es wirklich an PlotRange liegt.
Wenn man ein jpeg Beispiel ansieht,

In[12]:= With[{iMax = 10, jMax = 20},
Show[Graphics[Raster[N[Table[Mod[i + j, 2], {i, iMax}, {j, jMax}]],
   ColorFunction -> GrayLevel]], Axes -> True]]

und wenn Sie
In[28]:= Export["bodenmannRaster.jpg", Out[12], "JPG"]
Out[28]= "bodenmannRaster.jpg"

In[100]:= Short[InputForm[Import["bodenmannRaster.jpg"]], 4]
Out[100]//Short=
Short["Graphics[Raster[{<<177>>}, {{0, 0}, {288, 177}}, {0, 255}, 
ColorFunction -> GrayLevel], \
ImageSize -> {288, 177}, PlotRange -> {{0, 287}, {1, 177}}, AspectRatio 
-> Automatic]", 4]

tippen, dann finden Sie, dass Mma. 4.2 das RasterArray auf {{0, 0}, 
{288, 177}} setzt _und_ das PlotRange  in x und y um je 1 verkürzt _und_ 
trotzdem richtig zeichnet! Hoffentlich hilft der o.g. workaround 
dennoch, da es eher wenig Spass macht, anhand solcher Beispiele den 
"blues of  industrial strength" zu kriegen.

Mit den besten Grüssen
Udo.

Übrigens, Mma. 4.2 hat mehr importieren können als exportieren:
In[21]:= $ImportFormats
Out[21]= {"AIFF", "AU", "BMP", "CSV", "Dump", "DXF", "EPS", "EPSI", 
"EPSTIFF", "Expression", "ExpressionML",
 "FITS", "GIF", "HDF", "JPEG", "Lines", "List", "MAT", "MathML", "MGF", 
"MPS", "NB", "NotebookML",
 "PBM", "PGM", "PNM", "PPM", "PSImage", "RawBitmap", "SDTS", "SND", 
"STL", "SymbolicXML", "Table",
 "Text", "TIFF", "UnicodeText", "WAV", "Words", "XBitmap", "XML"}

Somit wäre auch die Rückkehr zu Mma 4.2 eine Option, wenn PPM wirklich 
implementiert ist. Eine andere schöne Sache ist noch ByteOrdering von 
Options[Export], Options[Import], falls das Bild mal von einer ganz 
anderen Maschine herkommt. --- uk.

Thomas Bodenmann wrote:

> Hello again Udo
>
> * Udo und Susanne Krause <su.krause@XXXXXXX.ch> writes:
>  
>
> > okay, sorry, hab's gerafft. Hatten Sie das Digital Image Processing
> > Package benutzt, zum PPM Format finde ich sonst in Mma 4.2 nichts.
> >    
>
> Ich benutze Mathematica 5.0.
> <snip>
> Es laesst sich aber auch mit mit einem Bild im JPEG-Format
> reproduzieren:
>
> chess = Import["chess.jpg"]
> d = chess[[2, 2]]
> Dimensions[d]
>
> Out[1]= Graphics
>
> Out[2]= {10,20}
>
> Out[3]= {2}
>
> D.h. das Bild wird korrekt importiert. Aber 'Show[chess]' und ein
> anschliessendes 'InputForm[%]' verraten, dass das Problem auch hier
> besteht:
>
> ImageSize -> {10, 20}, PlotRange -> {{0, 9}, {1, 20}}
>
> "chess" zeigt ein Schachbrettmuster in blau/weiss, welches ich erstellt
> habe, um die Punkte zu zaehlen, weil ich das ganze nicht so recht glauben
> kann. ;-)
>
> [...]
>
> Viele Gruesse, Thomas
>