Re: GraphicsArray - jetzt mit Beispiel

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

Hallo Jens*,

daraus erhält man ein Grafikraster oder Layout mit variablen Bildzellen 
mit nur einem Show[] call:

With[{d = 3, l1 = 3, l2 = 6, h1 = 3},
 m1 = Reverse[Table[{{0, (i - 1) h1}, {l1, i h1}}, {i, d}]];
 m2 = Reverse[Table[{{l1, (i - 1) h1}, {l1 + l2, i h1}}, {i, d}]];
 Show[
   Graphics[
     Flatten[
       MapThread[{Rectangle[Sequence @@ #1, #2],
                  Rectangle[Sequence @@ #3, Graphics[#4, AspectRatio -> 
Automatic]]
                 }&, {m1, bilder1, m2, bilder2}
       ]
     ]
   ]
 ]
]  

zu sehen in dem einen Bildchen. Durch Vergleich mit dem letzten Bildchen 
aus der von Jens-Peer erzeugten Liste sieht man, dass die 
Koordinatenangaben in Rectangle[]  die Darstellung eines GraphicsObjects 
in Rectangle nicht vollständig bestimmen. Es wurde Mma 4.2 benutzt.

Frohe Ostern!
Udo.

Jens-Peer Kuska wrote:

> MapThread[
> Show[Graphics[{Rectangle[{0, 0}, {3, 3}, #1],
> Rectangle[{3, 0.0}, {9, 3},
> Graphics[#2, AspectRatio -> Automatic]]}]] &, {bilder1, bilder2}]
>