This screenshot is from a presentation by Brian Frezza at Wolfram Data Summit 2014.

In what clearly is a Mathematica notebook. How is the text highlighted with the callouts?

enter image description here

Some sample text (Julius Caesar) with computed parts-of-speech:

    "HTML"], {969, 1150}], "PartsOfSpeech"] // 
 Query[1, 1, 1, 
  All, {Query[1], 
   Query[2, Values /* Replace[{Entity[_, pos_]} :> pos]]}]


  • 1
    $\begingroup$ My bet is on drawing tools but could you provide data to work with in case it is not or when someone wants to try it? That is a text sample, text parts spec + labels. $\endgroup$ – Kuba Mar 1 '18 at 7:03
  • $\begingroup$ It is a bitmap image (several of them actually within a FlipView) pasted into a Mathematica notebook wolframdatasummit.org/2014/attendee/presentations $\endgroup$ – Mike Honeychurch Mar 1 '18 at 7:13
  • $\begingroup$ @MikeHoneychurch, were the bitmaps generated in Mathematica or imported? $\endgroup$ – alancalvitti Mar 1 '18 at 7:23
  • $\begingroup$ @Kuba, added some sample text & tags, though they're paired in lists. Could randomly subselect some tags and drop others. $\endgroup$ – alancalvitti Mar 1 '18 at 7:26
  • $\begingroup$ @alancalvitti thanks. p.s. this may be helpful: mathematica.stackexchange.com/q/155237/5478 $\endgroup$ – Kuba Mar 1 '18 at 8:02

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.