I'm trying to draw two graphics object well defined and an arrow in between pointing left to right (symbolizing the mapping between the two). I've tried drawing the arrow first in a graphics object and then using GraphicsRow but the end result is unsatisfying: I get that the arrow takes a third of the space, when I would like it much smaller. How could I get there?
$\begingroup$
$\endgroup$
3
asked Dec 5, 2014 at 14:52
-
$\begingroup$ Select the graphics, Right-click, "Drawing Tools" $\endgroup$– Dr. belisariusDec 5, 2014 at 14:58
-
$\begingroup$ @belisarius: I did it this way in the past, but I would be interested in a systematic way of doing it. $\endgroup$– Learning is a messDec 5, 2014 at 15:06
-
$\begingroup$ Then check out this. It's a nice mix of both, I believe $\endgroup$– Dr. belisariusDec 5, 2014 at 15:24
Add a comment
|
3 Answers
$\begingroup$
$\endgroup$
2
gF = Graphics[{#[[1]], #[[2]], Black,
Text[Style["\[RightArrow]", 72, Bold], Scaled@{.5, 1/2}],
#2[[1]], Translate[#2[[2]], {3., 0}]}, ImageSize -> 500] &;
gF[{Blue, Disk[]}, {Red, Polygon[{{1, -1}, {0, Sqrt[3] - 1}, {-1, -1}}]}]
gF[{Blue, Polygon[Table[{Cos[2 \[Pi] k/6], Sin[2 \[Pi] k/6]}, {k, 0, 5}]]},
{Red, Polygon[Table[{Cos[2 \[Pi] k/9], Sin[2 \[Pi] k/9]}, {k, 0, 8}]]}]
Or
g1 = Graphics[{Blue, Disk[{0, 0}, 1]}, BaselinePosition -> Center, ImageSize -> 300];
g2 = Graphics[{Red, Polygon[{{4, -1}, {3, Sqrt[3] - 1}, {2, -1}}]},
BaselinePosition -> Center, ImageSize -> 300];
g3 = Graphics[{Orange, Polygon[Table[{Cos[2 \[Pi] k/9], Sin[2 \[Pi] k/9]}, {k, 0, 8}]]},
BaselinePosition -> Center, ImageSize -> 300];
g4 = Graphics[Text@Style["\[RightArrow]", 64, Bold], BaselinePosition -> Center, ImageSize -> 50];
Row[{g1, g2, g3}, g4]
-
$\begingroup$ Thanks you, it works like a charm indeed! $\endgroup$ Dec 5, 2014 at 19:45
-
$\begingroup$ @Learningisamess, my pleasure. Thank you for the accept. $\endgroup$– kglrDec 5, 2014 at 19:52
$\begingroup$
$\endgroup$
Try this:
Manipulate[Show[{
Graphics[{Blue, Disk[{0, 0}, 1]}],
Graphics[{Red, Polygon[{{4, -1}, {3, Sqrt[3] - 1}, {2, -1}}]}],
Graphics[{Darker@Green, Thickness[0.007],
Arrow[{{x1, y1}, {x2, y1}}]}]
}], {{x1, 1}, 0, 3}, {{y1, 0.1}, 0, 3}, {{x2, 2.5}, 0, 3}]
and play with the sliders. You should see the following:
Have fun!
answered Dec 5, 2014 at 15:07
$\begingroup$
$\endgroup$
In practice, the output form of Rule is effective for combinations of graphics and other expressions. For example, see:
My answer to Temporal database reconstruction (note existing rules in
AssociationandDataset)Try kguler's graphics with
g1 -> g2 -> g3Can be used to quikly make legends for figures from
Associations. Givendata = <| "a" -> Red, "b" -> Blue|>,data // Normal // Column // Panelgives:
Limitations include:
The result is not a
Graphicsobject (though often it renders to PDF just fine).No control over the arrow's style (or is there?)
answered Dec 5, 2014 at 16:43