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