z <- makeZimage(480, lensPolyCoef())
r <- makeRings(z, angleWidth = asAngle(30))
r
plot(r)
r <- makeRings(z, angleWidth = asAngle(30), angleMean = TRUE)
r
plot(r)
r <- makeRings(z, angleWidth = asAngle(10))
plot(r)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.