Here is a sample script that is a real rough example of how you might start
Names Default To Here( 1 );
nw = New Window( "Example",
Graph Box(
FrameSize( 600, 600 ),
suppressAxes,
Gradient Function( b, a, b, [0, 100], Z Color( [2, 9] ) ),
Pen Color( "black" );
Circle(
{50, 50},
15,
30,
45/* no fill for concentric circles */
);
xMat = [50, 95];
yMat = [50, 50];
Line( xMat, yMat );
xMat = [50, 5];
yMat = [50, 50];
Line( xMat, yMat );
xMat = [50, 50];
yMat = [50, 95];
Line( xMat, yMat );
xMat = [50, 50];
yMat = [50, 5];
Line( xMat, yMat );
xMat = [50, 81.8198051533946];
yMat = [50, 81.8198051533946];
Line( xMat, yMat );
xMat = [50, 18.1801948466054];
yMat = [50, 81.8198051533946];
Line( xMat, yMat );
xMat = [50, 81.8198051533946];
yMat = [50, 18.1801948466054];
Line( xMat, yMat );
xMat = [50, 18.1801948466054];
yMat = [50, 18.1801948466054];
Line( xMat, yMat );
xMat = [50, 91.8];
yMat = [50, 67.];
Line( xMat, yMat );
xMat = [50, 8.2];
yMat = [50, 67.];
Line( xMat, yMat );
xMat = [50, 91.8];
yMat = [50, 33.];
Line( xMat, yMat );
xMat = [50, 8.2];
yMat = [50, 33.];
Line( xMat, yMat );
xMat = [50, 33];
yMat = [50, 91.8];
Line( xMat, yMat );
xMat = [50, 33];
yMat = [50, 8.2];
Line( xMat, yMat );
xMat = [50, 67];
yMat = [50, 91.8];
Line( xMat, yMat );
xMat = [50, 67];
yMat = [50, 8.2];
Line( xMat, yMat );
Fill Color( "cyan" );,
Pie( 7, 93, 93, 7, 255, 285 ),
Pie( 7, 93, 93, 7, 225, 255 ),
Fill Color( "red" ),
Pie( 17, 83, 83, 17, 225, 255 ),
Text Color( "Black" ),
Text Size( 16 ),
Text( Center Justified, {50, 95}, "N" ),
Text( Center Justified, {50, 1}, "S" ),
Text( Center Justified, {3, 50}, "W" ),
Text( Center Justified, {96, 50}, "E" )
)
);
Jim