I have such callout call=Uncompress[FromCharacterCode[ Flatten[ImageData[Import["http://i.stack.imgur.com/LYskG.png"],"Byte"]]]] {Callout[{756.,2047.5},1],...,Callout[{1327.12,2044.06},7]} ...
from Hot Questions - Stack Exchange OnStackOverflow
via Blogspot