Re: Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg17003] Re: Plot
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Sat, 10 Apr 1999 02:13:36 -0400
- References: <7ehktv$o09@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Bernd Brandt <bernd at bio.vu.nl> wrote in message news:7ehktv$o09 at smc.vnet.net... > Hello, > > The Plot function allows one to change the thickness of lines, axes and > ticks using PlotStyle, AxesStyle, and Ticks. > > I have some plots i want to print on an overhead sheet. The lines are > too thin for this. Is there a way to increase the line thickness of all > lines in the plot and extending the length of the ticks (otherwise the > ticks become invisible) in one go? > > thanks. > > bernd > Bernd, Suggestiion - could be modified to include some existing directives. gr=Plot[Sin[x],{x,0,2Pi}] thick[gr_]:=Show[gr/. ln_Line :> Sequence[AbsoluteThickness[3],ln], AxesStyle\[Rule]{{AbsoluteThickness[2]}, {AbsoluteThickness[2]}}, Ticks-> (FullOptions[gr, Ticks])/.{loc_,lab_,len:{_,_},{sty___}}\[Rule]{ loc,lab,5*len,{AbsoluteThickness[2]}} ] thick[gr] Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565