使用Prolog []和LevelScheme库时出现问题

Question

我正在尝试在Prolog[]中使用ListLinePlot[]与LevelScheme库。这是我想要做的一个例子。

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}
 ]

这是输出，如果get，

我无法弄清楚如何获得我想要的阴影 - 我在Prolog中提供的阴影。

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