Re: Farbe von Prolog/Epilog ändern (MMA4.0

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

was bitte ist die Farbe des Epilogs/Prologs ?
Vielleicht erz"ahlst Du uns auch noch was die
Farbe von Bach's "Tokata" ist und warum die 
Beethoven Sinfonien immer so Gr"un aussehen ...

Falls Du das "andern der Farbe *im* Epilog meinst:

Plot[Sin[x], {x, 0, Pi}, 
  Epilog -> {Table[{Hue[Random[]], Point[{Pi*Random[], Random[]}]},
{100}]}]

geht das prima

und falls Du meintest, "mit dem Prolog die Farbe der hernach
gezeichneten Objekte "andern" so sollte PlotStyle das erledigen

Plot[Evaluate[Table[Sin[n*x], {n, 5}]], {x, 0, Pi},
  PlotStyle -> Table[Hue[Random[]], {5}], 
  Prolog -> {Table[{Hue[Random[]], Point[{Pi*Random[], Random[]}]},
{100}]}]

und nicht der Prolog. Aber

Plot[Sin[x], {x, 0, Pi}, Prolog -> {PostScript["1 0 0 setrgbcolor"]}]

geht nat"urlich auch.

Oder meintest Du eine StyleBox[]
mit gesetzter FontColor ?

StyleBox["Epilog",
            FontColor->RGBColor[1, 0, 0]]

aber das ist nicht der Epilog sondern das Symbol
f"ur den Epilog, wenn man jetzt Epilog auswertet und
einf"arbt gibt das

Cell[BoxData[
    RowBox[{"Plot", "[", 
      RowBox[{
        RowBox[{"Sin", "[", "x", "]"}], ",", 
        RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", 
        RowBox[{"Epilog", "\[Rule]", 
          StyleBox[
            RowBox[{"{", 
              RowBox[{"Table", "[", 
                RowBox[{
                  RowBox[{"{", 
                    RowBox[{
                      RowBox[{"Hue", "[", 
                        RowBox[{"Random", "[", "]"}], "]"}], 
                      ",", 
                      RowBox[{"Point", "[", 
                        RowBox[{"{", 
                          RowBox[{
                            RowBox[{"Pi", "*", 
                              RowBox[{"Random", "[", "]"}]}], 
                            ",", 
                            RowBox[{"Random", "[", "]"}]}], 
                          "}"}], "]"}]}], "}"}], ",", 
                  RowBox[{"{", "100", "}"}]}], "]"}], "}"}],
             (* gleich kommt die Farbe des Epilogs, hier rot *) 
            FontColor->RGBColor[1, 0, 0]]}]}], "]"}]], "Input",
  CellLabel->"In[2]:="]

Man kann Epilog/Prolog "uberhaupt nicht einf"arben, weil
das keine Farbe hat -- man kann auch das Fazit dieser
"Uberlegungen nicht einf"aben, schade eigentlich.

Gruss
  Jens


Oliver.Tonn@XXXXXXX.de wrote:
> 
> Hallo,
> 
> trotz mehr oder minder intensiver Suche habe ich keine Möglichkeit
> gefunden,
> die Farbe des Prologs/Epilog zu ändern. Wer weiß Rat?
> 
> Gruß Oliver