Re: Concatenating of Graphics[] primitives?
- To: mathgroup at smc.vnet.net
- Subject: [mg101317] Re: Concatenating of Graphics[] primitives?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 1 Jul 2009 06:33:55 -0400 (EDT)
- Organization: Uni Leipzig
- References: <h2cppi$aek$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
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 wrote:
> 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.
>