GraphicArray wastes memory
- To: mathgroup at smc.vnet.net
- Subject: [mg12851] GraphicArray wastes memory
- From: Alexander Kricke <kricke at student.uni-kassel.de>
- Date: Wed, 17 Jun 1998 00:27:54 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
if several Graphics are combined with GraphicsArray the real Graphic is
just in the middle. At the margin there is nothing. This effect can be
seen by marking the Graphic.
I have put an example at the end of this document. I hope somebody can
help me.
Greetings from Germany
Alex
(* Programmteil II *)
(* Definitionen *)
Off[General::spell1,General::spell];
Clear[anzahl,plt1,grafik,plt2,plt3,c,w1,w2,w3];
anzahl=10; (* Definition der Anzahl der Plots *)
(* Herstellung einer Animation *)
Do[If[N[c]>0,{w1=0;w2=0;w3=ArcSin[c]},{w1=ArcSin[c];w2=ArcSin[c];w3=0}];
plt1=Plot[Cos[x],{x,-0.1,3.3},PlotRange->{{-0.1,3.3},{-1.2,1.2}},
AspectRatio->1,DisplayFunction->Identity,
PlotStyle->{{Thickness[0.02],RGBColor[1,0,0]}},Epilog->
{Thickness[0.02],
{RGBColor[0,1,0],Line[{{0,0},{ArcCos[-c],0}}]},
{RGBColor[0,0,1],Line[{{ArcCos[-c],0},{ArcCos[-c],-c}}]},
{PointSize[0.06],Point[{ArcCos[-c],-c}]}}];
grafik=Graphics[{Thickness[0.02],{RGBColor[1,0,0],Circle[{0,0},1,
{0,ArcCos[-c]}]},
{RGBColor[0,1,0],Circle[{0,0},0.3,{0,ArcCos[-c]}]},
{PointSize[0.06],RGBColor[0,0,0],
Point[{-c,Sin[ArcCos[-c]]}]},
{Line[{{0,0},{-c,Sin[ArcCos[-c]]}}]},
{RGBColor[0,0,1],Line[{{0,Sin[ArcCos[-c]]},
{-c,Sin[ArcCos[-c]]}}]}},
PlotRange->{{-1.2,1.2},{-1.2,1.2}},AspectRatio->1,
Axes->True];
plt2=Plot[ArcCos[x],{x,-c,1},PlotRange->{{-1.1,1.1},{0,3.3}},
AspectRatio->1,DisplayFunction->Identity,
PlotStyle->{{Thickness[0.02],RGBColor[0.6,0.4,0.6]}},Epilog->
{Thickness[0.02],{RGBColor[0,0,1],Line[{{0,0},{-c,0}}]},
{RGBColor[0,1,0],Line[{{-c,0},{-c,ArcCos[-c]}}]},
{PointSize[0.06],Point[{-c,ArcCos[-c]}]}}];
plt3=ParametricPlot[{{x,Cos[x]},{Cos[x],x}},{x,0,ArcCos[-c]},
PlotRange->{{-1.1,3.2},{-1.1,3.2}},AspectRatio->1,
DisplayFunction->Identity,PlotStyle->
{{Thickness[0.02],RGBColor[1,0,0]},
{Thickness[0.02],RGBColor[0.6,0.4,0.6]}},
Epilog->{Thickness[0.02],PointSize[0.06],
{Line[{{ArcCos[-c],-c},{-c,ArcCos[-c]}}],
Line[{{-1.1,-1.1},{3.2,3.2}}]},
{RGBColor[1,0,0],Point[{ArcCos[-c],-c}]},
{RGBColor[0.6,0.4,0.6],Point[{-c,ArcCos[- c]}]}}];
Show[GraphicsArray[{plt1,grafik,plt2,plt3}],ImageSize->600];,
{c,-0.999,0.999,1.998/(anzahl-1)}];