Skip to main content
added 73 characters in body
Source Link
Szabolcs
  • 236.5k
  • 31
  • 641
  • 1.3k

Here's an example of how to do it with the SciDraw package, which is the successor of LevelScheme (you'll be able to re-use some of what you've learned about LevelScheme). I'm not experienced with the original LevelScheme so I won't attempt to use it now or comment on its capabilities.

Needs["SciDraw`"]

Figure[
 FigurePanel[
  {
   FigLine@Plot[Sin[x], {x, 0, 2 Pi}];
   
   FigInset[Graphics3D[Cuboid[], Boxed -> False], 
       Scaled[{{0.5, 1}, {0.5, .95}}]];
  },
  XPlotRange -> {0, 2 Pi}, YPlotRange -> 1.1 {-1, 1}
 ]
]

The key was using FigInset. Just like with Inset, you can include practically anything that can appear in a notebook.

You'll find a similar but more detailed example of the same in the Examples-Tutorial.nb notebook that comes with the package.

Here's an example of how to do it with the SciDraw package, which is the successor of LevelScheme. I'm not experienced with the original LevelScheme so I won't attempt to use it now or comment on its capabilities.

Needs["SciDraw`"]

Figure[
 FigurePanel[
  {
   FigLine@Plot[Sin[x], {x, 0, 2 Pi}];
   
   FigInset[Graphics3D[Cuboid[], Boxed -> False], 
       Scaled[{{0.5, 1}, {0.5, .95}}]];
  },
  XPlotRange -> {0, 2 Pi}, YPlotRange -> 1.1 {-1, 1}
 ]
]

The key was using FigInset. Just like with Inset, you can include practically anything that can appear in a notebook.

You'll find a similar but more detailed example of the same in the Examples-Tutorial.nb notebook that comes with the package.

Here's an example of how to do it with the SciDraw package, which is the successor of LevelScheme (you'll be able to re-use some of what you've learned about LevelScheme). I'm not experienced with the original LevelScheme so I won't attempt to use it now or comment on its capabilities.

Needs["SciDraw`"]

Figure[
 FigurePanel[
  {
   FigLine@Plot[Sin[x], {x, 0, 2 Pi}];
   
   FigInset[Graphics3D[Cuboid[], Boxed -> False], 
       Scaled[{{0.5, 1}, {0.5, .95}}]];
  },
  XPlotRange -> {0, 2 Pi}, YPlotRange -> 1.1 {-1, 1}
 ]
]

The key was using FigInset. Just like with Inset, you can include practically anything that can appear in a notebook.

You'll find a similar but more detailed example of the same in the Examples-Tutorial.nb notebook that comes with the package.

Source Link
Szabolcs
  • 236.5k
  • 31
  • 641
  • 1.3k

Here's an example of how to do it with the SciDraw package, which is the successor of LevelScheme. I'm not experienced with the original LevelScheme so I won't attempt to use it now or comment on its capabilities.

Needs["SciDraw`"]

Figure[
 FigurePanel[
  {
   FigLine@Plot[Sin[x], {x, 0, 2 Pi}];
   
   FigInset[Graphics3D[Cuboid[], Boxed -> False], 
       Scaled[{{0.5, 1}, {0.5, .95}}]];
  },
  XPlotRange -> {0, 2 Pi}, YPlotRange -> 1.1 {-1, 1}
 ]
]

The key was using FigInset. Just like with Inset, you can include practically anything that can appear in a notebook.

You'll find a similar but more detailed example of the same in the Examples-Tutorial.nb notebook that comes with the package.