Question: I'd like to overlay a glass jar onto an image with realistic light bending. Can anyone think of a way to automate this effect? Perhaps this can be done with the raytracing package [Rayica / Optica](http://www.opticasoftware.com/)?

![enter image description here](https://i.stack.imgur.com/LH11n.png)

![enter image description here](https://i.stack.imgur.com/2KISh.jpg)

Answer: 
Not sure if this is what you had in mind, but you could do something like

```
ListPlot[data, PlotStyle -> {Red, Green, Blue}] /. 
   {Point[a_] :> (Text[Round[Norm[#]], #] & /@ a)}

```

![Mathematica graphics](https://i.stack.imgur.com/VJ5lu.png)
The numbers will confusingly overlap, especially with more precision shown. Just in case here is a solution with radius of disk reflecting the `Norm` and `Tooltip` showing the number?

```
Graphics[{Hue[RandomReal[], 1, 1, .4], 
    Map[Tooltip[Disk[#, .02 Norm[#]], Norm[#]] &, #]} & /@ data, Frame -> True]

```

![enter image description here](https://i.stack.imgur.com/mCJkI.png)