wolfram-mathematica - 将 Prolog[] 与 LevelScheme 库一起使用时出现问题

Question

我正在尝试使用Prolog[]LevelSchemeListLinePlot[]库。这是我正在尝试做的一个示例。

Figure[
 {
  Multipanel[
   {2, 1},
   XPlotRanges -> {0, 10},
   YPlotRanges -> {{-1, 1}, {-1, 1}},
   Margin -> 40,
   XFrameTicks -> LinTicks[0, 10, 1, 1],
   ExtendRange -> 0.03,
   XFrameLabels -> "Time (sec)", BufferB -> 3.5,
   YFrameLabels -> {"Out 1", "Out 2"}, BufferL -> 4.5,
   PanelLetterCorner -> {-1, -1},
   YGapSizes -> {0.1},
   Background -> White
   ],

  SetOptions[DataSymbol, SymbolSize -> 0.1],

  FigurePanel[{1, 1}],
  RawGraphics[
   ListLinePlot[Transpose[{Range[0, 10, 0.1], 
      RandomReal[{-1, 1}, 101]}], PlotRange -> All]],
  FigurePanel[{2, 1}],
  RawGraphics[
   ListLinePlot[Transpose[{Range[0, 10, 0.1], 
      RandomReal[{-1, 1}, 101]}], 
    PlotStyle -> {Black, Thick}, 
    Prolog -> {Opacity[0.1], Red, Rectangle[{0, -1}, {2.5, 1}], Green,
       Rectangle[{2.5, -1}, {7.5, 1}], Red, 
      Rectangle[{7.5, -1}, {10, 1}]}]]
  },
 ImageSize -> {600, 350}
 ]

如果得到，这是输出，

我不知道如何获得我想要的阴影——我在 Prolog 中提供的阴影。

如果有人能告诉我代码中的问题是什么，以及如何解决它，那将会很有帮助。