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}]
