Guest User

Untitled

a guest
Aug 6th, 2013
47
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CellPrint[Cell[BoxData[
  2. ToBoxes[Graphics[{Circle[]}, ImageSize -> {Automatic, Automatic}]]
  3. ], "Output", CellTags -> "MyGraphic"]]
  4. Dynamic[Refresh[
  5. InputForm @@
  6. MakeExpression@
  7. First@First@Cases[NotebookGet[EvaluationNotebook[]][[1]]
  8. , Cell[___, CellTags -> "MyGraphic", ___]
  9. , Infinity
  10. ], UpdateInterval -> 1]]
RAW Paste Data