Nothing
`SVradfoc` <-
function(A , MEC, GU, pscale, col)
{
C = RPMG::circle()
imageSV(MEC$az1, MEC$dip1, MEC$rake1, SCALE=FALSE, UP=MEC$UP, col=col )
lines(C$x, C$y, type='l', col=grey(.6))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.