2 slide presentation

To run a slideshow fullscreen - press f on a slide. Use arrows to navigate

.slides

Thank you for your attention

Prepare individual slides

AutoAnimation = AnimatePlot[Sum[(Sin[2π(2j - 1) x])/(2j), {j, 1.0, n}], {x, -1, 1}, {n, 1, 30, 1}];

.slide

# Hello World

<AutoAnimation/>

Add a few more plots

square[{{imin_, imax_}, {jmin_, jmax_}}] := 
 Table[
  UnitStep[i - imin, imax - i] UnitStep[j - jmin, jmax - j],
  {i, 0, 20}, {j, 0, 20}
]

{Graph1, Graph2} = {
  ListPlot3D[square[{{2, 5}, {3, 7}}], Mesh -> None]
,
  ListPlot3D[Abs@Fourier@square[{{2, 5}, {3, 7}}], Mesh -> None, ColorFunction -> "Rainbow"]
};

Put in on a slide

.slide

# 3D plots

<div class="flex flex-row justify-between">
  <Graph1/>
  <Graph2/>
</div>