# How to prevent ShrinkWrap from removing text?

Bug persisting through 11.2.0

When I use ShrinkWrap to remove the white space around my 3D graphics, it always removes any text around the edges. Say for example I plot a sphere and some text:

Show[Graphics3D[{Sphere[], Text[Style["ABC", 24], {1, 1, 1}]}], Boxed -> False]


And if I use ShrinkWrap, it removed the text and part of the sphere

Show[Graphics3D[{Sphere[], Text[Style["ABC", 24], {1, 1, 1}]}], Boxed -> False,
Method -> {"ShrinkWrap" -> True}]


How to prevent this?

• This is a bug. Please report it to the support. BTW, with version 8.0.4 the ball isn't cropped: screenshot. – Alexey Popkov Nov 26 '17 at 6:53
• @AlexeyPopkov OK, where do I report this bug? – updraft Nov 26 '17 at 7:27
• You send email to support@wolfram.com with MWE and information about your OS, version number, etc... you'l' get back a CASE number. – Nasser Nov 26 '17 at 7:35
• Nasser already answered about support. They'll ask you for output of {$Version,$ReleaseNumber, \$LicenseID}, so I recommend to include this in the original report. – Alexey Popkov Nov 26 '17 at 7:49

Try this to see if it works for you.

Show[Graphics3D[{Sphere[],Text[Style["ABC",24],{1,1,1}]}],
Boxed->False,
Method->{"ShrinkWrap"->True},
ViewVector->{{9,2,2},{0,0,0}}
]


Update

Using ImagePadding -> 0, PlotRangePadding -> 0 helps a little, as given by comment by Simon woods in method-shrinkwrap-messes-up-editting-graphics But the text is still missing, but sphere is not cropped.

Show[Graphics3D[{Sphere[],Text[Style["ABC",24],{1,1,1}]}],
Boxed->False,Method->{"ShrinkWrap"->True},

• (+1) Can you explain why specifying ViewVector helps in this case? – Alexey Popkov Nov 26 '17 at 6:58
• How do I know which specification for ViewVector to use though? Can it be done when there are multiple texts at several different margins? – updraft Nov 26 '17 at 7:24