Revisions to How to remove the white border in Manipulate?

replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/

Source Link

edited Apr 13, 2017 at 12:55

1

Using this undocumented option suggested by MichaelE2 MichaelE2, we can change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

But this option does not work for version 7, so it is then necessary to set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

Using this undocumented option suggested by MichaelE2, we can change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

But this option does not work for version 7, so it is then necessary to set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

Using this undocumented option suggested by MichaelE2, we can change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

But this option does not work for version 7, so it is then necessary to set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

It's not up to me to make value judgements on the answers provided.

Source Link

edited Mar 8, 2016 at 14:54

Jason B.

70.1k
3
144
297

Better Solution

ChangeUsing this undocumented option suggested by MichaelE2, we can change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

Old Answer

SetBut this option does not work for version 7, so it is then necessary to set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

edit

and apparently MichaelE2 has already been here

Better Solution

Change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

Old Answer

Set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

edit

and apparently MichaelE2 has already been here

Using this undocumented option suggested by MichaelE2, we can change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

But this option does not work for version 7, so it is then necessary to set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

added 2 characters in body

Source Link

edited Mar 8, 2016 at 14:49

Dr. belisarius

116.2k
13
205
456

BestBetter Solution

Change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

Old Answer

Set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

edit

and apparently MichaelE2 has already been here

Best Solution

Change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

Old Answer

Set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

edit

and apparently MichaelE2 has already been here

Better Solution

Change the color of the border to the same as the background color of the plot:

Manipulate[
 SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
      Mesh -> {7, 7},
      MaxRecursion -> ControlActive[2, 5],
      PlotRange -> All,
      Boxed -> False,
      Axes -> None,
      SphericalRegion -> True,
      Method -> {"RotationControl" -> "Globe"},
      ImageSize -> {400, 400},
      Background -> Black],
 {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01}, 
 Method -> {"ContentAreaBackground" -> Black}]

Old Answer

Set the FrameMargins to a small negative value,

Manipulate[
   SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2 Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {400, 400},
        Background -> Black],
   {{t, 0, Style["t", 10]}, 0, 2 Pi, 0.01},
   FrameMargins -> #
   ] & /@ {Automatic, None, -5}

edit

and apparently MichaelE2 has already been here

added 704 characters in body

Source Link

edited Mar 8, 2016 at 14:23

Jason B.

70.1k
3
144
297

Loading

Source Link

created Mar 8, 2016 at 14:12

Jason B.

70.1k
3
144
297

Loading

Stack Exchange Network

Return to Answer

Better Solution

Old Answer

edit

Better Solution

Old Answer

edit

BestBetter Solution

Old Answer

edit

Best Solution

Old Answer

edit

Better Solution

Old Answer

edit