RE: Coloured lines in graphics but black in print

*To*: mathgroup at smc.vnet.net*Subject*: [mg36549] RE: [mg36524] Coloured lines in graphics but black in print*From*: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>*Date*: Wed, 11 Sep 2002 13:27:31 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

>-----Original Message----- >From: Mike [mailto:mikeh1980 at optusnet.com.au] To: mathgroup at smc.vnet.net >Sent: Wednesday, September 11, 2002 9:28 AM >Subject: [mg36549] [mg36524] Coloured lines in graphics but black in print > > >Is it possible to configure a style sheet so that functions or >data shown in >graphs are coloured (colored :)) in working but black in >printing...without >actually re-executing the function that created the graphics? > >thanks > >Mike > > Mike, if for some reason you can't configure your color printer when printing, you may rerender your graphics in Mathematica with different options, such avoiding costly recalculation. You may either use something special, as in... In[1]:= ContourPlot[Sin[x]^2 Sin[y]^2, {x, 0, Pi}, {y, 0, Pi}, ColorFunction -> Hue, ContourStyle -> GrayLevel[1], PlotPoints -> 100] Out[1]= \[SkeletonIndicator]ContourGraphics\[SkeletonIndicator] In[2]:= Show[%, ColorFunction -> (GrayLevel[1 - #] &)] ...using a B/W color function. Or in general you may use the option ColorOutput: In[3]:= Plot3D[Sin[x]^2 Sin[y]^2, {x, 0, Pi}, {y, 0, Pi}] Out[3]= \[SkeletonIndicator]SurfaceGraphics\[SkeletonIndicator] ... In[5]:= Show[%%, ColorOutput -> GrayLevel] -- Hartmut