Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: Merging graphic objects, exporting graphics and much more worries...

  • To: mathgroup at smc.vnet.net
  • Subject: [mg70933] Re: Merging graphic objects, exporting graphics and much more worries...
  • From: dh <dh at metrohm.ch>
  • Date: Thu, 2 Nov 2006 06:47:10 -0500 (EST)
  • References: <ei9pdo$28k$1@smc.vnet.net>


Hi,

you are nearle there, only some small mkodificatioin needed:

First make an empt array: g={};

then append your graphics to this array:

numel=3;

y=0;

For[i=1,i<=numel,i++,

     AppendTo[g,

    Show[Graphics[{Hue[0.55],Rectangle[{0,y},{4,y+1.5}],RGBColor[1,1,1], 

         Rectangle[{0.2,y+0.2},{3.8,y+1.3}]}],AspectRatio\[Rule]Automatic,

         ImageSize\[Rule]100]];y=y+2.5];

then combine the tthree plots into one:

g=Show[GraphicsArray[List/@ g]];

and export this:

Export["rectangles.bmp", g, ImageSize -> {150, 170}];



Daniel



shp wrote:

> Hi!

> 

> I'm pretty new to Mathematica and I'm trying to draw and export some

> graphics in it (as a part of a seminar).

> 

> What I0m trying to do is make cards (ie bitamps or gifs) for a card

> game Set. So what I need to do is draw symbols, 1 to 3 per card, and

> export them for later use.

> 

> Each card consists of 1 to 3 identical symbols, so what I tried to do

> is use a For loop to generate ie 3 symbols like it's shown in this code

> (numel is number of elements, y is a variable used for coordinates

> 

> numel = 3;

> y = 0;

> For[i = 1, i = numel,

>        Show[Graphics[{Hue[0.55],

>             Rectangle[{0, y}, {4, y + 1.5}],

>             RGBColor[1, 1, 1], Rectangle[{0.2, y + 0.2}, {3.8, y +

> 1.3}]}],

>         AspectRatio -> Automatic, ImageSize -> 100];

>       	i++, y = y + 2.5];

> 

> What I need is a way that I can export this in a single bitamp,

> containing all three rectangles. Basicaly, I need a way to include the

> For loop in Graphics[], but I don't know how :-/

> 

> Trying to come up with anything useful, I found out that even the

> simplest export results in a disaster.

> For instance, exporting these graphics

> 

> rectangles = Graphics[{Hue[0.55], Rectangle[{0, 0}, {4, 1.5}],

>          Rectangle[{0, 2.5}, {4, 4}],

>         Rectangle[{0, 5}, {4, 6.5}],

>         RGBColor[1, 1, 1], Rectangle[{0.2, 0.2}, {3.8, 1.3}],

>         Rectangle[{0.2, 2.7}, {3.8, 3.8}],

>         Rectangle[{0.2, 5.2}, {3.8, 6.3}]}];

> 

> with

> 

> Export["rectangles.bmp", rectangles, ImageSize->{150,170}];

> 

> looks nothing like the image I get using the command

> 

> Show[rectangles, AspectRatio->Automatic, ImageSize->(150,170}];

> 

> No matter what the coordinates of my rectangles are, I get the same

> image, and it's pretty ugly :-/

> 

> Help please! Thank you.

> 



  • Prev by Date: Re: Curiosity concerning transformation rules for List
  • Next by Date: RE: Merging graphic objects, exporting graphics and much more worries...
  • Previous by thread: Merging graphic objects, exporting graphics and much more worries...
  • Next by thread: RE: Merging graphic objects, exporting graphics and much more worries...