Re: A black backgroud...
- To: mathgroup at smc.vnet.net
- Subject: [mg33465] Re: A black backgroud...
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 22 Mar 2002 04:06:43 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <a7csg5$i0i$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
you can't see the plot on a black background because
the default drawing color is black.
Set the options of Plot, ListPlot ... to
SetOptions[Plot,
ColorOutput :>
If[$Notebooks &&
GrayLevel[0.] === (Background /.
Union[
Cases[
Options[SelectedNotebook[]],
HoldPattern[Background -> _],
Infinity
]
]), (* Then *)
((# /. GrayLevel[a_] :> GrayLevel[1 - a]) &),
(* Else *)
Automatic]
]
may help.
Regards
Jens
WhoamI wrote:
>
> Hi mathgroup, I would be grateful if some can help me
> with this problem:
>
> I use my own style sheet with a background for the
> hole notebook set to black (GrayLevel[0]). Now,
> because the of default option:
> ColorOutput->GrayLevel[0] for commands like Plot, I
> have to begin my sessions with a command like this:
>
> SetOptions[{Plot,ListPlot,...},ColorOutput->"color"]
>
> so I can see any plot I do.
> My question is: How can I do, so that Mathematica
> evaluates this command every time I begin a session
> but only if I use my own style sheet?. I mean, if for
> example I use the default style sheet, Mathematica
> doesn't take care of this command.
>
> Thanks in advance again...
>
> César Guerra
> Secc. Fisica - PUCP
> Lima.
>
>
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Movies - coverage of the 74th Academy Awards®
> http://movies.yahoo.com/