Re: Re: Creating a Banner -> Now creating a slide show
- To: mathgroup at smc.vnet.net
- Subject: [mg93689] Re: Re: Creating a Banner -> Now creating a slide show
- From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
- Date: Sat, 22 Nov 2008 06:10:39 -0500 (EST)
Dear David, thank you for your answers. The article you mentioned appeared to be very instructive and helpful. With it I seem to understand now, how one can make a presentation in one notebook and show it in another one. Still, I have one question, may be you could give a tip. Dear MathGroup members, this this question I address of coarse, to anyone of you. This group of questions - I believe - represents a general interest, since it solves an important problem of how to organize a Mathematica-based presentation with a lot of programming behind, if you want to show only results, but not the "kitchen". The answer (at least one possible answer) seems to be straightforward: separate them. In other words, put programming into one notebook and open from this another one which is "clean", since it contains only your presentation to show. This however, requires a bit of a notebook programming. OK, below I write a simple code which creates a model of notebook to be presented. It consists of two groups of cells, each one containing a title, an explanatory text and an interactive or animated presentation. This works. Playing with this and using tips from http://scientificarts.com/worklife/notebooks/ and from Mathematica tutorials one may create a variety of other separated presentations. Now comes my question. Do you know a way to programmatically instruct Mathematica that the newly created notebook must open already as a SlideShow and each of these cell groups must be shown in a separate slide? To explain the importance of this point: if it works, you can open your second (presentation) notebook from your first one just few seconds before the presentation. Otherwise you will need just before your presentation to spend time on dividing it into slides. (* This specify cells that will be shown in the first... *) title1 = TextCell["The first demonstration", "Section"]; textCell1 = TextCell["A first dummy example", Blue, 25, "Text", TextAlignment -> Center]; demoCell1 = Manipulate[ Plot[x^a*Exp[-x], {x, 0, 2}, PlotRange -> {{0, 2}, {0, 1}}], {a, 0, 3}]; (* ... and the second group *) title2 = TextCell["The second demonstration", "Section"]; textCell2 = TextCell["The second dummy example", Blue, 25, "Text", TextAlignment -> Center]; demoCell2 = Animate[PolarPlot[Sin[b*\[Phi]], {\[Phi], 0, 2 \[Pi]}, PlotRange -> 1], {b, 0, 4}, Paneled -> False]; (* This creates the notebook *) nb = CreateDocument[{ CellGroup[{title1, textCell1, demoCell1}, 1], CellGroup[{title2, textCell2, demoCell2}, 1] }, WindowSize -> {900, 900}]; Best, Alexei Hi Alexi, There are two (or more!) ways to go about this. One is to create a cell in a notebook that has the form that you want. Then use the Cell>Show Expression menu command to get the actual Cell expression for that cell. Copy that and use that in the DockedCells list. An alternative way to go about this programatically is the following. This involves some trickier stuff, but perhaps you can model based on this. Here it is for the example that you tried: rose = Import["ExampleData/rose.gif"]; SetOptions[EvaluationNotebook[], DockedCells -> { FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], First[ ToBoxes[ TextCell[rose, "Section", TextAlignment -> Center] ] ]}] This sort of programming approach is not widely known, but I discuss some of it in the article "Every Document is an Expression: The Reach of Mathematica 6" on this page, http://scientificarts.com/worklife/notebooks/ Best regards, David On Nov 18, 7:21 am, Alexei Boulbitch <Alexei.Boulbi... at iee.lu> wrote: > Dear David, > This is indeed a very good thing to be able to do. For this reason I woul= d like to ask you to explain more about it. > What I am missing is to be able to include an image as a banner cell, rat= her than only a text. I tried the following: > > rose = Import["ExampleData/rose.gif"]; > > SetOptions[EvaluationNotebook[], > DockedCells -> {Cell[Graphics[rose], "Title"]}] > > or > > SetOptions[EvaluationNotebook[], > DockedCells -> {FEPrivate`FrontEndResource["FEExpressions", > "SlideshowToolbar"], > Cell[rose, "Section", TextAlignment -> Center]}] > > but this does not work. Could you please give a tip? > > Best, Alexei > > >Just a small (but important) update to my previous post on this. here > >is a more useful template for how to go about this since it includes > >the slide navigation elements: > >SetOptions[EvaluationNotebook[], > > >DockedCells -> {FEPrivate`FrontEndResource["FEExpressions", > > "SlideshowToolbar"], > >Cell["this is it", "Section", TextAlignment -> Center]}] > > >Best, > >David > > On Nov 16, 7:03 am, RG <gobithaa... at gmail.com> wrote:> Dear experts, > > > I'm trying to make a powerpoint like presentation using Mathematica 6, = bu= > t i > > can't find any explaination in documentation on how to create banners > > for my presentation. Nice example can be found at:http://library.wolfra= m.= > > com/infocenter/Conferences/7002/. > > > Thanking you in advance, > > jetro > -- Alexei Boulbitch, Dr., Habil. Senior Scientist IEE S.A. ZAE Weiergewan 11, rue Edmond Reuter L-5326 Contern Luxembourg Phone: +352 2454 2566 Fax: +352 2454 3566 Website: www.iee.lu This e-mail may contain trade secrets or privileged, undisclosed or otherwise confidential information. If you are not the intended recipient and have received this e-mail in error, you are hereby notified that any review, copying or distribution of it is strictly prohibited. Please inform us immediately and destroy the original transmittal from your system. Thank you for your co-operation.