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)
```
SeedRandom[1]
data = RandomVariate[NormalDistribution[#, .25], {15, 2}] & /@ Range[3];

ListPlot[data, PlotStyle -> {Red, Blue, Green}]

```

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

```
data2 = Flatten[data, {2, 1}];
(* or data2 = Join @@ Transpose[data] *)

ListPlot[List /@ data2,
 PlotStyle -> {Red, Blue, Green}, 
 PlotMarkers -> (Round[Norm @ #] & /@ data2)]

```

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