Lines in a legend are too short

*To*: mathgroup at smc.vnet.net*Subject*: [mg30514] Lines in a legend are too short*From*: Reinhold Kainhofer <reinhold at kainhofer.com>*Date*: Fri, 24 Aug 2001 20:58:09 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Hello, I need to make several plots and list plots with 8 to 15 functions and a legend to distinguish the different curves. However, in the legend the lines are much too short to be able to distinguish Dashing[{Dash, Dot}] from Dashing[{Dash, Dot, Dot}], or even Dashing[{Dash}] from Dashing[{Dash, Dot}]. The plots are then automatically exported to eps and included in a large LaTeX-Paper. How can I make the lines in the legend longer? I'd really like to have them twice as long as they are now. I found out that the shape of the key boxes resembles the shape of the whole legend, e.g. if you have LegendSize->{4,1}, the keybox is also 4 times wider than with LegendSize->{1,1}, but my LegendSize can't be much wider, but the keyboxes (or rather the lines inside) should. Using the ShowLegend function is not really an option, either, since it would take ways too long to manually prepare the whole legend for each of the plots. Here is a sample of my plot calls (most options are taken from a global variable, so I manually inserted them here to make the whole thing shorter): plotlist=Table[Table[Sin[i]Random[], {30}], {i,1,10}]; (* just random data here, this is taken from lengthy calculations*) EPSStylesTemp[n_]:= Take[{AbsoluteDashing[{}],AbsoluteDashing[{Dash,Dash}], AbsoluteDashing[{Dot}],AbsoluteDashing[{Dash,Dot}], AbsoluteDashing[{Dash,Dot,Dot}],AbsoluteDashing[{LongDash,Dot}]},n] EPSStyles[n_]:= Join[({AbsoluteThickness[0.4],#1}&)/@ EPSStylesTemp[n],({AbsoluteThickness[0.2],#1}&)/@ EPSStylesTemp[n],({Thickness[0.0005],#1}&)/@EPSStylesTemp[n]] ModelBProbZinsVergleichGraphBconst=MultipleListPlot[plotlist, PlotLegend->{"pareto", "weibull", "gamma", "lognormal", "paretoint", "weibullint", "gammaint", "lognormalint"}, AxesLabel\[Rule]{"u", "\[Phi](u,1)"}, TextStyle\[Rule]{FontFamily\[Rule]"Helvetica",FontSize\[Rule]20}, PlotStyle\[Rule]EPSStyles[5],LegendSize\[Rule]{1.2, 1}, LegendPosition\[Rule]{0.8,-0.5}, LegendBorderSpace\[Rule]1,LegendSpacing\[Rule]0,LegendShadow\[Rule]None, ImageSize\[Rule]{800,Automatic}, PlotJoined\[Rule]True,SymbolShape\[Rule]None ]; Thanks Reinhold -- ------------------------------------------------------------------ DI Reinhold Kainhofer, Graz, Austria email: reinhold at kainhofer.com, http://reinhold.kainhofer.com/ * Mathematics Department, Technical University of Graz * Theoretical Physics Department, University of Graz ------------------------------------------------------------------