wolfram-mathematica - LevelScheme ライブラリで Prolog[] を使用する際の問題

Question

LevelScheme ライブラリで使用しようとしていProlog[]ます。ListLinePlot[]これが私がやろうとしていることのサンプルです。

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 で提供したシェーディング) を取得する方法がわかりません。

コードの何が問題で、どのように修正できるか教えていただけると助かります。