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