z <- makeZimage(480, lensPolyCoef())
a <- makeAimage(z)
g <- makePolarGrid(z, a, angleWidth = asAngle(10))
g
head(levels(g)[[1]])
plot(g)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.