Hallo Reinhard,
das ist die beste Lösung, die man herausbekommt, denke ich:
In[189]:= Remove[ruleSet]
ruleSet[v_] := {
a : (Polygon|Line)[o_List] \[RuleDelayed] Head[a][Plus[v, #]& /@ o],
Text[x_ /; NumberQ[x], o_, oo__] \[RuleDelayed] Text[x, o + v, oo],
Text[x_ /; Not[NumberQ[x]], o_, oo_, ooo___] \[RuleDelayed] Text[x,
o + v - oo/2, oo, ooo]}
With[{v3 = {0., 0.}, v2 = {0., 4.5}, v1 = {0., 9.}},
Show[Graphics[MapThread[
(InputForm[FullGraphics[Graphics[#1]]][[1, 1]] /. ruleSet[#2])&,
{{g1, g2, g3}, {v1, v2, v3}}]], AspectRatio -> Automatic, PlotRange
-> All]
]
Die Trickrechnerei mit den FrameLabel-Beschriftungen kommt daher, dass
man RotateLabel -> True nicht mehr sinnvoll durchgeben kann und dass
Mma. freundlichst die Labelbeschriftungen auf die Tickbeschriftungen
pappt, obwohl man alles in absoluter Form geholt hat. Sie sehen das,
wenn Sie statt der beiden Text-Regeln nur die einfache Regel (die
eigentlich reichen sollte)
Text[x_, o_, oo___] \[RuleDelayed] Text[x, o + v, oo]
aufnehmen.
Gruss
Udo.
Leider ist der Schnickschnack nicht da wo er sein soll.
Dass mein Anliegen innerhalb von Mathematica so kompliziert ist, habe
ich nicht erwartet.
