MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.
> 


  • Prev by Date: Re: Concatenating of Graphicsprimitives?
  • Next by Date: Problem with fitting
  • Previous by thread: Re: Concatenating of Graphics[] primitives?
  • Next by thread: Barchart number output