Return to Answer

Since we were talking about EXIF information yesterday (any compression to be added on top):

data = Image[Circle[] // Graphics, 
  MetaInformation -> {"The Data" -> 
     ExampleData[{"Text", "OriginOfSpecies"}]}]
MetaInformation /. Options[data]

Sorry for blowing up the thread, but this also works nicely, Matryoshka style:

Since we were talking about EXIF information yesterday (any compression to be added on top):

data = Image[Circle[] // Graphics, 
  MetaInformation -> {"The Data" -> 
     ExampleData[{"Text", "OriginOfSpecies"}]}]
MetaInformation /. Options[data]

Sorry for blowing up the thread, but this also works nicely, Matryoshka style:

Since we were talking about EXIF information yesterday:

data = Image[Circle[] // Graphics, 
  MetaInformation -> {"The Data" -> 
     ExampleData[{"Text", "OriginOfSpecies"}]}]
MetaInformation /. Options[data]

Any compression would probably have to be added on top...

Sorry for blowing up the thread, but this also works nicely, Matryoshka style:

Since we were talking about EXIF information yesterday (any compression to be added on top):

data = Image[Circle[] // Graphics, 
  MetaInformation -> {"The Data" -> 
     ExampleData[{"Text", "OriginOfSpecies"}]}]
MetaInformation /. Options[data]

Sorry for blowing up the thread, but this also works nicely, Matryoshka style:

Since we were talking about EXIF information yesterday:

data = Image[Circle[] // Graphics, 
  MetaInformation -> {"The Data" -> 
     ExampleData[{"Text", "OriginOfSpecies"}]}]
MetaInformation /. Options[data]

Any compression would probably have to be added on top...

Since we were talking about EXIF information yesterday:

data = Image[Circle[] // Graphics, 
  MetaInformation -> {"The Data" -> 
     ExampleData[{"Text", "OriginOfSpecies"}]}]
MetaInformation /. Options[data]

Any compression would probably have to be added on top...

Sorry for blowing up the thread, but this also works nicely, Matryoshka style: