I have been using the points of Mathematica plots for more than 25 years and it suddenly does not work any longer in version 11:
gr = Plot[Sin[2 \[Pi] x], {x, 0, 1}]
gr[[0]]
returns Graphics
gr[[1, 1, 1, 3]]
returns
{Directive[Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]],
Line[{{2.04082*10^-8, 1.28228*10^-7}, {0.000306718,
0.00192716}, {0.000613415, 0.00385419}, {0.00122681,
0.0077082}, {0.0024536, 0.0154158}, {0.00490718,
0.0308278}, {0.00981434, 0.0616262}, {0.0196287, 0.123018},....
The points seem to be there and reachable, but
gr[[1, 1, 1, 3, 2]
returns "ChartingPrivate
Tag$109972#1" instead of the Line[] with the points!
How to get the points in version 11 (and above)?
Thank you for your help.
Denis
gr[[1, 1, 1, 3, 1, 2]]
. The actual list which contains the line primitive is wrapped by anAnnotation
that can only be seen withFullForm
orInputForm
. But indeed weird; theseAnnotation
wrappers haven't been there in former versions. $\endgroup$ – Henrik Schumacher Feb 26 '19 at 12:11Line
primitive lies a level deeper because of an (almost) invisible wrapper calledAnnotation
. Have a look atInputForm[gr[[1, 1, 1, 3]]]
to see it. $\endgroup$ – Henrik Schumacher Feb 26 '19 at 12:49