Nothing

```
distance2point <-
function( x, y, viewerDistance, viewerHeight, resolutionX, resolutionY, screenWidth, screenHeight ) {
centerX <- screenWidth / 2
centerY <- screenHeight / 2 - viewerHeight
targetX <- x / resolutionX * screenWidth
targetY <- y / resolutionY * screenHeight
dX <- targetX - centerX
dY <- targetY - centerY
screenDistance <- sqrt( dX^2 + dY^2 )
sqrt( ( viewerDistance^2 + screenDistance^2) )
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.