Nothing
`ROTY` <-
function( deg )
{
rad1 = deg * 0.0174532925199;
r = diag(4)
r[1, 1] = cos(rad1)
r[3, 1] = sin(rad1)
r[3, 3] = r[1, 1]
r[1, 3] = -r[3, 1]
return(r)
}
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.