Through JSL you can add a graphics script to customise the graph, so that it shows a shaded polygon:
gb = Graph Builder(
Size( 1659, 932 ),
Show Control Panel( 0 ),
Variables( X( :Series ), Y( :Data ) ),
Elements( Points( X, Y, Legend( 5 ) ) ),
SendToReport(
Dispatch(
{},
"Series",
ScaleBox,
{Min( 0 ), Max( 102 ), Inc( 10 ), Minor Ticks( 1 )}
),
Dispatch(
{},
"Data",
ScaleBox,
{Min( -4 ), Max( 4 ), Inc( 1 ), Minor Ticks( 1 ),
Add Ref Line( 3, "Solid", "Black", "", 1 ),
Add Ref Line( -3, "Solid", "Black", "", 1 )}
)
)
);
// create a shaded region
rep = gb << Report;
x = {};
x[1] = rep[AxisBox(1)] << Get Min;
x[2] = rep[AxisBox(1)] << Get Max;
x[3] = x[2];
x[4] = x[1];
y = {-3,-3,3,3};
fb = rep[FrameBox(1)];
fb << Add Graphics Script(
Transparency(0.1);
Fill Color("Green");
Polygon( Matrix(x), matrix(y) )
);
-Dave