Re: Weißer Rand um DensityGraphics

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

ich meine

gr = DensityPlot[Random[], {x, 0, 1}, {y, 0, 1}, PlotPoints -> 128, 
    Mesh -> False, Frame -> False];
bm = ImportString[ExportString[gr, "PBM"], "PBM"];
newbm = Transpose[
      Transpose[bm[[1, 1]] /. {255 ..} :> Sequence[]] /. {255 ..} :> 
          Sequence[]];
newRaster = 
    Raster[newbm, {{0, 0}, Reverse[Dimensions[newbm]]}, {0, 255}, 
      ColorFunction -> GrayLevel];
Show[
  Graphics[{
      newRaster,
      newRaster /. 
        Raster[bm_, range_, args___] :> 
          Raster[bm, {277, 0} + # & /@ range, args],
      newRaster /. 
        Raster[bm_, range_, args___] :> 
          Raster[bm, {0, 275} + # & /@ range, args]
      }, AspectRatio -> Automatic]
  ]

ob das allerdings weniger umst"andlich ist, als mit einem
Graphik-Programm die Bilder zu plazieren, wage ich zu bezweifeln.

Nat"urlich wird der wei"se Rand exportiert, wie man an obigen Beispiel
durch den Unterschied von

Dimensions[bm[[1,1]]

und

Dimensions[newbm]

leicht sieht. Der Rand ist eine Macke des PostScrip Interpreters von
Mathematica.

Gruss
  Jens

"Felix E. Klee" wrote:
> 
> On Thu, 19 Aug 2004 17:28:33 +0200 Jens-Peer Kuska wrote:
> > der weisse Rand l"ast sich nicht vern"unftig entfernen.
> > Es sei denn man wandelt das Ding in eine Raster Graphik
> > um, entfernt dort den Rand und plaziert dann die
> > Raster Graphiken.
> 
> Ich bin mir nicht sicher, ob ich dich richtig verstehe. Meinst Du
> folgende Vorgehensweise?
> 
> 1. Export["/tmp/pl.bmp",pl]
> 2. "/tmp/pl.bmp in separatem Grafikprogramm öffnen und dort das
>    gewünschte Bild montieren.
> 
> Das funktioniert natürlich, ist aber etwas umständlich. Allerdings
> könnte man das Montieren skripten (z.B. mithilfe von ImageMagick), was
> den Prozess in meinem Fall wahrscheinlich beschleunigen würde. Der weiße
> Rand wird übrigens nicht exportiert. Er erscheint aber wieder, wenn ich
> "/tmp/pl.bmp" in MMA importiere.
> 
> Oder meinst du eine andere Vorgehensweise?
> 
> Felix
> 
> PS: Sorry, die erste Mail ging nicht an die Liste.
> 
> PPS: To contact me off list don't reply but send mail to "felix.klee" at
> the domain "inka.de". Otherwise your email to me might get automatically
> deleted!