Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Creating a Banner -> Now creating a slide show

  • To: mathgroup at smc.vnet.net
  • Subject: [mg93729] Re: Creating a Banner -> Now creating a slide show
  • From: David Reiss <dbreiss at gmail.com>
  • Date: Mon, 24 Nov 2008 04:13:33 -0500 (EST)
  • References: <gg8pb7$ju0$1@smc.vnet.net>

Hi Alexei,

The following should do what you want, if I am understanding the
question:


cells = Join[{TextCell["", "SlideShowNavigationBar",
     CellTags -> "SlideShowHeader"]},
   Riffle[{CellGroup[{title1, textCell1, demoCell1}],
     CellGroup[{title2, textCell2, demoCell2}]},
    TextCell["", "SlideShowNavigationBar",
     CellTags -> "SlideShowHeader"]]
   ];

nb = CreateDocument[cells, WindowSize -> {900, 900},
   ScreenStyleEnvironment -> "SlideShow"];



The cell, TextCell["", "SlideShowNavigationBar", CellTags ->
"SlideShowHeader"]]  is what tells where slides are separated from one
another, so I just insert it between the cellgroups using Riffle, and
I make sure that there is also a copy at the beginning of the
notebook.  Then in the final document I set the notebook option
ScreenStyleEnvironment -> "SlideShow" to make the slideshow explicit.
I removed the 1 from the last argument of your Cellgroups so that the
groups are open.  In a slide show, the cellbrackets are often not
visible, so you'd want the cellgroups to all be open,...  otherwise
you night not realize that the slide has content...   alternatively
you could put groupopeners on all cells...

Best,

David




On Nov 22, 6:10 am, Alexei Boulbitch <Alexei.Boulbi... at iee.lu> wrote:
> 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 fromhttp://scientificarts.co=
m/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 wo=
ul=
>
> d like to ask you to explain more about it.> What I am missing is to be a=
ble 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.  he=
re
> > >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.wolf=
ra=
> 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 other=
wise confidential information. If you are not the intended recipient and ha=
ve received this e-mail in error, you are hereby notified that any review, =
copying or distribution of it is strictly prohibited. Please inform us imme=
diately and destroy the original transmittal from your system. Thank you fo=
r your co-operation.



  • Prev by Date: Re: Re: Mathematica 7 is now available
  • Next by Date: Re: Mathematica 7 is now available
  • Previous by thread: Re: Creating a Banner -> Now creating a slide show
  • Next by thread: Re: Re: Creating a Banner -> Now creating a slide show