Here is a simple expansion on Jarmo's example. I simply moved away from hardcoding the values, to using the data table values directly.
Names Default To Here( 1 );
dt = New Table( "Example",
Add Rows( 4 ),
New Column( "ID", Character, "Nominal", Set Values( {"1", "1", "2", "2"} ) ),
New Column( "Parameter",
Character,
"Nominal",
Set Values( {"X size", "Y size", "X size", "Y size"} )
),
New Column( "Value",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Values( [10, 15, 11, 14] )
)
);
nw = New Window( "Example",
gb = Graph Box(
Frame Size( 300, 300 ),
Pen Size( 1 );
Pen Color( "Blue" );
Rect( 0, dt:value[2], dt:value[1], 0 );
Pen Color( "Green" );
Rect( 0, dt:value[4], dt:value[3], 0 );
)
);
nw[AxisBox( 1 )] << Min( -0.1 ) << Max( 15.1 ) << Inc( 1 );
nw[AxisBox( 2 )] << Min( -0.1 ) << Max( 12.1 ) << Inc( 1 );
Jim