Demand or supply bars for Amibroker (AFL)

_SECTION_BEGIN( "SG's Demand and Supply Bars" );
TopWick = IIf( Close > Open, High - Close, High - Open );
BotWick = IIf( Close > Open, Open - Low, Close - Low );

SBCond1 = TopWick > Ref( TopWick, -1 ) AND TopWick > Ref( TopWick, 1 );
SBCond2 = High > Ref( High, -1 ) AND High > Ref( High, 1 );
SBCond3 = Ref( TopWick, -1 ) > 0.009 AND Ref( TopWick, 1 ) > 0.009;

DBCond1 = BotWick > Ref( BotWick, -1 ) AND BotWick > Ref( BotWick, 1 );
DBCond2 = Low < Ref( Low, -1 ) AND Low < Ref( Low, 1 );
DBCond3 = Ref( BotWick, -1 ) > 0.009 AND Ref( BotWick, 1 ) > 0.009;

SpplyBar = IIf( SBCond1 AND SBCond2 AND SBCond3, shapeSmallCircle, shapeNone );
DmndBar = IIf( DBCond1 AND DBCond2 AND DBCond3, shapeSmallCircle, shapeNone );

PlotShapes( SpplyBar, ParamColor( "SupplyBar Color", colorRed ), 0, H, 10 );
PlotShapes( DmndBar, ParamColor( "DemandBar Color", colorGreen ), 0 , L, -10 );
_SECTION_END();