Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Concatenating of Graphics[] primitives?

1 view
Skip to first unread message

AES

unread,
Jun 30, 2009, 6:35:30 AM6/30/09
to
Any command akin to the Join[list1, list2] command for "Joining"
(concatenating) two Graphics[{}] lists into a single Graphics[] list?

Executing

g1 = Graphics[Table[Circle[{0,0},r],{r,1,3}]];
g2 = Graphics[Table[Circle[{0,0},r],{r,4,5}]];
g={g1, g2};

g (* A new cell *)

Show[g] (* Another new cell *)

is entertaining -- if not exactly educational.

Yasvir Tesiram

unread,
Jul 1, 2009, 6:37:20 AM7/1/09
to
G'day,
Guessing that you are looking for GraphicsRow et.al.
Regards,
Yas

Jens-Peer Kuska

unread,
Jul 1, 2009, 6:33:41 AM7/1/09
to
Hi,

Unprotect[Graphics]
Graphics[l1__, l2__, gopts : OptionsPattern[Graphics]] :=
Graphics[{l1, l2}, gopts]
Protect[Graphics]

and


g1 = Graphics[Table[Circle[{0, 0}, r], {r, 1, 3}]];
g2 = Graphics[Table[Circle[{0, 0}, r], {r, 4, 5}]];


Join[g1, g2]

work.

Regards
Jens

AES

unread,
Jul 2, 2009, 7:15:04 AM7/2/09
to
In article <h2fe90$q05$1...@smc.vnet.net>,
Yasvir Tesiram <tesi...@omrf.org> wrote:

> > Any command akin to the Join[list1, list2] command for "Joining"
> > (concatenating) two Graphics[{}] lists into a single Graphics[] list?

> G'day,
> Guessing that you are looking for GraphicsRow et.al.
> Regards,
> Yas

Exactly right -- and I should have known that. Thanks.

0 new messages