Re: FilledPlot: Curves->Back option and Epilog not working?

*To*: mathgroup at smc.vnet.net*Subject*: [mg56883] Re: [mg56861] FilledPlot: Curves->Back option and Epilog not working?*From*: "David Park" <djmp at earthlink.net>*Date*: Mon, 9 May 2005 01:46:03 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

That's one of the problems with DisplayTogether or Show. It only picks up an option (like Epilog) once from its first appearance. As for the Curves option, it only matters if you are plotting more than one fill in a FilledPlot statement. (You didn't actually give us working code so I don't know exactly what you were doing. Were you plotting more than one curve and fill with a single call of WavePlot?) With DrawGraphics you have none of these problems. Needs["DrawGraphics`DrawingMaster`"] waveDraw[ampl_, phase_, fillcolor_, mesg_, mesgloc_] := {FilledDraw[ampl*Sin[t + phase], {t, 0, 4*Pi}, Fills -> fillcolor], Text[StyleForm[mesg, FontColor -> ColorMix[fillcolor, Black][0.3]], mesgloc, {-1, 0}]} Draw2D[ {waveDraw[1, 20Degree, LightSteelBlue, "wave1", {0.2, 1.1}], waveDraw[0.6, 100Degree, Orchid, "wave2", {5, 0.7}]}, Frame -> True, Axes -> {True, False}, AxesFront -> True, PlotRange -> {-1.1, 1.3}, Background -> Linen, ImageSize -> 450] The only thing to worry about is that a subsequent filled wave will cover up a previous text label. It might be preferable to put the text labels in the Draw2D statement. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: AES [mailto:siegman at stanford.edu] To: mathgroup at smc.vnet.net I have a module that makes a filled plot. I use it to make two (or more) displaced filled plots, then Show these plots (code below). Everything works as expected, with two problems: * The Curves->Back option never works. * An additional line generated by an Epilog in the module only appears in the final test plot. I'm beginning to realize that when multiple plots each having an Epilog are combined using Show or DisplayTogether, only the *final* Epilog gets executed. Throwing in "Evaluates" at various stages in the process doesn't seem to get around this. If this is true, maybe the description of Epilog in the online Help should say this? (Especially since it seems an intuitively *non*obvious way for Epilog to behave -- shouldn't the stuff created by Epilog in a Plot command become part of the plot once the plot command has been executed?) I don't have a clue why Curves->Back doesn't work anywhere or any way I've tried it (including changing Front to Back in the online Help example). wavePlot[<args>] := Module[{}, <expressions>, FilledPlot[ <plot stuff> , Curves -> Back, Epilog -> {Line[ <line stuff> ]}, DisplayFunction -> Identity]]; <set all the args>; testPlot1 = wavePlot[ <args> ]; <reset all the args>; testPlot2 = wavePlot[ <args> ]; Show[testPlot1, testPlot2, DisplayFunction -> $DisplayFunction, PlotRange -> All];